YanHai.net  
网站地图 RSS订阅
高级搜索 收藏本站
热门关键字: 菜单
  当前位置:主页>数据库>MSSQL>文章内容
  热点文章
·SQL连接,类型,建表,用法收集
·精妙Sql语句
·存储过程组合SQL语句的方法
·阿里巴巴公司DBA(数据库管理员)
  相关文章
·SQL连接,类型,建表,用法收集
·存储过程组合SQL语句的方法
·精妙Sql语句
·阿里巴巴公司DBA(数据库管理员)
SQL2000分页存储过程
来源: 作者: 发布时间:2007-12-03  
Create PROC P_viewPage_A
/*
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,',',')
(阅读次数:
共3页: 上一页 1 [2] [3] 下一页
上一篇:SQL连接,类型,建表,用法收集   下一篇:存储过程组合SQL语句的方法
[收藏] [推荐] [评论(0条)] [返回顶部] [打印本页] [关闭窗口]  
用户名: 新注册) 密码: 匿名评论
评论内容:(不能超过250字,需审核后才会公布,请自觉遵守互联网相关政策法规。
 最新评论
友情链接 [所有链接] [申请链接]
 DANB GROUP  DB Shop  MINDPATH US  MINDPATH CN  奥佳晋特科技  梦网互联  卓壮速度轮滑俱乐部
 北京中文德利行  Perfect Home  ASIA WEEKLY  Garden of Delights  Web Rank Info  HEALTH TRAVEL ASIA
 Y.H.    AUG Group  
Search Engine Spider Simulator

Enter URL to Spider:

Valid XHTML 1.0 Transitional

Valid XHTML 1.0 Transitional