Incorrect Token Exception

[PhilmacFLy]

Hi Dp'ler

Wahrscheinlich ist das Problem ganz offensichtlich, nichtsdestotrotz finde ich es nicht.

Mein Problem ist folgendes: ich versuch in meine Firebird Datenbank mit Insert Into etwas einzutragen bekomme aber immer die Meldung: Incorrect Token followed by ":". Hier mal mein Code

Delphi-Quellcode:

Params.CreateParam(ftSmallint, 'id', ptUnknown);
    Params.ParamByName('id').AsInteger := nid;
    Params.CreateParam(ftWideString, 'sex', ptUnknown);
    Params.ParamByName('sex').AsString := cb_anrede.Items[cb_anrede.ItemIndex];
    Params.CreateParam(ftWideString, 'nn', ptUnknown);
    Params.ParamByName('nn').AsString := ed_nachname.Text;
    Params.CreateParam(ftWideString, 'vn', ptUnknown);
    Params.ParamByName('vn').AsString := ed_vorname.Text;
    Params.CreateParam(ftWideString, 'str', ptUnknown);
    Params.ParamByName('str').AsString := ed_strasse.Text;
    Params.CreateParam(ftWideString, 'plz', ptUnknown);
    Params.ParamByName('plz').AsString := ed_plz.Text;
    Params.CreateParam(ftWideString, 'ort', ptUnknown);
    Params.ParamByName('ort').AsString := ed_wohnort.Text;
    Params.CreateParam(ftWideString, 'ph', ptUnknown);
    Params.ParamByName('ph').AsString := ed_telefonr.Text;
    Params.CreateParam(ftDate, 'geb', ptUnknown);
    Params.ParamByName('geb').Value := ed_geburtsdatum.Text;
    Params.CreateParam(ftWideString, 'mem', ptUnknown);
    Params.ParamByName('mem').Value := me_bemerkung.Lines.Text;
    SQL.Add('INSERT INTO KUNDEN (ID_KDNR, Geschlecht, Name, Vorname, Strasse, Ort, PLZ, Geburtsdatum, Phone, Memo) VALUES (:id, :sex, :nn, :vn:, :str, :ort, :plz, :geb, :ph, :mem);');

Das war mein erster Versuch nach vielen stöbern im Forum hab ich dann noch folgendes ausprobiert

Delphi-Quellcode:

SQL.Text := 'INSERT INTO KUNDEN (ID_KDNR, Geschlecht, Name, Vorname, Strasse, Ort, PLZ, Geburtsdatum, Phone, Memo) VALUES (:id, :sex, :nn, :vn:, :str, :ort, :plz, :geb, :ph, :mem);';
    Params.ParamByName('id').AsInteger := nid;
    Params.ParamByName('sex').AsString := cb_anrede.Items[cb_anrede.ItemIndex];
    Params.ParamByName('nn').AsString := ed_nachname.Text;
    Params.ParamByName('vn').AsString := ed_vorname.Text;
    Params.ParamByName('str').AsString := ed_strasse.Text;
    Params.ParamByName('plz').AsString := ed_plz.Text;
    Params.ParamByName('ort').AsString := ed_wohnort.Text;
    Params.ParamByName('ph').AsString := ed_telefonr.Text;
    Params.ParamByName('geb').Value := ed_geburtsdatum.Text;
    Params.ParamByName('mem').Value := me_bemerkung.Lines.Text;

leider mit dem selben Ergebnis.