连接Access数据库
Posted 紫梵
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了连接Access数据库相关的知识，希望对你有一定的参考价值。
Sub 连接数据库()
‘第一步：我们要用ADO 引用AD工具
‘第二步：创建连接对象
‘2-1: 给连接对象取名字，声明对象
‘Dim conn As ADODB.Connection ‘声明对象变量
‘2-2: 创建对象变量，并赋值
‘Set conn = New ADODB.Connection ‘创建对象变量
‘第三步： 建立数据库连接 连接的access数据库
‘conn.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "学生管理.accdb"
‘连接excel文件
‘conn.Open "provider=microsoft.ace.oledb.12.0;extended properties-excel 12.0;data source=" & ThisWorkbook.Path & "数据.xlsx"
Dim conn As New ADODB.Connection
With conn
.Provider = "microsoft.ace.oledb.12.0"
.ConnectionString = ThisWorkbook.Path & "学生管理.accdb"
.Open
End With
MsgBox "连接成功"
conn.Close
End Sub
以上是关于连接Access数据库的主要内容，如果未能解决你的问题，请参考以下文章