这个我以前做过,现在一直在用,我把我的这段程序发上来,供你参考:
lcODBCDriver="Microsoft Paradox Driver (*.db )"
cfile2="DSN=Myaccess"+CHR(0)+"DBQ="+cdir1+CHR(0)
&&cdir1是数据库所在目录路径
nhandle=SQLConfigDataSource(0,1,lcODBCDriver,cfile2)
IF nhandle>0
if empty(密码) .and. empty(用户名)
nsqlhandle=SQLConnect("Myaccess")
else
nsqlhandle = SQLConnect("Myaccess",用户名,密码)
endif
If nsqlhandle > 0
*生成数据库列表,把此表放在列表框中,就可以点击项目打开任意数据表了.
SQLTABLES(nsqlhandle,"","Dbfname")
SELECT dbfname
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
[
本帖最后由 kongxc 于 2014-5-14 15:01 编辑 ]