如何在 SQL for MS Access 中实现分页？

Question

我正在使用 ASP.NET 通过 OdbcConnection 类访问 Microsoft Access 2002 数据库 (MDB)，虽然速度很慢，但它运行良好。

我的问题是关于如何在 SQL 中实现对这个数据库的查询的分页，因为我知道我可以将 TOP 子句实现为：

SELECT TOP 15 *
FROM table

但我无法找到一种方法将其限制为偏移量，这可以通过使用 ROWNUMBER 的 SQL Server 来完成。我最好的尝试是：

SELECT ClientCode,
    (SELECT COUNT(c2.ClientCode)
        FROM tblClient AS c2
        WHERE c2.ClientCode <= c1.ClientCode)
    AS rownumber
FROM tblClient AS c1
WHERE rownumber BETWEEN 0 AND 15

失败：

错误来源：Microsoft JET 数据库引擎

错误消息：没有为一个或多个必需参数指定值。

我无法解决这个错误，但我假设它与确定 rownumber?的子查询有关？

对此的任何帮助将不胜感激；我在谷歌上的搜索产生了无益的结果:(

Answer 1

如果您希望在 MS Acces 中应用分页，请使用此

SELECT *
FROM (
    SELECT Top 5 sub.ClientCode
    FROM (
        SELECT TOP 15 tblClient.ClientCode
        FROM tblClient
        ORDER BY tblClient.ClientCode
    ) sub
   ORDER BY sub.ClientCode DESC
) subOrdered
ORDER BY subOrdered.ClientCode

其中15是StartPos + PageSize，5是PageSize。

编辑评论：

您收到的错误是因为您试图引用在同一级别的查询中分配的列名，即 rownumber。如果您要将查询更改为：

SELECT *
FROM (
    SELECT ClientCode,
           (SELECT COUNT(c2.ClientCode)
            FROM tblClient AS c2
            WHERE c2.ClientCode <= c1.ClientCode) AS rownumber                
    FROM tblClient AS c1
)
WHERE rownumber BETWEEN 0 AND 15

它不应该给你一个错误，但我不认为这是你想要的分页结果。

Answer 2

有关原始答案，请参阅 astander's answer，但这是我的最终实现，它考虑了一些 ODBC 解析器规则（跳过 30 条后的前 15 条记录）：

SELECT *
FROM (
  SELECT Top 15 -- = PageSize
  *
  FROM
  (
   SELECT TOP 45 -- = StartPos + PageSize
   *
   FROM tblClient
   ORDER BY Client
  ) AS sub1
  ORDER BY sub1.Client DESC
 ) AS clients
ORDER BY Client

这里的区别在于，当按客户端名称排序时，我需要分页才能工作，并且我需要所有列（嗯，实际上只是一个子集，但我在最外层的查询中对其进行排序）。

Answer 3

我使用这段SQL代码来实现Access的分页

Select TOP Row_Per_Page * From [
Select TOP (TotRows - ((Page_Number - 1) * Row_Per_Page)
From SampleTable Order By ColumnName DESC
] Order By ColumnName ASC

我发表了一篇带有一些截图的文章 on my blog

Answer 4

在访问中使用限制或获取分页的一种简单方法是使用 ADODB 库，该库支持许多具有相同语法的数据库的分页。 http://phplens.com/lens/adodb/docs-adodb.htm#ex8 它很容易修改/覆盖寻呼机类，然后以数组格式获取所需的行数。

Answer 5

这是使用 OleDbDataAdapter 和 Datatable 类的简单分页方法。为简单起见，我使用了不同的 SQL 命令。

        Dim sSQL As String = "select Name, Id from Customer order by Id"
        Dim pageNumber As Integer = 1
        Dim nTop As Integer = 20
        Dim nSkip As Integer = 0
        Dim bContinue As Boolean = True
        Dim dtData as new Datatable
        Do While bContinue

            dtData = GetData(sSQL, nTop, nSkip, ConnectionString)

            nSkip = pageNumber * nTop
            pageNumber = pageNumber + 1

            bContinue = dtData.Rows.Count > 0
            If bContinue Then
                For Each dr As DataRow In dtData.Rows
                    'do your work here
                Next
            End If
        Loop

这里是 GetData 函数。

    Private Function GetData(ByVal sql As String, ByVal RecordsToFetch As Integer, ByVal StartFrom As Integer, ByVal BackEndTableConnection As String) As DataTable
    Dim dtResult As New DataTable
    Try
        Using conn As New OleDb.OleDbConnection(BackEndTableConnection)
            conn.Open()
            Using cmd As New OleDb.OleDbCommand
                cmd.Connection = conn
                cmd.CommandText = sql
                Using da As New OleDb.OleDbDataAdapter(cmd)
                    If RecordsToFetch > 0 Then
                        da.Fill(StartFrom, RecordsToFetch, dtResult)
                    Else
                        da.Fill(dtResult)
                    End If
                End Using
            End Using
        End Using
    Catch ex As Exception
    End Try
    Return dtResult
End Function

每次循环运行到文件末尾，上述代码都会从表 Customer 中返回 10 行。

Answer 6

SELECT  *
FROM BS_FOTOS AS TBL1
WHERE ((((select COUNT(ID) AS DD FROM BS_FOTOS AS TBL2 WHERE TBL2.ID<=TBL1.ID)) BETWEEN  10 AND 15 ));

它的结果只有 10 到 15 条记录。