Übergabeparameter in SQL-String Where-Clause einfügen

[Sharky]

Hai Tonik,

ich kenne diese Query-Komponente nicht und weis nicht ob diese mit Parametern arbeiten kann.
Normalerweise würde ich das so machen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  kunden_id : String;
begin
  kunden_id := '0815';
  ADOQuery1.Close;
  ADOQuery1.SQL.Text :=
  'Select Status,Praemie,Zahlung,Courtproz From Vertrag v' +#10
  +' Where v."KEY"= :kunden_id';
  ADOQuery1.ParamCheck := True;  // Parametercheck aktivieren
  ADOQuery1.Parameters.ParamByName('kunden_id').AsString := KundenID; //Parameter setzen.
  ADOQuery1.Open;
end;

Sollte es so nicht gehen verwende doch einfach die Funktion QuotedStr.

Delphi-Quellcode:

begin
  SQLKrit := 'Select Status,Praemie,Zahlung,Courtproz From Vertrag v Where v.KEY=' + QuotedStr (KundenID);