求SQL语句给没有主键的表插入主键

Question

请教各位、用SQL语句自动判断SQL数据库里那些帮没有主键、并且自动给没有主键的全部表增加列名(列如ABD)并设为主键、谢谢各位。http://www.bchy.org

Answer 1

请教各位、用SQL语句自动判断SQL数据库里那些帮没有主键、并且自动给没有主键的全部表增加列名(列如ABD)并设为主键、谢谢各位。 

Answer 2

  Create   table   #tempTable(   
              table_qualifier   varchar(20),   
              table_owner   varchar(20),   
              table_name     varchar(20),   
              Column_name   varchar(20),   
              Key_Seq           Integer,   
              PK_Name           varchar(20)   
  )   
    
  Insert   Into   #TempTable   
   Execute   sp_Pkeys   tGoods  
select * from #TempTable
drop table #TempTable

Answer 3

DECLARE @tname NVARCHAR(100), @cmdText NVARCHAR(2000)
--  构造游标查找所有未建主键的表名  --
DECLARE C_1 CURSOR FOR 
SELECT name FROM sysobjects A WHERE type='U'
AND NOT EXISTS(SELECT 1 FROM sysobjects B WHERE xtype='PK' AND B.parent_obj=OBJECT_ID(A.name))OPEN c_1
FETCH NEXT FROM c_1 INTO @tname
WHILE @@fetch_status=0
BEGIN
  IF @tname='game'
  BEGIN -- 针对要修改的表，构造添加主键SQL，并执行修改（此处使用自增类型作主键）
    SET @cmdText = 'ALTER TABLE '+@tname+' ADD ABD INT IDENTITY(1,1) PRIMARY KEY'
    EXEC sp_executesql @cmdText
  END
  FETCH NEXT FROM c_1 INTO @tname
END
CLOSE c_1
DEALLOCATE c_1

Answer 4

以上代码在SQL Server 2000中通过

Answer 5

感谢各位、试过了可以通过.非常感谢!
DECLARE @tname NVARCHAR(100), @cmdText NVARCHAR(2000)
--  构造游标查找所有未建主键的表名  --
DECLARE C_1 CURSOR FOR 
SELECT name FROM sysobjects A WHERE type='U'
AND NOT EXISTS(SELECT 1 FROM sysobjects B WHERE xtype='PK' AND B.parent_obj=OBJECT_ID(A.name))OPEN c_1
FETCH NEXT FROM c_1 INTO @tname
WHILE @@fetch_status=0
BEGIN
  IF @tname='game'
  BEGIN -- 针对要修改的表，构造添加主键SQL，并执行修改（此处使用自增类型作主键.）
    SET @cmdText = 'ALTER TABLE '+@tname+' ADD ABD INT IDENTITY(1,1) PRIMARY KEY'
    EXEC sp_executesql @cmdText
  END
  FETCH NEXT FROM c_1 INTO @tname
END
CLOSE c_1
DEALLOCATE c_1