- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 面对24万条数据,自动复制行的时候,死机了 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72763)
-- 发布时间：2015/8/5 18:04:00
-- 面对24万条数据,自动复制行的时候,死机了
If e.DataCol.Name = "启用" Then \'AndAlso e.DataRow("启用") = True
Dim nma() As String = {"条形码","防伪码"} \'数据来源列
Dim nmb() As String = {"code","Security"} \'数据接收列
Dim dr As DataRow = DataTables("对应码").find("code=\'" & MD5Encrypt(e.DataRow("条形码")) & "\'")
If dr Is Nothing Then
dr = DataTables("对应码").AddNew
For i As Integer = 0 To nma.Length - 1
Dim Val As String
Val = MD5Encrypt(e.DataRow(nma(i)))
dr(nmb(i)) = Val
Next
End If
End If
请前辈们帮忙修改一下代码,看看能否改观一下执行效率.
[此贴子已经被作者于2015/8/5 18:04:52编辑过]
-- 发布时间：2015/8/5 18:36:00
--
24万？不卡死就难怪。
1、什么数据库？
2、不能用代码去做，必须用sql语句实现更新，insert into select 语句
3、sqlserver的md5加密算法这样写 right(sys.fn_VarBinToHexStr(hashbytes(\'MD5\',\'123456\')),32)
-- 发布时间：2015/8/5 18:50:00
--
我打算使用Accecc的;
-- 发布时间：2015/8/5 19:14:00
--
直接写sql语句参考
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:save.txt |
-- 发布时间：2015/8/6 21:01:00
--
感谢您的指导
我还是不懂得如何使用这段代码
-- 发布时间：2015/8/6 21:04:00
--
1、做一个access数据库，加入表A、表B；
2、填入数据，保存，
3、4楼的代码，就是拷贝表A的数据到表B。运行以后，刷新一下表