【問題】條件抓取資料庫的資料~ |
尚未結案
|
tv66
一般會員 發表:5 回覆:3 積分:1 註冊:2004-03-30 發送簡訊給我 |
|
wameng
版主 發表:31 回覆:1336 積分:1188 註冊:2004-09-16 發送簡訊給我 |
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
|
tv66
一般會員 發表:5 回覆:3 積分:1 註冊:2004-03-30 發送簡訊給我 |
感謝兩位版主的回應~ 我參考了cashxin2002貼的討論打了下列程式碼
已經成功可以顯示一個(edit2)
請問一下要怎麼顯示兩個以上呢(商店編號1跟商店編號2)?
因為試了好久都不行所以再詢問一下~ if Key=#13 then
begin
DB2Query.Close;
DB2Query.SQL.Clear;
DB2Query.SQL.Add('Select 商店名稱');
DB2Query.SQL.Add('From CU2.db Where ');
DB2Query.SQL.Add('廠商統一編號=''' Edit1.Text '''');
DB2Query.Open;
if Not DB2Query.Eof then
begin
Edit2.Text := DB2Query.Fields.Fields[0].AsString;
end
else
ShowMessage('資料庫中無此筆資料');
end; 發表人 - tv66 於 2004/12/04 23:43:18
|
hahalin
版主 發表:295 回覆:1698 積分:823 註冊:2002-04-14 發送簡訊給我 |
DB2Query.Close; DB2Query.SQL.Clear; DB2Query.SQL.Add ('Select 商店名稱,商店編號 From DB2.db Where 廠商統一編號=' quotedstr(edit1.Text)); DB2Query.Open; If Not DBQuery.Eof then Begin Edit2.text:=DBQuery.FieldByName('商店名稱').asString; Edit3.text:=DBQuery.FieldByName('商店編號').asString; End Else Begin Edit2.text:=''; Edit3.text:=''; End; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |