Access Violations durch TADODataSet?

[Peter1981]

Hallo,

ich verwende unter Delphi 2010 das TADODataSet, um eine Access-Datenbank abzufragen. Mein Programmablauf sieht dabei so aus:
- Datenbankverbindung öffnen
- TADODataSet erstellen, Connection einstellen, CommandType auf cmdText stellen, CommandText mit SQL-SELECT füllen
- TADODataSet öffnen
- TADODataSet zerstören

Anschliessend übertrage ich das Ergebnis in Objekte, die in einer TObjectList zusammengefasst sind.

Nun das Problem:
Ich rufe diese Prozedur zum ersten Mal auf, frage Tabelle A ab und fülle damit Liste 1
Nun rufe ich die Prozedur erneut auf, frage Tabelle B ab, fülle damit Liste 2.
Sobald im zweiten Schritt die Abfrage auf Tabelle B gemacht wurde, erzeugen alle Zugriffe auf Liste 1 Access Violations, und ich finde einfach keine Ursache. Hat jemand von euch eine Idee, was das sein könnte?

[Bernhard Geyer]

Zitat von Peter1981:

...
- TADODataSet zerstören
Anschliessend übertrage ich das Ergebnis ...

Wie denn das wenn du das Ergebnis schon weggeschmissen hast

Zitat von Peter1981:

..., und ich finde einfach keine Ursache. Hat jemand von euch eine Idee, was das sein könnte?

Zeig doch mal etwas Quellcode. Bei diesem Wetter sind die Glaskugen nicht zu erfolgreich ...

[Peter1981]

Sorry, hab mich falsch ausgedrückt, ich zerstöre das ADODataset natürlich erst nach dem Zuordnen in die Objekte.

Delphi-Quellcode:

MyResult := TADODataSet.Create(nil);
MyResult.Connection := Self.FConnection;
MyResult.CommandText := 'SELECT * FROM ' + TableName +
                        ' WHERE NOT ' + FieldIsDeleted + '=true;';
MyResult.CommandType := cmdText;
MyResult.Open;

MyResult.First;
while not MyResult.Eof do
begin
  Self.AddToList(MyList, MyResult);
  MyResult.Next;
end;

FreeAndNil(MyResult);
Self.CloseDatabase;
Result := true;

[Bernhard Geyer]

Zitat von Peter1981:

Delphi-Quellcode:

  ...

  Self.AddToList(MyList, MyResult);
  ...
  FreeAndNil(MyResult);

Du speicherst dir eine Referenz die du dann wegschmeißt. Wie soll das klappen

[Peter1981]

Die beiden Parameter übergebe ich const an eine Unterfunktion

procedure AddToList(const MyList: TMyListType;const MyResult: TADODataset); Hierdrin versteckt sich dann einfach nur der übliche Ablauf, Objekt erstellen, Werte aus MyResult in das Objekt übertragen, Objekt in Liste einfügen.

Aber wie gesagt, die Probleme mit den Access Violations fangen bereits nach MyResult.Open im zweiten Funktionsaufruf an. Und sie betreffen die Liste, die im ersten Funktionsaufruf benutzt wurde

[Bernhard Geyer]

Du mussst mehr Quellcode liefern. So wird das nix.

[Peter1981]

Zitat von Bernhard Geyer:

Du musst mehr Quellcode liefern. So wird das nix.

Ich wüsste jetzt aber beim besten Willen nicht, welcher Codeteil hierfür wirklich hilfreich wäre. Ich habe direkt vor TADODataSet.Create ein ShowMessage gesetzt, bei dem ich auf das erste Objekt in Liste1 aus Aufruf 1 zugreife ---> funktioniert.

Das exakt gleiche ShowMessage habe ich dann direkt nach MyResult.Open nochmal platziert, hier erzeugt es sofort eine Access Violation.

[DeddyH]

Wie sieht AddToList denn aus? Werden dort neue Objekte erstellt und die Werte kopiert oder hantierst Du da mit den Originalreferenzen? Es scheint das Letztere zu sein.

[Bernhard Geyer]

was macht eigentlich CloseDatabase?

[Peter1981]

Zitat von DeddyH:

Wie sieht AddToList denn aus? Werden dort neue Objekte erstellt und die Werte kopiert oder hantierst Du da mit den Originalreferenzen? Es scheint das Letztere zu sein.

Da drin werden Objekte erstellt, und deren Eigenschaften werden mit
NewObject.ID := MyResult.FieldByName('ID').AsInteger; usw. gefüllt, anschließend werden sie per ObjectList.Add in die entsprechende Liste eingetragen

Und mit OpenDatabase bzw CloseDatabase setze ich eigentlich nur das Connected-Property der ADOConnection auf true oder false.