Membuat Parameter di Query

Pada dasarnya, parameter pada query akan dibuat secara otomatis oleh Delphi. Tapi entah karena apa, terkadang tidak, sehingga kita harus membuat parameter list secara manual.

Parameter membutuhkan dua property, yaitu, nama dan tipe data. Tipe data harus sesuai seperti yang didefinisikan di Unit DB sebagai TFieldType sebagai berikut:

TFieldType =
(ftUnknown, ftString, ftSmallint, ftInteger, ftWord,
ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate, ftTime, ftDateTime,
ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo,
ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString,
ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ftOraBlob, ftOraClob,
ftVariant, ftInterface, ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd,
ftFixedWideChar, ftWideMemo, ftOraTimeStamp, ftOraInterval,
ftLongWord, ftShortint, ftByte, ftExtended, ftConnection, ftParams, ftStream);

Kedua property tadi harus diatur sebelum melakukan perintah query.

contoh berikut ini qry adalah TAdoQuery yang mendapatkan masukan isi parameter KODE dari user.

with qry do
begin
  Close;
  SQL.Clear;
  parameters.clear;
  parameters.AddParameter.Name := 'KODE';
  parameters.AddParameter.DataType := ftString;
  SQL.Add('select KodeGroup, NamaGroup  ');
  SQL.Add('from KodeGroup ');
  SQL.Add('where KodeGolongan = :KODE ');
  SQL.Add('Order by KodeGroup ');
  Open;

end;

Membuat Parameter di Query 2019-04-26T09:49:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer