Re: Excelden Veri Alma
güncel
bu kodu çalıştırdığımda connection handle is invalid hatası çıkıyor neyi düzeltmem gerekiyor ?
cetinbasoz yazdı:Visual Fox ProlcXLS = GETFILE('XLS')
TEXT TO m.lcConn NOSHOW PRETEXT 15 TEXTMERGE
DRIVER=Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb);
UID=admin;
FIL=excel 12.0;
DriverId=1046;
DefaultDir=<<JustPath(m.lcXLS)>>;
DBQ=<<m.lcXLS>>
ENDTEXT
lnHandle = SQLStringConnect(m.lcConn)
SQLTables(m.lnHandle,"", "SheetNames")
Scan
lcTableName = Trim(SheetNames.Table_Name)
lcOutput = Chrtran(m.lcTableName,' $','_')
SQLExec(lnHandle,'select * from ['+m.lcTableName+']',m.lcOutput )
endscan
SQLDisconnect(lnHandle)
Elindeyse beyazdan, gel de sıyır beyazı. (NFK)