【分享成果，随喜正能量】太阳每天是新的，所有的阴晴天气都是云风涌动，雨水运行的结果；月亮每天都是圆的，所有的圆缺变化都是月球运动及人们所处的位置和角度来体现的。如果我们的内心永远充满快乐，我们的处境就会是：千江有水千江月，万里无云万里天。
《VBA数据库解决方案》教程是我推出第二套教程，目前已经是第一版修订了。这套教程定位于中级，是学完字典后的另一个专题讲解。数据库是数据处理的利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，教程第一版的修订内容主要是完成所有程序文件的32位和64位OFFICE系统测试。
这套教程共两册，八十四讲，今后一段时间会给大家陆续推出修订后的教程内容。今日的内容是第23讲：向数据库中添加记录
第二十三讲 向一个已有数据表中添加数据记录的方法
大家好，今日我们继续讲解 VBA 数据库解决方案的第23讲：利用VBA如何向一个已有的数据表中添加记录。在上一讲中我们讲了如何把工作表的数据保存到新建的数据表中方案,这是非常好的方法,希望读者能在实际的工作中多加利用。和《VBA代码解决方案》一样，读者可以在我的资料中感觉到很多我们实际工作中问题的影子，我曾经不止一次的讲过，VBA的实用性非常高，好好利用，可以大大提高我们的工作效率。今天我们要讲的是：对于一个已经存在的数据表,我们要向其中添加记录的方案。
1 应用场景的具体分析
其实这也是最普通的应用了,在我们的工作中随处可以见到。实例:在上一讲的讲解中,我们利用VBA代码把之前的销售资料做了备份,如下面的截图:
到了第三个月,我们要把第三个月的数据追加进去,下面是3月的销售记录:
其实，这些都是来源于工作的实际，也是工作中确实存在的问题,读者在学习的时候可以把这些代码作为一个实例来利用。
2 将工作表数据追加到数据表中的代码及代码解读
下面看我们的解决方案代码:
Sub mynz_23() ‘第23讲利用VBA向一个已有的数据表中添加数据记录的方法
Dim cnADO As New ADODB.Connection
Dim rsADO As ADODB.Recordset
Dim strPath, strSQL, strTable As String
strPath = This Workbook .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(“23”).Select
‘添加记录
t = 2
Do While Cells(t, 1) <> “”
rsADO.MoveLast
rsADO.addnew
For i = 0 To rsADO.Fields.Count – 1
rsADO.Fields(i) = Sheets(“23”).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
代码截图:
代码解读:
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
运行的过程如下:首先显示添加前的记录：
运行完成后显示添加后的记录数：
看看我们运行完，添加好数据之后的数据库截图:
今日内容回向:
1 如何向已经有的数据记录集中添加数据?
2 ADDNWE 和Update的作用是什么?
本讲内容参考程序文件：VBA与数据库操作（第一册）.xlsm
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：
