Einzelnen Beitrag anzeigen

nachtstreuner

Registriert seit: 21. Aug 2005
Ort: ESA
104 Beiträge
 
Delphi XE2 Professional
 
#3

AW: EXECSQL verursacht eine Exception bei Zugriff erneutem Zugriff auf Tabelle

  Alt 5. Mai 2011, 12:45
mKinzler, besten Dank für den Tip.

hätte auch selbst drauf kommen können.

Habe zwar auch eine Lösung gefunden, aber Deine ist natürlich eleganter.

Hier meine Änderung:

Delphi-Quellcode:
 with dataM do begin
      SQLTEXT := 'INSERT into tbl_mailtext SET TEXT = :sMAILTEXT, SUCHTEXT = :sSUBJEKT';
      zQUeryMailText.SQL.Clear;
      zQUeryMailText.SQL.Text := SQLTEXT;
      zQUeryMailText.ParamByName('sMAILTEXT').AsString := suiMemoMailtext.Text;
      zQUeryMailText.ParamByName('sSUBJEKT').AsString := suiEditBETREFF.Text;

      zQUeryLookupMail.ExecSQL;

      // hier den SQL Select nochmal neu absetzen
      ZQueryMailText.SQL.Clear;
      zQueryMailtext.SQL.Text := 'SELECT * from tbl_mailtext';
      zQueryMailtext.Active := true;
Werde aber deinen Vorschlag nehmen, da er mit Sicherheit weniger Probleme nach sich zieht.

Danke nochmal
Alles wird gut -
  Mit Zitat antworten Zitat