«á»O¼Æ¾Ú®w¥Î¬OAccess,«È¤á¥Î¤F¤@¦~«á»¡¥´¶}¬É±«D±`ºC,¬d¬Ý¤F¼Æ¾Ú®w«áµo²{¼Æ¾Úªí¤¤ªº°O¿ý¤w¦³¤¸U¦h±ø,¦Û¤v¸Õ¹L±N°O¿ý´_¨î¨ì10 ¸U±ø,¥´¶}¬É±«D±`ºC,½¶¤]¬O¦P¼Ëªº°ÝÃD,§Ú±Ä¥Îªº¤è¦¡¬O¨C¶¸Ë¤J20±ø°O¿ý,´`Àô¼g¦bªí®æ¤¤Åã¥Ü¥X¨Ó,¦A©w¥|Ó½¶Áä¥Î¨Ó¬d¬Ý¼Æ¾Ú,¦ý°ÝÃD¬OÁöµM¬O ¨C¦¸¸Ë¤J¶±ªº°O¿ý¥u¦³¤G¤Q±ø,¦ý¨C¦¸n¥´¶}°O¿ý¶°®ÉÁÙ¬O¥²¶·¤@¦¸©Ê¸Ë¤J©Ò¦³ªº°O¿ý,©Ò¥H¤~ºC¡C
¸Ñ¨M¤èªk¤@¡G
1.³]¸m¤@Ó¦Û¼Wªø¦r¬q.¨Ã¥B¸Ó¦r¬q¬°INDEX.
2.¥Ñ©ó¬O ACCESS ,©Ò¥H,¥u¯à¬O«e»O¤À¶.¦Û¼Wªø¦r¬q¥Øªº,´N¬O¬°¤F¹ê²{¤À¶¥\¯à.
1> °O¿ý¥Î¤á«e¶ªº³Ì«á¤@Ó ¦Û¼WÈ ,¨Ò¦p M .
2> ¤U¤@¶,¨ú¤U¤@¶ªº¶}©lÈ.M+1 ,µ²§ôÈ: M+1+1.5*PAGESIZE (ª`:¥Ñ©ó¼Æ¾Ú®w·|¦³¼W§R¾Þ§@,¬GÀ³¸Ó¨ú¶¤j¤pÀ³¸Ó¦³¤@Ó«Y¼Æ,§A¥i¥H®Ú¾Ú±¡ªp¦Û©w¤@Ó1¤jªº«Y¼Æ.
3> «e»O´`Àô¨ú RS ªº«e PAGESIZE ±ø, ¼g¨ì¤@Ó ·sªºRS¤¤,¨Ãªð¦^.
ª`:·sªºRS¬O¤@ÓµL³s±µªºRS .
¸Ñ¨M¤èªk¤G¡G
¤Q¸U±ø°O¿ý¤£¬O Access ¼Æ¾Ú®wªº·¥¡C¦óªp§Aªº¤èªk¤£¬O¯u¥¿·N¸q¤Wªº¤À¶¡]À³·í§Q¥Î PageSize ©M AbsolutePage Äݩʡ^¡C
|
VBScript code Set rs = New ADODB.Recordsetrs.CursorLocation = adUseClientrs.PageSize = 20rs.Open "Select * From «È¤á", iConc, adOpenKeyset, adLockOptimisticlngPages = rs.PageCountlngCurrentPage = 1 |
¦¹®É¥´¶}ªº°O¿ý¶°¥u¦³ 20 ±ø°O¿ý¡C
½¶®É¡G
|
VBScript code If lngCurrentPage < lngPages Then |

RSSq¾\