將資料表某欄位加總後,如何取出該值 |
|
答題得分者是：hagar
|
|
Paicaso
中階會員   發表：140 回覆：124 積分：52 註冊：2002-09-04 發送簡訊給我 |
請教一個問題將資料表某欄位加總後
欲取出該值,這一段不會寫QueryS.*****.AsInteger
請指點一下
謝謝 QueryS.SQL.Clear;
QueryS.SQL.Add('SELECT SUM(p_cash) FROM TA ');
QueryS.SQL.Add('WHERE p_no IS NOT NULL');
QueryS.SQL.Add(' AND trfg = False ');
QueryS.CLOSE;
QueryS.OPEN;
Label5.Caption := '總值 =' IntToStr(QueryS.*****.AsInteger) ;
|
|
hagar
版主  發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
第一種: QueryS.Fields[0].AsInteger;
第二種:
begin
QueryS.SQL.Clear;
QueryS.SQL.Add('SELECT SUM(p_cash) as SumValue FROM TA ');
QueryS.SQL.Add('WHERE p_no IS NOT NULL');
QueryS.SQL.Add(' AND trfg = False ');
QueryS.CLOSE;
QueryS.OPEN;
Label5.Caption := '總值 ='
IntToStr(QueryS.FieldByName('SumeValue').AsInteger) ;
end;
--
將進酒 杯莫停 與君歌一曲 請君為我傾耳聽
(hagar@gcn.net.tw) 發表人 - hagar 於 2003/02/09 17:13:34
|
|
Paicaso
中階會員 發表：140 回覆：124 積分：52 註冊：2002-09-04 發送簡訊給我 |
謝謝您
但原本我用QueryS.Fields[0].AsInteger;
但都會為0,可是現在又好了.不知未什麼
不過還是謝謝您
但我又想到一個問題,如需加總幾個欄位
是否用這樣的方法
QueryS.SQL.Add('SELECT SUM(A, B, C) FROM TA ');
.
A1 := QueryS.Fields[0].AsInteger;
A2 := QueryS.Fields[1].AsInteger;
A3 := QueryS.Fields[2].AsInteger;
|
|
chih
版主 發表：48 回覆：1186 積分：639 註冊：2002-04-02 發送簡訊給我 |
QueryS.SQL.Add('SELECT SUM(A, B, C) FROM TA ');
改為這樣就可以了
QueryS.SQL.Add('SELECT SUM(A) AS A,SUM(B) AS B,SUM(C) AS C FROM TA ');
引言: 謝謝您 但原本我用QueryS.Fields[0].AsInteger; 但都會為0,可是現在又好了.不知未什麼 不過還是謝謝您 但我又想到一個問題,如需加總幾個欄位 是否用這樣的方法 QueryS.SQL.Add('SELECT SUM(A, B, C) FROM TA '); . A1 := QueryS.Fields[0].AsInteger; A2 := QueryS.Fields[1].AsInteger; A3 := QueryS.Fields[2].AsInteger; |
|
hagar
版主 發表：143 回覆：4056 積分：4445 註冊：2002-04-14 發送簡訊給我 |
引言: 謝謝您 但原本我用QueryS.Fields[0].AsInteger; 但都會為0,可是現在又好了.不知未什麼 不過還是謝謝您 但我又想到一個問題,如需加總幾個欄位 是否用這樣的方法 QueryS.SQL.Add('SELECT SUM(A, B, C) FROM TA '); . A1 := QueryS.Fields[0].AsInteger; A2 := QueryS.Fields[1].AsInteger; A3 := QueryS.Fields[2].AsInteger;這樣還是 QueryS.Fields[0].AsInteger; 如果 QueryS.SQL.Add('SELECT SUM(A), Sum(B), Sum(C) FROM TA '); 才是 A1 := QueryS.Fields[0].AsInteger; A2 := QueryS.Fields[1].AsInteger; A3 := QueryS.Fields[2].AsInteger; 後者也可以用 paicaso 兄所說的方法。 -- 將進酒 杯莫停 與君歌一曲 請君為我傾耳聽 (hagar@gcn.net.tw) |
發表時間：2003-02-09 16:58:58
IP:61.59.xxx.xxx 未訂閱
系統時間：2024-07-03 5:36:52
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |