Orcale与sqlserver分页存储过程



1.Oracle分页存储过程


create or replace procedure Pager(
page in number,--数据页数,从1开始
pageSize in number,--每页大小
tableName nvarchar2,--表名
strWhere nvarchar2,--where条件
Orderby nvarchar2,
numCount out number,--总记录数
v_cur out pkg_query.cur_query) is

strSql varchar2(2000);--获取数据的sql语句
pageCount number;--该条件下记录页数
startIndex number;--开始记录
endIndex number;--结束记录


--分页获取数据

begin
  strSql:='select count(1) from '||tableName;
  if strWhere is not null or strWhere<>'' then
     strSql:=strSql||' where '||strWhere;
  end if; 
  EXECUTE IMMEDIATE strSql INTO numCount;
  --计算数据记录开始和结束
  pageCount:=numCount/pageSize+1;
  startIndex:=(page-1)*pageSize+1;
  endIndex:=page*pageSize;
 
  strSql:='select rownum ro, t.* from '||tableName||' t'; 
  strSql:=strSql||' where rownum<='||endIndex;
 
  if strWhere is not null or strWhere<>'' then
     strSql:=strSql||' and '||strWhere;
  end if;
 
  if  Orderby is not null or Orderby<>'' then
     strSql:=strSql||' order by '||Orderby;
  end if;
 
  strSql:='select * from ('||strSql||') where ro >='||startIndex; 
  DBMS_OUTPUT.put_line(strSql);

  OPEN v_cur FOR strSql;
end Pager;


2.sqlserver存储过程


CREATE PROC P_viewPage

    
/**//**//**//*
        nzperfect [no_mIss] 高效通用分页存储过程(双向检索) 2007.5.7  QQ:34813284
        敬告:适用于单一主键或存在唯一值列的表或视图
        ps:Sql语句为8000字节,调用时请注意传入参数及sql总长度不要超过指定范围
           
    
*/


    
@TableName VARCHAR(200),     --表名
    @FieldList VARCHAR(2000),    --显示列名,如果是全部字段则为*
    @PrimaryKey VARCHAR(100),    --单一主键或唯一值键
    @Where VARCHAR(2000),        --查询条件 不含'where'字符,如id>10 and len(userid)>9
    @Order VARCHAR(1000),        --排序 不含'order by'字符,如id asc,userid desc,必须指定asc或desc                                 
                                 --注意当@SortType=3时生效,记住一定要在最后加上主键,否则会让你比较郁闷
    @SortType INT,               --排序规则 1:正序asc 2:倒序desc 3:多列排序方法
    @RecorderCount INT,          --记录总数 0:会返回总记录
    @PageSize INT,               --每页输出的记录数
    @PageIndex INT,              --当前页数
    @TotalCount INT OUTPUT,      --记返回总记录
    @TotalPageCount INT OUTPUT   --返回总页数
AS
    
