Gerar Um Arquivo Texto!

[GiAragão]

Olá Pessoal,

Estou com um problema, preciso pegar os dados de um record set e armazenar em um arquivo tecxto, por exemplo um *.txt .

Por Favor me ajudem!!!!

Obrigada

Giovanna.

[Graymalkin]

Faça uma busca aqui no fórum e você encontrará exemplos disso (ou encontrará, isoladamente, exemplos de como gravar arquivos texto e de como percorrer um recordset).

Abraços,

Graymalkin

[Señor Smoke]

Faça mais ou menos assim:

Private Sub Gera_Click()
Open "c:\nome.txt" For Output As #1
Do Until Rs2.EOF
  Print #1, Rs2.GetString(, 100, vbTab, vbCrLf, "");
Loop
MsgBox "Arquivo -  - gerado com sucesso !!"
End Sub

Isso deve resolver

abs

[ramon]

Use

Para salvar

n = freefile()
open "c:\teste.ramon" for output as #n
print #n, "primeira linha"
print #n, "segunda linha"
close #n 

Para Ler

n = freefile()
open "c:\teste.ramon" for input as #n
input #n, linha1
input #n, linha2
close #n
msgbox linha1
msgbox linha2