請問是否自行宣告ADOQuery和DataSource無法抓出資料的筆數? |
|
尚未結案
|
|
hidylan
一般會員   發表：14 回覆：17 積分：6 註冊：2004-12-20 發送簡訊給我 |
我自己宣告ADOQuery和DataSource來抓取資料,但卻無法顯示出資料的筆數,可是程式也沒有發生錯誤,而用原件就可以顯示出資料的筆數,可以請問是自行告就無法顯示出資料的筆數,還是我程式有寫錯,以下是我的程式碼,可以幫我看一下嗎,謝謝。
procedure TForm_inquire1.BitBtn7Click(Sender: TObject);
var rb:string;
begin
inquireQuery1:=TADOquery.Create(nil);
DataSource2:=TDataSource.Create(nil);
inquireQuery1.Connection:=dataform.ADOConnection1;
DataSource2.DataSet:=inquireQuery1;
DBGrid2.DataSource:=DataSource2;
inquireQuery1.Close;
inquireQuery1.SQL.Clear;
inquireQuery1.SQL.Add('SELECT *');
inquireQuery1.SQL.Add('FROM 客戶詢問紀錄');
if RadioButton3.Checked then
inquireQuery1.SQL.Add('WHERE 回應人員編號 is null')
else if RadioButton4.Checked then
inquireQuery1.SQL.Add('WHERE 回應人員編號 is not null');
inquireQuery1.Open;
end; procedure TForm_inquire1.DataSource2DataChange(Sender: TObject;
Field: TField);
begin
label2.Caption:='總筆' IntToStr(inquireQuery1.RecordCount) '筆之第' IntToStr(inquireQuery1.RecNo) '筆';
end; 另一種寫法,但也是不行顯示
procedure TForm_inquire1.inquireQuery1AfterScroll(DataSet: TDataSet);
begin
statusbar1.simpleText:='總筆' IntToStr(DataSet.RecordCount) '筆之第' IntToStr(DataSet.RecNo) '筆';
end
|
|
cashxin2002
版主   發表：231 回覆：2555 積分：1937 註冊：2003-03-28 發送簡訊給我 |
您好﹗ 您的程式中﹐若是直接使用元件而不使用動態產生元件的情況下﹐是可以顯示的嗎﹖您的程式碼中以下處的寫法漏了'+'符號﹕
procedure TForm_inquire1.DataSource2DataChange(Sender: TObject; Field: TField); begin label2.Caption:='總筆'+IntToStr(inquireQuery1.RecordCount)+'筆之第'+IntToStr(inquireQuery1.RecNo)+'筆'; end;=================================
------
忻晟 |
|
hidylan
一般會員 發表：14 回覆：17 積分：6 註冊：2004-12-20 發送簡訊給我 |
|
|
mine
中階會員 發表：28 回覆：129 積分：56 註冊：2004-03-31 發送簡訊給我 |
|
|
hidylan
一般會員 發表：14 回覆：17 積分：6 註冊：2004-12-20 發送簡訊給我 |
|
|
hidylan
一般會員 發表：14 回覆：17 積分：6 註冊：2004-12-20 發送簡訊給我 |
發表時間：2005-03-01 21:38:16
IP:220.143.xxx.xxx 未訂閱
系統時間：2024-11-23 5:21:03
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |