Hallo.
Als Alternative zu ADOX kann man auch den Provider befragen:
Delphi-Quellcode:
function GetTableType(conn: TADOConnection; sTable: String): String;
var
ds: TADODataSet;
begin
ds := TADODataSet.Create(nil);
ds.Connection := conn;
conn.OpenSchema(siTables, EmptyParam, EmptyParam, ds);
ds.Open;
if ds.Locate('TABLE_NAME', sTable, [])
then Result := ds.FieldValues['TABLE_TYPE']
else Result := '';
ds.Close;
ds.Free;
end;
Freundliche Grüße vom marabu