批量生成数据,优化代码,节省时间,看看能否做到?谢谢

yanwei82123300

各位老师我依据下面的代码将数据进行拆分(将这个LEVE_ID_MAX值为15拆分),追加到tblTemp表中,但是出现一个问题所需要时间太长1个多小时,表"tblTemp追踪单整理"一共3000条数据,请问有没有其他VBA代码,来快速生成数据,节省时间,谢谢, 帮助修改一下附件,谢谢

Sub 拆分()
On Error Resume Next
Dim S As String
Dim rst1 As ADODB.Recordset
Dim str1 As String
Dim x As Integer
Dim VarReturn As Variant
str1 = "SELECT * FROM tblTemp追踪单整理"
Set rst1 = New ADODB.Recordset
rst1.Open str1, CurrentProject.Connection, adOpenStatic, adLockReadOnly
VarReturn = SysCmd(acSysCmdSetStatus, " 数据正在生成中...稍后...  ")
If rst1.RecordCount > 0 Then
    rst1.MoveFirst
x = 0

Set rst = CurrentDb.OpenRecordset("tblTemp", dbOpenDynaset)
    For i = 1 To rst1.RecordCount
        For ii = 1 To rst1.Fields("LEVE_ID_MAX")
            S = ii
            DoCmd.RunSQL "INSERT INTO tblTemp SELECT '" & S & "' AS LEVE_ID, '" & rst1.Fields("END_ITEM") & "' AS END_ITEM, '" & rst1.Fields("ITEM_DESC") & "' AS ITEM_DESC"
         x = x + 1
        Next
        rst1.MoveNext
    Next
End If

'ReturnValue = SysCmd(acSysCmdUpdateMeter, x)
VarReturn = SysCmd(acSysCmdSetStatus, "数据已完成！ ")
MsgBox "数据更新完毕，此次操作共新增：" & x & " 条记录！", vbInformation + vbOKOnly, "Level_ID数据更新"

End Sub

yanwei82123300

生成结果数据一共37245条数据

yanwei82123300

哪位老师有时间看看,谢谢!

roych

都用到DAO了，为什么还要用insert select语句呢？如果不是批量追加的话，这个语句很占内存的。用insert into values的时候，大约6800多条就假死了。如果用select，估计也差不多。改纯ADO之后，大约7秒多完成了3.7万行的插入。DAO应该也差不多（只是我不太习惯用DAO而已，你可以改改）。

yanwei82123300

谢谢老师的帮助!

zpy2

roych 发表于 2018-9-13 17:43
都用到DAO了，为什么还要用insert select语句呢？如果不是批量追加的话，这个语句很占内存的。用insert int ...

代码在哪啊？手机看不见啊，呵呵。是 addnew. ..update吗？

roych

zpy2 发表于 2018-9-15 07:28
代码在哪啊？手机看不见啊，呵呵。是 addnew. ..update吗？

嗯。外加moveNext

zpy2

roych 发表于 2018-9-16 01:37
嗯。外加moveNext

我用了insert好像只有6秒不到啊，呵呵😊，应该不是Sql慢啊。。。

ganlinlao

如果一次性插入过千条，开启事务，插入access数据库，性能还能得到提升。如果过万条，或十万条，开启事务，性能提升会非常明显。

zpy2

ganlinlao 发表于 2018-9-16 09:59
如果一次性插入过千条，开启事务，插入access数据库，性能还能得到提升。如果过万条，或十万条，开启事务， ...

又测试了一下 addnew update,发现 Roch是对的，addnew 大量数据更快。