ADOTable Ile Filtreleme İşlemi

Merhaba arkadaşlar bu makalemizde ADOTablein filtre özelliğini kullanarak Access veritabanında filtreleme yapacağız. Edit e girilen stringi veritabanında arayıp DBGrid de gösterimini sağlayacağız. 

Formumuza 1 adet DBGrid, 1 adet Edit, 1 adet Button ekleyelim. Daha sonra Palette kısmından ADOTable ve DataSource ekleyelim.

ADOTable i seçelim. Object Inspector kısmındaki ConnectionString kısmından Access veritabanımızın olduğu yolu tanımlayalım. Sonra DataSource seçelim. Object Inspector kısmındaki DataSet kısmında ADOTable i seçelim. Son olarak DBGrid seçiliyken Object Inspector kısmındaki DataSource  özelliğini DataSource1 olarak seçelim. Button kısmına aşağıdaki kodu yazalım.

Şekil 1

Şekil 2

unit adotable_filter_Unit1;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.Grids,

Vcl.DBGrids, Vcl.StdCtrls;

type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

ADOTable1: TADOTable;

Button1: TButton;

Edit1: TEdit;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

ADOTable1.Filter :='Adi LIKE ' + QuotedStr(Edit1.text + '%');

ADOTable1.Filtered := True;

end;

end.

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN