Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Query kopieren um Abfrage zu starten (https://www.delphipraxis.net/124586-query-kopieren-um-abfrage-zu-starten.html)

HolgerCW 21. Nov 2008 13:16


Query kopieren um Abfrage zu starten
 
Hallo zusammen,

ich möchte eine TQuery mit einer While-Scheilfe durchlaufen. Diese TQuery ist aber mit einem DBGrid gekoppelt.

Kann ich die Query in einer Funktion kopieren in eine neue mit Query.Create erstellte und dann darauf die While - Schleife anwenden ? Wie erstelle ich die neue Query mit Grundlage von der alten ?

Gruss

Holger

DeddyH 21. Nov 2008 13:19

Re: Query kopieren um Abfrage zu starten
 
Kannst Du mal genauer erklären, was Du vorhast?

nahpets 21. Nov 2008 13:29

Re: Query kopieren um Abfrage zu starten
 
Hallo,

durchlauf doch die vorhandene Query, das DBGrid stört sich nicht daran, genausowenig, wie es die Query stört, dass sie mit 'nem Grid verbunden ist. Und wenn es dich stört, dass Du den Fortschritt im Grid sehen kannst, dann benutze doch vor der Whileschleife DisableControls und nachher EnableControls.

HolgerCW 21. Nov 2008 13:34

Re: Query kopieren um Abfrage zu starten
 
Das mit DisbledControls und Enabled mache ich ja schon. Nur möchte ich nicht das der Anweder davon was mitbekommt, da es jede Minute passiert. Deshlab dachte ich mir das ich vorher die Query kopiere und dort die Schleife durchlaufen lassen ?

Es wird immer minütlich überprüft ob sich in der Ergebnismenge was geändert hat. Da ich vorher einen Refresh um die Richtige Ergebnissmenge zu bekommen stört das den Anwender dann auch.

Gruss

Holger

nahpets 21. Nov 2008 13:39

Re: Query kopieren um Abfrage zu starten
 
Hallo,

zweite Query nehmen:

Delphi-Quellcode:
Query2.Close;
Query2.SQL.Text := Query1.SQL.Text;
Query2.Open;
Wenn Du Ergebnisse überprüfen willst, kommst Du ja nicht drumrum, die Query neu auszuführen, damit dürfte das so reichen.

HolgerCW 21. Nov 2008 14:20

Re: Query kopieren um Abfrage zu starten
 
Alles klar,

Was muss beim Query.Create eigentlich in die Klammer dahinter ?
Kann ich da vielleicht die aktuelle Query einfügen ?

Delphi-Quellcode:
Pruef_Query := TQuery.Create(???);

Relicted 21. Nov 2008 14:32

Re: Query kopieren um Abfrage zu starten
 
Zitat:

Delphi-Quellcode:
constructor Create(AOwner: TComponent); override;
Mit Create können Sie eine Abfrage zur Laufzeit instantiieren, die in einer Anwendung deklariert wurde. Abfragekomponenten, die während des Entwurfs in Formularen oder Datenmodulen platziert wurden, werden automatisch erzeugt.

AOwner ist die Komponente, die für die Freigabe der Abfrage verantwortlich ist. Diese Komponente wird der Eigenschaft Owner zugewiesen.
Also z.B. dein Formular...

Gruß
Reli

HolgerCW 21. Nov 2008 15:06

Re: Query kopieren um Abfrage zu starten
 
Vielen dank und ein schönes WE


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:30 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz