SQL3 = SQL3 + " SELECT top " & MyValue & " * FROM TB_pts_product"
SQL3 = SQL3 + " WHERE (ProductCode = N'" & DHBH & "') "
SQL3 = SQL3 + " AND (OrderNo = N'" & DH & "') AND (PackageLevel = 1) and Status = 0 "
SQL3 = SQL3 + " ORDER BY ID"
tRecSql3.Open SQL3, CN
SQL4 = SQL4 + " SELECT * FROM TB_pts_product"
SQL4 = SQL4 + " WHERE (ProductCode = N'" & DHBH & "') "
SQL4 = SQL4 + " AND (OrderNo = N'" & DH & "') AND (PackageLevel = 2)"
SQL4 = SQL4 + " ORDER BY ID"
tRecSql4.Open SQL4, CN
While Not tRecSql3.EOF
If tRecSql4.EOF = True Then
Else
LBL3 = tRecSql4!id
tRecSql4.MoveNext
End If
For i = 1 To 10
LBL1 = tRecSql3!QRCode
LBL2 = tRecSql3!id
tRecSql3.MoveNext
sqlPTS = ""
sqlPTS = "UPDATE TB_pts_product SET Status = 1, SAPNo = N'" & sapNO_PTS & "', ProduceDate=N'" & Now() & "' , OuterQrCodeID = N'" & LBL3 & "' WHERE (ID = " & LBL2 & ") "
CN.Execute sqlPTS Next i
Wend
目的是
每10個PackageLevel = 1 的資料匹配一個PackageLevel = 2的資料
但是現在一到UPDATE陳述句執行就資料庫超時
請大神救命啊
uj5u.com熱心網友回復：
資料庫超時能不能把我的資料先賦值給兩個陣列??把資料庫連接的賦值釋放掉。。然后再進行UPDATE陳述句的執行
不太會寫陣列賦值和回圈，能不能幫幫忙啊
uj5u.com熱心網友回復：
寫個觸發器吧。或是做個存盤程序。VB直接呼叫就好。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/69907.html
上一篇：VB與外部I/O卡