本文介绍了一个使用VBA代码更新Access数据库的示例。通过设置连接字符串、打开连接并执行SQL语句来更新数据库中的记录。示例中详细展示了如何在Excel VBA环境中操作外部Access数据库。
1.添加引用 Microsoft ActiveX Data Objects 2.X Library
2. vba代码
Sub update_access()
Dim path As String
path = ""
Dim cnn As ADODB.Connection
'Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Provider = "microsoft.jet.oledb.4.0"
cnn.Open path
For i = 2 To 20
cnn.Execute (Sheet1.Cells(i, 1))
Next
cnn.Close
End Sub
扫一扫
7245
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
