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

使用相对路径App.path方法，App表示应用程序所在路径，后面跟的是数据库文件所在的文件夹名或直接和应用程序在一个文件（在一个文件夹就如按下即可），如下ToolBoardMage.mdb代表你的数据库名称，ToolBoardMage代表数据库表的名称

Private

Sub

Form_Load()

Adodc1.ConnectionString

=

"Provider=Microsoft.Jet.OLEDB.4.0Data

Source="

&

App.Path

&

"\ToolBoardMage.mdbPersist

Security

Info=False"

Adodc1.CommandType

=

adCmdText

Adodc1.RecordSource

=

"select

*

from

ToolBoardMage"

Set

DataGrid1.DataSource

=

Adodc1

End

Sub

绝对路径在窗体上的ADODC控件上点击右键，选中ADODC属性

相对路径可以在窗体的Load事件里写，例如

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\水厂数据库.mdb" &"Mode=ReadWritePersist Security Info=False"

Adodc1.Refresh

其中App.Path及为程序所在的路径

最好是在程序中动态设置路径，比如：

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &app.path &"\学生.mdbPersist Security Info=False"

或者在Adodc控件设置里把ConnectionString中的路径删掉，只留下数据库名。比如Provider=Microsoft.Jet.OLEDB.4.0Data Source=学生.mdbPersist Security Info=False，这样就会在当前目录查找数据库文件

---