開發環境:delphi 5 + sql server

已經作出了以下SETTING
QUERY SETTING:
CachedUpdates := true
RequestLive := true
updateObject := UpdateSQL

UpdateSQL SETTING
MODIFYSQL =update TEST_TABLE Set Code = :ws_code, Int = :ws_int,Str = :ws_str where id = :ws_id
===================================================================================
在程式碼的處理edit 數據的區段有以下code

<textarea class="delphi" rows="10" cols="60" name="code">with Query do begin Edit; Params.ParseSQL(UpdateSQL.ModifySQL.Text,True); ParamByName('ws_id').AsInteger := ws_id; ParamByName('ws_str').AsString := ws_str; ParamByName('ws_code').AsInteger := ws_code; ParamByName('ws_int').AsInteger := ws_int; // ws_id, ws_str, ws_code, ws_int變數已經有相應形態既值 ApplyUpdates; ＜－－－ 執行到呢句就會出現錯誤訊息 Field 'ws_id' is of an unknown end; </textarea>


由於第一次使用TUPDATESQL,煩望各位指教,是否有任何語句在applyupdates 之前有所遺留請在此區域輸入程式碼

編輯記錄

是不是你的wd_is為後來又新增的欄位，可是你又忘了回去更新這個sql內容了？

------
Kevin

多謝回答~~~
我的資料庫沒有作任何結構上的改變~~
modifySQL 亦是 hard code 沒有在程式執行時改變

你好:

很久沒碰 BDE 了...應該是你 Field Name 與 Parameter Name 不相同...造成 Update SQL 無法正確判斷 TParam.Datatype

試試看:

UpdateSQL SETTING
MODIFYSQL =update TEST_TABLE Set Code = :Code, Int = :Int,Str = :Str where id = :id

1. with Query do
2. begin
3. Edit;
4. Params.ParseSQL(UpdateSQL.ModifySQL.Text,True);
5. ParamByName('id').AsInteger := ws_id;
6. ParamByName('Str').AsString := ws_str;
7. ParamByName('Code').AsInteger := ws_code;
8. ParamByName('Int').AsInteger := ws_int;
9. // ws_id, ws_str, ws_code, ws_int變數已經有相應形態既值
10. ApplyUpdates; ＜－－－ 執行到呢句就會出現錯誤訊息 Field 'ws_id' is of an unknown
11. end;

thx for your reply first~~~
改左Field Name 與 Parameter Name同名~~
唔會出 Field 'ws_id' is of an unknown type 既error message
不過做到query.applyupdate既時候都會出錯~~~update fails
===================引 用 Mickey 文 章===================
你好:

很久沒碰 BDE 了...應該是你 Field Name 與 Parameter Name 不相同...造成 Update SQL 無法正確判斷 TParam.Datatype

試試看:

UpdateSQL SETTING
??? MODIFYSQL =update TEST_TABLE?? Set? Code = :Code, Int = :Int,Str = :Str? where id? = :id

?? 1. with Query do?
?? 2. begin?
?? 3. Edit;?
?? 4. Params.ParseSQL(UpdateSQL.ModifySQL.Text,True);?
?? 5. ParamByName('id').AsInteger := ws_id;?
?? 6. ParamByName('Str').AsString := ws_str;?
?? 7. ParamByName('Code').AsInteger := ws_code;?
?? 8. ParamByName('Int').AsInteger := ws_int;?
?? 9. // ws_id, ws_str, ws_code, ws_int變數已經有相應形態既值?
? 10. ApplyUpdates; ＜－－－ 執行到呢句就會出現錯誤訊息 Field 'ws_id' is of an unknown?
? 11. end;?

出錯...

有錯誤訊息嗎 ?

===================引 用 水晶人 文 章===================
不過做到query.applyupdate既時候都會出錯~~~update fails

thx for your reply~~~
係update failed 出錯~~~
現在只是源用最簡單的TQUERY 更新刪除方法~~~
目前單表更新的情況還能應付下來~~~~
待有時間會再研究TUPDATESQL的用法~~~

===================引 用 Mickey 文 章===================
出錯...

有錯誤訊息嗎 ?

===================引 用 水晶人 文 章===================
不過做到query.applyupdate既時候都會出錯~~~update fails