汇编语言如何在rom中写入数据_VBA代码如何向一个数据库的数据表中追加记录
大家好，今日我们继续讲解VBA数据库解决方案的第23讲：利用VBA如何向一个已有的数据表中添加记录。在上一讲中我们讲了如何把工作表的数据保存到新建的数据表中方案,这是非常好的方法,希望读者能在实际的工作中多加利用。和《VBA代码解决方案》一样，读者可以在我的资料中感觉到很多我们实际工作中问题的影子，我曾经不止一次的讲过，VBA的实用性非常高，好好利用，可以大大提高我们的工作效率。
今天我们要讲的是：对于一个已经存在的数据表,我们要向其中添加记录的方案。其实这也是最普通的应用了,在我们的工作中随处可以见到。我们的代码该如何做到呢?
到了第三个月,我们要把第三个月的数据追加进去,下面是3月的销售记录:
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
代码讲解:
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数据库解决方案的第23讲：利用VBA如何向一个已有的数据表中添加记录。在上一讲中我们讲了如何把工作表的数据保存到新建的数据表中方案,这是非常好的方法,希望读者能在实际的工作中多加利用。和《VBA代码解决方案》一样，读者可以在我的资料中感觉到很多我们实际工作中问题的影子，我曾经不止一次的讲过，VBA的实用性非常高，好好利用，可以大大提高我们的工作效率。 今天我们要讲的是：对于一个已经存在的数据表,我们要向其中添加记录的方案。其实这也是最普通的应用了,在我们的工作中随处可以见到。我们的代码该如何做到呢? 到了第三个月,我们要把第三个月的数据追加进去,下面是3月的销售记录: 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 代码讲解: 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的作用是什么?