Sub 测试数据库()
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
Sub 链接EXCEL数据()
Dim con As ADODB.Connection
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
Sub 测试数据库2()
Dim con As ADODB.Connection
Set con = New ADODB.Connection
With con
.Provider = "microsoft.ace.oledb.12.0"
.ConnectionString = ThisWorkbook.Path & "\测试.accdb"
.Open
End With
MsgBox "数据库链接成功"
End Sub
VBA 链接数据库基础
于 2022-09-06 07:52:26 首次发布