TADOConnection auf anderem Datenmodul wie TADOQuery

[Sir Rufo]

Nur so als Beispiel

Delphi-Quellcode:

TADODataModule = class( TDataModule )
public
  procedure SetConnection( AConnection : TADOConnection );
end;

procedure TADODataModule.SetConnection( AConnection : TADOConnection );
var
  LIdx : Integer;
begin
  for Lidx := 0 to ComponentCount - 1 do
    if Components[LIdx] is TCustomADODataSet then
      ( Components[Lidx] as TCustomADODataSet ).Connection := AConnection;
end;