SET NOCOUNT ON

    
IF ISNULL(@TotalCount,''= '' SET @TotalCount = 0
    
SET @Order = RTRIM(LTRIM(@Order))
    
SET @PrimaryKey = RTRIM(LTRIM(@PrimaryKey))
    
SET @FieldList = REPLACE(RTRIM(LTRIM(@FieldList)),' ','')

    
WHILE CHARINDEX('',@Order> 0 OR CHARINDEX(' ,',@Order> 0
    
BEGIN
        
SET @Order = REPLACE(@Order,'',',')
        
SET @Order = REPLACE(@Order,' ,',',')    
    
END

    
IF ISNULL(@TableName,''= '' OR ISNULL(@FieldList,''= '' 
        
OR ISNULL(@PrimaryKey,''= ''
        
OR @SortType < 1 OR @SortType >3
        
OR @RecorderCount  < 0 OR @PageSize < 0 OR @PageIndex < 0        
    
BEGIN 
        
PRINT('ERR_00')       
        
RETURN
    
END    

    
IF @SortType = 3
    
BEGIN
        
IF (UPPER(RIGHT(@Order,4))!=' ASC' AND UPPER(RIGHT(@Order,5))!=' DESC')
        
BEGIN PRINT('ERR_02'RETURN END
    
END

    
DECLARE @new_where1 VARCHAR(1000)
    
DECLARE @new_where2 VARCHAR(1000)
    
DECLARE @new_order1 VARCHAR(1000)   
    
DECLARE @new_order2 VARCHAR(1000)
    
DECLARE @new_order3 VARCHAR(1000)
    
DECLARE @Sql VARCHAR(8000)
    
DECLARE @SqlCount NVARCHAR(4000)

    
IF ISNULL(@where,''= ''
        
BEGIN
            
SET @new_where1 = ' '
            
SET @new_where2 = ' WHERE  '
        
END
    
ELSE
        
BEGIN
            
SET @new_where1 = ' WHERE ' + @where 
            
SET @new_where2 = ' WHERE ' + @where + ' AND '
        
END

    
IF ISNULL(@order,''= '' OR @SortType = 1  OR @SortType = 2 
        
BEGIN
            
IF @SortType = 1 
            
BEGIN 
                
SET @new_order1 = ' ORDER BY ' + @PrimaryKey + ' ASC'
                
SET @new_order2 = ' ORDER BY ' + @PrimaryKey + ' DESC'
            
END
            
IF @SortType = 2 
            
BEGIN 
                
SET @new_order1 = ' ORDER BY ' + @PrimaryKey + ' DESC'
                
SET @new_order2 = ' ORDER BY ' + @PrimaryKey + ' ASC'
            
END
        
END
    
ELSE
        
BEGIN
            
SET @new_order1 = ' ORDER BY ' + @Order
        
END

    
IF @SortType = 3 AND  CHARINDEX(','+@PrimaryKey+' ',','+@Order)>0
        
BEGIN
            
SET @new_order1 = ' ORDER BY ' + @Order
            
SET @new_order2 = @Order + ','            
            
SET @new_order2 = REPLACE(REPLACE(@new_order2,'ASC,','{ASC},'),'DESC,','{DESC},')            
            
SET @new_order2 = REPLACE(REPLACE(@new_order2,'{ASC},','DESC,'),'{DESC},','ASC,')
            
SET @new_order2 = ' ORDER BY ' + SUBSTRING(@new_order2,1,LEN(@new_order2)-1)            
            
IF @FieldList <> '*'
                
BEGIN            
                    
SET @new_order3 = REPLACE(REPLACE(@Order + ',','ASC,',','),'DESC,',',')                              
                    
SET @FieldList = ',' + @FieldList                    
                    
WHILE CHARINDEX(',',@new_order3)>0
                    
BEGIN
                        
IF CHARINDEX(SUBSTRING(','+@new_order3,1,CHARINDEX(',',@new_order3)),','+@FieldList+',')>0
                        
BEGIN 
                        
SET @FieldList = 
                            
@FieldList + ',' + SUBSTRING(@new_order3,1,CHARINDEX(',',@new_order3))                        
                        
END
                        
SET @new_order3 = 
                        
SUBSTRING(@new_order3,CHARINDEX(',',@new_order3)+1,LEN(@new_order3))
                    
END
                    
SET @FieldList = SUBSTRING(@FieldList,2,LEN(@FieldList))                     
                
END            
        
END

    
SET @SqlCount = 'SELECT @TotalCount=COUNT(*),@TotalPageCount=CEILING((COUNT(*)+0.0)/'
                    
+ CAST(@PageSize AS VARCHAR)+') FROM ' + @TableName + @new_where1
    
    
IF @RecorderCount  = 0
        
BEGIN
             
EXEC SP_EXECUTESQL @SqlCount,N'@TotalCount INT OUTPUT,@TotalPageCount INT OUTPUT',
                               
@TotalCount OUTPUT,@TotalPageCount OUTPUT
        
END
    
ELSE
        
BEGIN
             
SELECT @TotalCount = @RecorderCount            
        
END

    
IF @PageIndex > CEILING((@TotalCount+0.0)/@PageSize)
        
BEGIN
            
SET @PageIndex =  CEILING((@TotalCount+0.0)/@PageSize)
        
END

    
IF @PageIndex = 1 OR @PageIndex >= CEILING((@TotalCount+0.0)/@PageSize)
        
BEGIN
            
IF @PageIndex = 1 --返回第一页数据
                BEGIN
                    
SET @Sql = 'SELECT TOP ' + STR(@PageSize+ ' ' + @FieldList + ' FROM ' 
                               
+ @TableName + @new_where1 + @new_order1
                
END
            
IF @PageIndex >= CEILING((@TotalCount+0.0)/@PageSize)  --返回最后一页数据
                BEGIN
                    
SET @Sql = 'SELECT TOP ' + STR(@PageSize+ ' ' + @FieldList + ' FROM (' 
                               
+ 'SELECT TOP ' + STR(ABS(@PageSize*@PageIndex-@TotalCount-@PageSize)) 
                               
+ ' ' + @FieldList + ' FROM '
                               
+ @TableName + @new_where1 + @new_order2 + ' ) AS TMP '
                               
+ @new_order1                    
                
END        
        
END    
    
ELSE
        
BEGIN
            
IF @SortType = 1  --仅主键正序排序
                BEGIN
                    
IF @PageIndex <= CEILING((@TotalCount+0.0)/@PageSize)/2  --正向检索
                        BEGIN
                            
SET @Sql = 'SELECT TOP ' + STR(@PageSize+ ' ' + @FieldList + ' FROM ' 
                                       
+ @TableName + @new_where2 + @PrimaryKey + ' > '
                                       
+ '(SELECT MAX(' + @PrimaryKey + ') FROM (SELECT TOP '
                                       
+ STR(@PageSize*(@PageIndex-1)) + ' ' + @PrimaryKey 
                                       
+ ' FROM ' + @TableName
                                       
+ @new_where1 + @new_order1 +' ) AS TMP) '+ @new_order1
                        
END
                    
ELSE  --反向检索
                        BEGIN
                            
SET @Sql = 'SELECT TOP ' + STR(@PageSize+ ' ' + @FieldList + ' FROM (' 
                                       
+ 'SELECT TOP ' + STR(@PageSize+ ' ' 
                                       
+ @FieldList + ' FROM '
                                       
+ @TableName + @new_where2 + @PrimaryKey + ' < '
                                       
+ '(SELECT MIN(' + @PrimaryKey + ') FROM (SELECT TOP '
                                       
+ STR(@TotalCount-@PageSize*@PageIndex+ ' ' + @PrimaryKey 
                                       
+ ' FROM ' + @TableName
                                       
+ @new_where1 + @new_order2 +' ) AS TMP) '+ @new_order2 
                                       
+ ' ) AS TMP ' + @new_order1
                        
END
                
END
            
IF @SortType = 2  --仅主键反序排序
                BEGIN
                    
IF @PageIndex <= CEILING((@TotalCount+0.0)/@PageSize)/2  --正向检索
                        BEGIN
                            
SET @Sql = 'SELECT TOP ' + STR(@PageSize+ ' ' + @FieldList + ' FROM ' 
                                       
+ @TableName + @new_where2 + @PrimaryKey + ' < '
                                       
+ '(SELECT MIN(' + @PrimaryKey + ') FROM (SELECT TOP '
                                       
+ STR(@PageSize*(@PageIndex-1)) + ' ' + @PrimaryKey 
                                       
+' FROM '+ @TableName
                                       
+ @new_where1 + @new_order1 + ') AS TMP) '+ @new_order1                               
                        
END 
                    
ELSE  --反向检索
                        BEGIN
                            
SET @Sql = 'SELECT TOP ' + STR(@PageSize+ ' ' + @FieldList + ' FROM (' 
                                       
+ 'SELECT TOP ' + STR(@PageSize+ ' ' 
                                       
+ @FieldList + ' FROM '
                                       
+ @TableName + @new_where2 + @PrimaryKey + ' > '
                                       
+ '(SELECT MAX(' + @PrimaryKey + ') FROM (SELECT TOP '
                                       
+ STR(@TotalCount-@PageSize*@PageIndex+ ' ' + @PrimaryKey 
                                       
+ ' FROM ' + @TableName
                                       
+ @new_where1 + @new_order2 +' ) AS TMP) '+ @new_order2 
                                       
+ ' ) AS TMP ' + @new_order1
                        
END  
                
END                         
            
IF @SortType = 3  --多列排序,必须包含主键,且放置最后,否则不处理
                BEGIN
                    
IF CHARINDEX(',' + @PrimaryKey + ' ',',' + @Order= 0 
                    
BEGIN PRINT('ERR_02'RETURN END
                    
IF @PageIndex <= CEILING((@TotalCount+0.0)/@PageSize)/2  --正向检索
                        BEGIN
                            
SET @Sql = 'SELECT TOP ' + STR(@PageSize+ ' ' + @FieldList + ' FROM ( '
                                       
+ 'SELECT TOP ' + STR(@PageSize+ ' ' + @FieldList + ' FROM ( '
                                       
+ ' SELECT TOP ' + STR(@PageSize*@PageIndex+ ' ' + @FieldList
                                       
+ ' FROM ' + @TableName + @new_where1 + @new_order1 + ' ) AS TMP '
                                       
+ @new_order2 + ' ) AS TMP ' + @new_order1    
                        
END
                    
ELSE  --反向检索
                        BEGIN
                            
SET @Sql = 'SELECT TOP ' + STR(@PageSize+ ' ' + @FieldList + ' FROM ( '  
                                       
+ 'SELECT TOP ' + STR(@PageSize+ ' ' + @FieldList + ' FROM ( '
                                       
+ ' SELECT TOP ' + STR(@TotalCount-@PageSize*@PageIndex+@PageSize+ ' ' + @FieldList
                                       
+ ' FROM ' + @TableName + @new_where1 + @new_order2 + ' ) AS TMP '
                                       
+ @new_order1 + ' ) AS TMP ' + @new_order1
                        
END
                
END
        
END
    
PRINT(@Sql)
    
EXEC(@Sql)
GO

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值