How to output MySQL data to a file

This is the way how to output your MySQL result to a file:

 ********************************************************************************

 Set Conn = CreateObject("ADODB.Connection" )

str="DRIVER={MySQL ODBC 3.51 Driver};SERVER=webdev;DATABASE=intranet;user id=root ; password=xxxx"

Conn.open str

Set Rs = CreateObject ("ADODB.Recordset" )

sql = "select * from `user` limit 5;"

Rs.open sql,conn,1,3

 '**********  Define variable  *******

Dim fso, myfile,i

Set fso=CreateObject("scrīpting.FileSystemObject")

 '**********  Point TXT file name  *******

Set myfile=fso.openTextFile("C:\result.txt",8,false)

 '**********  wtite to TXT file  *******

While Not Rs.eof

     for i=1 to 6

            myfile.writeline Rs(i)

      next

     myfile.writeline " "

     Rs.movenext

wend

 '**********  Close file  *******

myfile.close

 '**********  Close result  *******

Rs.close

 Set Rs = Nothing

Conn.close

Set Conn = Nothing