《VBA数据库办理方案》教程是我推出第二套教程，目前已经是初版修订了。这套教程定位于中级，是学完字典后的另一个专题讲解。数据库是数据处理的利器，教程中详细先容了利用ADO连接ACCDB和EXCEL的方法和实例操作，教程初版的修订内容紧张是完成所有程序文件的32位和64位OFFICE系统测试。
这套教程共两册，八十四讲，今后一段韶光会给大家陆续推出修订后的教程内容。今日的内容是第23讲：向数据库中添加记录
第二十三讲 向一个已有数据表中添加数据记录的方法
大家好，今日我们连续讲解VBA数据库办理方案的第23讲：利用VBA如何向一个已有的数据表中添加记录。在上一讲中我们讲了如何把事情表的数据保存到新建的数据表上钩划,这是非常好的方法,希望读者能在实际的事情中多加利用。和《VBA代码办理方案》一样，读者可以在我的资料中觉得到很多我们实际事情中问题的影子，我曾经不止一次的讲过，VBA的实用性非常高，好好利用，可以大大提高我们的事情效率。本日我们要讲的是：对付一个已经存在的数据表,我们要向个中添加记录的方案。
实在这也是最普通的运用了,在我们的事情中随处可以见到。实例:在上一讲的讲解中,我们利用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 = 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("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实践履历，全部浓缩不才面的各个教程中：
