- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 遍历选中行新增数据，如何提高增加速度？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178041)
-- 发布时间：2022/6/15 17:53:00
-- 遍历选中行新增数据，如何提高增加速度？
用附件的代码方式新增选中行，1W行左右的数据要用到20分钟，如何提效？
[此贴子已经被作者于2022/6/15 17:53:25编辑过]
-- 发布时间：2022/6/16 8:31:00
--
不要添加一行就保存一行，最后统一保存
If Select_List.count>0 Then
For Each dr As Row In Select_list
Dim r As Row=Tables(eform.name & "_Table1").AddNew
For Each c As Col In r.Table.Cols
If dr.Table.Cols.contains(c.name) Then
r(c.name)=dr(c.name)
End If
Next
Next
Tables(eform.name & "_Table1").save
Else
-- 发布时间：2022/6/16 14:37:00
--
效果还是不是很理想，1W大概需要10分钟
-- 发布时间：2022/6/16 14:57:00
--
如果是远程数据库，也差不多这种效果了。
如果是SqlServer，可以考虑：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=147288&replyID=&skin=1
-- 发布时间：2022/6/16 16:36:00
--
谢谢老师！遍历选中行后，我用下面的方式直接插入到数据库表中，效果不错，几秒钟搞定！
Dim cmd As new SQLCommand
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "Insert Into 订单 (客户, 日期, 订单编号) Values(?,?,?)"
cmd.Parameters.Add("@客户","01")
cmd.Parameters.Add("@日期",Date.Today)
cmd.Parameters.Add("@订单编号",100)
cmd.ExecuteNonQuery
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "Insert Into 订单 (客户, 日期, 订单编号) Values(?,?,?)"
cmd.Parameters.Add("@客户","01")
cmd.Parameters.Add("@日期",Date.Today)
cmd.Parameters.Add("@订单编号",100)
cmd.ExecuteNonQuery