通用存储过程之三：根据主键的值,查询记录的存储过程

CREATE PROC #AutoGeneration_Load_P
@TABLENAME VARCHAR(50)
AS
BEGIN
 DECLARE @HOST_NAME VARCHAR(200)
 DECLARE @GET_DATE DATETIME
 DECLARE @SQLROC VARCHAR(4000)
 DECLARE @REMARK VARCHAR(2000)
 DECLARE @SQL VARCHAR(2000)
 DECLARE @PARAMETER VARCHAR(2000)
 DECLARE @DESCRIPTION VARCHAR(8000)
 DECLARE @WHERE_SQL VARCHAR(2000)
 DECLARE @ROWCOUNT INT
 SELECT @SQLROC='',@DESCRIPTION='',@PARAMETER='',@REMARK='',@WHERE_SQL='',@SQL='',
   @HOST_NAME=HOST_NAME(),@GET_DATE=GETDATE()
 SET @SQLROC=@SQLROC+'IF EXISTS (SELECT 1 FROM SYSOBJECTS WHERE ID=OBJECT_ID(''SP_'+@TABLENAME+'_Load'') AND XTYPE IN (N''P''))'+CHAR(10)
 SET @SQLROC=@SQLROC+SPACE(5)+'DROP PROC SP_'+@TABLENAME+'_Load'+CHAR(10)
 SET @SQLROC=@SQLROC+'GO '
 SET NOCOUNT ON
 CREATE TABLE #(TABLE_QUALIFIER VARCHAR(100),
 TABLE_OWNER  VARCHAR(100),
 TABLE_NAME   VARCHAR(100),
 COLUMN_NAME  VARCHAR(100),
 KEY_SEQ      VARCHAR(50),
 PK_NAME   VARCHAR(100))
 INSERT INTO # EXEC SP_PKEYS @TABLENAME
 SELECT @REMARK=@REMARK+',@'+COLUMN_NAME,
   @WHERE_SQL=@WHERE_SQL+' AND '+COLUMN_NAME+'=@'+COLUMN_NAME+''
 FROM #
 SELECT @PARAMETER=@PARAMETER+SPACE(4)+'@'+LTRIM(NAME)+SPACE(20-LEN(NAME))+
     CASE WHEN xtype=34 THEN 'image'
       WHEN xtype=35 THEN 'text'
       WHEN xtype=36 THEN 'uniqueidentifier'
       WHEN xtype=48 THEN 'tinyint'
       WHEN xtype=52 THEN 'smallint'
       WHEN xtype=56 THEN 'int'
       WHEN xtype=58 THEN 'smalldatetime'
       WHEN xtype=59 THEN 'real'
       WHEN xtype=60 THEN 'money'
       WHEN xtype=61 THEN 'datetime'
       WHEN xtype=62 THEN 'float'
       WHEN xtype=98 THEN 'sql_variant'
       WHEN xtype=99 THEN 'ntext'
       WHEN xtype=104 THEN 'bit'
       WHEN xtype=106 THEN 'decimal'
       WHEN xtype=108 THEN 'numeric'
       WHEN xtype=122 THEN 'smallmoney'
       WHEN xtype=127 THEN 'bigint'
       WHEN xtype=165 THEN 'varbinary'
            WHEN xtype=167 THEN 'varchar'+'('+LTRIM(length)+')'
       WHEN xtype=173 THEN 'binary'
       WHEN xtype=175 THEN 'char'+'('+LTRIM(length)+')'
       WHEN xtype=189 THEN 'timestamp'
       WHEN xtype=231 THEN 'nvarchar'+'('+LTRIM(length)+')'
       WHEN xtype=239 THEN 'nchar'+'('+LTRIM(length)+')'
       WHEN xtype=241 THEN 'xml'
       WHEN xtype=231 THEN 'sysname' END+','+CHAR(10)
 FROM SYSCOLUMNS A
    WHERE ID=OBJECT_ID(''+@TABLENAME+'') 
 AND NAME IN (SELECT COLUMN_NAME FROM #)
 DROP TABLE #
 SET NOCOUNT OFF
 SET @DESCRIPTION=@DESCRIPTION+'/*+--------------------------------------+'+CHAR(10)
 SET @DESCRIPTION=@DESCRIPTION+'| 过程名称：SP_'+@TABLENAME+'_Load'+CHAR(10)
 SET @DESCRIPTION=@DESCRIPTION+'| 功能说明：查询表'+@TABLENAME+'记录集合的存储过程'+CHAR(10)
 SET @DESCRIPTION=@DESCRIPTION+'| 入口参数：'+STUFF(@REMARK,1,1,'')+''+CHAR(10)
 SET @DESCRIPTION=@DESCRIPTION+'| 过程返回：返回所有记录集'+CHAR(10)
 SET @DESCRIPTION=@DESCRIPTION+'| 维护记录：Y/A'+CHAR(10)
 SET @DESCRIPTION=@DESCRIPTION+'| 使用案例：SP_'+@TABLENAME+'_Load'+CHAR(10)
 SET @DESCRIPTION=@DESCRIPTION+'| 工作站名：'+@HOST_NAME+''+CHAR(10)
 SET @DESCRIPTION=@DESCRIPTION+'| 联系方式：zlp321001@hotmail.com'+CHAR(10)
 SET @DESCRIPTION=@DESCRIPTION+'| 创建日期：'+CONVERT(VARCHAR(20),@GET_DATE,120)+''+CHAR(10) 
 SET @DESCRIPTION=@DESCRIPTION+'+--------------------------------------+*/'+CHAR(10)
 SELECT @SQLROC=@SQLROC+CHAR(10)+@DESCRIPTION+'CREATE PROC SP_'+@TABLENAME+'_Load'
 SET @SQLROC=@SQLROC+CHAR(13)+CHAR(10)+LEFT(@PARAMETER,LEN(@PARAMETER)-2)+CHAR(10)
 SET @SQLROC=@SQLROC+'AS'+CHAR(10)+'BEGIN'
 SET @SQLROC=@SQLROC+CHAR(10)+SPACE(4)+'SET NOCOUNT ON'
 SET @SQLROC=@SQLROC+CHAR(32)+@SQL
 SET @SQLROC=@SQLROC+CHAR(10)+SPACE(8)+'SELECT * FROM '+@TABLENAME+' WHERE '+STUFF(@WHERE_SQL,1,4,'')+CHAR(10)
 SET @SQLROC=@SQLROC+SPACE(4)+'SET NOCOUNT OFF' 
 SET @SQLROC=@SQLROC+CHAR(10)+'END'
 PRINT @SQLROC+CHAR(10)+'GO '
END

GO

CREATE PROC #SP_Generation_Load
@TABLENAMES VARCHAR(8000)
AS
BEGIN
DECLARE @I INT
DECLARE @TABLENAME VARCHAR(100)
SET @I=CHARINDEX(',',@TABLENAMES)
WHILE @I>0
BEGIN
 SET @TABLENAME=LEFT(@TABLENAMES,@I-1)
 EXEC #AutoGeneration_Load_P @TABLENAME
 SET @TABLENAMES=RIGHT(@TABLENAMES,LEN(@TABLENAMES)-@I)
 SET @I=CHARINDEX(',',@TABLENAMES)
END
IF LEN(@TABLENAMES)>0
BEGIN
 EXEC #AutoGeneration_Load_P @TABLENAMES
END
END
GO

--测试
#SP_Generation_Load 't'

drop proc #AutoGeneration_Load_P
drop proc #SP_Generation_Load 

--测试结果: