odbc 连接 sqlite3,prg 可运行,连编后弹出 ODBC 对话框
以下是代码,请各位大侠指导local loCursor as CursorAdapter, ;
laErrors[1]
lcConnString = 'driver=SQLite3 ODBC Driver;' + ;
'database='+ dbwj + ';NoTXN=1;OEMCP=1;pwd='
loCursor = createobject('CursorAdapter')
with loCursor
.Alias = 'sxzz'
.DataSourceType = 'ODBC'
.DataSource = sqlstringconnect(lcConnString)
.SelectCmd = "select * from tab7 "
.KeyFieldList = 'sfzhm'
.Tables = 'tab7'
if .CursorFill()
COPY TO jlzz1
else
aerror(laErrors)
messagebox(laErrors[2])
endif
ENDWITH