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