邹建的 sql server 分页存储过程 以备用 SQL ServerSQLGoCC++

1. IFOBJECT_ID(N'dbo.pagination')ISNOTNULL
2. DROPPROCEDUREdbo.pagination
3. GO
5. /**//*--实现分页的通用存储过程
7. 显示指定表、视图、查询结果的第X页
8. 对于表中主键或标识列的情况,直接从原表取数查询，其它情况使用临时表的方法
9. 如果视图或查询结果中有主键,不推荐此方法
10. 如果使用查询语句,而且查询语句使用了orderby,则查询语句必须包含top语句
12. 最后更新时间:2008.01.20
13. --邹建2003.09(引用请保留此信息)--*/
15. /**//*--调用示例
16. EXECdbo.pagination
17. @QueryStr=N'tb',
18. @PageSize=5,
19. @PageCurrent=3,
20. @FdShow='id,colid,name',
21. @FdOrder='colid,name'
22. selectid,colidfromtb
23. orderbycolid,name
26. EXECdbo.pagination
27. @QueryStr=N'
28. SELECTTOP100PERCENT
29. *
30. FROMdbo.sysobjects
31. ORDERBYxtype',
32. @PageSize=5,
33. @PageCurrent=2,
34. @FdShow='name,xtype',
35. @FdOrder='xtype,name'
36. --*/
37. CREATEPROCdbo.pagination
38. @QueryStrnvarchar(4000),--表名、视图名、查询语句
39. @PageSizeint=10,--每页的大小(行数)
40. @PageCurrentint=1,--要显示的页
41. @FdShownvarchar(4000)=N'',--要显示的字段列表,如果查询结果不需要标识字段,需要指定此值,且不包含标识字段
42. @FdOrdernvarchar(1000)=N''--排序字段列表
43. AS
44. SETNOCOUNTON
45. DECLARE
46. @FdNamesysname,--表中的主键或表、临时表中的标识列名
47. @Id1sysname,--开始和结束的记录号
48. @Id2sysname,
49. @Obj_IDint--对象ID
51. --表中有复合主键的处理
52. DECLARE
53. @strfdnvarchar(2000),--复合主键列表
54. @strjoinnvarchar(4000),--连接字段
55. @strwherenvarchar(2000)--查询条件
58. SELECT
59. @Obj_ID=OBJECT_ID(@QueryStr),
60. @FdShow=CASE
61. WHEN@FdShow>N''THENN''+@FdShow
62. ELSEN'*'
63. END,
64. @FdOrder=CASE
65. WHEN@FdOrder>N''THENN'ORDERBY'+@FdOrder
66. ELSEN''
67. END,
68. @QueryStr=CASE
69. WHEN@Obj_IDISNULLTHENN'('+@QueryStr+N')A'
70. ELSEN''+@QueryStr
71. END
73. --如果显示第一页，可以直接用top来完成
74. IF@PageCurrent=1
75. BEGIN
76. SELECT
77. @Id1=CAST(@PageSizeasvarchar(20))
78. EXEC(N'
79. SELECTTOP'+@Id1+N'
80. '+@FdShow+N'
81. FROM'+@QueryStr+N'
82. '+@FdOrder
83. )
84. RETURN
85. END
87. --如果是表,则检查表中是否有标识更或主键
88. IF@Obj_IDISNULLOROBJECTPROPERTY(@Obj_ID,'IsTable')=0
89. GOTOlb_usetemp
90. ELSE
91. BEGIN
92. SELECT
93. @Id1=CAST(@PageSizeasvarchar(20)),
94. @Id2=CAST((@PageCurrent-1)*@PageSizeasvarchar(20))
96. --标识列
97. SELECT
98. @FdName=name
99. FROMdbo.syscolumns
100. WHEREid=@Obj_ID
101. ANDstatus=0x80
102. IF@@ROWCOUNT=0--如果表中无标识列,则检查表中是否有主键
103. BEGIN
104. DECLARE
105. @pk_numberint
107. SELECT
108. @strfd=N'',
109. @strjoin=N'',
110. @strwhere=N''
112. SELECT
113. @strfd=@strfd
114. +N','+QUOTENAME(name),
115. @strjoin=@strjoin
116. +N'ANDA.'+QUOTENAME(name)
117. +N'=B.'+QUOTENAME(name),
118. @strwhere=@strwhere
119. +N'ANDB.'+QUOTENAME(name)+N'ISNULL'
120. FROM(
121. SELECT
122. IX.id,IX.indid,
123. IXC.colid,ixc.keyno,
124. C.name
125. FROMdbo.sysobjectsO,
126. dbo.sysindexesIX,
127. dbo.sysindexkeysIXC,
128. dbo.syscolumnsC
129. WHEREO.parent_obj=@Obj_ID
130. ANDO.xtype='PK'
131. ANDO.name=IX.name
132. ANDIX.id=@Obj_ID
133. ANDIX.id=IXC.id
134. ANDIX.indid=IXC.indid
135. ANDIXC.id=C.id
136. ANDIXC.colid=C.colid
137. )A
138. ORDERBYkeyno
140. SELECT
141. @pk_number=@@ROWCOUNT,
142. @strfd=STUFF(@strfd,1,1,N''),
143. @strjoin=STUFF(@strjoin,1,5,N''),
144. @strwhere=STUFF(@strwhere,1,5,N'')
146. IF@pk_number=0
147. GOTOlb_usetemp--如果表中无主键,则用临时表处理
148. ELSEIF@pk_number=1
149. BEGIN
150. SELECT
151. @FdName=@strfd
152. GOTOlb_useidentity--使用单一主键
153. END
154. ELSE
155. GOTOlb_usepk--使用复合主键
156. END
157. END
159. /**//*--使用标识列或主键为单一字段的处理方法--*/
160. lb_useidentity:
161. EXEC(N'
162. SELECTTOP'+@Id1+N'
163. '+@FdShow+N'
164. FROM'+@QueryStr+N'
165. WHERE'+@FdName+'NOTIN(
166. SELECTTOP'+@Id2+N'
167. '+@FdName+'
168. FROM'+@QueryStr+N'
169. '+@FdOrder+N')
170. '+@FdOrder+N'
171. ')
172. RETURN
174. /**//*--表中有复合主键的处理方法--*/
175. lb_usepk:
176. EXEC(N'
177. SELECT
178. '+@FdShow+N'
179. FROM(
180. SELECTTOP'+@Id1+N'
181. A.*
182. FROM'+@QueryStr+N'A
183. LEFTJOIN(
184. SELECTTOP'+@Id2+N'
185. '+@strfd+N'
186. FROM'+@QueryStr+N'
187. '+@FdOrder+N'
188. )B
189. ON'+@strjoin+N'
190. WHERE'+@strwhere+N'
191. '+@FdOrder+N'
192. )A
193. '+@FdOrder+N'
194. ')
195. RETURN
197. /**//*--用临时表处理的方法--*/
198. lb_usetemp:
199. SELECT
200. @FdName=QUOTENAME(N'ID_'+CAST(NEWID()asvarchar(40))),
201. @Id1=CAST(@PageSize*(@PageCurrent-1)asvarchar(20)),
202. @Id2=CAST(@PageSize*@PageCurrent-1asvarchar(20))
204. EXEC(N'
205. SELECT
206. '+@FdName+N'=IDENTITY(int,0,1),
207. '+@FdShow+N'
208. INTO#tb
209. FROM(
210. SELECTTOP100PERCENT
211. *
212. FROM'+@QueryStr+N'
213. '+@FdOrder+N'
214. )A
215. '+@FdOrder+N'
217. SELECT
218. '+@FdShow+N'
219. FROM#tb
220. WHERE'+@FdName+'BETWEEN'+@Id1+'AND'+@Id2+N'
221. '
222. )
223. GO