Query Variable ??

[marabu]

Die Komponente TZQuery lebt in der Unit ZDataSet.

Grüße vom marabu

[Sharky]

Zitat von Gigant02:

qKonten : TZQuery; ... sagmal was für ein typ is den das ???

Hai Gigant02,

die Klasse TZQuery ist bei den ZeosLib in der Unit ZDataSet deklariert. Diese musst Du also in deine Uses mit aufnehmen.

[Edit] Der marabu war schon wieder schneller. Ich muss mal etwas einbauen das er nicht mehr posten kann währen ich etwas schreibe *g*

[Gigant02]

lach ja tue das

danke euch beiden ich schaue mir das mal an

//************************************************** *****************
Edit

juhu es klappt

//************************************************** *****************
lach doch nicht ganz

sorry aber ich bin zu dumm für die welt

also ich habe mir das so gedacht das ich eine Query habe die ich nach belieben öffnen kann gut das ist das nicht das problem

aber nun kommt das problem

Delphi-Quellcode:

procedure TfrmEinstellung.Button1Click(Sender: TObject);
var qKonten : tzQuery;
begin

  DataModule.FrmDataModule.ExecQuery.SQL.Clear;
  DataModule.FrmDataModule.ExecQuery.SQL.Add('SELECT * FROM konten');
  qKonten := DataModule.FrmDataModule.ExecQuery.Open;

end;

also was habe ich eigentlich vor. ich will eine query mir zusammen basten die ich von überall öffnen und schliesen kann nun das ist wohl nicht so mein problem sondern erstmal eine quer öffnen und diese dann einfach übergeben das ist mein problem

kann mir da mal einer zeigen wie ich das übergebe ??

lg, Gigant

[mkinzler]

Wenn Du den Query in einem Datenmodul hast brauchst du ihn nicht dynamisch in einer Procedure erzeugen dann reicht

Delphi-Quellcode:

procedure TfrmEinstellung.Button1Click(Sender: TObject);
begin
  DataModule.FrmDataModule.ExecQuery.SQL.Clear;
  DataModule.FrmDataModule.ExecQuery.SQL.Add('SELECT * FROM konten');
  DataModule.FrmDataModule.ExecQuery.Open;

end;

Bei einem dynamsich erzeugten Query, befindet sich im DataModul nur eine TZConnection-Komponente mit dem Namen Conn, dann würde die Funktion so aussehen:

Delphi-Quellcode:

procedure TfrmEinstellung.Button1Click(Sender: TObject);
var qkonen: TZQuery;
begin
  qKonten := TZQuery.Create( TfrmEinstellung);
  qKonten.Connection := DataModule.FrmDataModule.Conn;
  qKonten.SQL.Clear;
  qKonten.SQL.Add('SELECT * FROM konten');
  qKonten.Open;
  ...
  qKonten.Free;
end;

[Gigant02]

hmm sehr gut ich probiere das mal weiter

danke erstmal soweit

lg, gigant

[Gigant02]

Sehr gut ich habe es geschnallt

ich wünsche euch erstmal allen einen ganz ganz schönen sonntag

lg, Gigant

[Gigant02]

so ich mal wieder

wenn ich das ganze jetzt in eine externe pas datei verfrachten will wie mache ich das

Delphi-Quellcode:

{$X+}

unit DB_Tools;

interface

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  ZConnection,
  zDataSet,
  DB,
  ZAbstractRODataset,
  ZAbstractDataset,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  StdCtrls;

//##############################################################################

function DB_OPEN(var qQuery : TzQuery; cSQL : String): Boolean;

//##############################################################################

implementation

uses DataModule;

function DB_OPEN(var qQuery : TzQuery; cSQL : String): Boolean;
begin

  result := False;
  qQuery := TZQuery.Create(DB_tools);
  qQuery.Connection := DataModule.FrmDataModule.TableConnection;
  qQuery.SQL.Clear;
  qQuery.SQL.Add(cSQL);
  qQuery.Open;
  Result := True;

end;

//******************************************************************************

end.

und dann überall diese pasdatei aufrufen will aber wie mache ich das ?? wenn ich keine form habe ???

hmm ein neues rätzel von mir

lg, Gigant

[Gigant02]

danke ich habe schon ich erstelle das ganze einfach auf den datenmodul

lach sorry ihr könnt weiterschlafen

bis danne

[mkinzler]

Zitat:

und dann überall diese pasdatei aufrufen will aber wie mache ich das ?? wenn ich keine form habe ???

hmm ein neues rätzel von mir Smile

1.) Die Unit in uses aufnehmen.
2.) DB_OPEN aufrufen.

Aber warum machst du das ganze so kompliziert?

[Gigant02]

wie denn sonst ??

also kennst mir gerne weitere wege zeigen

ich will mir einfach tools zusammen basteln die ich einfach über die uses ansprechen kann
hmm ja habe schon das problem gelöst

aber dummerweise kann wohl sqlite kein sum !!

weiss du darüber etwas bescheidt ??

lg, Gigant