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

accessËæ»úѡȡʮÌõ²»Í¬¼Ç¼µÄÎÊÌâ

Õâ¶Î´úÂëÎÒ¾õµÃºÜºÃÓ㬽â¾öÁËaccessËæ¼´Ñ¡È¡nÌõ¼Ç¼µÄÎÊÌâ
µ«ÊÇÓиöÎÊÌ⣬Èç¹ûÊý¾Ý¿âÀïÃæÑ¡³öÀ´µÄ¼Ç¼×ÜÊý£¬Ð¡ÓÚÒªÏÔʾÊý ÈçItem=10       
¾Í»á³¬Ê±

ÐèÒª¼Ó¸öÌõ¼þ£¬¾ÍÊÇÈç¹ûÊý¾Ý¿âѡȡ³öÀ´µÄ¼Ç¼×ÜÊý СÓÚ ÒªÇóÏÔʾ¼Ç¼Êý
ÄÇô¾ÍÒÔѡȡ³öÀ´µÄ×ÜÊýÏÔʾ...
°ÝÍÐÁË£¬ÎÒʵÔÚ²»Çå³þ¼ÓÔÚÄÄ


'Ö´ÐмìË÷
Count=rs.RecordCount           
'µÃµ½¼Ç¼×ÜÊý
Item=10                                                   
'ÏÔʾ¼Ç¼Êý

redim a(Item, 2),t(Count)
'¶¨Òå2Êý×飬Êý×éaÓÃÀ´´¢´æ¼Ç¼£¬Êý×étÓÃÀ´É¾Ñ¡¼Ç¼

'³õʼÊý×éÊýÖµ£¬Ä¿µÄΪÁ˲åÈëÊý¾ÝÒÔºóºÍ´ËÖµ×ö±È½Ï
for each j in t
    j=0
next

' Ëæ»ú³éÈ¡¼Ç¼ºÅ
Randomize timer        '³õʼ»¯Ëæ»úÊýÉú³ÉÆ÷
for j=1 to Item
    k=int(rnd*Count+1)    '´Ó×ÜÊýÀïÃæËæ»úȡһÌõ¼Ç¼
    do while t(k) <>0                    'ÅжÏÊÇ·ñ¼Ç¼ÊÇ·ñÒѾ­ÔÚÊý×éÖÐ
      k=int(rnd*Item+1)
    loop
    t(k)=1            'µÚkÌõ¼Ç¼±»Ñ¡ÖÐ
next
'-------------------------------------- <


Ïà¹ØÎÊ´ð£º

ʹÓÃRepeater¶ÁÈ¡access±í£¬Ò³Ãæ´ò¿ª·Ç³£Âý

accessÊý¾Ý¿â£¬Ö±½ÓʹÓà select ×Ö¶Î from ±í  ¶ÁÈ¡Êý¾Ý
È»ºóÔÚÒ³ÃæÖÐʹÓÃRepeaterÀ´ÏÔʾ
ÕâÕűíÓÐ2000ÌõÊý¾Ý£¬ËùÒÔÒ³Ãæ´ò¿ªµÄºÜÂý
Çë½Ì¸÷λÅóÓÑ£¬ÓÐûÓа취½â¾ö£¬Ìá¸ßµãËÙ¶È£¡
Ò»´ÎÈ«²¿¶ÁÍê ......

50ÍòÌõÊý¾ÝACCESSÊý¾Ý¿â,Ä£²éѯÓÐʲô·½·¨ÄÜ¿ìЩ...

ÎÒÓÃÁËÒ»°ãµÄ²éѯÓï¾ä³öÀ´,,,ÍÛºÃÂý°¡................



ʹÓÃ×é¼þ

DBgrid  ADOQuery  DATASOurce

¿ì²»ÁË£¬Ö»Äܾ¡¿ÉÄܵÄÓÅ»¯°É
ÓÅ»¯Êý¾Ý½á¹¹£¬½¨Ë÷Òý£¬²»¹ý½¨Òé²»ÒªÒ»´Î¶Á³öËùÓ ......

ÈçºÎ¶ÁÈ¡ÕâÖÖÊý¾Ý£¬ÔÚaccessÀïÃæ¡£Çó½Ì¸ßÊÖ

ÎÒµÄÒ»¸öaccessÊý¾Ý¿âÖеÄphoto×Ö¶ÎÖеÄÄÚÈÝÊÇÕâÑùµÄ£º

|/UpFiles/Picture/admin/200910162300187612.jpg|/UpFiles/Picture/admin/200910162300187612.jpg||||/UpFiles/Picture/admin/200910162300187612.jpg ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