Ich glaube bei dieser Variante ist es möglich den Code nach 5 sek. Überfliegen komplett zu verstehen.
Delphi-Quellcode:
With Form1
Do
With ADOQuery4
Do
Begin
SQL.Text :=
'
Insert INTO ' + form1.Label2.Caption + #10 +
'
(TRA_CODLAN, TRA_CODLAB, TRA_TXTTRA)' + #10 +
'
VALUES' + #10 +
'
(:i_CODLAN, :i_CODLAB, :i_TXTTRA)';
// Parse Statement um Variablen zu erkennen
Prepared := True;
// Parameterzuweisung
With Parameters
Do
Begin
ParamByName('
i_CODLAN').Value := ADOQuery3.FieldValues['
TRA_CODLAN'];
ParamByName('
i_CODLAB').Value := ADOQuery3.FieldValues['
TRA_CODLAB'];
ParamByName('
i_TXTTRA').Value := ADOQuery3.FieldValues['
TRA_TXTTRA'];
End;
// Ausführen
ExecSQL;
End;
Zitat von
ledoerr:
form1.ADOQuery4.SQL.Add('INSERT INTO '+form1.Label2.Caption+' (TRA_CODLAN,TRA_CODLAB,TRA_TXTTRA) VALUES('+#39+form1.ADOQuery3.fieldvalues['TRA_CODLAN']+#39+','+#39+form1.ADOQuery3.fieldvalues['TRA_CODLAB']+#39+','+#39+form1.ADOQuery3.fieldvalues['TRA_TXTTRA']+#39+')');
Bei solchem Kuddelmuddel weiß man in dieser Zeit, dass es sich um ein INSERT handelt, sonst nix!
Edit: Tippfehler
Edit2: ich hatte den Tabellennamen nicht eingebaut
