Sending information to a ODBC database

[Pinan]

This is the code that I was given to retrieve information from a database.

EDWInfpen strPullSQL, Cnxn, adOpenForwardOnly, adLockReadOnly, adCmdText

lblBigOut.Caption = ""

Do Until EDWInfo.EOF
Do Until EDWInfo.EOF
lblBigOut.Caption = lblBigOut.Caption & Trim(EDWInfo.Fields(0)) & Space(15 - Len(Trim(EDWInfo.Fields(0)))) & EDWInfo.Fields(1) & Space(15 - Len(Trim(EDWInfo.Fields(1)))) & EDWInfo.Fields(2) & vbCrLf
EDWInfo.MoveNext
Loop
Loop

It works beautifully. However, I need to manipulate it so that it sends info to file. Any ideas?

 

[Lightseeker]

Try this:

EDWInfpen strPullSQL, Cnxn, adOpenForwardOnly, adLockReadOnly, adCmdText
dim text_var as string
free_file=freefile
open "file1.txt" for output as free_file
lblBigOut.Caption = ""

Do Until EDWInfo.EOF
Do Until EDWInfo.EOF
lblBigOut.Caption = lblBigOut.Caption & Trim(EDWInfo.Fields(0)) & Space(15 - Len(Trim(EDWInfo.Fields(0)))) & EDWInfo.Fields(1) & Space(15 - Len(Trim(EDWInfo.Fields(1)))) & EDWInfo.Fields(2) & vbCrLf
text_var=lblBigOut.Caption
print free_file,text_var
EDWInfo.MoveNext
Loop
Loop
close free_file

This should write the contents out to a text file called file1.txt