简单的数据导入有关问题，大家讨论一下：）

简单的数据导入问题，大家讨论一下：）

VB code

rs_db4.Open "select * from 总库", cn_sql, adOpenDynamic, adLockOptimistic                        Do While Not rs_db.EOF            Set rs_db3 = cn_db.Execute("select city from number where city="& rs_db(3))                If Not rs_db3.EOF Then                    rs_db4.AddNew                    rs_db4(0) = rs_db(0)                    rs_db4(1) = rs_db(1)                    rs_db4(2) = rs_db(2)                    rs_db4(3) = rs_db3(0)                    rs_db4(4) = rs_db(4)                    rs_db4.Update                End If            loop

SQL里的‘总库’有上千万行数据，一打开这个数据集就会很卡，，，

但又需要从另外的地方导入数据到‘总库’里边，麻烦各位高手帮忙解决下，，太郁闷了

[解决办法]
你打开总库记录集的语句不对，返回所有数据的记录集当然慢：
rs_db4.Open "select top 1 * from 总库", cn_sql, adOpenDynamic, adLockOptimistic
or
rs_db4.Open "select * from 总库 where 1=0", cn_sql, adOpenDynamic, adLockOptimistic

更好的方法是不要打开总库存记录集，直接用insert语句添加...

查看更多 下一篇