Moin
Habe ein kleines Problem mit einem INSERT....
Delphi-Quellcode:
begin
with Datamodule1 do
begin
//Kundendetails füllen
Zquery.SQL.clear;
Zquery.SQL.Add('SELECT MAX (ID) MAXVAR FROM KUNDEN_D');
Zquery.Open;
Maxvar := (Zquery.fieldbyname ('maxvar').AsInteger) + 1;
Zquery.Close;
Zquery.sql.Clear;
Zquery.sql.add ('INSERT INTO Kunden_d values ');
Zquery.sql.add ('(:ID, :Lieferzonen_ID, :Bankverb_ID, :Orte_ID, :Strasse, :Geb_Datum, :Kunde_Seit, :Tel, :Email, :Handy)');
//Zquery.ParamCheck := True;
Zquery.Params.ParamByName('ID').AsInteger := MaxVar;
showmessage(inttostr(Zquery.Params.ParamByName('ID').AsInteger));
Zquery.Params.ParamByName ('Lieferzonen_ID').AsInteger := (integer(CB_Lieferz.Items.Objects[cb_Lieferz.ItemIndex]));
Zquery.Params.ParamByName('Bankverb_ID').AsInteger := 1;
Zquery.Params.ParamByName ('Orte_ID').AsInteger := (integer(cb_Ort.Items.Objects[cb_Ort.ItemIndex]));
Zquery.Params.ParamByName('Strasse').AsString := ME_STR.Text;
Zquery.Params.ParamByName('Geb_Datum').Asstring := me_geb.text ;
Zquery.Params.ParamByName('Kunde_Seit').Asstring := me_DAt.text;
Zquery.Params.ParamByName('Tel').Asstring := me_tel.text;
Zquery.Params.ParamByName ('Email').AsString := me_mail.text;
Zquery.Params.ParamByName('Handy').AsString := me_handy.text;
showmessage (Zquery.SQL.Text);
Zquery.ExecSQL;
.
.
.
end;
Der über schowmessage angezeigte Text für den Parameter :ID enthält den richtigen Wert...
bei Ausgabe des gesamten Textes bekomme ich dann :
Zitat:
INSERT INTO Kunden_d values (:ID, :Lieferzonen_ID, :Bankverb_ID, :Orte_ID, :Strasse, :Geb_Datum, :Kunde_Seit, :Tel, :Email, :Handy)
es stehen also,
IMHO, keine Werte in den Parametern.
In der Exeption steht es genauso, ausser dass die Parameter mit je einem "?" gefüllt sind.
Wäre nett wenn mir jemand sagen könnte was ich hier falsch mache...
PS: Ach ja, schön dabei zu sein
