全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1000
推到 Plurk!
推到 Facebook!

遺漏等號

答題得分者是:st33chen
lovemari
中階會員


發表:134
回覆:224
積分:76
註冊:2005-08-18

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-10-09 16:16:53 IP:122.116.xxx.xxx 訂閱
小弟寫了有關UPDATE TABLE的程式
但執行之後卻發生以下狀況
能請各位大大幫我看那裡錯了嗎??
錯誤訊息 "ORA-00927" 遺漏等號
csTemp4 是 ClientDataSet

[code delphi]
procedure TForm1.Button3Click(Sender: TObject);
begin
If Application.MessageBox('你確定要換版嗎?', '確認?', MB_YESNO MB_DEFBUTTON2) = IDYES then
begin
With csTemp4 do
begin
Close;
Params.Clear;
Params.CreateParam(ftString ,'ITEM_SN', ptInput);
CommandText := 'Update G_SN_KEYPARTS '
'SET (ITEM_PART_SN) '
'Values (:ITEM_SN) '
'WHERE ITEM_PART_SN = ''' ComboBox3.Items.Strings[ComboBox3.Itemindex] ''' ';

Params.ParamByName('ITEM_SN').AsString := Edit1.Text;
Execute;
showmessage ('修改資料成功');
end;
end;
end;
[/code]
------
Program : Delphi 7
DataBase : Oracle 9i
Client : ClientDataSet
編輯記錄
lovemari 重新編輯於 2008-10-09 16:18:19, 註解 無‧
lovemari 重新編輯於 2008-10-09 16:18:48, 註解 無‧
st33chen
尊榮會員


發表:15
回覆:591
積分:1201
註冊:2005-09-30

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-10-09 21:07:14 IP:122.116.xxx.xxx 未訂閱
  1. 您好,
  2. CommandText := 'Update G_SN_KEYPARTS '
  3. 'SET ITEM_PART_SN=:ITEM_SN '
  4. 'WHERE ITEM_PART_SN = ''' ComboBox3.Items.Strings ''''
  5. 您應該搞混 update 和 insert 的語法了
  6. 我記得是 :
  7. update tablename set fld1=val1, fld2=val2, ... where ....
  8. insert 有三種
  9. insert into tablename (fld1, fld2, ...) values (val1, val2, ...)
  10. insert into tablename set fld1=val1, fld2=val2, ...
  11. insert into tablename select .......... from ... where ...

  12. ===================引 用 lovemari 文 章===================
小弟寫了有關UPDATE TABLE的程式
但執行之後卻發生以下狀況
能請各位大大幫我看那裡錯了嗎??
錯誤訊息 "ORA-00927" 遺漏等號
csTemp4 是 ClientDataSet

[code delphi]
procedure TForm1.Button3Click(Sender: TObject);
begin
If Application.MessageBox('你確定要換版嗎?', '確認?', MB_YESNO MB_DEFBUTTON2) = IDYES then
begin
With csTemp4 do
begin
Close;
Params.Clear;
Params.CreateParam(ftString ,'ITEM_SN', ptInput);
CommandText := 'Update G_SN_KEYPARTS '
'SET (ITEM_PART_SN) '
'Values (:ITEM_SN) '
'WHERE ITEM_PART_SN = ''' ComboBox3.Items.Strings[ComboBox3.Itemindex] ''' ';

Params.ParamByName('ITEM_SN').AsString := Edit1.Text;
Execute;
showmessage ('修改資料成功');
end;
end;
end;
[/code]
------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.
編輯記錄
st33chen 重新編輯於 2008-10-11 07:58:42, 註解 無‧
系統時間:2024-05-05 8:26:50
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!