1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

   IBCConnection1.Database := 'E:\\Data\\MyDocs\\Data\\Firebird\\PDB.FDB';
   IBCConnection1.Params.Clear();
   IBCConnection1.Params.Append('USER_NAME ''PSUSER''');
   IBCConnection1.Params.Append('PASSWORD ''P123''');
   IBCConnection1.LoginPrompt := false;
   IBCConnection1.Open;
   IF IBCConnection1.Connected <> TRUE Then begin
      ShowMessage('NICHT Verbunden');
      exit;
    end;

    IBCTransaction1.StartTransaction;
    IBCSQL1.SQL.Clear;
    IBCSQL1.SQL.Add('Select * from Personal ');
    IBCSQL1.Execute;

   { Bei IBX hat dies folgende funktioniert: }
//      Edit1.Text := FieldByName('Vorname').Value;

    IBCTransaction1.Commit;
    IBCConnection1.Close;                    

1:
2:
3:

IBCQuery1.SQL.Clear;
IBCSQL1.SQL.Add('Select * from Personal Where idnr = 1');
IBCQuery1.Open;                    

1:
2:
3:
4:

mynr := 1;
IBCQuery1.SQL.Clear;
IBCSQL1.SQL.Add('Select * from Personal Where idnr = :mynr');
IBCQuery1.Open;                    

1:

IBCQuery1.ParamByName('mynr').Value := mynr;                    

1:
2:
3:

Edit_1.Text := IBCQuery1.FieldByName('Field_1').asWasAuchImmer;
..
Edit_x.Text := IBCQuery1.FieldByName('Field_x').asWasAuchImmer;                    

1:
2:
3:

IBCQuery1.ParamByName('Field_1').asWasAuchImmer := Edit_1.Text;
..
IBCQuery1.ParamByName('Field_x').asWasAuchImmer := Edit_x.Text;                    

1:
2:
3:

Achtung! kein Delphi-code!!
mynr = 23
SQLEXEC( nHandle, "Select * from Personal Where idnr = ?mynr", "qTmp")                    

1:
2:
3:
4:

Achtung! kein Delphi-code!!
Thisform.vorname.Value = qTmp.vorname
Thisform.nachname.Value = qTmp.nachname
usw. usf.