VIEW erkennen

[shmia]

das geht über ADOX.

Delphi-Quellcode:

uses ADOX_TLB; // Typbibliothek, muss zuvor importiert werden

var
   ADOXcatalog : _Catalog;

....
   ADOXcatalog := CoCatalog.Create;  // in FormCreate
....
   ADOXcatalog.Set_ActiveConnection(ADOConnection1.ConnectionObject);
....

function IsView(const TableName:string):Boolean;
var
   i : Integer;
   T : Tables;
begin
   T := ADOXcatalog.Tables;

   for i := 0 to T.Count-1 do
   begin
      if T.Item[i].Name = TableName then
      begin
         Result := Pos('VIEW', T.Item[i].Type_) > 0;
         Exit;
      end;
   end;
   Result := False;
end;