EXECSQL verursacht eine Exception bei Zugriff erneutem Zugriff auf Tabelle

[nachtstreuner]

Hallo DB Experten,

folgenden CODE für ich aus, der Datensatz wird auch korrekt in die Tabelle geschrieben:

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;

      zQUeryMailText.ExecSQL;

    end;

Wenn ich aber danach auf eine DBLookup Komponete zugreifen möchte erhalte ich sofort die Fehlermeldung:

Can not open Resultset !!!

Stirnrunzel

Es gibt bestimmt gutgemeinte Ratschläge hierzu. Schon mal meinen besten dank

[mkinzler]

Für den Lookup verwendest du aber ein anderes DataSet; oder?

[nachtstreuner]

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

[mkinzler]

Es sollte ein Refresh reichen

[DeddyH]

Mal etwas anderes: wozu das Clear, wenn Du anschließend den kompletten Text setzt?

[mkinzler]

Und warum setzt du die Abfrage immer neu? Es reicht die Parameter neu zu setzen.

[DeddyH]

Das auch.