SQL Update 語法一問 |
答題得分者是:kadee
|
yjs
一般會員 發表:2 回覆:6 積分:1 註冊:2009-11-23 發送簡訊給我 |
[code delphi]
procedure TForm1.Button2Click(Sender: TObject); begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.sql.add('Update PALTG set TG018=K' ); ADOQuery1.sql.add('where TG001 like :mc1 and TG002 like :mc2'); ADOQuery1.Parameters.ParamByName('mc1').Value:=Edit1.Text; ADOQuery1.Parameters.ParamByName('mc2').Value:=Edit2.Text; if ADOQuery1.ParamCheck=False then ADOQuery1.Prepared; ADOQuery1.Open; end; [/code] 請問一下,上面的程式執行後,會有無效的資料行,問題出在 這行ADOQuery1.sql.add('Update PALTG set TG018=c' ); 不知如何更改才對 我的目的是要透過button2去修改ms-sql內某一欄位值等於 K 英文字母的K 還是有另一種方法,利用DBgrid顯示出來的資料直接在上面修改,修改後,直接存入資料庫!!! |
老大仔
尊榮會員 發表:78 回覆:837 積分:1088 註冊:2006-07-06 發送簡訊給我 |
|
st33chen
尊榮會員 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
|
yjs
一般會員 發表:2 回覆:6 積分:1 註冊:2009-11-23 發送簡訊給我 |
|
yjs
一般會員 發表:2 回覆:6 積分:1 註冊:2009-11-23 發送簡訊給我 |
|
max5020
資深會員 發表:30 回覆:277 積分:321 註冊:2003-06-04 發送簡訊給我 |
[code delphi] procedure TForm1.Button2Click(Sender: TObject); begin ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.sql.add('Update PALTG set TG018=''K''' ); ADOQuery1.sql.add('where TG001 like ' QuotedStr(Edit1.Text) ' and TG002 like ' QuotedStr(Edit2.Text)); ADOQuery1.Open; end; [/code]
編輯記錄
max5020 重新編輯於 2009-12-03 11:39:21, 註解 無‧
|
yjs
一般會員 發表:2 回覆:6 積分:1 註冊:2009-11-23 發送簡訊給我 |
===================引 用 max5020 文 章=================== [code delphi] procedure TForm1.Button2Click(Sender: TObject); begin? ? ADOQuery1.Close;? ? ADOQuery1.SQL.Clear;? ? ADOQuery1.sql.add('Update PALTG set TG018=''K''' );? ? ADOQuery1.sql.add('where TG001 like ' QuotedStr(Edit1.Text) ' and TG002 like ' QuotedStr(Edit2.Text));? ? ADOQuery1.Open;? end; [/code] 執行上面程式已可以將資料寫入資料庫了!但會有 "ADOQuery1:CommandText does not return a result set 的錯誤! 還在研究中,請知道的人告知一下吧! |
kadee
高階會員 發表:11 回覆:141 積分:165 註冊:2002-03-20 發送簡訊給我 |
ADOQuery1.Open; -- > ADOQuery1.ExecSQL;
****** 必利得免費進銷存 總帳系統 (不限時間筆數,含網路版), 歡迎下載使用 www.bigredinf.net 必利得資訊 ****** ===================引 用 yjs 文 章=================== ===================引 用 max5020 文 章=================== [code delphi] procedure TForm1.Button2Click(Sender: TObject); begin? ? ADOQuery1.Close;? ? ADOQuery1.SQL.Clear;? ? ADOQuery1.sql.add('Update PALTG set TG018=''K''' );? ? ADOQuery1.sql.add('where TG001 like ' QuotedStr(Edit1.Text) ' and TG002 like ' QuotedStr(Edit2.Text));? ? ADOQuery1.Open;? end; [/code] 執行上面程式已可以將資料寫入資料庫了!但會有 "ADOQuery1:CommandText does not return a result set 的錯誤! 還在研究中,請知道的人告知一下吧!
------
Kadee/BigRed Ent. www.tw165.com |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |