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.

 

Click for details

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

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.