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
'-------------------------------------- <
Ïà¹ØÎÊ´ð£º
±¾À´ÎÒÊÇÓÃACCESS+VB½¨Á¢Ò»¸öÈí¼þ£¨¾ÖÓòÍø£©£¬ÏÖÔÚÓÉÓڰ칫µØµãÓб䶯£¬Ïà»»³ÉINTERNATµÄ£¬ÓÐûÓа취½â¾ö£¬
ÏóÕâÑùµÄÇé¿ö£¬Èç¹ûÊǹãÓòÍø£¬×îºÃ¸Ä³É£ºB\SµÄ
Èç¹ûÊǾÖÓòÍøµÄ£¬×îºÃ¸Ä³É£ºC\SµÄ
http://downlo ......
_RecordsetPtr CMyAdo::SelectRecord(string &where, string &tablename,string &field, int way )
{
int ret = 0;
_RecordsetPtr pset;
CString sql;
& ......
access Êý¾ÝÈçºÎµ¼Èëµ½SQLÖÐ Çë¸ø³öÏêϸ¹ý³Ì £¬Ð»Ð»
ÒýÓÃ
access Êý¾ÝÈçºÎµ¼Èëµ½SQLÖÐ Çë¸ø³öÏêϸ¹ý³Ì £¬Ð»Ð»
Èç¹ûÖ»Êǵ¼Êý¾Ý,ʹÓÃDTS»òSSISµ¼Èë¼´¿É,ûʲôÏêϸ¹ý³Ì,°´ÕÕ½çÃæÒ»²½Ò»²½×ß¼´¿É.
DTS ²»Ê ......
ÎÒÓÃÁËÒ»°ãµÄ²éѯÓï¾ä³öÀ´,,,ÍÛºÃÂý°¡................
ʹÓÃ×é¼þ
DBgrid ADOQuery DATASOurce
¿ì²»ÁË£¬Ö»Äܾ¡¿ÉÄܵÄÓÅ»¯°É
ÓÅ»¯Êý¾Ý½á¹¹£¬½¨Ë÷Òý£¬²»¹ý½¨Òé²»ÒªÒ»´Î¶Á³öËùÓ ......
ÎÒµÄÒ»¸öaccessÊý¾Ý¿âÖеÄphoto×Ö¶ÎÖеÄÄÚÈÝÊÇÕâÑùµÄ£º
|/UpFiles/Picture/admin/200910162300187612.jpg|/UpFiles/Picture/admin/200910162300187612.jpg||||/UpFiles/Picture/admin/200910162300187612.jpg ......