Sub 连接数据库()
'第一步,引用ADO 工具,工具->引用—>microsoft ActiveX Data Objects 6.1 Library
'第二步,创建连接对象
'1 、声明连接对象的名字(或者给连接对象叫取变量名)
Dim con As ADODB.Connection
'2、创建对象变量并赋值
Set con = New ADODB.Connection
'第三步,建立数据库的连接
con.Open "provider =microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.Path & "\学生管理.accdb"
MsgBox "成功"
End Sub
Sub 连接Excel()
'第一步,引用ADO 工具,工具->引用—>microsoft ActiveX Data Objects 6.1 Library
'第二步,创建连接对象
'1 、声明连接对象的名字(或者给连接对象叫取变量名)
Dim con As ADODB.Connection
'2、创建对象变量并赋值
Set con = New ADODB.Connection
'第三步,建立数据库的连接
con.Open "provider =microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & _
ThisWorkbook.Path & "\工作表.xlsx"
MsgBox "成功"
End Sub