大家好，今日我们继续讲解VBA数据库解决方案的第23讲：利用VBA如何向一个已有的数据表中添加记录。在上一讲中我们讲了如何把工作表的数据保存到新建的数据表中方案,这是非常好的方法,希望读者能在实际的工作中多加利用。和《VBA代码解决方案》一样，读者可以在我的资料中感觉到很多我们实际工作中问题的影子，我曾经不止一次的讲过，VBA的实用性非常高，好好利用，可以大大提高我们的工作效率。

今天我们要讲的是：对于一个已经存在的数据表,我们要向其中添加记录的方案。其实这也是最普通的应用了,在我们的工作中随处可以见到。我们的代码该如何做到呢?

实例:在上一讲的讲解中,我们利用VBA代码把之前的销售资料做了备份,如下面的截图:


vba提交数据至mysql vba写入数据库_vba提交数据至mysql


到了第三个月,我们要把第三个月的数据追加进去,下面是3月的销售记录:


vba提交数据至mysql vba写入数据库_解决方案_02


其实，这些都是来源于工作的实际，也是工作中确实存在的问题,读者在学习的时候可以把这些代码作为一个实例来利用，下面看我们的解决方案代码:

Sub mynzCreateDataTable_1() '将工作表的数据添加到数据表中 第23讲
Dim cnADO As New ADODB.Connection
Dim rsADO As ADODB.Recordset
Dim strPath, strSQL, strTable As String
strPath = ThisWorkbook.Path & "mydata2.accdb"
strTable = "19年销售情况"
cnADO.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath
strSQL = "SELECT * FROM " & strTable
Set rsADO = New ADODB.Recordset
rsADO.Open strSQL, cnADO, 1, 3
'汇报给用户记录数
MsgBox "添加前记录数为：" & rsADO.RecordCount
Sheets("Sheet4").Select
'添加记录
t = 2
Do While Cells(t, 1) <> ""
rsADO.MoveLast
rsADO.addnew
For i = 0 To rsADO.Fields.Count - 1
rsADO.Fields(i) = Sheets("Sheet4").Cells(t, i + 1)
Next i
rsADO.Update
t = t + 1
Loop
'汇报给用户最后的记录数
MsgBox "添加后记录数为：" & rsADO.RecordCount
rsADO.Close
cnADO.Close
Set rsADO = Nothing
Set cnADO = Nothing
End Sub

代码截图:


vba提交数据至mysql vba写入数据库_数据_03


代码讲解:

1 Dim cnADO As New ADODB.Connection
Dim rsADO As ADODB.Recordset
Dim strPath, strSQL, strTable As String
strPath = ThisWorkbook.Path & "mydata2.accdb"
strTable = "19年销售情况"
cnADO.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath
strSQL = "SELECT * FROM " & strTable
Set rsADO = New ADODB.Recordset
rsADO.Open strSQL, cnADO, 1, 3
以上的代码我用了前期绑定的方法创建的ADO, 并打开了数据表的集合
2 '添加记录
t = 2
Do While Cells(t, 1) <> ""
rsADO.MoveLast
rsADO.addnew
For i = 0 To rsADO.Fields.Count - 1
rsADO.Fields(i) = Sheets("Sheet4").Cells(t, i + 1)
Next i
rsADO.Update
t = t + 1
Loop

上述代码是把工作表中的数据添加到数据表中.

这里需要讲解的是: rsADO.addnew 和 rsADO.Update 语句,这两条语句的作用是是向记录集中添加记录,和写入记录.

.addnew 告诉记录集，我们要添加一行

.update 通知记录集，我们要把准备好的这个行写入数据库了.

3 为了达到人机对话的目的,我在两处有了代码如下:

'汇报给用户记录数

MsgBox "添加前记录数为：" & rsADO.RecordCount

'汇报给用户最后的记录数

MsgBox "添加后记录数为：" & rsADO.RecordCount

运行的过程如下:首先显示添加前的记录：


vba提交数据至mysql vba写入数据库_解决方案_04


运行完成后显示添加后的记录数：


vba提交数据至mysql vba写入数据库_VBA_05


最后看看我们运行完，添加好数据之后的数据库截图:


vba提交数据至mysql vba写入数据库_数据_06


今日内容回向:

1 如何向已经有的数据记录集中添加数据?

2 ADDNWE 和Update的作用是什么?