Tabellen öffnen

[PM Heiko]

Hallo,

ich habe ein Datenmodul und möchte nach dem erstellen des Moduls alle Tabellen öffnen.

Ich verzweifele aber grade daran ..

procedure TGdm.DataModuleCreate(Sender: TObject);
var I, x: Integer;
 S : TadsTable;
begin
  x := 0;
  for I := 0 to ComponentCount - 1 do
    if Components[i] is TADSTABLE then
    begin
      x := x + 1;
      S := Components[i].Name as Tadstable;  // das knallt schon 
// hier will ich die TAbelle öffnen

    end;

...

end;

Ich habe das Problem, das ich nicht weiß, wie ich beim durchlaufen und finden der Tabellenobjekte diese öffnen kann...