Report Primary Keys

/*
Does: List all tables with and without primary keys (pk).
By: Maxwell van Zuylen
Done: 20051028
Note: All table names will be printed. Each table will be 
called using sp_pkeys. If the table has a pk the 
data for that pk will be shown, if not, no data 
will be displayed.
View results in text in Query Analyzer.
*/
DECLARE @tblName VARCHAR(255), @proc VARCHAR(265)
DECLARE curTbl CURSOR FOR
SELECT name FROM sysobjects WHERE xtype = 'u'

OPEN curTbl

SET NOCOUNT ON
SELECT @proc = 'sp_pkeys '

FETCH NEXT FROM curTbl INTO @tblName
WHILE @@FETCH_STATUS = 0
BEGIN
SET @tblName = @tblName
PRINT @tblName
EXEC @proc @tblName
FETCH NEXT FROM curTbl INTO @tblName
END
CLOSE curTbl
DEALLOCATE curTbl

SET NOCOUNT OFF