国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 數據庫 > SQL Server > 正文

自己改寫的一個sql server 2000的分頁存儲過程

2024-08-31 00:51:29
字體:
來源:轉載
供稿:網友

優點如下,簡單,直接sql語句輸入,高效,效率很高測試過了,不過最好是主鍵排序,還有少用視圖 。

缺點也有,不支持復雜的sql語句,不能多字段排序,sql語句必須小于4000字符

/*
  經測試,在 14483461 條記錄中查詢第 100000 頁,每頁 10 條記錄按升序和降序第一次時間均為 0.47 秒,第二次時間均為 0.43 秒,測試語法如下:
  exec GetRecordFromPage news,newsid,10,100000
  news 為 表名, newsid 為關鍵字段, 使用時請先對 newsid 建立索引。
*/

/*
  函數名稱: GetRecordFromPage
  函數功能: 獲取指定頁的數據
  參數說明: @tblName      包含數據的表名
           @fldName      關鍵字段名
           @PageSize     每頁記錄數
           @PageIndex    要獲取的頁碼
           @OrderType    排序類型, 0 - 升序, 1 - 降序
           @strWhere     查詢條件 (注意: 不要加 where)
  作  者: 鐵拳
  郵  箱: sunjianhua_kki@sina.com
  創建時間: 2004-07-04
  修改時間: 2004-07-04
  http://blog.vevb.com/
*/
CREATE   PROCEDURE GetRecordFromPage1
    @SQL     varchar(8000),      -- SQL語句
    @PageSize     int = 10,           -- 頁尺寸
    @PageIndex    int = 1,            -- 頁碼
    --@strOut       varchar(6000) output 輸出處理完成的SQL語句
    @RecordCount  int = 0 output      -- 輸出總記錄數
AS

declare @strSQL   varchar(8000)       -- 最后獲取的SQL語句
declare @strTmp   varchar(8000)       -- 臨時變量
declare @strOrder varchar(500)        -- 排序類型
declare @tblName  varchar(255)        -- 表名
declare @fldName  varchar(255)        -- 字段名
declare @strWhere varchar(8000)       -- 查詢條件 (注意: 不要加 where)
declare @tmpOrder varchar(255)        -- 排序字符串臨時變量
declare @strFilds varchar(8000)       -- 需要顯示的列
declare @intFilds int              -- 顯示的列所在位置
declare @intOrder int                 -- 排序字符串位置
declare @intSQL   int              -- SQL語句長度
declare @intWhere int                 -- where字符串位置
declare @intTable int              -- 表名稱位置
declare @strrssql nvarchar(4000)      -- 統計總記錄數sql語句

set @intOrder=CharIndex('order by',@SQL)
set @intSQL=Len(@SQL)

set @intFilds=CharIndex('select',@SQL)
set @strFilds=SubString(@SQL,@intFilds+7,@intSQL-@intFilds-1)
set @strFilds=SubString(@strFilds,1,CharIndex('from',@strFilds)-1)

set @tblName=SubString(@SQL,CharIndex('from',@SQL)+5,@intSQL-CharIndex('from',@SQL)+5)
set @intTable=CharIndex(' ',@tblName)
if @intTable>0
begin
    set @tblName=SubString(@tblName,1,@intTable-1)
end

set @intWhere=CharIndex('where ',@SQL)
if @intWhere>0
begin
    if @intOrder>0
    begin
    set @strWhere=SubString(@SQL,@intWhere+6,@intOrder-@intWhere-7)
    end
    else
    begin
    set @strWhere=SubString(@SQL,@intWhere+6,@intSQL-@intWhere-5)
    end
end
else
begin
    set @strWhere=''
end

if @intOrder>0
begin
    set @strOrder=' '+SubString(@SQL,@intOrder,@intSQL-@intOrder+1)
    set @tmpOrder=SubString(@strOrder,11,Len(@strOrder)-10)
    if CharIndex(' ',@tmpOrder)>0
    begin
        set @fldName=SubString(@tmpOrder,1,CharIndex(' ',@tmpOrder)-1)
    end
    else
    begin
    set @fldName=@tmpOrder
    end
    if CharIndex('desc',@SQL)>0
    begin
    set @strTmp='<(select min'
    end
    else
    begin
    set @strTmp='>(select max'
    end
end
else
begin
    set @fldName='ID'
    set @strTmp = '>(select max'
    set @strOrder = ' order by [' + @fldName +'] asc'
end

set @strSQL = 'select top ' + LTrim(str(@PageSize)) + ' '+@strFilds+' from ['
    + @tblName + '] where [' + @fldName + ']' + @strTmp + '(['
    + @fldName + ']) from (select top ' + LTrim(str((@PageIndex-1)*@PageSize)) + ' ['
    + @fldName + '] from [' + @tblName + ']' + @strOrder + ') as tblTmp)'
    + @strOrder

if @strWhere != ''
    set @strSQL = 'select top ' + LTrim(str(@PageSize)) + ' '+@strFilds+' from ['
        + @tblName + '] where [' + @fldName + ']' + @strTmp + '([' + @fldName + ']) from (select top ' + LTrim(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 ' + LTrim(str(@PageSize)) + ' '+@strFilds+' from ['
        + @tblName + ']' + @strTmp + ' ' + @strOrder
end

exec (@strSQL)

-----統計總記錄數
if @strWhere!=''
begin
    set @strRsSql='select @RecordCount=count('+@fldName+') from ['+@tblName
    +'] where ('+@strWhere+')'
end
else
begin
    set @strRsSql='select @RecordCount=count('+@fldName+') from ['+@tblName
    +']'
end
EXEC sp_executesql @strRsSql,N'@RecordCount int out',@RecordCount out   
-----統計結束

--set @strOut=@strSQL
GO


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 乐东| 容城县| 镇康县| 句容市| 杨浦区| 佳木斯市| 乌拉特后旗| 贡觉县| 来安县| 吉林市| 湘潭县| 元氏县| 公主岭市| 阜南县| 永靖县| 宜良县| 武功县| 定西市| 长顺县| 乐安县| 石林| 电白县| 武山县| 南阳市| 深水埗区| 来凤县| 大姚县| 分宜县| 南和县| 沙洋县| 张家界市| 金华市| 淄博市| 明水县| 通渭县| 东阿县| 嘉义市| 彩票| 本溪市| 西华县| 商丘市|