下面的程序运行未报错,但没有读了数据:
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)