?? 18802.html
字號:
<html> <head> <title>Re: 請教這個程式錯在那里?</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: 請教這個程式錯在那里?</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by 阿拉 on September 11, 1999 at 13:28:58:<p>In Reply to: <a href="18769.html">請教這個程式錯在那里?</a> posted by kkcheung on September 10, 1999 at 16:18:33:<p>: selstr = "select * from sale_rec where sale_date like '" + Trim(T_FROM.Text) + "%'"<p>: Set tempset = FMSDB.OpenRecordset(selstr, dbOpenSnapshot, dbSQLPassThrough)<br>: If tempset.EOF Then<br>: MsgBox "在指定條件下無查詢資料 !", , FRM_KHGH_Q_P.Caption<br>: MSG_BAR.Caption = ""<br>: Exit Sub<br>: End If<br>: Do While Not tempset.EOF<br>: temp_inv = Trim(tempset.Fields!invo_code): temp_lot = Trim(tempset.Fields!stockno)<p>: selstr2 = "select * from receive_rec where stock_no='" + temp_lot + "'"<br>: Set tempset2 = FMSDB.OpenRecordset(selstr2, dbOpenSnapshot, dbSQLPassThrough)<p>: If Not tempset2.EOF Then<br>: temp_sendcode = Trim(tempset2.Fields!send_code)<br>: sqlSTR = "UPDATE sale_rec SET send_code= '" + temp_sendcode + "' WHERE invo_code='" + temp_inv + "' and stockno='" + temp_lot + "'"<br>: BeginTrans<br>: FMSDB.Execute sqlSTR, dbSQLPassThrough<br>: End If<p>: tempset.MoveNext<br>: tempset2.Close<br>: Loop<br>: 上面的程式可以順利執行到第一次loop后,當第二次執行Set tempset2 = FMSDB.OpenRecordset(selstr2, dbOpenSnapshot, dbSQLPassThrough),就出現ODBC-call failed 3146.我作程式追蹤,selstr2這句是完整的,抄到visdata亦可執行,但在這里卻過了,請教問題出在那里.謝謝大家!<p>應該是有BeginTrans, 但沒有CommitTrans<br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 18802--><!--top: 18878--><li><a href="18878.html">Re: 請教這個程式錯在那里?</a> <b>kkcheung</b> <i>16:17:18 9/13/99</i>(<!--responses: 18878-->0)<ul><!--insert: 18878--></ul><!--end: 18878--></ul><!--end: 18802--><br><hr size=7 width=75%><p></body></html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -