大家好，今日繼續(xù)講解VBA數(shù)據(jù)庫解決方案的第41講，今日的內(nèi)容是：工作表中存在的數(shù)據(jù)只要在數(shù)據(jù)表中沒有，那么批量添加。在前幾個章節(jié)中我重點給大家講解了ADO連接EXCEL的方案，通過這個方案在實際的工作中可以解決一系列的實際問題，有的問題簡單些，有的問題會復(fù)雜些，但總會在工作中看到實例的影子。ADO連接EXCEL中我測試是連接07版本以上的EXCEL,連接采用的是前期和后期相結(jié)合的方法。只是出于我個人的一些習(xí)慣，有不清楚的朋友要弄清必要的知識點。

VBA數(shù)據(jù)庫解決方案是面向給中級及以上的人員教程，在講解中側(cè)重于實例的解決，不會再對內(nèi)部的一些函數(shù)啊，語句啊做詳細的講解了，希望基本的知識點還沒有完善掌握的朋友，通過《VBA代碼解決方案》來完善自己。

今日的內(nèi)容實例：對于工作表中給出的數(shù)據(jù)，首先在數(shù)據(jù)表中確認，如果數(shù)據(jù)表中沒有那么就增加相應(yīng)的記錄。如下面的工作表數(shù)據(jù)： 

  其中100040100041的記錄在數(shù)據(jù)庫的數(shù)據(jù)表中是沒有的，我們要把這兩條的記錄增加進數(shù)據(jù)表中。怎么做到呢？

我們先分析一下：首先我們要檢查這些記錄在數(shù)據(jù)表中有沒有，對于沒有的才增加記錄，那么我將建立一個記錄集。這個記錄集就是在工作表中存在而數(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

    '匯報給用戶記錄數(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

    '匯報給用戶記錄數(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

在這部分代碼中實現(xiàn)了建立一個記錄集，這個記錄集是工作表中存在而數(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"

這個SQL的語句中分別連接了EXCEL和數(shù)據(jù)表，條件是A中存在的在B中為NULL的記錄.

2  本書講解的是VBA數(shù)據(jù)庫的解決方案，一些SQL語句沒有做詳細的講解，大家可以記住即可。SQL語句是一種專門的邏輯語言，如果大家不想專門的去學(xué)習(xí)，建議大家記住即可。

下面看我們的運行情況： 

今日內(nèi)容回向：

1  如何建立數(shù)據(jù)庫與EXCEL的雙重連接？

2  null是0值么？