text files always get me...

[jhermiz]

I always hate doing this and I always forget how. I promise to write it down this time...

I want to create a text file in say C:\ and write records to it from a database.

While not rs.eof
Write to text file
rs.movenext
wend

I want to make sure the line in the text file has a carriage return for the next record

How do I do this simple darn process.
Dont forget to show me how to clean up resources
I love you guys

[kleinma]

Dim iHandle as Integer
iHandle = FreeFile
Open "C:\MyFile.txt" for Output as #iHandle
Do Until RS.EOF
    Write #iHandle, RS("ID") & "," & RS("Name")
    RS.MoveNext
Loop
Close #iHandle

assuming RS is already been opened (and closed after the loop)

You can use Write or Print in that line
Print writes the data exactly, and Write prints the data with quotes around it (good if you want to read in data later)

also I just wrote this.. didnt test so if it comes up with any errors, just let me know

[Static]

Open "C:\filename.txt" for output as #1
Do while not rs.EOF
tmp = ""
For x = 0 to rs.fields.count -1
tmp = tmp & " " & rs.fields(x) 'put a delimiter in there?
next
Print #1, tmp
rs.movenext
Loop
Close #1

[Static]

kleinma! to quick on the draw!

[kleinma]

haha, yeah, but nice loop for the RS fields

[jhermiz]

Shanks folks.

Jon