CSDN博客

img zjcxc

分页查询

发表于2003/12/29 17:29:00  17820人阅读

分类: 分页处理

 

IF OBJECT_ID(N'dbo.p_show'IS NOT NULL
    
DROP PROCEDURE dbo.p_show
GO

/*--实现分页的通用存储过程

    显示指定表、视图、查询结果的第X页
    对于表中主键或标识列的情况,直接从原表取数查询,其它情况使用临时表的方法
    如果视图或查询结果中有主键,不推荐此方法
    如果使用查询语句,而且查询语句使用了order by,则查询语句必须包含top 语句

最后更新时间: 2008.01.20
--邹建 2003.09(引用请保留此信息)--
*/


/*--调用示例
EXEC dbo.p_show 
    @QueryStr = N'tb',
    @PageSize = 5,
    @PageCurrent = 3,
    @FdShow = 'id, colid, name',
    @FdOrder = 'colid, name'
select id, colid from tb
order by colid, name


EXEC dbo.p_show 
    @QueryStr = N'
SELECT TOP 100 PERCENT 
    * 
FROM dbo.sysobjects
ORDER BY xtype',
    @PageSize = 5,
    @PageCurrent = 2,
    @FdShow = 'name, xtype',
    @FdOrder = 'xtype, name'
--
*/

CREATE PROC dbo.p_show
    
@QueryStr nvarchar(4000),        -- 表名、视图名、查询语句
    @PageSize int=10,                -- 每页的大小(行数)
    @PageCurrent int=1,                -- 要显示的页
    @FdShow nvarchar (4000= N'',    -- 要显示的字段列表,如果查询结果不需要标识字段,需要指定此值,且不包含标识字段
    @FdOrder nvarchar (1000= N''    -- 排序字段列表
AS
SET NOCOUNT ON
DECLARE
    
@FdName sysname,    --表中的主键或表、临时表中的标识列名
    @Id1 sysname,        --开始和结束的记录号
    @Id2 sysname,
    
@Obj_ID int            --对象ID

--表中有复合主键的处理
DECLARE
    
@strfd nvarchar(2000),        --复合主键列表
    @strjoin nvarchar(4000),    --连接字段
    @strwhere nvarchar(2000)    --查询条件


SELECT
    
@Obj_ID = OBJECT_ID(@QueryStr),
    
@FdShow = CASE 
                
WHEN @FdShow > N'' THEN N' ' + @FdShow
                
ELSE N' *'
            
END,
    
@FdOrder = CASE
                
WHEN @FdOrder > N'' THEN N' ORDER BY ' + @FdOrder
                
ELSE N' ' 
            
END,
    
@QueryStr = CASE
                
WHEN @Obj_ID IS NULL THEN N' (' + @QueryStr + N')A'
                
ELSE N' ' + @QueryStr
            
END

-- 如果显示第一页,可以直接用 top 来完成
IF @PageCurrent = 1    
BEGIN
    
SELECT 
        
@Id1 = CAST(@PageSize as varchar(20))
    
EXEC(N'
SELECT TOP 
' + @Id1 + N'
    
' + @FdShow + N'
FROM 
' + @QueryStr + N'
' + @FdOrder
)
    
RETURN
END

-- 如果是表, 则检查表中是否有标识更或主键
IF @Obj_ID IS NULL OR OBJECTPROPERTY(@Obj_ID'IsTable'= 0
    
GOTO lb_usetemp
ELSE
BEGIN
    
SELECT
        
@Id1 = CAST(@PageSize as varchar(20)),
        
@Id2 = CAST((@PageCurrent - 1* @PageSize as varchar(20))

    
-- 标识列
    SELECT
        
@FdName = name
    
FROM dbo.syscolumns
    
WHERE id = @Obj_ID
        
AND status = 0x80
    
IF @@ROWCOUNT = 0            --如果表中无标识列,则检查表中是否有主键
    BEGIN
        
DECLARE
            
@pk_number int

        
SELECT
            
@strfd = N'',
            
@strjoin = N'',
            
@strwhere = N''

        
SELECT
            
@strfd = @strfd 
                    
+ N',' + QUOTENAME(name),
            
@strjoin = @strjoin 
                    
+ N' AND A.' + QUOTENAME(name) 
                    
+ N'=B.' +  QUOTENAME(name),
            
@strwhere = @strwhere 
                    
+ N' AND B.' + QUOTENAME(name) + N' IS NULL'
        
FROM(
            
SELECT
                IX.id, IX.indid,
                IXC.colid, ixc.keyno,
                C.name
            
FROM dbo.sysobjects O, 
                dbo.sysindexes IX,
                dbo.sysindexkeys IXC,
                dbo.syscolumns C
            
WHERE O.parent_obj = @Obj_ID
                
AND O.xtype = 'PK'
                
AND O.name = IX.name
                
AND IX.id = @Obj_ID
                
AND IX.id = IXC.id
                
AND IX.indid = IXC.indid
                
AND IXC.id = C.id
                
AND IXC.colid = C.colid
        )A
        
ORDER BY keyno

        
SELECT
            
@pk_number = @@ROWCOUNT,            
            
@strfd = STUFF(@strfd11, N''),
            
@strjoin = STUFF(@strjoin15, N''),
            
@strwhere = STUFF(@strwhere15, N'')            

        
IF @pk_number = 0
            
GOTO lb_usetemp        --如果表中无主键,则用临时表处理
        ELSE IF @pk_number = 1
        
BEGIN
            
SELECT
                
@FdName = @strfd
            
GOTO lb_useidentity    -- 使用单一主键
        END
        
ELSE
            
GOTO lb_usepk        -- 使用复合主键
    END
END

/*--使用标识列或主键为单一字段的处理方法--*/
lb_useidentity:    
EXEC(N'
SELECT TOP 
' + @Id1 + N'
    
' + @FdShow + N'
FROM 
'+@QueryStr + N'
WHERE 
' + @FdName + ' NOT IN(
        SELECT TOP 
' + @Id2 + N'
            
' + @FdName + '
        FROM 
' + @QueryStr + N'
        
' + @FdOrder + N')
' + @FdOrder + N'
')
RETURN

/*--表中有复合主键的处理方法--*/
lb_usepk:        
EXEC(N'
SELECT 
    
' + @FdShow + N'
FROM(
    SELECT TOP 
' + @Id1 + N'
        A.*
    FROM 
' + @QueryStr + N' A
        LEFT JOIN(
                SELECT TOP 
' + @Id2 + N'
                    
' + @strfd + N' 
                FROM 
' + @QueryStr + N'
                
' + @FdOrder + N'
            )B
                ON 
' + @strjoin + N'
    WHERE 
' + @strwhere + N'
    
' + @FdOrder + N'
)A
' + @FdOrder + N'
')
RETURN

/*--用临时表处理的方法--*/
lb_usetemp:        
SELECT
    
@FdName = QUOTENAME(N'ID_' + CAST(NEWID() as varchar(40))),
    
@Id1 = CAST(@PageSize * (@PageCurrent-1as varchar(20)),
    
@Id2 = CAST(@PageSize * @PageCurrent-1 as varchar(20))

EXEC(N'
SELECT 
    
' + @FdName + N' = IDENTITY(int, 0, 1),
    
' + @FdShow + N'
INTO #tb
FROM(
    SELECT TOP 100 PERCENT 
        * 
    FROM 
' + @QueryStr + N'
    
' + @FdOrder + N'
)A
' + @FdOrder + N'

SELECT 
    
' + @FdShow + N'
FROM #tb 
WHERE 
' + @FdName + ' BETWEEN ' + @Id1 + ' AND ' + @Id2 + N'
'
)
GO
0 0

相关博文

我的热门文章

img
取 消
img