Delphi で FireDAC のときの個人的メモ

コンポーネント

TFDConnection
  ドライバID: IB

  Database: gdb ファイル (employee.gdb) の配置および選択
  User_Name: sysdba
  Password: masterkey
  CharacterSet: UTF8

TFDQuery
  SELECT * FROM employeejp WHERE emp_no = :P1

TFDGUIxWaitCursor

コード

var
  row: TFDDatSRow;
begin
  FDQuery1.ParamByName('P1').AsInteger := 2;
  FDQuery1.Open;
  FDQuery1.First;
  row := FDQuery1.GetRow();
  ShowMessage(FloatToStr(row.GetData(0)) + ' : ' + row.GetData(1));
  FDQuery1.Close;
end;