sqlserver 读取多个表的分页存储过程（参考）

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author: yuanwensheng
-- Create date: 2008-4-25
-- Description: 相册评论
-- =============================================
alter PROCEDURE SelectComments

@strGetFields varchar(1000) = '*', -- 需要返回的列

@fldName varchar(255)='', -- 排序的字段名

@PageSize int = 10, -- 页尺寸

@PageIndex int = 1, -- 页码

@OrderType bit = 0, -- 设置排序类型, 非 0 值则降序

@strWhere varchar(1500) = '' -- 查询条件 (注意: 不要加 where)

declare @tblName varchar(255) --表名

declare @strSQL varchar(5000) -- 主语句

declare @strTmp varchar(110) -- 临时变量

declare @strOrder varchar(400) -- 排序类型

declare @sql varchar(2000) -- 生成临时表时用到的变量
declare @count int -- 个人相册的表数量

begin

    --把所有需要的数据导入临时表开始
    create table #tbTmp(CommentID int,PictureID bigint,UserID bigint,CommentUserID bigint,CommentUserName nvarchar(50),Content nvarchar(1000),AddedTime datetime,tbtable nvarchar(255));
   --因为要有删除记录操作所以得CommentID（仅是单表的主键）和tbtable 组合做主键才可以
    set @count=1;
    if @strWhere!=''
begin
    set @sql='select *,''PicturesComments_0'' tbtable from PicturesComments_0 where '+@strWhere;
end
else
begin
set @sql='select *,''PicturesComments_0'' from PicturesComments_0';
end

    --循环开始
    WHILE   @count<10
begin

if @strWhere!=''
begin
    set @sql=@sql+' union all select *,''PicturesComments_'+cast(@count as varchar)+''' from PicturesComments_'+cast(@count as varchar)+' where '+@strWhere;
end
else
begin
set @sql=@sql+' union all select *,''PicturesComments_'+cast(@count as varchar)+''' from PicturesComments_'+cast(@count as varchar);
end
  set @count=@count+1;
end
--循环结束
    insert into #tbTmp exec (@sql);

   -- 结束

    set @tblName = '#tbTmp';

if @strWhere !=''

set @strSQL = 'select count(*) as Total from [' + @tblName + '] where '+@strWhere

else

    set @strSQL = 'select count(*) as Total from [' + @tblName + ']'

    exec (@strSQL);

if @OrderType != 0

begin

set @strTmp = '<(select min'

set @strOrder = ' order by [' + @fldName +'] desc'

--如果@OrderType不是0，就执行降序，这句很重要！

end

else

begin

set @strTmp = '>(select max'

set @strOrder = ' order by [' + @fldName +'] asc'

end

if @PageIndex<1
begin
set @PageIndex=1
--如果输入负值变为第一页
end

if @PageIndex = 1

begin

--    if @strWhere != ''
--
--    set @strSQL = 'select top ' + str(@PageSize) +' '+@strGetFields+ ' from [' + @tblName + '] where ' + @strWhere + ' ' + @strOrder
--
--     else

set @strSQL = 'select top ' + str(@PageSize) +' '+@strGetFields+ ' from ['+ @tblName + '] '+ @strOrder

--如果是第一页就执行以上代码，这样会加快执行速度

end

else

begin

--以下代码赋予了@strSQL以真正执行的SQL代码

set @strSQL = 'select top ' + str(@PageSize) +' '+@strGetFields+ ' from ['

+ @tblName + '] where [' + @fldName + ']' + @strTmp + '(['
+ @fldName + ']) from (select top ' + str((@PageIndex-1)*@PageSize) + ' ['
+ @fldName + '] from [' + @tblName + ']' + @strOrder + ') as tblTmp)'+ @strOrder

--if @strWhere != ''
--
--    set @strSQL = 'select top ' + str(@PageSize) +' '+@strGetFields+ ' from ['
--
--        + @tblName + '] where [' + @fldName + ']' + @strTmp + '(['
--
--        + @fldName + ']) from (select top ' + str((@PageIndex-1)*@PageSize) + ' ['
--
--        + @fldName + '] from [' + @tblName + '] where ' + @strWhere + ' '
--
--        + @strOrder + ') as tblTmp) and ' + @strWhere + ' ' + @strOrder

end

exec (@strSQL)