各位大俠,小弟初學delphi有如下問題請教 如何用SQL UPDATE資料庫 NAME姓名(C) SALARY薪水(F) GRADE級別(C) MIS職務(C) 將級別=combobox1.text且職務=combobox2.text的人員薪水增加1000usd,該如何寫程式,急盼答案. 吳江鵬

------
吳江鵬

Hi 6925251,    

procedure TForm1.Button1Click(Sender: TObject);
begin
with query1 do
begin
    sql.clear;
    sql.add('update YourTableName set salary = salary   1000 where 級別='   QuotedStr(combobox1.text)  ' and 職務='   QuotedStr(combobox2.text));
    ExecSQL;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

對了,小弟是這樣寫的(薪水增加combobox3.text) sql.add('update salary.dbf set salary =oi strtofloat(QuotedStr(combobox3.text)) where grade=' QuotedStr(combobox1.text) ' and mis=' QuotedStr(combobox2.text)); 系統顯示錯誤"capability not supported!"請大俠們指正. Dephi初學者,急盼指教!

------
吳江鵬

Hi 6925251,    試試看

procedure TForm1.Button1Click(Sender: TObject);
begin
  with query1 do
  begin
    Close;
    Sql.Clear;
    Sql.Add('update salary.dbf set salary = oi    '   combobox3.text   ' where grade='   QuotedStr(combobox1.text)  ' and mis='   QuotedStr(combobox2.text));
    ExecSQL
  end;
end;

其中，Combox3.Text 的內容需為數字 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

問題解決了,但是如果我要同時update兩個字段該怎麼辦? 方法一: //update字段一 Sql.Add('update salary.dbf set salary = oi ' combobox3.text ' where grade=' QuotedStr(combobox1.text) ' and mis=' QuotedStr(combobox2.text)); //update字段二 Sql.Add('update salary.dbf set salary = oi ' combobox3.text ' where grade=' QuotedStr(combobox1.text) ' and mis=' QuotedStr(combobox2.text)); 方法二: Sql.Add('update salary.dbf set salary = oi ' combobox3.text ' and set age=age ' combobox3.text 'where grade=' QuotedStr(combobox1.text) ' and mis=' QuotedStr(combobox2.text)); 兩個方法二好像都不行,請大哥賜教! Dephi初學者,急盼指教!

------
吳江鵬

Hi 6925251,    

  Sql.Add('update salary.dbf set salary = oi   '   combobox3.text   ' , age=age '   combobox3.text   ' where grade='   QuotedStr(combobox1.text)  ' and mis='   QuotedStr(combobox2.text));    Update SQL 基本語法
update  TabelName
Set     Field1 = xxx1,
        Field2 = xxx2,
        .....
where   Statement1
and     Statement2

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

多謝fishman,問題解決了,小弟感激呀,今天收獲不小. Dephi初學者,急盼指教!

------
吳江鵬