TADODataSet -> Enthält nur ein Datensatz

[Andi1985]

Hallo,

vermutlich ist foglendes Problem total simple, ich komm nur derzeitig nicht drauf.

Ich habe mir eine Klasse geschrieben die eine Verbindung zur Datenbank aufbaut
und eine Memberfunktion schickt ein Query raus und speichert die Daten in einem TADODataSet inerhalb
der Klasse.
Wenn ich nun dieses DataSet per Memberfunktion an mein Hauptprogramm übergebe, erhalte ich immer
nur einen Datensatz... (.Next springt sofort auf EOF).

vieleicht könnt ihr mir ja helfen, ich vermute das Problem hat was mit Zeigern in Delphi zu tun.

Delphi-Quellcode:

type 
cMyADOConnection = class(TObject)
private
        ...
        var DataSet: TADODataSet;
        ...
public
        ...
        function get_DataSet(): TADODataSet;
        ...
end;

Delphi-Quellcode:

function cMyADOConnection.get_DataSet(): TADODataSet;
begin
        get_DataSet := DataSet;
end;

Hauptprogramm
myDataSet := connection.get_DataSet(); mfg
Moggy

[Andi1985]

Ich konnte das Problem folgendermaßen umgehen, vielen dank, damit kann der Thread geschlossen werden.

DataSet.RecordSet := connection.get_DataSet().RecordSet.Clone(adLockUnspecified);

[shmia]

Na ich weiss nicht, ob deine Lösung so toll ist.

Delphi-Quellcode:

cMyADOConnection = class(TObject) 
private 
        ... 
        var DataSet: TADODataSet;  // ***
        ... 
public 
        ... 
        function get_DataSet(): TADODataSet; 
        ... 
end;

Es sollte klar sein, dass mit obigem Code nur ein einziges Dataset möglich ist.
Die Variable (markiert mit ***) muss weg und get_DataSet() sieht im Prinzip so aus:

Delphi-Quellcode:

function cMyADOConnection.get_DataSet(): TADODataSet;
begin
   result := TADODataSet.Create(nil);
   result.Connection := ...
end;

So wird bei jedem Aufruf ein neues Dataset erzeugt.
Aber Vorsicht, der Aufrufen muss das Objekt freigeben, sonst Speicherleck.
Besser wäre:

Delphi-Quellcode:

cMyADOConnection = class(TObject) 
private 
        ... 
public 
        ... 
        // der Aufrufer muss das Dataset bereitstellen und auch freigeben
        procedure Setup_DataSet(ds:TADODataSet); 
end;