Datenbankabfragen mit Threads?

[hronny]

Ich hab hier eine lokale Datenbank die ich leider nur mittels ADO Komponenten abfragen kann. Da diese Abfragen über mehrere Tabellen geht und fast 250000 Einträge hervorbringt, ist es bestimmt sicherer das ganze über Threads zu lösen. Problem ist im Moment das mittels TTimer eine Uhr läuft, diese aber während der Abfrage steht (und man denkt das Programm ist fest). Die Abfrage ist schon gut optimiert und dauert fast 15 Sekunden. Eine Aktion während der Abfrage ist unmöglich.

Aber geschnallt habe ich das mit den Threads noch nicht. Wo wird die Datenbankabfrage ausgeführt und wo läuft die Uhr auf meinem Formular? Es gibt unter den Jedis eine Klasse JvThreadTimer kann ich mit der so etwas anfangen?

[Luckie]

Threading Tutorial: http://delphitutorials.michael-puff.de

[hronny]

Das Tutorial ist schön geschrieben, leider versteh ich immernoch nicht wo was hingehört. Thread erstellen mit VCL ok, verstanden. Aber wo kommt jetzt meine Datenbankgeschichte hin, also öffnen und auslesen? Dachte in den Thread, aber da brauch ich theoretisch keine Schleife. Aber wenn die Datenbank im Thread geöffnet wäre, wie kriege ich dann die Informationen wieder zurück ins Haupt-Formularfeld? Vielleicht kann mir das mal ein wenig verdeutlichen (meine Vermutung steht in Klammern)

• ADOConnection1 (Haupt)
• ADOQuery (Thread)
• Timer für Uhranzeige in der Statusbar (Haupt)

[hronny]

So nach langem suchen hab ich die Lösung gefunden :-) Auf einer Webseite habe ich das gefunden und es funktioniert! Also mein TTimer läuft im Hauptformular. Dieser Timer wird gestartet sobald ich einen Button drücke und die Abfrage startet. In der ADOQuery Komponente ist der Funktion "AfterOpen" hinterlegt das der Timer stopt. Geht super!

Delphi-Quellcode:

type 
  TOpenQuery = Class(TThread) 
  Public 
    constructor Create(Q: TADOQuery;sSQL: String); 
  protected 
    tQry: TADOQuery; 
    tSQL: String; 
    procedure Execute; override; 
  end; 
. 
. 
. 
{ TOpenQuery } 

constructor TOpenQuery.Create(Q: TADOQuery; sSQL: String); 
begin 
  inherited Create(False); 
  FreeOnTerminate:=True; 
  tQry:=Q; 
  tSQL:=sSQL; 
end; 

procedure TOpenQuery.Execute; 
begin 
  inherited; 
  Screen.Cursor:=crAppStart; 
  with tQry do 
  Begin 
    SQL.Text:=tSQL; 
    Open; 
  End; 
  Screen.Cursor:=crDefault; 
end;

[sirius]

Das sieht in meinen Augen nicht gut aus. Ich würde, um eine klare Schnittstelle zu schaffen, die komplette Datenbankarbeit samt aller Komponenten in den Thread legen.

[hronny]

Und wie kann ich es dann machen? Da müsste quasi der Thread in einer Schleife sein und auf ein Signal warten?

[Jelly]

Wenn sich mehrere Queries ein und diesselbe Connection teilen, riskierst du massive Probleme. Um sicher zu gehen, würde ich auf jeden Fall in jedem Thread seine eigene Connection verpassen.

[hronny]

Die "dumme" SyBase Datenbank erlaubt vom Hersteller nur exclusiv Zugriff, also eine Connection gleichzeitig. Somit ist das nicht möglich noch eine Verbindung zu erstellen bzw gibt es dann einen Fehler.

[Luckie]

Zitat:

Zitat von hronny

Also mein TTimer läuft im Hauptformular.

Wozu der Timer?

[Jelly]

Zitat:

Zitat von hronny

Die "dumme" SyBase Datenbank erlaubt vom Hersteller nur exclusiv Zugriff.

Ich kenne Sybase nicht, aber diese Aussage kann nicht zutreffen, höchstens auf einer Express oder sonstigen kostenlosen Version von Sybase. Es ist ja gerade Sinn und Sache einer Datenbank, eben gerade mehrere Connections zuzulassen.