sql语句实现分页

sql语句实现分页：

 sqlstr = "select top 10 * from shebei where id not in (select top " & (CInt(pagenum) - 1) * 10 & " id from shebei order by id desc) order by id desc"

 

'计算总页数
        Dim str As String = "select count(*) from shebei"
        Dim rd As Data.OleDb.OleDbDataReader
        rd = db.readdata(str)
        Dim pagesum As Integer ‘总页数
        Dim rdcount As Integer  ’总记录数
        While rd.Read
            rdcount = rd(0)
        End While
        If rdcount Mod 10 = 0 Then
            pagesum = rdcount / 10   ’每页显示10条
        Else
            pagesum = (rdcount - rdcount Mod 10) / 10 + 1    
        End If