sqlServer分页的sql语句

Public Function getSql()
  Dim iStart, iEnd
  Call makeCondition()
  iStart  =  ( iPage  -   1  )  *  iPageSize
  iEnd  =  iStart  +  iPageSize
  getSql   =   "  SELECT DISTINCT  "   &  sFields  &   "  FROM [ " & sTableName & " ]  "  _
     &   "  WHERE [ " & sPKey & " ] NOT IN (  "  _
     &   "    SELECT TOP  " & iStart & "  [ " & sPKey & " ] FROM [ " & sTableName & " ]  "   &  sCondition  &   "   "   &  sOrderBy  &   "   "  _
     &   "  ) "  _
     &   "  AND [ " & sPKey & " ] IN (  "  _
     &   "    SELECT TOP  " & iEnd & "  [ " & sPKey & " ] FROM [ " & sTableName & " ]  "   &  sCondition  &   "   "   &  sOrderBy  &   "   "  _
     &   "  ) "  _
     &   "   "   &  sOrderBy  &   "   "
 End Function

转载于:https://www.cnblogs.com/applegreen/archive/2005/04/04/131950.html