unassigned code 是何種錯誤 |
|
尚未結案
|
|
alice
初階會員   發表：41 回覆：49 積分：28 註冊：2002-04-30 發送簡訊給我 |
sqlInsert:='insert into endday (endtime,nclose,nowdate) '
' values (:endtime,:nclose,:nowdate)';
i:=0;
qUpQuery.Active:=false;
qUpQuery.SQL.Clear;
qUpQuery.SQL.Add(sqlInsert);
qUpQuery.Params.ParamByName('ENDTIME').DataType:=ftDateTime;
qUpQuery.Params.ParamByName('ENDTIME').ParamType:=ptInput;
qUpQuery.Params.ParamByName('ENDTIME').AsDateTime:=now;
qUpQuery.Params.ParamByName('NCLOSE').DataType:=ftString;
qUpQuery.Params.ParamByName('NCLOSE').ParamType:=ptInput;
qUpQuery.Params.ParamByName('NCLOSE').AsString:='1';
qUpQuery.Params.ParamByName('NOWDATE').DataType:=ftDateTime;
qUpQuery.Params.ParamByName('NOWDATE').ParamType:=ptInput;
qUpQuery.Params.ParamByName('NOWDATE').AsDateTime:=now;
i:=qUpQuery.ExecSQL(); 會出現 unassigned code 的訊息,請問錯誤在那兒?
謝謝!!1
|
|
wnhoo
高階會員  發表：75 回覆：443 積分：198 註冊：2003-04-22 發送簡訊給我 |
var
sqlInsert:string;
i:integer;
begin
sqlInsert:='insert into endday (endtime,nclose,nowdate) '
+' values (:endtime,:nclose,:nowdate)';
i:=0;
qUpQuery.Active:=false;
qUpQuery.SQL.Clear;
qUpQuery.SQL.Add(sqlInsert);
qUpQuery.Params.ParamByName('ENDTIME').DataType:=ftDateTime;
qUpQuery.Params.ParamByName('ENDTIME').ParamType:=ptInput;
qUpQuery.Params.ParamByName('ENDTIME').AsDateTime:=now;
qUpQuery.Params.ParamByName('NCLOSE').DataType:=ftString;
qUpQuery.Params.ParamByName('NCLOSE').ParamType:=ptInput;
qUpQuery.Params.ParamByName('NCLOSE').AsString:='1';
qUpQuery.Params.ParamByName('NOWDATE').DataType:=ftDateTime;
qUpQuery.Params.ParamByName('NOWDATE').ParamType:=ptInput;
qUpQuery.Params.ParamByName('NOWDATE').AsDateTime:=now;
qUpQuery.ExecSQL;
//i:=qUpQuery.ExecSQL();
end; 您使用的qUpQuery是BDE的TQUERY，所以没有返回值的。如果用ADO的TADOQUERY，就有返回值的 风花雪月 e梦情缘
------
风花雪月 e梦情缘 |
|
tech_state
版主 發表：44 回覆：638 積分：641 註冊：2003-02-10 發送簡訊給我 |
引言: sqlInsert:='insert into endday (endtime,nclose,nowdate) ' ' values (:endtime,:nclose,:nowdate)'; i:=0; qUpQuery.Active:=false; qUpQuery.SQL.Clear; qUpQuery.SQL.Add(sqlInsert); qUpQuery.Params.ParamByName('ENDTIME').DataType:=ftDateTime; qUpQuery.Params.ParamByName('ENDTIME').ParamType:=ptInput; qUpQuery.Params.ParamByName('ENDTIME').AsDateTime:=now; qUpQuery.Params.ParamByName('NCLOSE').DataType:=ftString; qUpQuery.Params.ParamByName('NCLOSE').ParamType:=ptInput; qUpQuery.Params.ParamByName('NCLOSE').AsString:='1'; qUpQuery.Params.ParamByName('NOWDATE').DataType:=ftDateTime; qUpQuery.Params.ParamByName('NOWDATE').ParamType:=ptInput; qUpQuery.Params.ParamByName('NOWDATE').AsDateTime:=now; i:=qUpQuery.ExecSQL(); 會出現 unassigned code 的訊息,請問錯誤在那兒? 謝謝!!1alice, 您好 問題應該是出在這一行 i:=qUpQuery.ExecSQL();請修改為 qUpQuery.ExecSQL();不過，我不知道您i是要做什麼用的？ ======================= 涵養怒中氣。謹防順口言。留心忙裡錯。珍惜有時錢。 是非終日有，不聽自然無 天下本無事，庸人自擾之 |
|
chih
版主 發表：48 回覆：1186 積分：639 註冊：2002-04-02 發送簡訊給我 |
sqlInsert:='insert into endday (endtime,nclose,nowdate) '
' values ('#39 FormatDatetime('yyyymmdd',now) #39 ' , ' #39 '1' #39 ' , ' #39 FormatDatetime('yyyymmdd',now) #39 ')';
i:=0;
qUpQuery.Active:=false;
qUpQuery.SQL.Clear;
qUpQuery.SQL.Add(sqlInsert);
qUpQuery.ExecSQL;
i:=qUpQuery.ExecSQL();
TRY TRY SEE
|
|
alice
初階會員 發表：41 回覆：49 積分：28 註冊：2002-04-30 發送簡訊給我 |
|
|
chih
版主 發表：48 回覆：1186 積分：639 註冊：2002-04-02 發送簡訊給我 |
我比較不喜歡用ParamByName,看起來很亂,我上面的寫法,你看都是用兩個#39包住字串,
在丟到SQL語法中,這樣可以確定語法不會有錯,也不用寫了一堆ParamByName,造成Debug比較麻煩..
僅供參考..
引言: 祇改為 qUpQuery.ExecSQL 或 qUpQuery.ExecSQL() 這錯誤訊息還是會出現, 但將sql command 改為 chih的寫法,就可以了, 原先的sql command的寫法,為什麼不行呢?有何原因嗎?? |
|
hagar
版主  發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
可能是 TParam.DataType 的問題, 參見底下幾個討論:
http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&oe=UTF-8&th=a4c035045ffd4505&rnum=1
http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&oe=UTF-8&th=e764f1b59af75ddb&rnum=15
http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&oe=UTF-8&th=c6fe156e56f743be&rnum=22 ---
每個人都是一本書
|
|
htj0229
一般會員  發表：0 回覆：1 積分：0 註冊：2003-05-26 發送簡訊給我 |
|
|
shieh2700
高階會員 發表：0 回覆：127 積分：100 註冊：2002-06-13 發送簡訊給我 |
|
|
alice
初階會員 發表：41 回覆：49 積分：28 註冊：2002-04-30 發送簡訊給我 |
hagar的方式:將關Date 以
DM.SQLQuery.ParamByName('lastmodified').DataType := ftTimeStamp;
DM.SQLQuery.ParamByName('lastmodified').Value := Now;
的方式,就可以解決了這錯誤訊息,感恩呀!!
我的資料庫是可能是FireBird,或Oracle ,所以,我必須以ParamByName的方式,
才能通吃,要不,就得為不同的資料庫,量身訂做sql command,這就很麻煩!! 感謝各位的鼎力相助!!
|
發表時間：2003-05-23 18:16:40
IP:211.75.xxx.xxx 未訂閱
系統時間：2024-06-16 16:29:25
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |