下面的程序运行未报错,但没有读了数据:
DECLARE integer SQLConfigDataSource in odbccp32.dll Long,integer,string,string
lcODBCDriver="Microsoft Paradox Driver (*.db )"
cfile2="DSN=Myaccess"+CHR(0)+"DBQ=D:\航天信息\DATABASE\DEFAULT\WORK"+CHR(0) &&cdir1是数据库所在目录路径
nhandle=SQLConfigDataSource(0,1,lcODBCDriver,cfile2)
IF nhandle>0
* IF empty(密码) .and. empty(用户名)
* nsqlhandle=SQLConnect("Myaccess") &&建立数据源连接
* ELSE
nsqlhandle = SQLConnect("Myaccess","areg","jIGGAe") &&密码应该是正确的,用户名则是猜测的
* ENDIF
If nsqlhandle > 0 &&生成数据库列表,把此表放在列表框中,就可以点击项目打开任意数据表了.
SQLTABLES(nsqlhandle,"销项发票.db","Dbfname") &&将数据源对应的表名保存到VFP的临时表中
SELECT dbfname
BROWSE
* SCAN while .not. EOF()
* IF AT("$'",Table_name)>0
* nn1=AT("$'",Table_name)+1
* IF LEN(TRIM(Table_name))>nn1
* DELETE
* ENDIF
* ENDIF
* ENDSCAN
* GOTO top
* RETURN .t.
ELSE
WAIT "用户名或密码错误,不能打开库!" window at 12,40 timeout 6
ENDIF
ENDIF
SQLConfigDataSource(0,3,lcODBCDriver,cfile2)