Office中国论坛/Access中国论坛

标题: 请帮助看看这个批量增加数据问题 [打印本页]

作者: yanwei82123300 时间: 2021-5-13 15:59
标题: 请帮助看看这个批量增加数据问题
请帮助看看这个批量增加数据问题
我将表:"tbl序列数"里面数据批量增加到表"表1"里面,我不想使用追加这种方法,想使用AddNew逐条加入,
但是我的代码不知哪里有问题?只是批量增加了第一条数据值,其他没有增加到表1中,请老师们给看看是哪里错误了
感谢.

作者: yanwei82123300 时间: 2021-5-13 19:48
谢谢大家问题解决了

作者: tmtony 时间: 2021-5-15 17:33

yanwei82123300 发表于 2021-5-13 19:48
谢谢大家问题解决了

解决了。也可发一下解决的方法，让网友也学习一下

作者: yanwei82123300 时间: 2021-5-15 17:37

tmtony 发表于 2021-5-15 17:33
解决了。也可发一下解决的方法，让网友也学习一下

tmtony老师不敢在各位老师们面前造次，下面是具体代码，见笑了
Option Compare Database

Private Sub Command0_Click()
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset
Dim stemp As String
Dim stemp1 As String
Set rs = New ADODB.Recordset
Set rs1 = New ADODB.Recordset

strTemp = "Select sn From tbl序列数 group by sn"
rs.Open strTemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

CurrentDb.Execute "DELETE * FROM 表1" '提前到rs1打开之前对表进行情况
stemp1 = "select * from 表1"
rs1.Open stemp1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

Dim intCount, intCount1 As Integer, intCount2 As Integer
Dim i As Integer

For i = 1 To rs.RecordCount
      rs1.AddNew
      rs1!sn = rs!sn
      rs1.Update

      rs.MoveNext 'rs才是要循环的记录集
Next
rs1.Close
Set rs1 = Nothing

intCount1 = DCount("SN", "表1")
MsgBox "已生成: " & Format(intCount1, "#,###") & " 条新记录！请查看报表！", vbInformation, "生成序列数"
End Sub

作者: tmtony 时间: 2021-5-15 17:43
赞一个！！

作者: yanwei82123300 时间: 2021-5-15 18:54

tmtony 发表于 2021-5-15 17:43
赞一个！！

tmtony ,向您请教一下，如果再次增加数据如何判断新增了几条数据呢？谢谢

作者: tmtony 时间: 2021-5-15 19:05
如果有自动ID或更新日期，可记录大于上一次ID及更新日期的数据有多少行（用dcount)

作者: yanwei82123300 时间: 2021-5-15 19:07

tmtony 发表于 2021-5-15 19:05
如果有自动ID或更新日期，可记录大于上一次ID及更新日期的数据有多少行（用dcount)

谢谢老师了

作者: roych 时间: 2021-5-22 13:55

yanwei82123300 发表于 2021-5-15 18:54
tmtony ,向您请教一下，如果再次增加数据如何判断新增了几条数据呢？谢谢

代码不是都写出来了么？
code]For i = 1 To rs.RecordCount
      rs1.AddNew
      rs1!sn = rs!sn
      rs1.Update

      rs.MoveNext 'rs才是要循环的记录集
Next
rs1.Close
Set rs1 = Nothing[/code]
跑完上面这段之后，i就是记录条数啊。

作者: GOODWIN 时间: 2021-10-4 15:44
学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)