除非注明，文章均為 戰(zhàn)戰(zhàn)如瘋 原創(chuàng)，轉(zhuǎn)載請保留鏈接: http://www./cat4/429.html，VBA交流群273624828。

之前學過了怎樣更新數(shù)據(jù)庫中的一條數(shù)據(jù)，這節(jié)來看下怎樣批量更新數(shù)據(jù)庫中的數(shù)據(jù)。仍然是之前的那個Excel源數(shù)據(jù)，但是其中有些內(nèi)容我改過了，現(xiàn)在我要把改過的數(shù)據(jù)一次性的都更新到數(shù)據(jù)庫表中。之前在講更新單條數(shù)據(jù)的時候我們講過update的用法，當一次性更新多條數(shù)據(jù)的時候我們?nèi)匀挥胾pdate方法?？聪旅娴拇a

Sub 批量更新()
Dim cnn As Object, mypath, SQL, SQL1
Set cnn = CreateObject("adodb.connection")
mypath = ThisWorkbook.Path & "\學校管理.accdb"
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & mypath
SQL = "update 學生信息 a, [Excel 12.0;imex=0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" & [a1].CurrentRegion.Address(0, 0) & "] b set a.姓名=b.姓名,a.性別=b.性別,a.出生日期=b.出生日期,a.籍貫=b.籍貫,a.住址=b.住址,a.家庭電話=b.家庭電話,a.年級=b.年級,a.班級=b.班級,a.特長=b.特長 where a.學生編號=b.學生編號"
'Debug.Print SQL
cnn.Execute SQL
cnn.Close
Set cnn = Nothing
End Sub

上面SQL語句的結(jié)構(gòu)是"update 表1 a,表2 b set a.字段=b.字段 where a.主鍵=b.主鍵"。代碼中的SQL翻譯過來就是“update 學生信息 a, [Excel 12.0;imex=0;Database=C:\Users\zhan\Desktop\批量更新.xlsm].[Sheet1$A1:J101] b set a.姓名=b.姓名,a.性別=b.性別,a.出生日期=b.出生日期,a.籍貫=b.籍貫,a.住址=b.住址,a.家庭電話=b.家庭電話,a.年級=b.年級,a.班級=b.班級,a.特長=b.特長 where a.學生編號=b.學生編號”，紅色部分是Excel表格，就是表b。

本節(jié)示例文件下載：http://pan.baidu.com/s/1o6DO4eI。