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
标签:Dim,VBA,recordSet,数据库,ACCESS,ADO,连接,con From: https://www.cnblogs.com/Jacklovely/p/16910507.html