vb批量插入mysql问题
各位大虾好:
我最近遇到了一个问题:
我从远程服务器上表里取了多条数据(几千百条),然后插入我本地的mysql数据库表,代码如下:
Setsql = "select o.orderno,c.code,c.username,c.address,c.attention from orderr o,customer c where o.code=c.code "
Set SetRec = Farexecutesql(Setsql, Setstr) '远程
Do While Not SetRec
B_OrderNo = SetRec.Fields(0)
B_C_No = SetRec.Fields(1)
B_C_Name = SetRec.Fields(2)
B_To_Address = SetRec.Fields(3)
B_Attn = SetRec.Fields(4)
Setsql2 = "select * from orderr where OrderNo= ' " & Trim(B_OrderNo) & " ' and C_No= ' " & B_C_No & " ' "
Set SetRec2 = executesql(Setsql2, Setstr2) '本地
If SetRec2.EOF = True Then
Setsql3 = "insert into orderr(OrderNo,C_No,C_Name,To_Address,Attn) values( ' " & B_OrderNo & " ', ' " & B_C_No & " ', ' " & B_C_Name & " ', ' " & B_To_Address & " ', ' " & B_Attn & " ') "
Set SetRec3 = executesql(Setsql3, Setstr3) '本地
Set SetRec3 = Nothing
End If
SetRec2.Close
Set SetRec2 = Nothing
SetRec.MoveNext
Loop
提取数据正常,在插入数据时出现了问题,当插入到二十几条时我的vb编辑器自动关闭,不知道为什么,请大家帮忙!谢谢!!!
[解决办法]
看看是不是数据的长度设置有问题
[解决办法]
死循环了,应该是
Do While Not SetRec.EOF
[解决办法]
使用 MYSQL 命令行执行 SCRIPT 比较方便、快捷