Question

VB 中 ADODC 控件如何使用相对路径

VB 中的ADODC控件，可以直接连接数据库，在ADODC控件中的 ConnectionString 中设置，先设置生成类形，我们选择microsoft.jet.oledb.4.0 ，然后再再选择你要联接的数据库，但是这样一来，ADODC控件绑定的数据库为了绝对路径，如果你把程序移动别的电脑运行，如果数据库不在同一个位置时，程序将出错， 如果在这里设为空的，然后在窗体的加载中加入代码，我试了好多次都以失败告终，可能是我的代码有问题，谁能提供下代码？或讲下具体怎么操作

Answer 1

使用相对路径App.path方法，App表示应用程序所在路径，后面跟的是数据库文件所在的文件夹名或直接和应用程序在一个文件（在一个文件夹就如按下即可），如下ToolBoardMage.mdb代表你的数据库名称，ToolBoardMage代表数据库表的名称Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ToolBoardMage.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from ToolBoardMage"
Set DataGrid1.DataSource = Adodc1
End Sub