SQL查询问题

Question

加上数据库路径：
Set MDbs = DBEngine.OpenDatabase( App.Path & "\kxqa.mdb", False, False, "ms access;pwd=password")
记得把数据库和执行文件放在同一目录下。

Answer 1

对，应该使用相对路径，否则打包后放在用户机上安装就会出问题，包括用SQLSERVER数据库也是如此。

Answer 2

你的数据已经固定死拉
你应该用ado对想连接这样又快又好
引用 ms ado 对象
Dim con As Connection   
Dim rs As Recordsetcon.Open "连接字符串"   '在ado控健里面产生 这里路径可以时字符串然后
你可以得到应用程序的路径，然后加上数据库就不会错啦
rs.Open sqlstr, con

Answer 3

Dim con As Connection
Dim rs As Recordsetcon.Open "连接字符串"  '在ado控健里面产生
rs.Open sqlstr, con

Answer 4

用DAO打开Access数据库，如果Access数据库为2000版本且机器上没有安装jet4.0时无法打开。

Answer 5

不错，你的问题应该是路径不对，你应该用相对路径。
dim AppPath as stringif right(app.path,1)<>"\" then
    AppPath=app.path & "\"
else
    AppPath=app.path
endifSet MDbs = DBEngine.OpenDatabase(AppPath & "kxqa.mdb", False, False, "ms access;pwd=password")

Answer 6

我试了路径还是不行，估计可能是Jet引擎不行，是不是要改用ODBC的引擎？
我以前弄过SQL的，但是没用查询，这次一用查询就打不开数据库了，各位帮帮忙吧

Answer 7

最好改用ADO，ADO比较简单些。