Access: Liste der vorhandenen Tabellen u deren Eigenschaften

[ustra]

Hallo,

ich arbeite gerade an einem Programm, dass ein Systemtest durchführt, der bestimmte Dinge eines Rechners abfragt; Bsp.: Windows Version, etc.

Unter anderem benutze ich eine Access Datenbank. Ich möchte unter anderem auch überprüfen, ob in der Datenbank alle gebrauchten Tabellen mit Ihren richtigen Eigenschaften vorhanden sind. Nun ist meine Frage, wie komme ich an die Infos?

Ich habe schon gesucht und weiss, dass der SQL Befehl Show Table(s) unter Access nicht funktioniert. Dann habe ich hier durch Suche in DP noch rausgefunden, dass man in den Systemtabellen an die Infos rankommen kann. Habe die eingeblendet und mir entsprechend dem eine abfrage zurecht geschrieben, bekomme allerdings die Meldung, dass ich keine Leseberechtigung habe. Weiter bin ich nun nicht gekommen. Ich hoffe, Ihr könnt mir helfen.

Beste Grüße
Ulrich

[Robert_G]

Es gibt auch bei Access Systemtabellen, in denen diese Infos stehen.
Wie die heißen weiß ich jetzt nicht, aber öffne doch einfach mal eine Access-DB und unter Tools\Options\View steht irgendwo Systemobjects.
Wenn du das anschaltest siehst du die Namen der Tabellen und kannst dir die Struktur anschauen.

[ustra]

Hi,

so weit war ich auch schon, siehe Posting oben.

Beste Grüße
Urich

[Robert_G]

:oops: zu schnell gepostet...

Vielleicht hilft dir das hier.
Ich bin nicht gerade der Access-PRO. Das Ding ist mir viel zu zickig...

[ustra]

Hi,

ich habe das mal ausprobiert und das funktioniert jetzt wunderbar. Danke für den Tipp. :bounce1:

Beste Grüße :hello:
Ulrich

[Jens Schumann]

Hallo,
der folgende Code listet in einer ComboBox die Tabellen in einer Access Datenbank auf.
Ohne system.mdw

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
{
 Lese die Tabellennamen aus der Access-Datenbank
}
var
    _RecordSet : RecordSet;
begin
  _RecordSet:=aConnection.OpenSchema(adSchemaTables,EmptyParam,EmptyParam);
  ComboBox1.Clear;
  ComboBox1.Items.BeginUpdate;
  While Not _RecordSet.EOF do
    begin
    If _RecordSet.Fields.Item['TABLE_TYPE'].Value='TABLE' then
      ComboBox1.Items.Add(_RecordSet.Fields.Item['TABLE_NAME'].Value);
    _RecordSet.MoveNext;
    end;
  ComboBox1.Items.EndUpdate;
  ComboBox1.ItemIndex:=0;
end;

[ustra]

Hi,

was ist aconection für ein Typ? Ich habe D5 und die ADO Komponenten habe ich nicht.

Beste Grüße
Ulrich

[Jens Schumann]

Hallo,

Zitat:

Zitat von ustra

Hi,

was ist aconection für ein Typ? Ich habe D5 und die ADO Komponenten habe ich nicht.

Beste Grüße
Ulrich

Ich habe zu der Zeit D5 Pro ohne ADO Komponenten verwendet. Daher habe ich die nativen ADO-Objekte verwendet. D.h. ich habe mir die ADO Typebibliothek importiert (ohne Komponenetenwrapper).
aConnection ist vom Type Conenction.

[ustra]

Hi,

okay. Dann bin ich fürs nächste mal schlauer. Da ich eh mit ODBC Aliasen arbeitet und das angeben kann, ist es auch kein Problem.

Beste Grüße
Ulrich