Por favor, alguem poderia me ajudar? É um pouco urgente!!!

Eu tenho algumas informações no meu banco SQL e preciso atraves dessas informações gerar um arquivo texto. Mas não faço idéia por onde começar! Será que alguem poderia me ajudar?????

Por exemplo... Na linha 01 do arquivo texto vai o CNPJ, na linha 2 vai a data... E assim por diante!!! Obrigada!!!

Preciso pelo menos saber como eu faço pra exportar dados de um banco para o txt...

no excel eu faria:

Set exclApp = CreateObject("Excel.Application")
Set exclsheet = CreateObject("Excel.Sheet")
Set exclBook = exclApp.Workbooks.Add
Set exclsheet = exclBook.Worksheets(1)

 

e no txt????

eis algumas dicas que irão te ajudar

 

http://www.vbweb.com.br/dicas_visual.asp?Codigo=576&Classificacao=

http://www.vbweb.com.br/dicas_visual.asp?Codigo=1359&Classificacao=

http://www.vbweb.com.br/dicas_visual.asp?Codigo=3369&Classificacao=

'define variáveis
Dim fs As Scripting.FileSystemObject
Dim texto As Scripting.TextStream
Dim sql As String
Dim contador As Long

'monta consulta sql selecionando o codigo e nome do autor
sql = "Select IDCliente , Nome FROM Clientes "

'abre o banco de dados e o recordset
Set db = opendatabase(Text1.Text)
Set rs = db.openrecordset(sql)

'cria um objeto filesystemobject
Set fs = New Scripting.FileSystemObject
Set texto = fs.OpenTextFile(Text2.Text, ForWriting, True)

'Percorre o recordset até o seu final exportando os dados selecionados
Do Until rs.EOF
  texto.Write rs!IDCliente & ";" & rs!Nome & vbCrLf

  'atualiza contador
  contador = contador + 1
  rs.MoveNext

Loop

'Fecha os objetos e libera variáveis

Eu uso exatamente como o Danilo colocou.

 

vlu//

tem uma maneira muito simples q utilizo quando quero fazer um arquivo texto com tabulação tipo layout de banco e etc. vc utiliza o comando open, no help do vb ele utiliza a função para imprimir para LPT1, é só mudar para o destino  e nome do arquivo texto, e não esquece do close no final do arquivo.