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.