DBGridにSELECT結果を表示させるには (ID:43726)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

1.空のプロジェクトを開いて以下をコピーし、フォームデザイナに〔Ctrl〕+〔V〕で貼り付けて下さい。

-------------------- ここから --------------------
object DBGrid1: TDBGrid
  Left = 8
  Top = 8
  Width = 661
  Height = 317
  DataSource = DataSource1
  TabOrder = 0
  TitleFont.Charset = DEFAULT_CHARSET
  TitleFont.Color = clWindowText
  TitleFont.Height = -11
  TitleFont.Name = 'Tahoma'
  TitleFont.Style = []
end
object IBDatabase1: TIBDatabase
  Left = 20
  Top = 340
end
object IBTransaction1: TIBTransaction
  DefaultDatabase = IBDatabase1
  Left = 80
  Top = 340
end
object IBQuery1: TIBQuery
  Database = IBDatabase1
  Transaction = IBTransaction1
  Left = 160
  Top = 340
end
object DataSource1: TDataSource
  DataSet = IBQuery1
  Left = 240
  Top = 340
end
object Button1: TButton
  Left = 513
  Top = 344
  Width = 75
  Height = 25
  Caption = 'Connect'
  TabOrder = 1
end
object Button2: TButton
  Left = 594
  Top = 344
  Width = 75
  Height = 25
  Caption = 'DisConnect'
  TabOrder = 2
end
-------------------- ここまで --------------------

2.Button1 (Connect) のイベントハンドラに以下を記述します。

procedure TForm1.Button1Click(Sender: TObject);
begin
  with IBDatabase1 do
    begin
      LoginPrompt := False;
      Params.Values['user_name'] := 'SYSDBA';      // User Name
      Params.Values['password' ] := 'masterke';    // Password(IBならmasterkey)
      Params.Values['lc_ctype' ] := 'UNICODE_FSS'; // CharSet
      DatabaseName               := 'localhost:C:\TEST\DATA.FDB';
    end;
  with IBQuery1 do
    begin
      SQL.Clear;
      SQL.Add('Select * From TBL_EMPLOYEE');
      Open;
    end;
end;

3.Button2 (Disconnect) のイベントハンドラに以下を記述します。

procedure TForm1.Button2Click(Sender: TObject);
begin
  IBQuery1.Close;
end;

4.実行してテストしてみてください。

> IBQuery2.RecordCountで検索に掛かったレコード数が反映されると思いましたが、違う様です。
違いますね。

IBQuery2.Last;
IBQuery2.First;

または、

IBQuery2.FetchAll;

した後だと RecordCount は総レコード数が返ります。

ただ、事前に Select Count(*) した SQL を投げて総レコード数を得たほうが
パフォーマンスがいい事が多いです。

詳しくは以下のページを参照して下さい。

[FAQ - InterBase & IBX ヘルプ (木村さんによる翻訳)]
http://www.geocities.jp/kimura804/rdb/InterBaseFAQ/IBandIBX_FAQandTutorials_j.htm#Top

←解決時は質問者本人がここをチェックしてください。

戻る