Query Berparameter / Delphi

Query Berparameter

Untuk meningkatkan fleksibilitas, Delphi mempunyai query yang berparameter.

Contoh:

            Select * From Country Where Name like :Nama

Parameter nama pada perintah ini dapat diganti dengan string lain. Ada dua cara untuk mengisi parameter Nama.

1.      dengan menggunakan  Object Inspector.

Pilih properties SQL pada komponen  Query isi dengan perintah select seperti diatas. Kemudian isi properties params, isi properties NAME, VALUE, dan TYPE

 

2.      dengan menggunakan method parambyname

contoh:

            Query1.ParamByName (’NAME’).AsString:=’C%’;

Method Komponen Query

1.      Close : digunakan untuk menutup query

2.      Open : digunakan untuk mengeksekusi query

3.      Prepare : digunakan untuk meningkatkan performan Query

4.      SQL

a.      Add untuk menambah perintah SQL,  seperti perintah select

b.      Clear untuk menghapus perintah yang telah ada

Contoh Program:

Kode program:

unit Unitsql1;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  Buttons, StdCtrls, Grids, DBGrids, Db, DBTables;

type

  TForm1 = class(TForm)

    DataSource1: TDataSource;

    Query1: TQuery;

    DBGrid1: TDBGrid;

    Edit1: TEdit;

    Button1: TButton;

    BitBtn1: TBitBtn;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

        query1.close;

        query1.SQL.Clear;

        query1.sql.Add(edit1.text);

        query1.open;

end;

end.