?? 18769.html
字號:
<html> <head> <title>請教這個程式錯在那里?</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>請教這個程式錯在那里?</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>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>上面的程式可以順利執(zhí)行到第一次loop后,當(dāng)?shù)诙螆?zhí)行Set tempset2 = FMSDB.OpenRecordset(selstr2, dbOpenSnapshot, dbSQLPassThrough),就出現(xiàn)ODBC-call failed 3146.我作程式追蹤,selstr2這句是完整的,抄到visdata亦可執(zhí)行,但在這里卻過了,請教問題出在那里.謝謝大家!<br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 18769--><!--top: 18802--><li><a href="18802.html">Re: 請教這個程式錯在那里?</a> <b>阿拉</b> <i>13:28:58 9/11/99</i>(<!--responses: 18802-->1)<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--></ul><!--end: 18769--><br><hr size=7 width=75%><p></body></html>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -