根据字段表 自动创建 表SQL

create  PROC  CreateTableSql
@TableName varchar(50)
AS
 
declare @FieldName varchar(50) ,@FieldDescrible varchar(50) ,@DbType varchar(50)
declare @DbLength varchar(50) ,@DbDecimal  varchar(50) ,@Default varchar(50) ,@IsIdentity bit ,@IsNull bit ,@IsPrimaryKey bit
declare @CreateSql varchar(8000),@AddFieldSql varchar(300),@FieldSql varchar(3000)
declare @PrimaryKey varchar(200) ,@NULL varchar(10) ,@Identity varchar(20),@PropertySql varchar(8000)
set @PrimaryKey=''
set @FieldSql=''
SET @PropertySql=''
DECLARE MyCursor CURSOR FOR
 select  FieldName,isnull(FieldDescrible,''),isnull(DbType,''),DbLength,DbDecimal,isnull([Default],''),IsIdentity,
 isnull([IsNull],0),IsPrimaryKey
  from Fields   where TableName =@TableName order by SortNO
OPEN MyCursor
FETCH NEXT FROM MyCursor
INTO @FieldName,@FieldDescrible,@DbType,@DbLength,@DbDecimal,@Default,@IsIdentity,@IsNull,@IsPrimaryKey
 
WHILE @@FETCH_STATUS = 0
BEGIN
 
if @IsNull=1   set @NULL =' NULL'   ELSE set @NULL =' NOT  NULL'
if @IsPrimaryKey =1  set @NULL =' NOT  NULL'   
 
if @DbType in ('uniqueidentifier','int','datetime','timestamp','smallint') set @DbLength=''
   else set @DbLength='('+@DbLength+')'
if @IsIdentity=1  set @Identity =' IDENTITY(1,1) ' else set @Identity =''
 
if @Default=''
  set @AddFieldSql = '  ['+ @FieldName+'] ' + @DbType +@DbLength +@Identity+ @Null +','
else
  set @AddFieldSql = '  ['+ @FieldName+'] ' + @DbType +@DbLength +@Identity+ @Null +' default '+@Default +','
 if @FieldSql=''
   set @FieldSql= @AddFieldSql
 else
   set @FieldSql= @FieldSql+ CHAR(10) +@AddFieldSql
 
if @IsPrimaryKey =1
begin
 if @PrimaryKey<>'' set @PrimaryKey= @PrimaryKey+'['+ @FieldName+'] '
 if @PrimaryKey='' set @PrimaryKey= '['+ @FieldName+'] '
end
 
SET @PropertySql=@PropertySql+CHAR(10)+ ' GO'+ CHAR(10)+ 'EXEC sys.sp_addextendedproperty @name=N'+''''+'MS_Description'+''''+', @value=N'+''''+@FieldDescrible +''''+', @level0type=N'+''''+'SCHEMA'+''''
     +',@level0name=N'+''''+'dbo'+'''' +', @level1type=N'+''''+'TABLE'+''''+',@level1name=N'+''''+@TableName+''''+', @level2type=N'+''''+'COLUMN'+''''+',@level2name=N'+''''+@FieldName+'''' 
 
FETCH NEXT FROM MyCursor
INTO @FieldName,@FieldDescrible,@DbType,@DbLength,@DbDecimal,@Default,@IsIdentity,@IsNull,@IsPrimaryKey
 
END
CLOSE MyCursor;
DEALLOCATE MyCursor;
 
set @CreateSql =' if exists (select * from sysobjects where name='''+@TableName +''')'
set @CreateSql=@CreateSql+  CHAR(10) + ' drop table   '+@TableName
set @CreateSql=@CreateSql+  CHAR(10) + ' GO   '
set @CreateSql=@CreateSql+  CHAR(10) + ' CREATE TABLE  '+@TableName+  CHAR(10)+'('
set @CreateSql=@CreateSql+  CHAR(10) + ''+@FieldSql
set @CreateSql=@CreateSql+  CHAR(10) + '  CONSTRAINT [PK_'+ @TableName +'] PRIMARY KEY CLUSTERED  ('
set @CreateSql=@CreateSql+  CHAR(10) +'  '+ @PrimaryKey+' ASC  '+  CHAR(10)+'  )'
set @CreateSql=@CreateSql+  CHAR(10) + '  WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] '
set @CreateSql=@CreateSql+  CHAR(10) +' ) ON [PRIMARY] '
 
PRINT @CreateSql
print @PropertySql