if
exists
(
select
*
from
dbo.sysobjects
where
id
=
object_id
(N
'
[dbo].[p_show]
'
)
and
OBJECTPROPERTY
(id, N
'
IsProcedure
'
)
=
1
)
drop
procedure
[
dbo
]
.
[
p_show
]
GO
/**/
/*--实现分页的通用存储过程
显示指定表、视图、查询结果的第X页 对于表中主键或标识列的情况,直接从原表取数查询，其它情况使用临时表的方法 如果视图或查询结果中有主键,不推荐此方法 如果使用查询语句,而且查询语句使用了order by,则查询语句必须包含top 语句
--邹建 2003.09--*/
/**/
/*--调用示例 exec p_show '地区资料' exec p_show 'select top 100 percent * from 地区资料 order by 地区名称',5,3,'地区编号,地区名称,助记码'--*/
CREATE
Proc
p_show
@QueryStr
nvarchar
(
4000
),
--
表名、视图名、查询语句
@PageSize
int
=
10
,
--
每页的大小(行数)
@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
扫一扫
175
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
