标签:with ring 声明 对象 rop amp color ESS bsp
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
标签:with ring 声明 对象 rop amp color ESS bsp
原文地址:https://www.cnblogs.com/lyzifan/p/12519607.html