关于数据库在程序运行的时候自动连接的问题（急。急。急！！！！！）

Question

用ADO，数据库为access
先引用：Microsoft ActionX Data Object 2.0 Library
dim conn as new adodb.connection
dim rs as new adodb.recordset
dim str
str = App.Path
If Right(str, 1) <> "\" Then
str = str + "\"
End If
str = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & str & "\tsl.mdb"
conn.open str
rs.cursorlocation=aduseclient
rs.open "数据表名",conn,adopenkeyset.adlockpessimistic
用完之后关闭数据库：
conn.close
set conn=nothing

Answer 1

路径难道不能先设定好安装目录然后用：
adodc1.databasename=app.path & "\XXXXXX.XXX"
来设定吗？

Answer 2

搞错了，不是dao 是ado 不好意思。

Answer 3

如果是Access数据库，数据库应该在你程序目录下面或其下子目录
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path 
& "\子目录\数据库全称;Persist Security Info=False;

Answer 4

用ADO，数据库为sql2000
dim conn as new adodb.connection
dim rs as new adodb.recordset
dim Cnnstr
Cnnstr = "PROVIDER=MSDASQL;Driver=SQL Server;Server=192.168.0.1;UID=sa;PWD=;Database=数据库名;"
Conn.Open Cnnstr
rs.open "select * from 表名" Cnnstr

Answer 5

我的数据库用的是Acess,数据库的名字为xk.mdb

Answer 6

添加了"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path 
& "\子目录\数据库全称;Persist Security Info=False;
还是不能连接
不知道是什么原因？
可以说具体一些吗？

Answer 7

直接录入路径试试看是否可以连接上：(假设路径为C:\Program Files\DataBase\)
Provider=Microsoft.Jet.OLEDB.4.0;Data Source = C:\Program Files\DataBase\数据库全称;Persist Security Info=False;
如能连上，再换App.Path,下面加上一句:
Debug.Print App.Path
看是否与实际路径相符。

Answer 8

直接用实际路径可以，但是如果换成app.path就不行了

Answer 9

:]我觉得你是错在书写上,比如说数据库名后的.mdb,还有子目录的层次等等..

Answer 10

那你要确定你的数据库是不是在app.path上啊，不要把你的应用程序粘到桌面上用