My Sql Veritabanında Arama Yapmak ve Arama Sonucunu DBGrid de Göstermek

 

Merhaba arkadaşlar bu makalemizde MS Sql e UniConnection ile bağlanacağız. UniConnection ile bağlantı nasıl yapılırı daha önceki makalemizde detaylı anlatmıştım. Önceki makaleyi okumak için buraya tıklayabilirsiniz.

 

Formumuza Palette kısmından Edit, Button, DBGrid, UniConnection, UniQuery, MySQLUniProvider ve DataSource nesnesi ekleyin.

 

UniConnection nesnesine sağ tıklayıp, açılan pencerede Connection Editor’ e tıklayın. My Sql veritabanına bağlanacağımız için aşağıdaki gibi düzenlemeyi yapıp, OK butonuna tıklayın.

 

 

Şekil 1

 

 

 

Şekil 2

 

Şekil 3

unit mysql_uniquery_Unit1;

interface

uses

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

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.StdCtrls, Vcl.Grids,

Vcl.DBGrids, DBAccess, Uni, MemDS, UniProvider, MySQLUniProvider;

type

TForm1 = class(TForm)

UniQuery1: TUniQuery;

DataSource1: TDataSource;

UniConnection1: TUniConnection;

DBGrid1: TDBGrid;

Edit1: TEdit;

btnSearch: TButton;

MySQLUniProvider1: TMySQLUniProvider;

procedure btnSearchClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnSearchClick(Sender: TObject);

begin

with UniQuery1 do

begin

 

Close;

SQL.Clear;

SQL.Add('Select * From person Where Name =:name');

ParamByName('name').Value:=Edit1.Text;

 

Open;

end;

end;

end.

 

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.