Autor Beitrag
opfer.der.genauigkeit
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 754
Erhaltene Danke: 1



BeitragVerfasst: Do 09.01.03 11:11 
Ich möchte in einer Unit eine Query kurzfristig immer dann erzeugen, wenn ich in eine Datenbank schreibe od. wenn ich aus ihr lese.
Kann mir jemand dazu vielleicht sagen, wie ich das in etwa angehen muß?
Od. klarer ausgedrückt... ich weiß nicht, wie ich die OEQuery temporär erzeuge.

Ich habe einen Code gefunden der in etwa beschreibt was ich brauche:
ausblenden volle Höhe Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
************************************************************

interface
//***********************************************************

type
  TPerson = class
  private
    OEQueryTemp : TOEQuery;
  public 
    constructor Create(aHDBC: THDBC);
    destructor Destroy; override;
************************************************************

implementation
************************************************************

constructor TPerson.Create(aHDBC: THDBC);
begin
  inherited Create();
  OEQueryTemp := TOEQuery.Create(nil);
  OEQueryTemp.hDbc := aHDBC;
end; 
************************************************************

destructor TPerson.Destroy;
begin
  OEQueryTemp.Destroy;
  inherited;
end;
************************************************************


Aber selbst wenn das ganze sinnvoll laufen würde, es würde mir nicht weiter helfen...
Ich möchte die Query in "einer" Procedure erzeugen, Daten schreiben bzw. lesen und dann die Query wieder freigeben.

_________________
Stellen Sie sich bitte Zirkusmusik vor.
LCS
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 1305
Erhaltene Danke: 1

WIN 7, WIN 8
Delphi XE5, Delphi XE, Delphi 2007
BeitragVerfasst: Do 09.01.03 11:37 
Hi
eigentlich ist das kein Problem. Du kannst eine Query genauso wie jede andere Komponente zu Laufzeit erzeugen und verwenden.
ausblenden Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
procedure BlaBlaBla...
var
  qe : TQuery;
begin
  qe := TQuery.Create(self);
  try
    qe.DatabaseName := DeineDatenbank
    //qe verwenden
  finally
    qe.Free;
  end;
end;


Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...
opfer.der.genauigkeit Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 754
Erhaltene Danke: 1



BeitragVerfasst: Do 09.01.03 11:47 
*g*
Da ist man zwei Wochen im Urlaub und schon vergißt man die grundlegende Art der Programmierung.
Ich wußte doch, daß es nen einfachen Weg geben muß.

Danke dir...
Hat mir sehr viel weitergeholfen. :D

_________________
Stellen Sie sich bitte Zirkusmusik vor.