[BCB][问题]根据TEDIT的TEXT值更新DATABASE的问题 |
尚未結案
|
hugeroy
一般會員 發表:5 回覆:4 積分:1 註冊:2004-11-22 發送簡訊給我 |
|
Fishman
尊榮會員 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
Hi hugeroy, 假設 Field1 ~ Field10 皆為 FloatField,可以使用 convert 指令,由 DataBase 進行轉換即可
procedure TForm1.Button1Click(Sender: TObject); begin Query1.Close; Query1.SQL.Text := 'Insert Into YourTable ' '(Field1,' 'Field2,' 'Field3,' 'Field4,' 'Field5,' 'Field6,' 'Field7,' 'Field8,' 'Field9,' 'Field10)' ' Values ' '(Convert(Float,' QuotedStr(Edit1.Text) '),' 'Convert(Float,' QuotedStr(Edit2.Text) '),' 'Convert(Float,' QuotedStr(Edit3.Text) '),' 'Convert(Float,' QuotedStr(Edit4.Text) '),' 'Convert(Float,' QuotedStr(Edit5.Text) '),' 'Convert(Float,' QuotedStr(Edit6.Text) '),' 'Convert(Float,' QuotedStr(Edit7.Text) '),' 'Convert(Float,' QuotedStr(Edit8.Text) '),' 'Convert(Float,' QuotedStr(Edit9.Text) '),' 'Convert(Float,' QuotedStr(Edit10.Text) '))'; Query1.ExecSQL; end;或是根本無須轉換也可以 procedure TForm1.Button1Click(Sender: TObject); begin Query1.Close; Query1.SQL.Text := 'Insert Into YourTable ' '(Field1,' 'Field2,' 'Field3,' 'Field4,' 'Field5,' 'Field6,' 'Field7,' 'Field8,' 'Field9,' 'Field10)' ' Values ' '(' QuotedStr(Edit1.Text) ',' QuotedStr(Edit2.Text) ',' QuotedStr(Edit3.Text) ',' QuotedStr(Edit4.Text) ',' QuotedStr(Edit5.Text) ',' QuotedStr(Edit6.Text) ',' QuotedStr(Edit7.Text) ',' QuotedStr(Edit8.Text) ',' QuotedStr(Edit9.Text) ',' QuotedStr(Edit10.Text) ')'; Query1.ExecSQL; end;---------------------------------- 小弟才疏學淺,若有謬誤尚請不吝指教 ----------------------------------
------
Fishman |
hugeroy
一般會員 發表:5 回覆:4 積分:1 註冊:2004-11-22 發送簡訊給我 |
|
Fishman
尊榮會員 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
Hi hugeroy, 如果你原先是使用變數傳入的方式,將該變數的 Data Type 更改為 ftString 也可以
SQL : insert into yourtable (field1,field2,.....) values (:p_field1,:p_field2,....) procedure TForm1.Button1Click(Sender: TObject); begin Query1.Close; Query1.ParamByName('P_field1').AsString := Edit1.Text; ..... Query1.ExecSQL; end;---------------------------------- 小弟才疏學淺,若有謬誤尚請不吝指教 ----------------------------------
------
Fishman |
hugeroy
一般會員 發表:5 回覆:4 積分:1 註冊:2004-11-22 發送簡訊給我 |
|
Fishman
尊榮會員 發表:120 回覆:1949 積分:2163 註冊:2006-10-28 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |