Query Variable ??

[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;