Access: Liste der vorhandenen Tabellen u deren Eigenschaften

[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;