ACCESS wie kann man Abfragen und Tabellen unterscheiden

[p80286]

Danke für den Hiweis,

ich hab jetzt folgendes genommen (aus der RTL kopiert)

Delphi-Quellcode:

{ - gettables:   -------}
  TypeField,
  NameField: TField;
  TableType: WideString;
  DataSet: TADODataSet;
  list : twidestrings;
begin
  ..
  list:=twidestrings.create;
  adoconnection1.Connected:=true;
  DataSet := TADODataSet.Create(nil);
  try
    adoconnection1.OpenSchema(siTables, EmptyParam, EmptyParam, DataSet);
    TypeField := DataSet.FieldByName('TABLE_TYPE'); { do not localize }
    NameField := DataSet.FieldByName('TABLE_NAME'); { do not localize }
    try
      List.Clear;
      while not DataSet.EOF do
      begin
        TableType := TypeField.AsWideString;
        if (TableType = 'TABLE') then     { Hier habe ich VIEW gelöscht! }
          List.Add(NameField.AsWideString);
        DataSet.Next;
      end;
    finally
    end;
  finally
    DataSet.Free;
  end;
  for i:=0 to list.count-1 do
    memo1.Lines.add(list[i]);  { die Ausgabe }

Den Vorschlag mi Readonly hab ich nicht ausprobiert, vielleicht mal wenn ich vieeel Zeit habe.
Vielen Dank nochmal an alle!

K-H