none
DAO+ODBC連接SQL SERVER的問題 RRS feed

  • 問題

  • 我使用VB6透過ODBC Driver連接SQL SERVER 2000資料庫(資料庫放在本機)

    程式碼如下:

    問題: 當加上第1列跟第10列時(也就是要做交易處理) 執行FOR迴圈5~8次之後就停住了,然後就等到Timeout之後就出現 "3146 ODBC 呼叫錯誤",

    但如果將第1列跟第10列拿掉之後就一切正常!

    不知這是什麼原因造成? 可有解決方法?

    1       DBEngine.BeginTrans
    2       On Error GoTo TransERR
    3       For i = 0 To List1.ListCount - 1   'List1大約有50筆
    4           mPLUNO = Trim(Left(List1.List(i), 8))
    5           mTIME = Trim(MidC(List1.List(i), 29, 10))    '例: "12:00-15:00"
    6           mTIME2 = Trim(MidC(List1.List(i), 41, 10))   '例: "18:00-21:00"
    7           myDB.Execute "UPDATE [PLU] SET [FLAG]='" & mTIME & "' WHERE [PLUNO]='" & mPLUNO & "'", dbSeeChanges
    8           myDB.Execute "UPDATE [PLU] SET [DESKS]='" & mTIME2 & "' WHERE [PLUNO]='" & mPLUNO & "'", dbSeeChanges

                 Label1.Caption = i       '用以顯示執行狀況

                 DoEvents
    9       Next
    10     DBEngine.CommitTrans
    11     On Error GoTo hErr

    2008年8月27日 下午 02:53

解答

所有回覆