Query im Thread mit DataSet aus MainThread schlägt fehl

[Captnemo]

Hi,

ich versuche mir Daten von einem MySQL in einem Thread abzurufen.

Delphi-Quellcode:

var
  q: TSDQuery;
  lieferant: TLieferant;
begin
  Try
    q:=TSDQuery.Create(nil);
    try
      FLieferanten.Clear;
      q.DatabaseName:='ERDB';
      q.SQL.Text:='Select * from lieferanten where ((dttype & :dttype)>0) order by Lieferant';
      q.Params.ParseSQL(q.SQL.Text, True);
      q.Params.ParamValues['dttype']:=FLieferanten.DTType;
      q.Active:=true;
      while not q.Eof do
      begin
        Lieferant:=TLieferant.Create(FLieferanten.DTType);
        Lieferant.Lfdnr:=q.FieldByName('Lfdnr').AsInteger;
        Lieferant.Lieferantnr:=q.FieldByName('Lieferantnr').AsString;
        Lieferant.Lieferantname:=Utf8ToAnsi(q.FieldByName('Lieferant').AsString);
        Lieferant.DTType:=q.FieldByName('dttype').AsInteger;
        LoadLieferant(Lieferant.Schlagworte, Lieferant.Lfdnr, FLieferanten.DTType);
        FLieferanten.Add(Lieferant);
        q.Next;
      end;
      q.Active:=False;
    finally
      q.Free;
    end;
  finally
    Synchronize(procedure
      begin
        frm_ERNEu.ThreadFinished;
      end);
    self.Terminate;
  end;

Problem ist jetzt, dass ich entweder "Error 1156: got packtes out of order" oder "Error 2013: Lost connection to MySQL server during query" bekomme. Danach ist dann auch die Connection weg.
Der Fehler tritt auf, wenn ich im Thread-Execute das Query auf Active setze.

Andere Abfragen zu dem Server laufen problemlos, solange ich eben diesen Thread nicht starte.
Die gleiche SQL-Abfrage erfüllt außerhalb des Thread's einwandfrei ihren Dienst.

Woran könnte das liegen?

[Uwe Raabe]

Ich weiß nicht, ob es bei SQLDirect auch so ist, aber bei anderen Datanzugriffskomponenten muss man für jeden Thread eine eigene Connection zur Datenbank aufmachen.

[Captnemo]

Tja, Uwe, damit scheinst du Recht zu haben.

Aber ich könnt meinen A***h verwetten, im letzten Projekt habe ich das genau so gemacht. Muss ich noch mal genau nachschauen.

Danke :thumb:

[Mavarik]

Übersehe ich etwas? Du weißt dem Query NIE eine Connection zu, oder?

[p80286]

Zitat:

Zitat von Captnemo (Beitrag 1320684)

Tja, Uwe, damit scheinst du Recht zu haben.

Aber ich könnt meinen A***h verwetten, im letzten Projekt habe ich das genau so gemacht. Muss ich noch mal genau nachschauen.

Danke :thumb:

Hast Du vllt. eine "fertige" Query von einem DataModule genutzt?

gruß
K-H

[Captnemo]

Zitat:

Zitat von Mavarik (Beitrag 1320687)

Übersehe ich etwas? Du weißt dem Query NIE eine Connection zu, oder?

Doch. Bei SQLDirect kann man dieses über den Databasename machen und kann dann eigentlich Applicationsweit darauf zugreifen.

Zitat:

Zitat von p80286 (Beitrag 1320706)

Hast Du vllt. eine "fertige" Query von einem DataModule genutzt?

gruß
K-H

Nein, ich habe kein Datenmodul drin. Und in dem anderen Projekt (von dem ich meine, dass das dort ging, hatte ich auch kein Datenmodul.


Möglicherweise habe ich auch eine Idee, wo ich mir das Problem eingefangen habe.

Ich erzeuge die Connection in meiner Mainform.
Die Datenerfassungform habe ich zwar über die GUI gestalltet, aber erzeuge sie mir dynamisch und ggf. auch mehrfach. Aufgefallen ist es mir, weil ich Daten an die Form zurückgeben wollte, diese aber nie angekommen sind. Nach langem Suchen ;) ist mir dann aufgefallen, dass ich immer die designte Form angesprochen habe, und nicht die dynamisch erstellte. Wäre echt schlau gewesen, wenn die die auch aus automatisch erzeugten Formularen entfernt hätte. Dann wär mir das früher aufgefallen.
Ob das tatsächlich Auswirkungen auf die Verbindung zu der Connection hat vermag ich so nicht zu sagen, dafür müsste ich mal ein paar Tests machen.
Ich habe mich aber erst mal an Uwe's hinweis gehalten und erstelle im Thread mir einfach eine eigene Connection, dann flupt das.