DataSource und Zeos

[ChEeTaH]

Hallo,

ich setze einen Query ab und liefere diesen über eine Funktion als TDataSource zurück, doch leider knallts bzw. zeigt mir .RowsAffected 0 an. Die DB ist nicht leer und der Query müsste etwas zurückgeben. :/

Mein Code:

uDB.pas:

Delphi-Quellcode:

constructor TDB.Create(Database: String ='db.db'; Protocol: String = 'sqlite-3');
begin
  zc := TZConnection.Create(nil);
  zc.Protocol := Protocol;
  zc.Database := Database;
  zc.Connect;

  zq := TZQuery.Create(nil);
  zq.Connection := zc;
end;

function TDB.GetHosts(): TDataSource;
var
  Data: TDataSource;
begin
  Data := TDataSource.Create(nil);
  zq.SQL.Text := 'SELECT * FROM host;';
  zq.DataSource := Data;
  zq.Open;
  Showmessage(IntToStr(zq.RowsAffected));
  Result := Data;
end;

andereUnit:

Delphi-Quellcode:

procedure TfMain.Button1Click(Sender: TObject);
var
  DB: TDB;
  Data: TDataSource;
begin
  DB := TDB.Create();
  Data := TDataSource.Create(nil);
  Data := DB.GetHosts();
  Showmessage(IntToStr(Data.DataSet.FieldCount)); // Hier knallts mit ner Accessviolation
end;

Wahrscheinlich habe ich nur etwas nicht richtig initialisiert, aber ich probiere mittlerweile ewig rum und komme zu keinem Ergebnis. Falls jemand ausserdem eine einfachere Möglichkeit kennt das Ergebnis eines Querys auszuwerten kann er es ruhig posten
Ich bin für jede Hilfe dankbar


Edit: Hab den Fehler gefunden:

Es muss statt

Delphi-Quellcode:

function TDB.GetHosts(): TDataSource;
var
  Data: TDataSource;
begin
  Data := TDataSource.Create(nil);
  zq.SQL.Text := 'SELECT * FROM host;';
  zq.DataSource := Data; // DAS HIER
  zq.Open;
  Showmessage(IntToStr(zq.RowsAffected));
  Result := Data;
end;

So heißen:

Delphi-Quellcode:

function TDB.GetHosts(): TDataSource;
var
  Data: TDataSource;
begin
  Data := TDataSource.Create(nil);
  zq.SQL.Text := 'SELECT * FROM host;';
  Data.DataSet := zq; // ZU DEM HIER
  zq.Open;
  Showmessage(IntToStr(zq.RowsAffected));
  Result := Data;
end;

Weiterhin habe ich aus der Funktion eine Prozedur gemacht, die die eine DataSource Variable per Referenz geliefert bekommt.