Mssql 查询数据库中所有有自增ID的表

declare curtablename cursor local forselect name from sys.objects where type='u'open curtablename declare @Table_name varchar(100)beginfetch next from curtablename into @Table_namewhile @@FETCH_STATUS=0beginfetch next from curtablename into @Table_nameif Exists(Select top 1 1 from sysobjects    Where objectproperty(id, 'TableHasIdentity') = 1      and upper(name) = upper(@Table_name)  ) print @Table_nameendendclose curtablenamedeallocate curtablename