SQLSERVER Pager store procedure分页存储过程
<div class="codetitle"><a style="CURSOR: pointer" data="77622" class="copybut" id="copybut77622" onclick="doCopy('code77622')"> 代码如下:
<div class="codebody" id="code77622">
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO CREATE PROCEDURE [dbo].[Pagination]
@Page int = 1,-- 当前
页码 @PageSize int = 10,-- 每页记录条数(
页面大小)
@Table nvarchar(500),-- 表名或视图名，甚至可以是嵌套
sql：(Select
From Tab Where ID>1000) Tab
@Field nvarchar(800) = '',-- 返回记录集字段名，","隔开，默认是"
"
@OrderBy nvarchar(100) = 'ID ASC',-- 排序规则
@Filter nvarchar(500),-- 过滤条件
@MaxPage smallint output,-- 执行结果 -1 error,0 false,maxpage true
@TotalRow int output,-- 记录总数 / 2007-07-12 22:11:00 update
/
@Descript varchar(100) output -- 结果描述
AS
BEGIN -- =============================================
-- Author: Jimmy.Yu
-- Create date: 2007-5-11
-- Description: sql 2005 以上版本 通用分页存储过程
-- ============================================= Set ROWCOUNT @PageSize; Set @Descript = 'successful';
-------------------参数检测----------------
IF LEN(RTRIM(LTRIM(@Table))) !> 0
Begin
Set @MaxPage = 0;
Set @Descript = 'table name is empty';
Return;
End IF LEN(RTRIM(LTRIM(@OrderBy))) !> 0
Begin
Set @MaxPage = 0;
Set @Descript = 'order is empty';
Return;
End IF ISNULL(@PageSize,0) <= 0
Begin
Set @MaxPage = 0;
Set @Descript = 'page size error';
Return;
End IF ISNULL(@Page,0) <= 0
Begin
Set @MaxPage = 0;
Set @Descript = 'page error';
Return;
End
-------------------检测结束---------------- Begin Try
-- 整合sql
Declare @sql nvarchar(4000),@Portion nvarchar(4000); Set @Portion = ' ROW_NUMBER() OVER (ORDER BY ' + @OrderBy + ') AS ROWNUM FROM ' + @Table; Set @Portion = @Portion + (CASE WHEN LEN(@Filter) >= 1 THEN (' Where ' + @Filter + ') AS tab') ELSE (') AS tab') END); Set @sql = 'Select TOP(' + CAST(@PageSize AS nvarchar(8)) + ') ' + @Field + ' FROM (Select ' + @Field + ',' + @Portion; Set @sql = @sql + ' Where tab.ROWNUM > ' + CAST((@Page-1)@PageSize AS nvarchar(8)); -- 执行
sql,取当前页记录集
Execute(@
sql);
-------------------------------------------------------------------- -- 整合
sql Set @
sql = 'Set @Rows = (Select MAX(ROWNUM) FROM (Select' + @Portion + ')'; -- 执行
sql,取最大
页码 Execute sp_execute
sql @
sql,N'@Rows int output',@TotalRow output;
Set @MaxPage = (CASE WHEN (@TotalRow % @PageSize)<>0 THEN (@TotalRow / @PageSize + 1) ELSE (@TotalRow / @PageSize) END);
End Try
Begin Catch
-- 捕捉
错误 Set @MaxPage = -1;
Set @Descript = 'error line: ' + CAST(ERROR_LINE() AS varchar(8)) + ',error number: ' + CAST(ERROR_NUMBER() AS varchar(8)) + ',error message: ' + ERROR_MESSAGE();
Return;
End Catch; -- 执行成功
Return;
END
