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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |