以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  代码耗时长  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=40326)

--  作者:bm
--  发布时间:2013/9/15 15:00:00
--  代码耗时长

Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Update {业务大表} Set 编辑者 = Null Where 编辑者 = \'" & User.Name & "\'"
cmd.ExecuteNonQuery

Syscmd.Project.Exit()

 

关闭项目特别慢。哪位高手帮忙优化下。图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2013/9/15 21:17:00
--  
 看看你的表有多少条数据,直接在数据库那里执行sql语句的话看看时间耗时多少。

 如果执行时间还很长的话,试试这样改

cmd.CommandText = "Update {业务大表} Set 编辑者 = Null Where 编辑者 = \'" & User.Name & "\' and 编辑者 is not null"

--  作者:程兴刚
--  发布时间:2013/9/15 21:33:00
--  

 

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "Select [_Identify],编辑者 From {业务大表}  Where 编辑者 = \'" & User.Name & "\'"
dt = cmd.ExecuteReader(True) \'记得将参数设置为True
For Each dr As DataRow In dt.DataRows
   dr("编辑者") = nothing
Next
dt.Save()

Syscmd.Project.Exit()