Einzelnen Beitrag anzeigen

mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.851 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: Memo in MS SQL Speichern und Auslesen

  Alt 5. Sep 2013, 09:13
Wie schon oft geschrieben:
1. .Clear und dann anschliessend .Add ist Quark! nimm besser .Text
2. Verwende (SQL-)Parameter.

Insert:
Delphi-Quellcode:
    MSSQL_Query1.SQL.Text := 'Insert Into "' + ModuleUniDBSchema + '.Table1" ';
    MSSQL_Query1.SQL.Add(' (Message) ');
    MSSQL_Query1.SQL.Add(' Values( :text )');
    MSSQL_Query1.ParamByName( 'text').Value := mem_mailtext.Lines.Text;
    MSSQL_Query1.ExecSQL;

Select:
Delphi-Quellcode:
    MSSQL_Query1.SQL.Text := 'Select Message From "' + ModuleUniDBSchema + '.Table1" ';
    MSSQL_Query1.Open;
Bei Select musst du Open verwenden, da sonst die Abfrage zwar ausgeführt wird, aber das Ergebnis nicht gefetcht wird.
Markus Kinzler
  Mit Zitat antworten Zitat