谁能给个SQL2000的数据库分页方法

Question

拜求大佬们：
   能否给各高效的SQL2000的数据分页方法。
   可以是存储过程；也可以是在Deiphi中村代码实现。

Answer 1

楼主可以在SQL2000版搜索一下就有了

Answer 2

转自: http://blog.csdn.net/lihonggen0/archive/2004/09/14/103511.aspx  1SQL Server 存储过程的分页，这个问题已经讨论过几年了，很多朋友在问我，所以在此发表一下我的观点
  2建立表：
  3
  4CREATE TABLE [TestTable] (
  5 [ID] [int] IDENTITY (1, 1) NOT NULL ,
  6 [FirstName] [nvarchar] (100) COLLATE Chinese_PRC_CI_AS NULL ,
  7 [LastName] [nvarchar] (100) COLLATE Chinese_PRC_CI_AS NULL ,
  8 [Country] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
  9 [Note] [nvarchar] (2000) COLLATE Chinese_PRC_CI_AS NULL 
 10) ON [PRIMARY]
 11GO
 12
 13 
 14
 15插入数据：(2万条，用更多的数据测试会明显一些)
 16SET IDENTITY_INSERT TestTable ON
 17
 18declare @i int
 19set @i=1
 20while @i<=20000
 21begin
 22    insert into TestTable([id], FirstName, LastName, Country,Note) values(@i, 'FirstName_XXX','LastName_XXX','Country_XXX','Note_XXX')
 23    set @i=@i+1
 24end
 25
 26SET IDENTITY_INSERT TestTable OFF
 27
 28 
 29
 30-------------------------------------
 31
 32分页方案一：(利用Not In和SELECT TOP分页)
 33语句形式：
 34SELECT TOP 10 *
 35FROM TestTable
 36WHERE (ID NOT IN
 37          (SELECT TOP 20 id
 38         FROM TestTable
 39         ORDER BY id))
 40ORDER BY ID
 41
 42
 43SELECT TOP 页大小 *
 44FROM TestTable
 45WHERE (ID NOT IN
 46          (SELECT TOP 页大小*页数 id
 47         FROM 表
 48         ORDER BY id))
 49ORDER BY ID
 50
 51-------------------------------------
 52
 53分页方案二：(利用ID大于多少和SELECT TOP分页）
 54语句形式：
 55SELECT TOP 10 *
 56FROM TestTable
 57WHERE (ID >
 58          (SELECT MAX(id)
 59         FROM (SELECT TOP 20 id
 60                 FROM TestTable
 61                 ORDER BY id) AS T))
 62ORDER BY ID
 63
 64
 65SELECT TOP 页大小 *
 66FROM TestTable
 67WHERE (ID >
 68          (SELECT MAX(id)
 69         FROM (SELECT TOP 页大小*页数 id
 70                 FROM 表
 71                 ORDER BY id) AS T))
 72ORDER BY ID
 73
 74
 75-------------------------------------
 76
 77分页方案三：(利用SQL的游标存储过程分页)
 78create  procedure XiaoZhengGe
 79@sqlstr nvarchar(4000), --查询字符串
 80@currentpage int, --第N页
 81@pagesize int --每页行数
 82as
 83set nocount on
 84declare @P1 int, --P1是游标的id
 85 @rowcount int
 86exec sp_cursoropen @P1 output,@sqlstr,@scrollopt=1,@ccopt=1,@rowcount=@rowcount output
 87select ceiling(1.0*@rowcount/@pagesize) as 总页数--,@rowcount as 总行数,@currentpage as 当前页 
 88set @currentpage=(@currentpage-1)*@pagesize+1
 89exec sp_cursorfetch @P1,16,@currentpage,@pagesize 
 90exec sp_cursorclose @P1
 91set nocount off
 92
 93其它的方案：如果没有主键，可以用临时表，也可以用方案三做，但是效率会低。
 94建议优化的时候，加上主键和索引，查询效率会提高。
 95
 96通过SQL 查询分析器，显示比较：我的结论是:
 97分页方案二：(利用ID大于多少和SELECT TOP分页）效率最高，需要拼接SQL语句
 98分页方案一：(利用Not In和SELECT TOP分页)   效率次之，需要拼接SQL语句
 99分页方案三：(利用SQL的游标存储过程分页)    效率最差，但是最为通用
100
101在实际情况中，要具体分析。

Answer 3

设置MaxRecords的值
ADODataSet1.RecordSet := ADOQuery1.NextRecordset(i);或者你可以用StringGrid之类的来代替

Answer 4

或者将数据库中所有符合查询条件的记录一次性的都读入 recordset 中，存放在内存中，然后通过 ADO Recordset 对象所提供的几个专门支持分页处理的属性： PageSize( 页大小 )、 PageCount( 页数目 ) 以及 AbsolutePage( 绝对页 ) 来管理分页处理。 或者直接用语句来写SELECT TOP PAGESIZE *
FROM TABLENAME
WHERE (ID IN                                     //不是not in
          (SELECT TOP PAGESIZE*n-1 ID
         FROM TABLENAME
         ORDER BY ID))
ORDER BY ID
-----------------------

Answer 5

你还可以利用ClientDataSet的PackRecords 的属性，
将ADOQUERY连到DataSetProvider，将ClientDataSet也指向DataSetProvider，
设置ClientDataSet的PackRecords属性
如
ClientDataSet.FetchOnDemand := false;
ClientDataSet.PackRecords := 10;
不过这时ClientDataSet取一下包时要写语句。
ClientDataSet.GetNextPacket

Answer 6

感谢大家！特别鸣谢yinzhiw(不懂OOP)。
不忘给分！