TXT with ODBC

[Vanguarda]

Hi my friends,

I want import a file TXT for a table in MySQL, so
try open a file TXT with ODBC, but it don't work with me.

Someone can say because it not work??
what is my mistake?

Please see the attachment

with best regards,

[luisvasquezcl]

Hi Vanguarda

This function is ok
Function Abrir
LOCAL x := Getfile ( { {'Arquivo Texto','*.TXT'} } , 'Abrir Arquivo' )
LOCAL cConStr := "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=c:\hmg\samples\importTX;Extensions=asc,csv,tab,txt;"
LOCAL oConexao := TODBC():New( cConStr )
LOCAL cFile

cFile = Subs( x, Rat('\',x)+1)

oConexao:SetSQL( "SELECT * FROM "+cfile)
oConexao:Open()
Main.Grid_1.DeleteAllItems
for i= 1 to len( oConexao:aRecordset)
Main.grid_1.additem( {str(oConexao:aRecordset[i,1])} )
next
oConexao:Destroy()

return nil

Regards,
Luis Vasquez

[Vanguarda]

Thank friend Luis,

I not have words for thanks... you are very amazing man.

Thanks a lot


with best regards,