Tableobjekte als Array

[Uwe Merckens]

Hallo Gemeinde,
<BR><BR>
gibt es eine Möglichkeit Objekte, wie z.B. Tabellen in einem Array zu referenzieren, um diese dann geschlossen zu öffen oder zu schließen? Wenn nicht, gibt für dieses Problem einen anderen, brauchbareren Weg als "with...do"?
<BR><BR>
Gruß<BR>Uwe

[Andreas Horlaender]

Häää ..... wie meinst du das? Welche Tabellenobjekte Tabellen und Arrays sind sich ja nicht unähnlich, beschreib das doch mal verständlicher.<br> Gruß Andrea

[Uwe Merckens]

Hallo Andreas,

bin inzwischen selbst auf den Trichter gekommen. Mein Problem ist (war), dass mein Progi viele Tables verwendet und ich nicht jede einzelne Tabelle per Code öffnen oder schließen wollte. Habe jetzt folgendes gemacht:
<pre>
var
fmOpen: TfmOpen;
TabArray : Array [1..11] of TaoADOTable;
A : TaoADOTable;

procedure TfmOpen.TabellenIndex;
begin
TabArray[1] := DM1.tbAuftrag;
TabArray[2] := DM1.tbDetail;
TabArray[3] := DM1.tbKunde;
TabArray[4] := DM1.tbKundeByName;
TabArray[5] := DM1.tbKundeByOrd;
TabArray[6] := DM1.tbEmpfaenger;
TabArray[7] := DM1.tbPartner;
TabArray[8] := DM1.tbService;
TabArray[9] := DM1.tbAuto;
TabArray[10] := DM1.tbInvoice;
TabArray[11] := DM1.tbPOD;
end;

procedure TfmOpen.DBVerbinden;
var
i : SmallInt;
begin
TabellenIndex;
for i := 1 to 11 do
begin
A := TabArray[i];
A.Open;
end;
end;
</PRE>

Mit der procedure DBVerbinden(o.ä.) kann ich jetzt alle Tabellen "stilllegen" oder aktivieren.

Schönes Wochenende und danke fürs Mitüberlegen.

Gruß
Uw