Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

Access´ø²ÎÊýµÄ²éѯ

ÔÚ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

ÒýÓÃ
½«top ²ÎÊý´«µÝ½øÈ¥£¬´ò¿ª¼Ç¼¼¯·ÃÎʼ´¿É

ͬÒâ

ÒýÓà 5 Â¥ wwwwa µÄ»Ø¸´:
½«top ²ÎÊý´«µÝ½øÈ¥£¬´ò¿ª¼Ç¼¼¯·ÃÎʼ´¿É
²»Ã÷°×°¡

ÒýÓÃ
ÒýÓà 5 Â¥ wwwwa µÄ»Ø¸´:
½«top ²ÎÊý´«µÝ½øÈ¥£¬´ò¿ª¼Ç¼¼¯·ÃÎʼ´¿É
²»Ã÷°×°¡

7Â¥¾ÍÊÇVBAʾÀý

ÔÚÄãµÄ³ÌÐòÖÐ

int iSize=10;
string sql = "select top " + iSize + " * from table1 ";



Ïà¹ØÎÊ´ð£º

VB access²»Í¬±íÁªºÏ²éѯ

СµÜÎÒÔÚдһ¸öÆû³µÐÞÀí³ÌÐòµÄʱºòÓö¼ûÁËÒ»¸öÎÊÌ⣬ÎҵĴ洢ģʽÊÇÕâÑùµÄ£¬³µÁ¾ÐÅÏ¢´æ·ÅÔÚÒ»ÕűíÄÚ£¬³µÁ¾Î¬Ð޼ǼÊÇÿ¸ö³µ´æ·ÅÒ»ÕűíÈçÏÂËùʾ£º£¨±í1 µÄ±íÃûÊÇ¡°Î¬ÐÞÕËÄ¿¡±£¬±í2µÄ±íÃûÊÇ ³µÅƶÔÓ¦µÄIDºÅ£©
  ......

ACCESSÊý¾Ý¿âÓëVB¿ª·¢µÄÈí¼þ½øÐл¥Á¬ÍøÁ¬½Ó

±¾À´ÎÒÊÇÓÃACCESS+VB½¨Á¢Ò»¸öÈí¼þ£¨¾ÖÓòÍø£©£¬ÏÖÔÚÓÉÓڰ칫µØµãÓб䶯£¬Ïà»»³ÉINTERNATµÄ£¬ÓÐûÓа취½â¾ö£¬

ÏóÕâÑùµÄÇé¿ö£¬Èç¹ûÊǹãÓòÍø£¬×îºÃ¸Ä³É£ºB\SµÄ
Èç¹ûÊǾÖÓòÍøµÄ£¬×îºÃ¸Ä³É£ºC\SµÄ
http://downlo ......

accessÁбí¿òÊý¾Ý¶ªÊ§

¸÷λ´óÏÀ£º
            ÔÚ´°ÌåÀïÓÐÒ»Áбí¿ò£¬ÃûÔ»¡°ÉÌÆ·±àºÅ¡±£¬ÐÐÀ´Ô´ÀïµÄÄÚÈÝÓУºÉÌÆ·±àºÅºÍÉÌÆ·Ãû£¨À´×ÔÉÌÆ·±í£©¡£
  µ«ÊÇÎÊÌâ³öÏÖÁË£ºÔ­À´ÉÌÆ·±íÀïµÄÉÌÆ·±àºÅÊÇ4λ£ ......

access vba Êý×鳤¶È

access vba ÖÐÔõôȡµÃÊý×鳤¶È£¿
Êý×éÐУ¿
UBound(Êý×éÃû)

ubound()-lbound()

UBound º¯Êý
     

·µ»ØÒ»¸ö Long ÐÍÊý¾Ý£¬ÆäֵΪָ¶¨µÄÊý×éά¿ÉÓõÄ×î´óϱꡣ

Óï·¨ ......

Access導³öExecl

VB+Access×öµÄϵ統£¬
Ôõ樣°Ñ數據庫Access內ÈÝ導³öexecl£¿
ÏÖÔÚû¶«Î÷ÊÔ£¬´ÓÍøÉÏÕÒÁ˶δúÂëÄã¿´¿´
VB code:

Private Sub ExportOneTable()
'EXPORTS TABLE IN ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