SQLServer自動建表格儲存體過程

--建表格儲存體過程

Create Proc [dbo].[PN_CreateHistoryDataTable] 
AS
Begin
 Declare @Count int
 Declare @CollCode varchar(4)
 Declare @TableName varchar(30)
 Declare @StrSql nvarchar(2000)
 Declare @CreateSQL varchar(2000)
 
 Declare CurColliery Cursor For Select CollCode From TN_Colliery  
 Open CurColliery
 Fetch Next From CurColliery Into @CollCode
 While @@fetch_status=0    
 Begin
  Set @TableName = 'TN_Data' + @CollCode + Replace(Replace(Replace(Convert(varchar, GetDate(), 112 ),'-',''),' ',''),':','') 

  Set @StrSql=N'Select @InsideCount=Count(*) From SysObjects Where Id = object_id('''+ @TableName +''') And Type = ''U'''

  Exec Sp_ExecuteSQL @StrSql ,N'@InsideCount int output',@Count output
  
  IF(@Count = 0)
  Begin
   Set @CreateSQL='Create Table '+ @TableName + 
       '(DataCode varchar(20) Primary Key,
       DeviceCode varchar(4) not null,
       DeviceName nvarchar(20),
       DeviceAddress nvarchar(100),
       CollCode varchar(4) not null,
       CollName nvarchar(50),
       CoalIP varchar(20),
       SortName nvarchar(20),
       TypeName varchar(20),
       DeviceData varchar(4),
       TypeUnit varchar(4),
       StatusName varchar(50),
       LowerLimit varchar(4),
       UpperLimit varchar(4),
       UploadTime datetime default getdate())'

   Exec(@CreateSQL)
  End
  Fetch Next From CurColliery Into @CollCode
 End
 Close CurColliery  
 Deallocate CurColliery
End

--執行語句

exec PN_CreateHistoryDataTable