SQL abfrage und das Hochkomma problem

[Robert_G]

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