|
大家好，今日繼續(xù)講解VBA數(shù)據(jù)庫解決方案的第41講，今日的內(nèi)容是：工作表中存在的數(shù)據(jù)只要在數(shù)據(jù)表中沒有，那么批量添加。在前幾個(gè)章節(jié)中我重點(diǎn)給大家講解了ADO連接EXCEL的方案，通過這個(gè)方案在實(shí)際的工作中可以解決一系列的實(shí)際問題，有的問題簡單些，有的問題會(huì)復(fù)雜些，但總會(huì)在工作中看到實(shí)例的影子。ADO連接EXCEL中我測試是連接07版本以上的EXCEL,連接采用的是前期和后期相結(jié)合的方法。只是出于我個(gè)人的一些習(xí)慣，有不清楚的朋友要弄清必要的知識點(diǎn)。 VBA數(shù)據(jù)庫解決方案是面向給中級及以上的人員教程，在講解中側(cè)重于實(shí)例的解決，不會(huì)再對內(nèi)部的一些函數(shù)啊，語句啊做詳細(xì)的講解了，希望基本的知識點(diǎn)還沒有完善掌握的朋友，通過《VBA代碼解決方案》來完善自己。 今日的內(nèi)容實(shí)例：對于工作表中給出的數(shù)據(jù)，首先在數(shù)據(jù)表中確認(rèn)，如果數(shù)據(jù)表中沒有那么就增加相應(yīng)的記錄。如下面的工作表數(shù)據(jù)：
其中100040100041的記錄在數(shù)據(jù)庫的數(shù)據(jù)表中是沒有的，我們要把這兩條的記錄增加進(jìn)數(shù)據(jù)表中。怎么做到呢？ 我們先分析一下：首先我們要檢查這些記錄在數(shù)據(jù)表中有沒有，對于沒有的才增加記錄，那么我將建立一個(gè)記錄集。這個(gè)記錄集就是在工作表中存在而數(shù)據(jù)表為null 的記錄。 代碼： Sub mynzUpdateRecords_41() '第41將在數(shù)據(jù)表沒有而工作表中存在的數(shù)據(jù)在數(shù)據(jù)表中批量增加的方案 Dim cnADO, rsADO As Object Dim strPath, strTable, strSQL, strMsg As String Set cnADO = CreateObject("ADODB.Connection") Set rsADO = CreateObject("ADODB.Recordset") strPath = ThisWorkbook.Path & "\mydata2.accdb" strTable = "員工信息" cnADO.Open "Provider=Microsoft.Ace.OLEDB.12.0;Data Source="& strPath '匯報(bào)給用戶記錄數(shù) strSQL = "SELECT * FROM " & strTable rsADO.Open strSQL, cnADO, 1, 3 MsgBox "當(dāng)前記錄數(shù)為：" & rsADO.RecordCount rsADO.Close '加入沒有記錄，那么增加 strSQL = " SELECT A.* FROM [Excel 12.0;Database=" & _ ThisWorkbook.FullName & ";].[" & ActiveSheet.Name& "$" _ & Range("A1").CurrentRegion.Address(0, 0) & "] A" _ & "LEFT JOIN " & strTable & " B " _ & "ON A.員工編號=B.員工編號 WHERE B.員工編號 IS NULL" Set rsADO = CreateObject("ADODB.Recordset") rsADO.Open strSQL, cnADO, 1, 3 If rsADO.RecordCount > 0 Then strSQL = "INSERT INTO " & strTable & strSQL cnADO.Execute strSQL strMsg = strMsg & vbCrLf & rsADO.RecordCount & "條記錄已添加到數(shù)據(jù)庫！" Else strMsg = "這些記錄都已經(jīng)存在，沒有記錄添加到數(shù)據(jù)庫！" End If MsgBox strMsg, vbInformation, "提示" rsADO.Close '匯報(bào)給用戶記錄數(shù) strSQL = "SELECT * FROM " & strTable rsADO.Open strSQL, cnADO, 1, 3 MsgBox "最新的記錄數(shù)為：" & rsADO.RecordCount rsADO.Close '釋放內(nèi)存 cnADO.Close Set rsADO = Nothing Set cnADO = Nothing End Sub 代碼截圖：
代碼講解： 1 '加入沒有記錄，那么增加 strSQL = " SELECT A.* FROM [Excel 12.0;Database=" & _ ThisWorkbook.FullName & ";].[" & ActiveSheet.Name& "$" _ & Range("A1").CurrentRegion.Address(0, 0) & "] A" _ & "LEFT JOIN " & strTable & " B " _ & "ON A.員工編號=B.員工編號 WHERE B.員工編號 IS NULL" Set rsADO = CreateObject("ADODB.Recordset") rsADO.Open strSQL, cnADO, 1, 3 If rsADO.RecordCount > 0 Then strSQL = "INSERT INTO " & strTable & strSQL cnADO.Execute strSQL strMsg = strMsg & vbCrLf & rsADO.RecordCount & "條記錄已添加到數(shù)據(jù)庫！" Else strMsg = "這些記錄都已經(jīng)存在，沒有記錄添加到數(shù)據(jù)庫！" End If MsgBox strMsg, vbInformation, "提示" rsADO.Close 在這部分代碼中實(shí)現(xiàn)了建立一個(gè)記錄集，這個(gè)記錄集是工作表中存在而數(shù)據(jù)表中是不存在的，這里要特別注意的是SQL語句的寫法： strSQL = " SELECT A.* FROM [Excel12.0;Database=" & _ ThisWorkbook.FullName & ";].[" & ActiveSheet.Name& "$" _ & Range("A1").CurrentRegion.Address(0, 0) & "] A" _ & "LEFT JOIN " & strTable & " B " _ & "ON A.員工編號=B.員工編號 WHERE B.員工編號 IS NULL" 這個(gè)SQL的語句中分別連接了EXCEL和數(shù)據(jù)表，條件是A中存在的在B中為NULL的記錄. 2 本書講解的是VBA數(shù)據(jù)庫的解決方案，一些SQL語句沒有做詳細(xì)的講解，大家可以記住即可。SQL語句是一種專門的邏輯語言，如果大家不想專門的去學(xué)習(xí)，建議大家記住即可。 下面看我們的運(yùn)行情況：
今日內(nèi)容回向： 1 如何建立數(shù)據(jù)庫與EXCEL的雙重連接？ 2 null是0值么？ |
|
|
