access vba Êý×鳤¶È
access vba ÖÐÔõôȡµÃÊý×鳤¶È£¿
Êý×éÐУ¿
UBound(Êý×éÃû)
ubound()-lbound()
UBound º¯Êý
·µ»ØÒ»¸ö Long ÐÍÊý¾Ý£¬ÆäֵΪָ¶¨µÄÊý×éά¿ÉÓõÄ×î´óϱꡣ
Óï·¨
UBound(arrayname[, dimension])
UBound º¯ÊýµÄÓï·¨°üº¬ÏÂÃæ²¿·Ö£º
²¿·Ö ÃèÊö
arrayname ±ØÐèµÄ¡£Êý×é±äÁ¿µÄÃû³Æ£¬×ñѱê×¼±äÁ¿ÃüÃûÔ¼¶¨¡£
dimension ¿ÉÑ¡µÄ£»Variant (Long)¡£Ö¸¶¨·µ»ØÄÄһάµÄÉϽ硣1 ±íʾµÚһά£¬2 ±íʾµÚ¶þά£¬Èç´ËµÈµÈ¡£Èç¹ûÊ¡ÂÔ dimension£¬¾ÍÈÏΪÊÇ 1¡£
˵Ã÷
UBound º¯ÊýÓë LBound º¯ÊýÒ»ÆðʹÓã¬ÓÃÀ´È·¶¨Ò»¸öÊý×éµÄ´óС¡£LBound ÓÃÀ´È·¶¨Êý×éijһάµÄÉϽ硣
¶Ô¾ßÓÐÏÂÊöάÊýµÄÊý×é¶øÑÔ£¬UBound µÄ·µ»ØÖµ¼ûÏÂ±í£º
Dim A(1 To 100, 0 To 3, -3 To 4)
Óï¾ä ·µ»ØÖµ
UBound(A, 1) 100
UBound(A, 2) 3
UBound(A, 3) 4
LBound º¯Êý
·µ»ØÒ»¸ö Long ÐÍÊý¾Ý£¬ÆäֵΪָ¶¨Êý×éά¿ÉÓõÄ×îСϱꡣ
Óï·¨
LBound(arrayname[, dimension])
LBound º¯ÊýµÄÓï·¨°üº¬ÏÂÃæ²¿·Ö£º
²¿·Ö ÃèÊö
arrayname ±ØÐèµÄ¡£Êý×é±äÁ¿µÄÃû³Æ£¬×ñѱê×¼µÄ±äÁ¿ÃüÃûÔ¼¶¨¡£
dimension ¿ÉÑ¡µÄ£»Variant (Long)¡£Ö¸¶¨·µ»ØÄÄһάµÄϽ硣1 ±íʾµÚһά£¬2 ±íʾµÚ¶þά£¬Èç´ËÀàÍÆ¡£Èç¹ûÊ¡ÂÔ dimension£¬¾ÍÈÏΪÊÇ 1¡£
˵Ã÷
LBound º¯ÊýÓë UBound º¯ÊýÒ»ÆðʹÓã¬ÓÃÀ´È·¶¨Ò»¸öÊý×éµÄ´óС¡£UBound ÓÃÀ´
Ïà¹ØÎÊ´ð£º
³ÌÐòʱASP+access
sql="select top 2 id,username from comp order by rnd(id) "
ÉÏÃæÓï¾äˢкó¶¼ÊÇÒ»¸öÖµ ÕâÑù»¹ÓÐËæ»úµÄÒâÒåÂð
ACCESSÓÐË¢ÐÂËæ»úÑ¡ÔñµÄSQLÓ ......
access ÖÐÖ´ÐÐsql updateÓï¾äʱÓÐʱºò³É¹¦ÓÐʱºò²»³É¹¦£¬µ«ÊÇaccessÖв»³ö´íÎóÐÅÏ¢£¬²»ÖªµÀÊÇʲôÔÒò£¬ÓÐÄÄλ´óÏÀÖªµÀ£¬Çë°ïæ°¡
ÌùSQLÓï¾ä£¬¼ì²é±í¡¢×ֶεÄÓÐЧÐÔÉèÖÃ
sql ÔÚ²éѯ·ÖÎöÆ÷ÀïÃæ Ö´ÐкÜÕý³£
ÊÇ ......
ÓÃADO´´½¨ÁËÒ»¸ö¿ÕAccess±í£¬²¢Ìí¼ÓÁ˶à¸ö×Ö¶ÎÃû¡£
µ«ÏÖÔÚÎÊÌâÊÇ£¬²»ÄÜÏò¿Õ±íÖÐÌí¼Ó¼Ç¼¡£
ÿ´ÎÌí¼Ó¶¼»á³öÏÖ¡°BOF »ò EOF ÖÐÓÐÒ»¸öÊÇ¡°Õ桱£¬»òÕßµ±Ç°µÄ¼Ç¼Òѱ»É¾³ý£¬ËùÐèµÄ²Ù×÷ÒªÇóÒ»¸öµ±Ç°µÄ¼Ç¼¡±
......
н¨µ¥Îĵµ³ÌÐòÑ¡ÔñODBCÖеÄÊý¾ÝԴʱ×ÜÊǵ¯³öÒ»¸öµÇ¼´°¿ÚÒªÊÚȨ¡£¡£¡£»¹ÒªÃÜÂë¡£¡£¡£
ÆäËûµÄµ÷ÓÃODBCÖеÄÊý¾ÝÔ´ÊǾͲ»ÐèÒªÕâ¸ö£¬¿ÉÒÔÔËÐС£
ŪÁ˺ó¤Ê±¼äÁË¡£¡£¡£
ûÓö¼û¹ý£¬¿ ......
CatalogClass cat=new CatalogClass();
cat.Creat(@"provider=microsoft.jet.oledb.4.0;data source="+path+";");
ÓÃÒÔÉÏ´úÂë´´½¨Îļþ³É¹¦ÁË£¬ÕÒµ½Îļþºó´ò¿ª£¬Ìáʾ²»¿Éʶ±ðµÄÊý¾ ......