请帮助看看这个批量增加数据问题

yanwei82123300

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

yanwei82123300

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

yanwei82123300

谢谢大家问题解决了

tmtony

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

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

tmtony

赞一个！！

yanwei82123300

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

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

tmtony

如果有自动ID或更新日期，可记录大于上一次ID及更新日期的 数据有多少行 （用dcount)

yanwei82123300

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

谢谢老师了

roych

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

学习