顯示指定表、視圖、查詢結果的第X頁
對于表中主鍵或標識列的情況,直接從原表取數查詢，其它情況使用臨時表的方法
如果視圖或查詢結果中有主鍵,不推薦此方法
如果使用查詢語句,而且查詢語句使用了order by,則查詢語句必須包含top 語句

--感謝csdn.net鄒建??--*/

/*--調用示例
exec p_show '地區資料'

exec p_show 'select top 100 percent * from 地區資料 order by 地區名稱',5,3,'地區編號,地區名稱,助記碼'
--*/
Create Proc p_show
@QueryStr nvarchar(4000),--表名、視圖名、查詢語句
@PageSize int=20,--每頁的大小(行數)
@PageCurrent int=1,--要顯示的頁
@FdShow nvarchar (4000)='',--要顯示的字段列表,如果查詢結果不需要標識字段,需要指定此值,且不包含標識字段
@FdOrder nvarchar (1000)=''--排序字段列表
as
set nocount on
declare @FdName nvarchar(250)--表中的主鍵或表、臨時表中的標識列名
,@Id1 varchar(20),@Id2 varchar(20)--開始和結束的記錄號
,@Obj_ID int--對象ID
--表中有復合主鍵的處理
declare @strfd nvarchar(2000)--復合主鍵列表
,@strjoin nvarchar(4000)--連接字段
,@strwhere nvarchar(2000)--查詢條件


select @Obj_ID=object_id(@QueryStr)
,@FdShow=case isnull(@FdShow,'') when '' then ' *' else ' '+@FdShow end
,@FdOrder=case isnull(@FdOrder,'') when '' then '' else ' order by '+@FdOrder end
,@QueryStr=case when @Obj_ID is not null then ' '+@QueryStr else ' ('+@QueryStr+') a' end

--如果顯示第一頁，可以直接用top來完成
if @PageCurrent=1
begin
select @Id1=cast(@PageSize as varchar(20))
exec('select top '+@Id1+@FdShow+' from '+@QueryStr+@FdOrder)
return
end

--如果是表,則檢查表中是否有標識更或主鍵
if @Obj_ID is not null and objectproperty(@Obj_ID,'IsTable')=1
begin
select @Id1=cast(@PageSize as varchar(20))
,@Id2=cast((@PageCurrent-1)*@PageSize as varchar(20))

select @FdName=name from syscolumns where id=@Obj_ID and status=0x80
if @@rowcount=0--如果表中無標識列,則檢查表中是否有主鍵
begin
if not exists(select 1 from sysobjects where parent_obj=@Obj_ID and xtype='PK')
goto lbusetemp--如果表中無主鍵,則用臨時表處理

select @FdName=name from syscolumns where id=@Obj_ID and colid in(
select colid from sysindexkeys where @Obj_ID=id and indid in(
select indid from sysindexes where @Obj_ID=id and name in(
select name from sysobjects where xtype='PK' and parent_obj=@Obj_ID
)))
if @@rowcount>1--檢查表中的主鍵是否為復合主鍵
begin
select @strfd='',@strjoin='',@strwhere=''
select @strfd=@strfd+',['+name+']'
,@strjoin=@strjoin+' and a.['+name+']=b.['+name+']'
,@strwhere=@strwhere+' and b.['+name+'] is null'
from syscolumns where id=@Obj_ID and colid in(
select colid from sysindexkeys where @Obj_ID=id and indid in(
select indid from sysindexes where @Obj_ID=id and name in(
select name from sysobjects where xtype='PK' and parent_obj=@Obj_ID
)))
select @strfd=substring(@strfd,2,2000)
,@strjoin=substring(@strjoin,5,4000)
,@strwhere=substring(@strwhere,5,4000)
goto lbusepk
end
end
end
else
goto lbusetemp

/*--使用標識列或主鍵為單一字段的處理方法--*/
lbuseidentity:
exec('select top '+@Id1+@FdShow+' from '+@QueryStr
+' where '+@FdName+' not in(select top '
+@Id2+' '+@FdName+' from '+@QueryStr+@FdOrder
+')'+@FdOrder
)
return

/*--表中有復合主鍵的處理方法--*/
lbusepk:
exec('select '+@FdShow+' from(select top '+@Id1+' a.* from
(select top 100 percent * from '+@QueryStr+@FdOrder+') a
left join (select top '+@Id2+' '+@strfd+'
from '+@QueryStr+@FdOrder+') b on '+@strjoin+'
where '+@strwhere+') a'
)
return

