转:生成sql server2000对象创建脚本的存储过程
2007-12-14 15:47
459 查看
转: http://blog.csdn.net/beiqiao/archive/2004/11/02/164028.aspx
通过读取sysobjects 等系统表的纪录，生成表、视图等数据库对象脚本的存储过程。
已知问题：
存储过程长度有限制，不能超过8000个字节，因为用来存储sql脚本的变量为varchar型，最大就是8000。
------------------------------------------------------------------------------------------------------------------------------------------------
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_create_check]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_create_check]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_create_fk]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_create_fk]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_create_index]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_create_index]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_create_pk_uq]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_create_pk_uq]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_create_proc]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_create_proc]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_create_table]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_create_table]
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
/**//*
生成当前数据库所有CHECK约束的脚本
适用于 Sql Server 2000
beiqiao（qbboxcn@hotmail.com） 2004/02/29
*/
CREATE PROCEDURE sp_create_check AS
select 'ALTER TABLE ' + d.name + ' WITH NOCHECK ADD CONSTRAINT ' + a.name
+ case when b.status in (133141,2069) then ' default ' else ' check ' end
+ c.text
+ case when b.status in (133141,2069) then ' for ' + col_name(b.id,b.colid) else '' end
from sysobjects a , sysconstraints b, syscomments c ,sysobjects d
where b.constid = a.id and b.constid = c.id and b.id = d.id and d.name <> 'dtproperties'
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
/**//*
生成当前数据库所有FK约束的脚本
适用于 Sql Server 2000
beiqiao（qbboxcn@hotmail.com） 2004/02/29
*/
CREATE PROCEDURE sp_create_fk AS
select
' alter table ' + t_obj.name +
' add constraint ' + c_obj.name +
' foreign key (' +
col_name(t_obj.id, fkey1) +
-- 处理复合外键
case when fkey2<>0 then ',' + col_name(t_obj.id, fkey2) else '' end +
case when fkey3<>0 then ',' + col_name(t_obj.id, fkey3) else '' end +
case when fkey4<>0 then ',' + col_name(t_obj.id, fkey4) else '' end +
case when fkey5<>0 then ',' + col_name(t_obj.id, fkey5) else '' end +
case when fkey6<>0 then ',' + col_name(t_obj.id, fkey6) else '' end +
case when fkey7<>0 then ',' + col_name(t_obj.id, fkey7) else '' end +
case when fkey8<>0 then ',' + col_name(t_obj.id, fkey8) else '' end +
case when fkey9<>0 then ',' + col_name(t_obj.id, fkey9) else '' end +
case when fkey10<>0 then ',' + col_name(t_obj.id, fkey10) else '' end +
case when fkey11<>0 then ',' + col_name(t_obj.id, fkey11) else '' end +
case when fkey12<>0 then ',' + col_name(t_obj.id, fkey12) else '' end +
case when fkey13<>0 then ',' + col_name(t_obj.id, fkey13) else '' end +
case when fkey14<>0 then ',' + col_name(t_obj.id, fkey14) else '' end +
case when fkey15<>0 then ',' + col_name(t_obj.id, fkey15) else '' end +
case when fkey16<>0 then ',' + col_name(t_obj.id, fkey16) else '' end +
') ' +
' references ' + r_obj.name + '(' +
index_col(object_name(rkeyid), rkeyindid, 1 ) +
-- 处理复合外键
case when index_col(object_name(rkeyid), rkeyindid, 2 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 2 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 3 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 3 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 4 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 4 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 5 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 5 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 6 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 6 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 7 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 7 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 8 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 8 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 9 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 9 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 10 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 10 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 11 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 11 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 12 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 12 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 13 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 13 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 14 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 14 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 15 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 15 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 16 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 16 ) else '' end +
')'
from
sysobjects c_obj
,sysobjects t_obj
,sysobjects r_obj
,syscolumns col
,sysreferences ref
where
c_obj.xtype in ('F')
and t_obj.id = c_obj.parent_obj
and t_obj.id = col.id
and col.colid in
(ref.fkey1,ref.fkey2,ref.fkey3,ref.fkey4,ref.fkey5,ref.fkey6,
ref.fkey7,ref.fkey8,ref.fkey9,ref.fkey10,ref.fkey11,ref.fkey12,
ref.fkey13,ref.fkey14,ref.fkey15,ref.fkey16)
and c_obj.id = ref.constid
and r_obj.id = ref.rkeyid
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
/**//*
生成当前数据库所有索引的脚本
适用于 Sql Server 2000
beiqiao（qbboxcn@hotmail.com） 2004/02/29
*/
CREATE PROCEDURE sp_create_index AS
declare @tableName nvarchar(128)
declare @indexName nvarchar(128)
declare @status int
declare @OrigFillFactor int
declare @columnName nvarchar(128)
declare @indid smallint
declare @clusteredString nvarchar(16)
declare @uniqueString nvarchar(16)
declare @fillfactorString nvarchar(1024)
declare @sql nvarchar(1024)
select @fillfactorString = ''
select @sql = ''
create table #tmpTable (sql nvarchar(4000))
DECLARE myCursor CURSOR FOR
select b.name as tableName, a.name as indexName, a.status, a.OrigFillFactor, index_col(b.name, indid, 1 ) as columnName ,a.indid
from sysindexes a, sysobjects b
where a.id = b.id and b.xtype = 'U' and indid > 0 and indid < 255
and (a.status & 8388608) = 0 --去掉不需要的记录
and (a.status & 2048) = 0 --去掉primary key
OPEN myCursor
FETCH NEXT FROM myCursor into @tableName,@indexName,@status,@OrigFillFactor,@columnName,@indid
WHILE @@FETCH_STATUS = 0
BEGIN
if (@status & 16)<>0
select @clusteredString = ' clustered '
else
select @clusteredString = ' nonclustered '
if (@status & 2)<>0
select @uniqueString = ' UNIQUE '
else
select @uniqueString = ' '
if @OrigFillFactor <>0
select @fillfactorString = ',FILLFACTOR=' + ltrim(rtrim(str(@OrigFillFactor)))
else
select @fillfactorString =''
if (@status &1)<>0
select @fillfactorString = @fillfactorString + ',IGNORE_DUP_KEY'
if (@status &256)<>0
select @fillfactorString = @fillfactorString + ',PAD_INDEX'
if (@status &16777216)<>0
select @fillfactorString = @fillfactorString + ',STATISTICS_NORECOMPUTE'
if len(@fillfactorString) <> 0
select @fillfactorString = ' with ' + substring( @fillfactorString, 2, len(@fillfactorString)-1 )
if (@status & 4096)<>0
select @sql = 'ALTER TABLE ' + @tableName + ' WITH NOCHECK ADD CONSTRAINT '
+ @indexName + @clusteredString + @uniqueString + '('
+ index_col(@tableName, @indid, 1 )
+ case when index_col(@tableName, @indid, 2 )is not null then ',' + index_col(@tableName, @indid, 2 ) else '' end
+ case when index_col(@tableName, @indid, 3 )is not null then ',' + index_col(@tableName, @indid, 3 ) else '' end
+ case when index_col(@tableName, @indid, 4 )is not null then ',' + index_col(@tableName, @indid, 4 ) else '' end
+ case when index_col(@tableName, @indid, 5 )is not null then ',' + index_col(@tableName, @indid, 5 ) else '' end
+ case when index_col(@tableName, @indid, 6 )is not null then ',' + index_col(@tableName, @indid, 6 ) else '' end
+ case when index_col(@tableName, @indid, 7 )is not null then ',' + index_col(@tableName, @indid, 7 ) else '' end
+ case when index_col(@tableName, @indid, 8 )is not null then ',' + index_col(@tableName, @indid, 8 ) else '' end
+ case when index_col(@tableName, @indid, 9 )is not null then ',' + index_col(@tableName, @indid, 9 ) else '' end
+ case when index_col(@tableName, @indid, 10 )is not null then ',' + index_col(@tableName, @indid, 10 ) else '' end
+ ')'
+ @fillfactorString
else
select @sql = 'create ' + @clusteredString + @uniqueString + ' INDEX ' + @indexName + ' ON ' + @tableName + '('
+ index_col(@tableName, @indid, 1 )
+ case when index_col(@tableName, @indid, 2 )is not null then ',' + index_col(@tableName, @indid, 2 ) else '' end
+ case when index_col(@tableName, @indid, 3 )is not null then ',' + index_col(@tableName, @indid, 3 ) else '' end
+ case when index_col(@tableName, @indid, 4 )is not null then ',' + index_col(@tableName, @indid, 4 ) else '' end
+ case when index_col(@tableName, @indid, 5 )is not null then ',' + index_col(@tableName, @indid, 5 ) else '' end
+ case when index_col(@tableName, @indid, 6 )is not null then ',' + index_col(@tableName, @indid, 6 ) else '' end
+ case when index_col(@tableName, @indid, 7 )is not null then ',' + index_col(@tableName, @indid, 7 ) else '' end
+ case when index_col(@tableName, @indid, 8 )is not null then ',' + index_col(@tableName, @indid, 8 ) else '' end
+ case when index_col(@tableName, @indid, 9 )is not null then ',' + index_col(@tableName, @indid, 9 ) else '' end
+ case when index_col(@tableName, @indid, 10 )is not null then ',' + index_col(@tableName, @indid, 10 ) else '' end
+ ')'
+ @fillfactorString
insert into #tmpTable (sql)values(@sql)
FETCH NEXT FROM myCursor into @tableName,@indexName,@status,@OrigFillFactor,@columnName,@indid
end
CLOSE myCursor
DEALLOCATE myCursor
select * from #tmpTable
drop table #tmpTable
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
/**//*
生成当前数据库所有PK和UQ约束的脚本
适用于 Sql Server 2000
beiqiao（qbboxcn@hotmail.com） 2004/02/29
*/
CREATE PROCEDURE sp_create_pk_uq AS
declare @oldTableName nvarchar(128)
declare @sqlString nvarchar(1024)
declare @columnList nvarchar(1024)
declare @constraintName nvarchar(128)
declare @oldConstraintName nvarchar(128)
declare @tableName nvarchar(1024)
declare @columnName nvarchar(1024)
declare @indexId smallint
declare @objType char(2)
declare @oldIndexId smallint
declare @oldObjType char(2)
declare @clusteredString nvarchar(16)
declare @objTypeString nvarchar(16)
select @oldIndexId = 1
select @oldObjType = 'PK'
select @oldConstraintName = ''
select @oldTableName = ''
select @sqlString = ''
select @columnList =''
select @clusteredString = ' CLUSTERED '
select @objTypeString = ' PRIMARY KEY '
create table #tmpTable (sql nvarchar(4000))
DECLARE myCursor CURSOR FOR
select
i.name as constraintName
,t_obj.name as tableName
,col.name as columnName
,i.indid as indexId
,c_obj.xtype as objType
from
sysobjects c_obj
,sysobjects t_obj
,syscolumns col
,master.dbo.spt_values v
,sysindexes i
where
c_obj.xtype in ('UQ' ,'PK')
and t_obj.id = c_obj.parent_obj
and t_obj.xtype = 'U'
and t_obj.id = col.id
and col.name = index_col(t_obj.name,i.indid,v.number)
and t_obj.id = i.id
and c_obj.name = i.name
and v.number > 0
and v.number <= i.keycnt
and v.type = 'P'
and t_obj.status >0
order by tablename
OPEN myCursor
FETCH NEXT FROM myCursor into @constraintName, @tableName, @columnName, @indexId, @objType
WHILE @@FETCH_STATUS = 0
BEGIN
if @constraintName <> @oldConstraintName and @oldConstraintName <> ''
begin
--删除最后一个逗号
select @columnList = substring( @columnList, 1, len(@columnList)-1 )
if @oldIndexId > 1
select @clusteredString = ' NONCLUSTERED '
else
select @clusteredString = ' CLUSTERED '
if @oldObjType = 'UQ'
select @objTypeString = ' UNIQUE '
else
select @objTypeString = ' PRIMARY KEY '
select @sqlString = 'alter table ' + @oldTableName + ' WITH NOCHECK ADD CONSTRAINT ' +
@oldConstraintName + @objTypeString + @clusteredString + ' (' + @columnList +')'
--下一个columnlist开始
select @columnList =''
insert into #tmpTable (sql)values(@sqlString)
end
select @oldTableName = @tableName
select @oldConstraintName = @constraintName
select @oldIndexId = @indexId
select @oldObjType = @objType
select @columnList = @columnList + @columnName + ', '
FETCH NEXT FROM myCursor into @constraintName, @tableName, @columnName, @indexId, @objType
END
select @columnList = substring( @columnList, 1, len(@columnList)-1 )
--插入最后一条记录
if @oldIndexId > 1
select @clusteredString = ' NONCLUSTERED '
else
select @clusteredString = ' CLUSTERED '
if @oldObjType = 'UQ'
select @objTypeString = ' UNIQUE '
else
select @objTypeString = ' PRIMARY KEY '
select @sqlString = 'alter table ' + @oldTableName + ' WITH NOCHECK ADD CONSTRAINT ' +
@oldConstraintName + @objTypeString + @clusteredString + ' (' + @columnList +')'
insert into #tmpTable (sql)values(@sqlString)
CLOSE myCursor
DEALLOCATE myCursor
select * from #tmpTable
drop table #tmpTable
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
/**//*
生成当前数据库所有存储过程，视图，函数，触发器的脚本
适用于 Sql Server 2000
beiqiao（qbboxcn@hotmail.com） 2004/02/29
*/
CREATE PROCEDURE sp_create_proc AS
select b.text as sql from sysobjects a,syscomments b where a.xtype in ('TR','TF','V','P') and a.id = b.id and a.status >0
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
/**//*
生成当前数据库所有表的创建脚本
适用于 Sql Server 2000
beiqiao（qbboxcn@hotmail.com） 2004/02/29
*/
CREATE PROCEDURE sp_create_table AS
declare @count int
declare @tableName nvarchar(128)
declare @columnName nvarchar(128)
declare @columnLength smallint
declare @isnullable int
declare @typeName nvarchar(128)
declare @autoval nvarchar(128)
declare @oldTableName nvarchar(128)
declare @sqlString nvarchar(1024)
declare @columnList nvarchar(1024)
declare @identityString nvarchar(128)
select @oldTableName = ''
select @columnList =''
create table #tmpTable (sql nvarchar(4000))
DECLARE myCursor CURSOR FOR
SELECT a.name as tableName, b.name as columnName, b.Length as columnLength, b.isnullable, c.name as typeName, b.autoval
from sysobjects a, syscolumns b, systypes c
where a.xtype ='U' and a.status >0 and a.id = b.id and b.xtype = c.xtype --a.status >0 是为了过滤表dtproperties
OPEN myCursor
FETCH NEXT FROM myCursor into @tableName,@columnName,@columnLength,@isnullable,@typeName,@autoval
WHILE @@FETCH_STATUS = 0
BEGIN
if @tableName <> @oldTableName and @oldTableName <> ''
begin
--删除最后一个逗号
select @columnList = substring( @columnList, 1, len(@columnList)-1 )
select @sqlString = 'create table ' + @oldTableName + ' (' + @columnList +')'
--下一个columnlist开始
select @columnList =''
insert into #tmpTable (sql)values(@sqlString)
end
select @oldTableName = @tableName
select @columnList = @columnList + @columnName + ' ' + @typeName
--添加数据类型的长度声明
if @typeName = 'varchar' or @typeName = 'char' or @typeName = 'nchar' or @typeName ='nvarchar'
select @columnList = @columnList + '(' + rtrim(ltrim(str(@columnLength))) + ')'
--添加IDENTITY限定
if @autoval is not null
begin
select @identityString = ' IDENTITY(' + ltrim(rtrim(str(IDENT_SEED( @tableName )))) + ',' +ltrim(rtrim(str(IDENT_INCR( @tableName )))) +')'
select @columnList = @columnList + @identityString
end
--添加null限定
if @isnullable = '1'
select @columnList = @columnList + ' null'
else
select @columnList = @columnList + ' not null'
--逗号分割
select @columnList = @columnList + ', '
FETCH NEXT FROM myCursor into @tableName,@columnName,@columnLength,@isnullable,@typeName,@autoval
END
--插入最后一条记录
select @columnList = substring( @columnList, 1, len(@columnList)-1 )
select @sqlString = 'create table ' + @oldTableName + ' (' + @columnList +')'
insert into #tmpTable (sql)values(@sqlString)
CLOSE myCursor
DEALLOCATE myCursor
select * from #tmpTable
drop table #tmpTable
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
通过读取sysobjects 等系统表的纪录，生成表、视图等数据库对象脚本的存储过程。
已知问题：
存储过程长度有限制，不能超过8000个字节，因为用来存储sql脚本的变量为varchar型，最大就是8000。
------------------------------------------------------------------------------------------------------------------------------------------------
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_create_check]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_create_check]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_create_fk]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_create_fk]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_create_index]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_create_index]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_create_pk_uq]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_create_pk_uq]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_create_proc]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_create_proc]
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[sp_create_table]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[sp_create_table]
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
/**//*
生成当前数据库所有CHECK约束的脚本
适用于 Sql Server 2000
beiqiao（qbboxcn@hotmail.com） 2004/02/29
*/
CREATE PROCEDURE sp_create_check AS
select 'ALTER TABLE ' + d.name + ' WITH NOCHECK ADD CONSTRAINT ' + a.name
+ case when b.status in (133141,2069) then ' default ' else ' check ' end
+ c.text
+ case when b.status in (133141,2069) then ' for ' + col_name(b.id,b.colid) else '' end
from sysobjects a , sysconstraints b, syscomments c ,sysobjects d
where b.constid = a.id and b.constid = c.id and b.id = d.id and d.name <> 'dtproperties'
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
/**//*
生成当前数据库所有FK约束的脚本
适用于 Sql Server 2000
beiqiao（qbboxcn@hotmail.com） 2004/02/29
*/
CREATE PROCEDURE sp_create_fk AS
select
' alter table ' + t_obj.name +
' add constraint ' + c_obj.name +
' foreign key (' +
col_name(t_obj.id, fkey1) +
-- 处理复合外键
case when fkey2<>0 then ',' + col_name(t_obj.id, fkey2) else '' end +
case when fkey3<>0 then ',' + col_name(t_obj.id, fkey3) else '' end +
case when fkey4<>0 then ',' + col_name(t_obj.id, fkey4) else '' end +
case when fkey5<>0 then ',' + col_name(t_obj.id, fkey5) else '' end +
case when fkey6<>0 then ',' + col_name(t_obj.id, fkey6) else '' end +
case when fkey7<>0 then ',' + col_name(t_obj.id, fkey7) else '' end +
case when fkey8<>0 then ',' + col_name(t_obj.id, fkey8) else '' end +
case when fkey9<>0 then ',' + col_name(t_obj.id, fkey9) else '' end +
case when fkey10<>0 then ',' + col_name(t_obj.id, fkey10) else '' end +
case when fkey11<>0 then ',' + col_name(t_obj.id, fkey11) else '' end +
case when fkey12<>0 then ',' + col_name(t_obj.id, fkey12) else '' end +
case when fkey13<>0 then ',' + col_name(t_obj.id, fkey13) else '' end +
case when fkey14<>0 then ',' + col_name(t_obj.id, fkey14) else '' end +
case when fkey15<>0 then ',' + col_name(t_obj.id, fkey15) else '' end +
case when fkey16<>0 then ',' + col_name(t_obj.id, fkey16) else '' end +
') ' +
' references ' + r_obj.name + '(' +
index_col(object_name(rkeyid), rkeyindid, 1 ) +
-- 处理复合外键
case when index_col(object_name(rkeyid), rkeyindid, 2 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 2 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 3 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 3 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 4 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 4 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 5 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 5 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 6 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 6 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 7 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 7 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 8 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 8 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 9 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 9 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 10 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 10 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 11 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 11 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 12 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 12 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 13 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 13 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 14 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 14 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 15 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 15 ) else '' end +
case when index_col(object_name(rkeyid), rkeyindid, 16 )is not null then ',' + index_col(object_name(rkeyid), rkeyindid, 16 ) else '' end +
')'
from
sysobjects c_obj
,sysobjects t_obj
,sysobjects r_obj
,syscolumns col
,sysreferences ref
where
c_obj.xtype in ('F')
and t_obj.id = c_obj.parent_obj
and t_obj.id = col.id
and col.colid in
(ref.fkey1,ref.fkey2,ref.fkey3,ref.fkey4,ref.fkey5,ref.fkey6,
ref.fkey7,ref.fkey8,ref.fkey9,ref.fkey10,ref.fkey11,ref.fkey12,
ref.fkey13,ref.fkey14,ref.fkey15,ref.fkey16)
and c_obj.id = ref.constid
and r_obj.id = ref.rkeyid
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
/**//*
生成当前数据库所有索引的脚本
适用于 Sql Server 2000
beiqiao（qbboxcn@hotmail.com） 2004/02/29
*/
CREATE PROCEDURE sp_create_index AS
declare @tableName nvarchar(128)
declare @indexName nvarchar(128)
declare @status int
declare @OrigFillFactor int
declare @columnName nvarchar(128)
declare @indid smallint
declare @clusteredString nvarchar(16)
declare @uniqueString nvarchar(16)
declare @fillfactorString nvarchar(1024)
declare @sql nvarchar(1024)
select @fillfactorString = ''
select @sql = ''
create table #tmpTable (sql nvarchar(4000))
DECLARE myCursor CURSOR FOR
select b.name as tableName, a.name as indexName, a.status, a.OrigFillFactor, index_col(b.name, indid, 1 ) as columnName ,a.indid
from sysindexes a, sysobjects b
where a.id = b.id and b.xtype = 'U' and indid > 0 and indid < 255
and (a.status & 8388608) = 0 --去掉不需要的记录
and (a.status & 2048) = 0 --去掉primary key
OPEN myCursor
FETCH NEXT FROM myCursor into @tableName,@indexName,@status,@OrigFillFactor,@columnName,@indid
WHILE @@FETCH_STATUS = 0
BEGIN
if (@status & 16)<>0
select @clusteredString = ' clustered '
else
select @clusteredString = ' nonclustered '
if (@status & 2)<>0
select @uniqueString = ' UNIQUE '
else
select @uniqueString = ' '
if @OrigFillFactor <>0
select @fillfactorString = ',FILLFACTOR=' + ltrim(rtrim(str(@OrigFillFactor)))
else
select @fillfactorString =''
if (@status &1)<>0
select @fillfactorString = @fillfactorString + ',IGNORE_DUP_KEY'
if (@status &256)<>0
select @fillfactorString = @fillfactorString + ',PAD_INDEX'
if (@status &16777216)<>0
select @fillfactorString = @fillfactorString + ',STATISTICS_NORECOMPUTE'
if len(@fillfactorString) <> 0
select @fillfactorString = ' with ' + substring( @fillfactorString, 2, len(@fillfactorString)-1 )
if (@status & 4096)<>0
select @sql = 'ALTER TABLE ' + @tableName + ' WITH NOCHECK ADD CONSTRAINT '
+ @indexName + @clusteredString + @uniqueString + '('
+ index_col(@tableName, @indid, 1 )
+ case when index_col(@tableName, @indid, 2 )is not null then ',' + index_col(@tableName, @indid, 2 ) else '' end
+ case when index_col(@tableName, @indid, 3 )is not null then ',' + index_col(@tableName, @indid, 3 ) else '' end
+ case when index_col(@tableName, @indid, 4 )is not null then ',' + index_col(@tableName, @indid, 4 ) else '' end
+ case when index_col(@tableName, @indid, 5 )is not null then ',' + index_col(@tableName, @indid, 5 ) else '' end
+ case when index_col(@tableName, @indid, 6 )is not null then ',' + index_col(@tableName, @indid, 6 ) else '' end
+ case when index_col(@tableName, @indid, 7 )is not null then ',' + index_col(@tableName, @indid, 7 ) else '' end
+ case when index_col(@tableName, @indid, 8 )is not null then ',' + index_col(@tableName, @indid, 8 ) else '' end
+ case when index_col(@tableName, @indid, 9 )is not null then ',' + index_col(@tableName, @indid, 9 ) else '' end
+ case when index_col(@tableName, @indid, 10 )is not null then ',' + index_col(@tableName, @indid, 10 ) else '' end
+ ')'
+ @fillfactorString
else
select @sql = 'create ' + @clusteredString + @uniqueString + ' INDEX ' + @indexName + ' ON ' + @tableName + '('
+ index_col(@tableName, @indid, 1 )
+ case when index_col(@tableName, @indid, 2 )is not null then ',' + index_col(@tableName, @indid, 2 ) else '' end
+ case when index_col(@tableName, @indid, 3 )is not null then ',' + index_col(@tableName, @indid, 3 ) else '' end
+ case when index_col(@tableName, @indid, 4 )is not null then ',' + index_col(@tableName, @indid, 4 ) else '' end
+ case when index_col(@tableName, @indid, 5 )is not null then ',' + index_col(@tableName, @indid, 5 ) else '' end
+ case when index_col(@tableName, @indid, 6 )is not null then ',' + index_col(@tableName, @indid, 6 ) else '' end
+ case when index_col(@tableName, @indid, 7 )is not null then ',' + index_col(@tableName, @indid, 7 ) else '' end
+ case when index_col(@tableName, @indid, 8 )is not null then ',' + index_col(@tableName, @indid, 8 ) else '' end
+ case when index_col(@tableName, @indid, 9 )is not null then ',' + index_col(@tableName, @indid, 9 ) else '' end
+ case when index_col(@tableName, @indid, 10 )is not null then ',' + index_col(@tableName, @indid, 10 ) else '' end
+ ')'
+ @fillfactorString
insert into #tmpTable (sql)values(@sql)
FETCH NEXT FROM myCursor into @tableName,@indexName,@status,@OrigFillFactor,@columnName,@indid
end
CLOSE myCursor
DEALLOCATE myCursor
select * from #tmpTable
drop table #tmpTable
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
/**//*
生成当前数据库所有PK和UQ约束的脚本
适用于 Sql Server 2000
beiqiao（qbboxcn@hotmail.com） 2004/02/29
*/
CREATE PROCEDURE sp_create_pk_uq AS
declare @oldTableName nvarchar(128)
declare @sqlString nvarchar(1024)
declare @columnList nvarchar(1024)
declare @constraintName nvarchar(128)
declare @oldConstraintName nvarchar(128)
declare @tableName nvarchar(1024)
declare @columnName nvarchar(1024)
declare @indexId smallint
declare @objType char(2)
declare @oldIndexId smallint
declare @oldObjType char(2)
declare @clusteredString nvarchar(16)
declare @objTypeString nvarchar(16)
select @oldIndexId = 1
select @oldObjType = 'PK'
select @oldConstraintName = ''
select @oldTableName = ''
select @sqlString = ''
select @columnList =''
select @clusteredString = ' CLUSTERED '
select @objTypeString = ' PRIMARY KEY '
create table #tmpTable (sql nvarchar(4000))
DECLARE myCursor CURSOR FOR
select
i.name as constraintName
,t_obj.name as tableName
,col.name as columnName
,i.indid as indexId
,c_obj.xtype as objType
from
sysobjects c_obj
,sysobjects t_obj
,syscolumns col
,master.dbo.spt_values v
,sysindexes i
where
c_obj.xtype in ('UQ' ,'PK')
and t_obj.id = c_obj.parent_obj
and t_obj.xtype = 'U'
and t_obj.id = col.id
and col.name = index_col(t_obj.name,i.indid,v.number)
and t_obj.id = i.id
and c_obj.name = i.name
and v.number > 0
and v.number <= i.keycnt
and v.type = 'P'
and t_obj.status >0
order by tablename
OPEN myCursor
FETCH NEXT FROM myCursor into @constraintName, @tableName, @columnName, @indexId, @objType
WHILE @@FETCH_STATUS = 0
BEGIN
if @constraintName <> @oldConstraintName and @oldConstraintName <> ''
begin
--删除最后一个逗号
select @columnList = substring( @columnList, 1, len(@columnList)-1 )
if @oldIndexId > 1
select @clusteredString = ' NONCLUSTERED '
else
select @clusteredString = ' CLUSTERED '
if @oldObjType = 'UQ'
select @objTypeString = ' UNIQUE '
else
select @objTypeString = ' PRIMARY KEY '
select @sqlString = 'alter table ' + @oldTableName + ' WITH NOCHECK ADD CONSTRAINT ' +
@oldConstraintName + @objTypeString + @clusteredString + ' (' + @columnList +')'
--下一个columnlist开始
select @columnList =''
insert into #tmpTable (sql)values(@sqlString)
end
select @oldTableName = @tableName
select @oldConstraintName = @constraintName
select @oldIndexId = @indexId
select @oldObjType = @objType
select @columnList = @columnList + @columnName + ', '
FETCH NEXT FROM myCursor into @constraintName, @tableName, @columnName, @indexId, @objType
END
select @columnList = substring( @columnList, 1, len(@columnList)-1 )
--插入最后一条记录
if @oldIndexId > 1
select @clusteredString = ' NONCLUSTERED '
else
select @clusteredString = ' CLUSTERED '
if @oldObjType = 'UQ'
select @objTypeString = ' UNIQUE '
else
select @objTypeString = ' PRIMARY KEY '
select @sqlString = 'alter table ' + @oldTableName + ' WITH NOCHECK ADD CONSTRAINT ' +
@oldConstraintName + @objTypeString + @clusteredString + ' (' + @columnList +')'
insert into #tmpTable (sql)values(@sqlString)
CLOSE myCursor
DEALLOCATE myCursor
select * from #tmpTable
drop table #tmpTable
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
/**//*
生成当前数据库所有存储过程，视图，函数，触发器的脚本
适用于 Sql Server 2000
beiqiao（qbboxcn@hotmail.com） 2004/02/29
*/
CREATE PROCEDURE sp_create_proc AS
select b.text as sql from sysobjects a,syscomments b where a.xtype in ('TR','TF','V','P') and a.id = b.id and a.status >0
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
/**//*
生成当前数据库所有表的创建脚本
适用于 Sql Server 2000
beiqiao（qbboxcn@hotmail.com） 2004/02/29
*/
CREATE PROCEDURE sp_create_table AS
declare @count int
declare @tableName nvarchar(128)
declare @columnName nvarchar(128)
declare @columnLength smallint
declare @isnullable int
declare @typeName nvarchar(128)
declare @autoval nvarchar(128)
declare @oldTableName nvarchar(128)
declare @sqlString nvarchar(1024)
declare @columnList nvarchar(1024)
declare @identityString nvarchar(128)
select @oldTableName = ''
select @columnList =''
create table #tmpTable (sql nvarchar(4000))
DECLARE myCursor CURSOR FOR
SELECT a.name as tableName, b.name as columnName, b.Length as columnLength, b.isnullable, c.name as typeName, b.autoval
from sysobjects a, syscolumns b, systypes c
where a.xtype ='U' and a.status >0 and a.id = b.id and b.xtype = c.xtype --a.status >0 是为了过滤表dtproperties
OPEN myCursor
FETCH NEXT FROM myCursor into @tableName,@columnName,@columnLength,@isnullable,@typeName,@autoval
WHILE @@FETCH_STATUS = 0
BEGIN
if @tableName <> @oldTableName and @oldTableName <> ''
begin
--删除最后一个逗号
select @columnList = substring( @columnList, 1, len(@columnList)-1 )
select @sqlString = 'create table ' + @oldTableName + ' (' + @columnList +')'
--下一个columnlist开始
select @columnList =''
insert into #tmpTable (sql)values(@sqlString)
end
select @oldTableName = @tableName
select @columnList = @columnList + @columnName + ' ' + @typeName
--添加数据类型的长度声明
if @typeName = 'varchar' or @typeName = 'char' or @typeName = 'nchar' or @typeName ='nvarchar'
select @columnList = @columnList + '(' + rtrim(ltrim(str(@columnLength))) + ')'
--添加IDENTITY限定
if @autoval is not null
begin
select @identityString = ' IDENTITY(' + ltrim(rtrim(str(IDENT_SEED( @tableName )))) + ',' +ltrim(rtrim(str(IDENT_INCR( @tableName )))) +')'
select @columnList = @columnList + @identityString
end
--添加null限定
if @isnullable = '1'
select @columnList = @columnList + ' null'
else
select @columnList = @columnList + ' not null'
--逗号分割
select @columnList = @columnList + ', '
FETCH NEXT FROM myCursor into @tableName,@columnName,@columnLength,@isnullable,@typeName,@autoval
END
--插入最后一条记录
select @columnList = substring( @columnList, 1, len(@columnList)-1 )
select @sqlString = 'create table ' + @oldTableName + ' (' + @columnList +')'
insert into #tmpTable (sql)values(@sqlString)
CLOSE myCursor
DEALLOCATE myCursor
select * from #tmpTable
drop table #tmpTable
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- SQLServer获得所有用户存储过程、根据存储过程名称获得内容、获得数据库对象创建脚本
- 生成insert sql脚本的存储过程
- 将表数据生成SQL脚本的存储过程
- 将数据库表中的数据生成Insert脚本的存储过程!!!
- 将数据库表中的数据生成Insert脚本的存储过程!!!
- 将表数据生成SQL脚本的存储过程
- 将表数据生成SQL脚本的存储过程
- ------------------------将表数据生成SQL脚本的存储过程------------------------
- sql server 表、存储过程数据脚本生成组件
- MS SQL server 生成 insert 数据的存储过程脚本
- SqlServer2005（2000）数据库字典，将表数据生成SQL脚本的存储过程 (转)
- 将表数据生成SQL脚本的存储过程
- 为sql server 表数据生成创建的储存过程（生成insert 脚本）
- 将表数据生成SQL脚本的存储过程
- 存储过程生成数据表的insert脚本（转）
- .NET调用osql.exe执行sql脚本创建表和存储过程
- 转：生成SQL数据脚本的存储过程
- 生成所有存储过程的授权脚本
- 生成sql表数据存储过程脚本
- 为sql server 表数据生成创建的储存过程（生成insert 脚本） (转)