Question

VB修改连接Access数据库路径问题

我用VB 6.0+Access做了一个系统，一开始是把数据库放在了D盘目录下,路径为D:\系统\数据库.mdb,我用的是ADO作为数据连接手段,同时采用数据环境设计器作为数据连接ADO的载体,数据连接对象连接是用Microsoft Jet 4.0 OLE DB Probider,开始设计的时候是连刚才我所说的路径.后来系统完成以后,我把工程和数据库一并移动到了E盘,并在数据连接对象的属性里修改了数据库路径,但是运行时提示错误"D:\系统\数据库.mdb 不是一个有效的路径...",问题出在这里,我已经修改了路径,可是提示的却还是原有的路径,后来没办法,我把数据库单独移动回原来的路径,其他不作修改,测试成功,我想知道问题出在哪,请各路高手帮忙!
以下是数据环境设计器DataEnvironment的代码:
Private Sub DataEnvironment_Initialize()
'根据目录所在的位置，改变ADO所使用的的连接字符串
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Password=;Data Source="
strConn = strConn & App.Path & "\数据库.mdb" & ";Persist Security Info=false"
Connection1.ConnectionString = strConn
End Sub
使用的也是相对路径,所以真的不知道问题是在哪里...求教!

Answer 1

如果你使用了数据连接控件，并且在该控件的属性窗口设定了数据连接的路径，那么，你在移动程序或工程位置后，就会出现数据库路径错误。
正确的做法是在代码窗口设定数据连接控件的相对路径。
例如Adodc1控件在 Private Sub Form_Load() 中加入如下代码：
Adodc1.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\数据库.mdb"

如果你的窗体比较多，并且有比较多的数据连接控件，建议你添加一个模块，在模块中设置数据连接控件的连接路径比较合理。

Answer 2

你改过代码以后保存了吗，保存后再运行，再：看看哪里把文件路径写死了（绝对盘符路径）

你显示一下路径不就知道了：
msgbox App.Path
这样吧：你把数据库文件的文件路径以及你的程序路径全贴出来，大家就都知道了

Answer 3

楼主这些代码是没有错误的，是你在别处使用了ADODC控件或数据环境,并手动设置了绝对路径

Answer 4

VB中，App.Path指的是 "选择的安装目录 "+ "\VB98 "
LZ把数据库文件放到这里面试试吧

Answer 5

因为VB在运行的过程中，已经将路径文件嵌入程序中，移动文件肯定会出错