/*--用臨時表處理的方法--*/
lbusetemp:
select @FdName='[ID_'+cast(newid() as varchar(40))+']'
,@Id1=cast(@PageSize*(@PageCurrent-1) as varchar(20))
,@Id2=cast(@PageSize*@PageCurrent-1 as varchar(20))

exec('select '+@FdName+'=identity(int,0,1),'+@FdShow+'
into #tb from'+@QueryStr+@FdOrder+'
select '+@FdShow+' from #tb where '+@FdName+' between '
+@Id1+' and '+@Id2
)
GO

巨快， 通用表維護增刪查改存儲過程分頁顯示
(疾病名稱表近2萬數據)
導出excel并下載
http://www.adr.gov.cn/download/panyuguang/adrnew/dict_List.asp
下載
ftp://csdn:csdn@61.152.210.28/

換了個空間，沒辦法，打游擊，到處蹭空間。

-- 獲取指定頁的數據
Create PROCEDURE GetRecordFromPage
????@tblName??????varchar(255),?????? -- 表名
????@fldName??????varchar(255),?????? -- 字段名
????@PageSize???? int = 10,?????????? -- 頁尺寸
????@PageIndex????int = 1,????????????-- 頁碼
????@IsCount??????bit = 0,????????????-- 返回記錄總數, 非 0 值則返回
????@OrderType????bit = 0,????????????-- 設置排序類型, 非 0 值則降序
????@strWhere???? varchar(1000) = ''??-- 查詢條件 (注意: 不要加 where)
AS

declare @strSQL?? varchar(6000)?????? -- 主語句
declare @strTmp?? varchar(100)????????-- 臨時變量
declare @strOrder varchar(400)????????-- 排序類型

if @OrderType != 0
begin
????set @strTmp = "<(select min"
????set @strOrder = " order by [" + @fldName +"] desc"
end
else
begin
????set @strTmp = ">(select max"
????set @strOrder = " order by [" + @fldName +"] asc"
end

set @strSQL = "select top " + str(@PageSize) + " * 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) + " * from ["
????????+ @tblName + "] where [" + @fldName + "]" + @strTmp + "(["
????????+ @fldName + "]) from (select top " + str((@PageIndex-1)*@PageSize) + " ["
????????+ @fldName + "] from [" + @tblName + "] where " + @strWhere + " "
????????+ @strOrder + ") as tblTmp) and " + @strWhere + " " + @strOrder

if @PageIndex = 1
begin
????set @strTmp = ""
????if @strWhere != ''
????????set @strTmp = " where " + @strWhere

????set @strSQL = "select top " + str(@PageSize) + " * from ["
????????+ @tblName + "]" + @strTmp + " " + @strOrder
end

if @IsCount != 0
????set @strSQL = "select count(*) as Total from [" + @tblName + "]"

exec (@strSQL)

GO



[百萬級]通用存儲過程.分頁存儲過程.
/*
名稱:spAll_ReturnRows
輸入:
輸出:
調用:
??EXEC spAll_ReturnRows 'Select??* FROM 表名', 頁號, 返回記錄數, '主鍵', '排序字段'
??spAll_ReturnRows 'Select??* FROM all_Categories',2,10,'[ID]','[ID]'
說明:[百萬級]通用存儲過程.分頁存儲過程..返回指定返回條數、指定頁數的記錄
作者:Dili J.F. Senders
??郵件:diliatwellknow.net
??網站: http://www.wellknow.net
??更新:20040610
??支持: http://bbs.wellknow.net
??版權:轉述時請注明來源:用思維創造未來的Wellknow.net
*/

Create PROCEDURE dbo.spAll_ReturnRows
(
@SQL nVARCHAR(4000),
@Page int,
@RecsPerPage int,
@ID VARCHAR(255),
@Sort VARCHAR(255)
)
AS

DECLARE @Str nVARCHAR(4000)

SET @Str='Select?? TOP '+CAST(@RecsPerPage AS VARCHAR(20))+' * FROM ('+@SQL+') T Where T.'+@ID+' NOT IN
(Select?? TOP '+CAST((@RecsPerPage*(@Page-1)) AS VARCHAR(20))+' '+@ID+' FROM ('+@SQL+') T9 orDER BY '+@Sort+') orDER BY '+@Sort

PRINT @Str

EXEC sp_ExecuteSql @Str
GO

總結

以上是生活随笔為你收集整理的实现分页的通用存储过程的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。