vb连接access数据库 如何设置数据库的相对路径

1、相对路径就是指由这个文件所在的路径引起的跟其它文件（或文件夹）的路径关系。

2、在相对路径中(文件夹我按老习惯称目录)

\表示当前盘的根目录

..\表示当前目录的上一层目录，上上层可以用..\..\等。

当前目录下的data目录可以用data\表示

当前目录下的data目录下的data1目录，可以用data\data1\表示等。

2、举例：

Data Source=\db1.mdb

Data Source=..\db1.mdb

Data Source=data\db1.mdb

Data Source=data\data1\db1.mdb

3、vb中可以App.Path来获得当前路径

可能你的app.Path不定,当前路径，而非应用程序路径，微软骗了你。

你可以采用别的方法

绝对不要用DAO了，尽量不用ODBC，推荐ADO或者OLD DB，我的方法是把连接信息放在一个文件中，例如：ToolInfo.dsn、ToolInfo.udl，在连接前修改此文件的数据库文件路径信息。

或者直接在ADO连接字符串中构造。

conn = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\hgpx.mdb" &"Persist Security Info=False"

用的是ADO

GOOD LUCK 如果有什么不明白的,可以给我流言,几乎经常在线

通常我是这么做的:

1. 第1步：在VB编辑状态，选中ADO控件，在属性窗口设置它的ConnectionString属性。并可以进行测试连接，确定连接成功，就在属性窗口里获得了正确的连接字符串。

例如：我的一个连接本地数据库的例子如下：

Provider=Microsoft.Jet.OLEDB.4.0Data Source=C:\Program Files\Microsoft Visual Studio\VB98\数据库系统\数据库.mdbPersist Security Info=False

显然，这个是绝对路径，为了使得你的程序灵活使用，需要把其中路径修改为如下相对路径，并用语句进行连接，其实很好理解：

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" App.Path &"\数据库系统\数据库.mdbPersist Security Info=False"

我在做工程时，建立了文件夹“数据库系统”，然后将所有文件以及数据库文件都保存在该文件夹里，我的数据库文件为“数据库.mdb”。

---