ACCESS数据库学习（1）VBA连接ACCESS数据库

2022年11月21日10:09:52

说明：vba连接access首先要在vba中添加引用，点击工具->引用->Microsoft ActiveX Data Objects6.1 Library

VBA与数据库的连接需要通过ADO组件来实现。

ADO简介

ADO (ActiveX Data Objects，ActiveX数据对象）是Microsoft提出的应用程序接口（API）用以实现访问关系或非关系数据库中的数据。像Microsoft的其它系统接口一样，ADO是面向对象的。

Excel VBA连接ACCESS示例代码

1.创建参数
Dim con As New ADODB.Connection      '连接对象
Dim recordSet As New ADODB.recordSet  '结果集
Dim  connectionString  as  String             '连接字符串
Dim  sql   As  String  'sql命令
2.打开连接
connectionString = "provider=Microsoft.Ace.OLEDB.12.0;data source=" & strDataSource 
con.Open  connectionString
3.获取结果集并操作
recordSet=con.Execute(sql)
***************************************
4.关闭连接
 recordSet.Close
con.Close
Set recordSet = Nothing 
Set con = Nothing

我的代码：

Sub 连接数据库()
'一：引用ADO工具
'二：创建连接对象

Dim con As ADODB.Connection
Set con = New ADODB.Connection
con.Open "provider=microsoft.ace.oledb.12.0;data source = " & ThisWorkbook.Path & "\集采.accdb"
MsgBox "连接成功"
End Sub