专家坐堂-sqlcommand插入数据过慢Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

DataTables("MMS080").SQLDeleteFor("")

Dim cmd As new SQLCommand

cmd.C

cmd.CommandText = "Insert Into MMS080 (itemnumber, quantity, ordernumber,status) Values(?,?,?,?)"

For Each dt As Row In Tables("tempmms080").Rows \'\'\'\'历遍open mo

If CInt(dt.Index/1200) = dt.Index/1200 Then

Vars("loadingtext") ="请等待: " & math.Ceiling(100*dt.Index/Tables("tempmms080").Rows.count) & "%"

End If 这一段大约等了30几秒。从0%一直到100%

cmd.Parameters.Clear

cmd.Parameters.Add("@itemnumber",dt("Item number"))

cmd.Parameters.Add("@quantity",dt("Transaction quantity"))

cmd.Parameters.Add("@ordernumber",dt("Order number"))

cmd.Parameters.Add("@status",dt("Status"))

cmd.ExecuteNonQuery

th2.start()

DataTables("MMS080").load

Tables("MMS080").ResumeRedraw

DataTables.delete("tempmms080")

Return Nothing