打包后，数据库的位置不就变了吗？那怎么让adodc连接数据库？

Question

是这样，我选择用vb做数据库程序，数据库文件就存在另一个地了，vb里我都是用的
adodc的connectionstring设置好路径！但如果我编完后要打包，那安装完，数据库
的位置不就变了吗？adodc不就连不上数据库了吗？该怎么办？

Answer 1

建议用连接来做，这样就会灵活不知你用的是什么数据库Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
If Cn.State = 0 Then Cn.Open "Provider=SQLOLEDB;data Source=127.0.0.1;Initial Catalog=数据库名;User Id=sa;Password=密码"
在程序中先引用ADO

Answer 2

adodc1.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & app.path & "\dbName.mdb" & ";Persist Security Info=False"

Answer 3

哎，我好感动，谢谢你们了，辛苦了！楼上：其实我也知道，关键就是Data Source，
你那Data Source=" & app.path & "\dbName.mdb" & ";能讲讲吗？
app.path=引用地址？\dbname.mdb呢？把我现在在其他目录里的数据库放到打包完后的文件夹根目录下？

Answer 4

我这样用完它说：“指定的初始化字符串不符合OLE DB 规定”
是不是Data Source=" & app.path & "\dbName.mdb" & ";
有格式上的错误呢？

Answer 5

adodc1.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & iif(right(app.path,1)="\",app.path & "dbName.mdb",app.path & "\dbName.mdb") & ";Persist Security Info=False"

Answer 6

假如是磁盘驱动器的根目录,App.path是带 "\" 的

Answer 7

还是不对，有谁知道adodc1.connectionstring里的Data Source怎么引用相对地址？格式是什么？

Answer 8

如下使用可以，且已得到验证：
    adodc1.connectionstring= "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= " & App.Path & "\picture1.mdb"