access连接外部数据access时,如何使用相对路径

用下面代码即可获取数据库文件 dataaccess 的完整路径（用变量 dbsB 表示）！

Dim dbsA As Database, dbsB As String

Set dbsA = CurrentDb

dbsB = Left(dbsAName, InStrRev(dbsAName, "\")) & "dataaccess"

环境配置：

1 先安装你的Access数据库（微软Office 2016中含有或者单独下载，下载地址：>

在VB中，连接ACCESS数据库的方法主要有下面三种

aData Link文件

b使用ODBC数据源名称

c使用连接字符串

使用数据环境设计器创建数据库连接,首先添加环境引用。然后找到数据源进行连接。

Data 控件连接中，ODBC数据源的连接和使用字符串的连接 与直接使用ODBC数据源连接中，不同是，直接使用ODBC数据源设置好路径后，再用connection对象连接即可；Data控件则不用Connection 对象，有控件，设置好路径了，就直接连到啦。

数据环境设计器和ADO 对象，都用到了connection连接。不同的是，数据环境设计器中，connection连接途径是和data控件中字符串的连接步骤一致。

总结不同：ADO对象连接需要编写代码，其他的不用编写代码。

下面详细介绍每一种连接方法的详细步骤：

1使用ADO connection对象

首先，要建立ADO引用，定义connection这个类，然后实例化对象。

代码完成如下：

2使用ODBC数据源

首先，打开电脑上的ODBC数据源，建立关系。

步骤如下：

1）打开电脑上的ODBC数据源。

如下图所示：

2）点击添加。

 3）命名 。

4）和数据库源建立关系。

5）用代码实现连接。

3，ADO Data 控件创建连接。

1）右击data控件，选择ADODC属性。

2）从三种连接资源中选择一种。

使用data Link 文件：直接点击浏览，找到包含连接字符串的udl文件即可，

使用ODBC数据源连接，单击新建。

选择用户数据库，之后的 *** 作跟2中步骤一样。

使用连接字符串：单击生成。

测试连接。

4，使用数据环境设计器创建数据库连接。

添加引用。

下面这段程序是连接数据库，并将excel表格内容写入数据库。代码如下：

Sub FYMXDL()

Dim XQID As Integer

Dim JZID As Integer

Dim FYID As Integer

Dim FBXZ As String '分包性质

Dim DW As String

Dim SARR(1 To 31) As Double

Dim rst As New ADODBRecordset

mYpath = ThisWorkbookPath & "\jzfydataaccdb"

Set cONn = CreateObject("ADODBConnection")

cONnConnectionString = "Provider=MicrosoftAceOleDB120;Data Source=" & mYpath

cONnConnectionString = cONnConnectionString & ";Jet OLEDB:Database "

cONnOpen

XQID = Cells(3, 2)Value

JZID = Cells(3, 5)Value

'清空改小区-建筑的费用明细

Sql = "delete from fymxb where 小区ID=" & XQID & " AND 建筑ID = " & JZID

cONnExecute Sql

Const kshh = 7

hh = kshh

Do While Cells(hh, 3)Value > 0

FYID = Cells(hh, 3)Value

FBXZ = Cells(hh, 11)Text

For i = 1 To 31

SARR(i) = Round(Cells(hh, 13 + i - 1)Value, 2)

Next i

Sql = "INSERT INTO fymxb(小区ID,建筑ID,费用ID,分包性质,工作量,单价合计_中标,人工费_中标, 主材费_中标, 辅材费_中标, 机械费_中标, 管理费_中标, 利润_中标,规费_中标,税金_中标,合价_中标,单价合计_标准成本,人工费_标准成本,主材费_标准成本,辅材费_标准成本,机械费_标准成本,管理费_标准成本,利润_标准成本,规费_标准成本,税金_标准成本,合价_标准成本,单价合计_实际成本,人工费_实际成本,主材费_实际成本,辅材费_实际成本,机械费_实际成本,管理费_实际成本,利润_实际成本,规费_实际成本,税金_实际成本,合价_实际成本) VALUES (" & XQID & ", " & JZID & ", " & FYID & ", '" & FBXZ & "'"

For i = 1 To 31

Sql = Sql & "," & SARR(i)

Next i

Sql = Sql & " )"

cONnExecute Sql

hh = hh + 1

Loop

End Sub

以上就是关于access连接外部数据access时,如何使用相对路径全部的内容，包括:access连接外部数据access时,如何使用相对路径、c++怎么连接access数据库、如何把Access与VB连接起来等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！