USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  Exportar um recordset como um arquivo texto usando ADO e o FileSystemObject
Postada em 25/8/2003 por Ð@®l@n            
Faça o seguinte:

1-) faça uma refêrencia a ADO no eu projeto e uma uma referência a Microsoft Script Runtime ( Scrrun.dll)

' o arquivo texto será gerado em c:\teste.
Private Sub Command1_Click()
Dim conexao As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim Sql As String
Dim fso As New Scripting.FileSystemObject
Dim txtFile As Scripting.TextStream

On Error GoTo trata_erro

'cria conexão
With conexao
  .ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\teste\Biblio.mdb;"
  .Open
End With

Sql = "SELECT * from Publishers ORDER BY Name"
'ativa a consulta e escreve o resultado em um arquivo texto delimitidado
rst.Open Sql, conexao
'cria arquivo texto
Set txtFile = fso.CreateTextFile("C:\Teste\arqTexto.txt", True)

'escreve e utiliza o separador ( | ) entre os campos
txtFile.Write (rst.GetString(adClipString, , "|", vbCrLf, ""))
MsgBox "Arquivo texto gerado com sucesso !", vbInformation, "Exportando um Recordset como Texto"

Exit Sub
trata_erro:
MsgBox "Ocorreu o seguinte erro : " & Err.Description
End Sub  
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página