[Frage] Auslesen von Tabellen einer MDB

[NecroWurst]

Hi!

Ich habe mich schon an der SuFu probiert, aber keine Antwort auf mein Problem gefunden:

Wie kann ich die Tabellen aus einer MS Access-MDB auslesen? Nach Möglichkeit will ich dabei unterscheiden zwischen Tabellen, Views und Abfragen.

In einem Thread habe ich folgenden Ansatz gefunden:
SELECT * FROM MSysObjects WHERE MSysObjects.Type=6; bekomme damit bei meiner Datenbank nur eine leere Menge, obwohl eine Tabelle besteht...

Danke für Antworten!!

[marabu]

Hi,

die Namen der Tabellen kannst du einfach über die Methode GetTableNames() der ADOConnection ermitteln. So ziemlich alles was das Herz begehrt erhält man über die ADO Extensions (ADOX):

Delphi-Quellcode:

uses
  ADOX;

procedure GetViews(views: Views; s: TStrings);
var
  i: Integer;
  v: View;
begin
  for i := 0 to Pred(views.Count) do
  begin
    v := views.Item[i];
    s.Values[v.Name] := VarToStr(v.Get_Command.CommandText);
  end;
end;

Grüße vom marabu

[NecroWurst]

Hi Marabu und danke für die schnelle Antwort!

Zwar kennt mein Delphi (D7Enter) die Unit ADOX nicht, sondern nur ADODB, aber die Funktion GetTableNames() hat mir schon mal sehr viel weiter geholfen! Vielen Dank!