MySQL -> INSERT INTO und ParamByName.

[shifter]

Hallo zuamen,

versuche in eine Tabelle ein paar daten zu schreiben mit folgende routine :

Delphi-Quellcode:

  With Form1.Query Do Begin
    Active  :=  False;
    SQL.Clear;
    SQL.Add('INSERT INTO `'+_DB_+'`.C'+IntToHex( DS.CK[Nr].Id, 2)+
            '` VALUES ( :_id, '+
            ':_inter, :_sume, :_grup, :_von, :_bis) ');
    ParamByName('_inter').AsInteger   := 0;// DS.CK[Nr].DET[Nr1].Inter;
    ParamByName('_sume').AsCurrency   :=  DS.CK[Nr].DET[Nr1].Sum;
    ParamByName('_grup').AsInteger    :=  DS.CK[Nr].DET[Nr1].Gruppe;
    ParamByName('_von').AsDate        :=  DS.CK[Nr].DET[Nr1].An;
    ParamByName('_bis').AsDate        :=  DS.CK[Nr].DET[Nr1].En;
    ExecSQL;
  End;

Als dankeschön bekomme ich Fehler Meldung :
Parameter '_inter' not found.

Obwohl in andere stelle des Programms nutze ich die gleiche routine :

Delphi-Quellcode:

  With Form1.Query Do Begin
    Active  :=  False;
    SQL.Clear;
    SQL.Add('INSERT INTO `'+_DB_+'`.`stellen` VALUES (:id, :_id_, :_arbg, :_an, :_en )');
    ParamByName('_id_').AsString  :=  DS.AG[ id ].Id;
    ParamByName('_arbg').AsString :=  DS.AG[ id ].Bez;
    ParamByName('_an').AsDate     :=  DS.AG[ id ].Be;
    ParamByName('_en').AsDate     :=  DS.AG[ id ].En;
    ExecSQL;
  End;

Hier Funktioniert das ohne Problemme.

Habt Ihr eine Idee ?

MfG
Seba