Dim st1 As Date = Date.Now
Dim strlist As List(Of String) = Functions.Execute("sql提取函数",Tables("中考表"),"中考表","_Identify","[_Identify]","ksh|考试室","ksh|考试室",1)
Dim sql As String
Dim cmd As New SQLCommand
cmd.ConnectionName =
Dim Count As Integer = 0
try
Connections("XX").BeginTransaction
For Each s As String In strlist
cmd.CommandText = s
Count += cmd.ExecuteNonQuery()
Next
Connections("XXX").Commit '提交事务,所有操作生效
Catch ex As Exception '如果出错
msgbox(ex.message)
Connections("XX").Rollback() '回滚事务,撤销所有操作
End Try
Tables("中考表").DataTable.BaseTable.AcceptChanges() '提交修改
MessageBox.Show("亲,我正在为节省您的每一秒钟努力,本次保存共耗时: " & (Date.Now - st1).TotalSeconds & "秒")
因为只有两列数据要变就保存的这两列，测试6607条记录花290秒，请问老师如何提效
[此贴子已经被作者于2019/2/22 7:13:29编辑过]
加好友 
发短信
Post By：2019/2/21 16:25:00 [只看该作者]
