SQL Query Variable in INSERT INTO VALUES Anweisung

[DeddyH]

Mal aus dem Kopf, ich hoffe, das stimmt so:

Delphi-Quellcode:

procedure TForm1.EdPreisKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin

  if (Key=VK_Return) then begin
    n:=StrToCurr(EdPreis.Text);
    Query1.SQL.Clear;
    Query1.SQL.Add('INSERT INTO hb_beschreib.db(monat,NkontoID,Datum,Beschreibung,Preis)');
    Query1.SQL.Add('VALUES(:E2,:E1,:MEDatum,:EdText,:EdPreis)');

    Query1.ParamByName('E2').Value := StrToInt(E2.Text);
    Query1.ParamByName('E1').Value := StrToInt(E1.Text);
    Query1.ParamByName('MEDatum').Value := StrToDate(MEDatum.Text);
    Query1.ParamByName('EdText').Value := EdText.Text;
    Query1.ParamByName('EdPreis').Value := n;


    Query1.ExecSQL;
    Schreiben; //Ist eine Procedur zum Ausfüllen des DBGrid und geht problemlos
  end;
end;