Text aus Memo in Datenbankfeld eintragen

[Sir Rufo]

Versuch es doch mal so, das ist nicht nur sicherer (SQL-Injection) sondern auch schneller.

Delphi-Quellcode:

with TADOQuery.Create( Self ) do 
  try 
    Connection := ADOConnection1; 
    // SQL.Clear; 
    // Active := False; 
    SQL.Text := 'UPDATE tblEmail SET Body = :Body WHERE EmailID = :EmailID'; 
    Prepare;  // Vorbereiten, dann ist die Verarbeitung u.U. schneller

    // Werte an die Parameter übergeben
    ParamByName( 'EmailID' ).Value := 1; // Hier natürlich die entsprechende ID benutzen
    ParamByName( 'Body' ).Value := emaildat.body.Text;

    // Ausführen
    ExecSQL;

  finally
    Free;  // wir sind ordentlich und räumen auf
  end; // of with TADOQuery.Create(Self) do 

end; // of function TFrmMainGUI.GetEmailData(var emaildat: REmailInfos): Boolean;