ÔÚaccessÖÐÔõôִÐÐselect TOP (@size) * from table1 Õâ¸öTOPÔõô´ø²ÎÊý²éѯ°¡ÓÃVBA¶¯Ì¬Éú³ÉSQLÓï¾ä£¬ÔÙÖ´ÐÐ ²»ÄÜÖ±½ÓÓÃSQLÓï¾ä£¬ÓÃ×Ö·û´®ÀÛ¼ÓÉú³ÉSQLÓï¾äµÄ·½·¨À´Ö´ÐÐSQLÓï¾ä top n Õâ¸öûÓа취ʹÓòÎÊý¡£ ÄãÖ»ÄÜͨ¹ýÄãµÄ³ÌÐòÀ´Éú³ÉÕâ¸öSQLÓï¾ä£¬»òÕ߸ù¾ÝÕâ¸öSQLÓï¾äÉú³ÉÄãµÄ²éѯÁË¡£ ѧϰѧϰ ½«top ²ÎÊý´«µÝ½øÈ¥£¬´ò¿ª¼Ç¼¼¯·ÃÎʼ´¿É Dim rstSJK As new ADODB.Recordset Dim cn As new ADODB.Connection Set CN = CurrentProject.Connection sql="select top " & n & " from tt " rstSJK.Open sql, cn, adOpenKeyset, adLockOptimistic, adCmdText Dim rstSJK As New ADODB.Recordset n = 10 SQL = "select top " & n & " * from aa " MsgBox SQL rstSJK.Open SQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdText Do While Not rstSJK.EOF ...... rstSJK.MoveNext Loop ͬÒâ ÒýÓà 5 Â¥ wwwwa µÄ»Ø¸´: ½«top ²ÎÊý´«µÝ½øÈ¥£¬´ò¿ª¼Ç¼¼¯·ÃÎʼ´¿É ²»Ã÷°×°¡ 7Â¥¾ÍÊÇVBAʾÀý ÔÚÄãµÄ³ÌÐòÖÐ
int iSize=10; string sql = "select top " + iSize + " * from table1 ";