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 ÓÃÀ´
Ïà¹ØÎÊ´ð£º
Ô´´úÂë
C# code:
<asp:Repeater runat="server" ID="rptShowLink">
<ItemTemplate>
<div>
......
ÏÖÔÚ×öµÄÒ»¸ö¹«Ë¾ÏîĿҪÇóÒªÓÐÁ½¸ö°æ±¾ Ò»¸öÊÇÓÃAccessµÄÊý¾Ý¿â ÁíÒ»¸öÓÃsql server µÄÊý¾Ý¿â
ÇëÎÊÓÐ×ö¹ýÏà¹Ø¹¦ÄܵĸßÊÖ°ïæָ½Ì ÈçºÎʵÏÖ£¿
ÓõÄÊÇʲô˼·£¿
²Î¿¼petshopÀïÃæµÄ¼Ü¹¹¡£¡£¡£
......
select top 20 * from tb
where ×Ö¶ÎÃû not in
(select top 10 ×Ö¶ÎÃû from tb)
ÎÒÖªµÀÓÃÕâÖÖ·½·¨¿ÉÒԵõ½10-20µÄÊý¾Ý
µ«ÊÇÈç¹ûÊý¾ÝºÜ¶à
±ÈÈçselect top 100020 * from tb
where ×Ö¶ÎÃû not ......
н¨µ¥Îĵµ³ÌÐòÑ¡ÔñODBCÖеÄÊý¾ÝԴʱ×ÜÊǵ¯³öÒ»¸öµÇ¼´°¿ÚÒªÊÚȨ¡£¡£¡£»¹ÒªÃÜÂë¡£¡£¡£
ÆäËûµÄµ÷ÓÃODBCÖеÄÊý¾ÝÔ´ÊǾͲ»ÐèÒªÕâ¸ö£¬¿ÉÒÔÔËÐС£
ŪÁ˺ó¤Ê±¼äÁË¡£¡£¡£
ûÓö¼û¹ý£¬¿ ......
CatalogClass cat=new CatalogClass();
cat.Creat(@"provider=microsoft.jet.oledb.4.0;data source="+path+";");
ÓÃÒÔÉÏ´úÂë´´½¨Îļþ³É¹¦ÁË£¬ÕÒµ½Îļþºó´ò¿ª£¬Ìáʾ²»¿Éʶ±ðµÄÊý¾ ......