Insert into 疑問??? |
|
答題得分者是：careychen
|
|
lovemari
中階會員   發表：134 回覆：224 積分：76 註冊：2005-08-18 發送簡訊給我 |
小弟寫了下列程式碼 當我執行之後
出現 ORA-00904 "REMARK" ID 無效 能請各位大大幫小弟看那裡有問題嗎? [code delphi] procedure TForm1.Button4Click(Sender: TObject); begin If Application.MessageBox('維修完成？', '確認?', MB_YESNO MB_DEFBUTTON2) = IDYES then begin With csTemp4 do begin Close; Params.Clear; Params.CreateParam(ftString ,'SN', ptInput); Params.CreateParam(ftString ,'ITEM', ptInput); Params.CreateParam(ftString ,'DEFECT', ptInput); Params.CreateParam(ftString ,'PART', ptInput); Params.CreateParam(ftString ,'REPAIR', ptInput); Params.CreateParam(ftString ,'REMARK', ptInput); CommandText := 'Insert into SAJET.G_SN_KEYPARTS ' '(SERIAL_NUMBER,ITEM_PART_SN,DEFECT_PART_SN,REPAIR_PART_NO,REPAIR_PART_SN,REMARK) ' 'Values (:SN,:ITEM,:DEFECT,:PART,:REPAIR,:REMARK) '; Params.ParamByName('SN').AsString := ComboBox1.Items.Strings[ComboBox1.Itemindex]; Params.ParamByName('ITEM').AsString := ComboBox2.Items.Strings[ComboBox2.Itemindex]; Params.ParamByName('DEFECT').AsString := Label13.Caption; Params.ParamByName('PART').AsString := ComboBox4.Items.Strings[ComboBox4.Itemindex]; Params.ParamByName('REPAIR').AsString := Label16.Caption; Params.ParamByName('REMARK').AsString := Edit3.Text; Execute; showmessage ('請回到 "Repair" 修復主體序號'); end; end; end; [/code]
------
Program : Delphi 7 DataBase : Oracle 9i Client : ClientDataSet |
|
careychen
尊榮會員  發表：41 回覆：580 積分：959 註冊：2004-03-03 發送簡訊給我 |
我猜，會不會 remark 是你的資料庫保留字? 你要不要在 下面那段紅色的地方加上中括號試試?
或是把你資料表的欄位名稱換一下? CommandText := 'Insert into SAJET.G_SN_KEYPARTS ' '(SERIAL_NUMBER,ITEM_PART_SN,DEFECT_PART_SN,REPAIR_PART_NO,REPAIR_PART_SN,[REMARK]) ' 'Values (:SN,:ITEM,:DEFECT,:PART,:REPAIR,:REMARK) '; ===================引 用 lovemari 文 章=================== 小弟寫了下列程式碼 當我執行之後 出現 ORA-00904 "REMARK" ID 無效 能請各位大大幫小弟看那裡有問題嗎? [code delphi] procedure TForm1.Button4Click(Sender: TObject); begin If Application.MessageBox('維修完成？', '確認?', MB_YESNO MB_DEFBUTTON2) = IDYES then begin With csTemp4 do begin Close; Params.Clear; Params.CreateParam(ftString ,'SN', ptInput); Params.CreateParam(ftString ,'ITEM', ptInput); Params.CreateParam(ftString ,'DEFECT', ptInput); Params.CreateParam(ftString ,'PART', ptInput); Params.CreateParam(ftString ,'REPAIR', ptInput); Params.CreateParam(ftString ,'REMARK', ptInput); CommandText := 'Insert into SAJET.G_SN_KEYPARTS ' '(SERIAL_NUMBER,ITEM_PART_SN,DEFECT_PART_SN,REPAIR_PART_NO,REPAIR_PART_SN,REMARK) ' 'Values (:SN,:ITEM,:DEFECT,:PART,:REPAIR,:REMARK) '; Params.ParamByName('SN').AsString := ComboBox1.Items.Strings[ComboBox1.Itemindex]; Params.ParamByName('ITEM').AsString := ComboBox2.Items.Strings[ComboBox2.Itemindex]; Params.ParamByName('DEFECT').AsString := Label13.Caption; Params.ParamByName('PART').AsString := ComboBox4.Items.Strings[ComboBox4.Itemindex]; Params.ParamByName('REPAIR').AsString := Label16.Caption; Params.ParamByName('REMARK').AsString := Edit3.Text; Execute; showmessage ('請回到 "Repair" 修復主體序號'); end; end; end; [/code]
------
價值的展現，來自於你用哪一個角度來看待它!! |
|
lovemari
中階會員 發表：134 回覆：224 積分：76 註冊：2005-08-18 發送簡訊給我 |
|
|
carey
一般會員  發表：0 回覆：1 積分：0 註冊：2008-09-27 發送簡訊給我 |
發表時間：2008-10-13 17:02:41
IP:122.116.xxx.xxx 訂閱
系統時間：2024-05-05 6:37:04
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |