Question

vb连接access变成相对路径

我现在按照书上写的连成的是绝对路径，按照书上说把***.mdb前面的路径删除就变成相对路径，不过我用setupfactory搞成安装包，在别的机器同样是找不到数据库。
我有几个窗体，几个ado控件，请问怎样才能变成相对路径？

Answer 1

把数据库的绝对路径改成
App.Path & "\***.mdb"
就行了

追问

我不是写代码的。。。我是直接在控件那里连接的

追答

额 控件也是可以用 这种方法的，就是多一个设置控件环境的函数
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "\dd.mdb"
End Sub
类似上面的这样

追问

我是直接点ado的属性然后连接的。。如果加上连接的代码会有冲突？

追答

不会冲突 只会覆盖，覆盖当前的那个设置，你要是在问 就用百度HI hi我吧，听说追问超3次要扣分的

追问

分数是用来扣的~~我只在每一个窗体加入下面的代码
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "\有用户.mdb"
End Sub
用setupfactory生成安装包之后，在其他电脑上一样显示数据库不是有效路径。。。
求指导~

追答

额，你生成安装包后 ，可能是那个数据库没有跟过去，或者是数据库被这个软件移出去了

追问

我有打包过去的。。。打包时我只删了FORM。。。其他都保留了

Answer 2

app.path & "\你的数据库文件夹名\数据库.mdb"试试这个引用吧~

追问

我只在每一个窗体加入下面的代码
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "\有用户.mdb"
End Sub
用setupfactory生成安装包之后，在其他电脑上一样显示数据库不是有效路径。。。
求指导~

Answer 3

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=***.MDB“

追问

我只在每一个窗体加入下面的代码
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "\有用户.mdb"
End Sub
用setupfactory生成安装包之后，在其他电脑上一样显示数据库不是有效路径。。。
求指导~

追答

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=有用户.mdb"

追问

不用加& App.Path & "\有用户.mdb" 变成相对路径？

追答

就按照我写的代码复制进去就好使。

追问

加了一样不行。。。

追答

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=有用户.mdb"
End Sub