Datenmodul alle Queries in einem schliessen

**josef-b**

Ich habe ein Datamodul mit vielen TIBQuery.

Nun möchte ich beim oncreate des Datamoduls alle Transactionen schliessen.

Dazu habe mir folgenden Code vorgestellt

markieren

Delphi-Quellcode:

			for i := 0 to Datenmodul.ComponentCount - 1 do

  begin

  if Datenmodul.Components[i] is TIBQuery then

    begin

    AQuery := Datenmodul.Components[i] as TIBQuery;

    if Aquery.Transaction.InTransaction then AQuery.Transaction.Commit;

    end;

  end;

end;

es wird fehlerfrei compiliert, aber gleich in der ersten Zeile mit dem ComponentCount bekomme ich
eine AV Zugriffsverletzung.

Funktioniert das evtl gar nicht im Datamodul?

Datenmodul alle Queries in einem schliessen

Datenmodul alle Queries in einem schliessen

Forumregeln