ÈçºÎͨ¹ýACCESS VBAÔÚ³ÌÐòÀï±£´æACCESSµÄ²éѯ¶ÔÏó
ACCESSÓиöAllQueries¼¯ºÏ£¬ÀïÃæÊÇËùÓб£´æÔÚACCESSÀïµÄ²éѯ¡£
ÇëÎÊÈçºÎÔÚACCESS VBAÀﶯ̬Éú³ÉÒ»¸öеIJéѯ£¬¼´±£´æÎªÐµIJéѯ¶ÔÏó£¬Ò²¼´ÔÚAllQueries¼¯ºÏÖÐÌí¼ÓÒ»¸öеijÉÔ±£¿
VB code:
Call CurrentDb.CreateQueryDef("qqqqqqq", strSql)
ÔÚ±ðµÄ°æ¿éÕÒµ½´ð°¸ÁË¡£
ÄÇÎҵøϽô½Ó·Ö£¬µ¹20¸øÎҾͿÉÒÔÁË¡£
ÎÒµÄÔÔò£º
¶¥ÌùµÄ×î¶à¸ø1·Ö¡£
¼¼ÊõÉÏÓмÛÖµµÄ»Ø¸´²Å¸ø¼¼Êõ·Ö¡£
Òª²»Äã½²¸öЦ»°£¬ÎÒ°Ñ·Ö¶¼¸øÄ㣬ÁíÍâ°ÑÕâ¸öÌû×ÓÒÆµ½·Ç¼¼ÊõÇø£¬ºÙºÙ¡£Äã¿´ÔõôÑù£¿
¶¥£¡
лл¥Ö÷ÁË£¬£¬ÎÒÕýºÃÒ²ÓÐÕâ¸öÎÊÌâÁË
ÕõVBAµÄµÚÒ»·Ö
½Ó·Ö
ÎÒÊDZ¾Ï뿴ϵ¹20·ÖÀ´ÎÒµÄID»á²»»á±»¸Éµô¡£
תµ½·Ç¼¼ÊõÇø°É£¬¼ÇµÃת֮ºó±ð¸øÎÒ·Ö¡£Ð»Ð»¡£
ÎÊÌâÊÇ£¬Èç¹û±»ÅÐΪµ¹·ÖµÄ»°£¬Á½¸öID¶¼Òª±»·âµÄ8
Òª²»ÄãÕÒ¸öÓ¸ҵãµÄÐֵܺÍÄã¶ÔÁ·Ò»ÏÂ8
°³ÅÂÅÂ
ÎÒµÄIDÎÞËùν£¬¶¼µ¹¸øÎÒºÃÁË
ahaoºÍACÄãÃÇÁ©ºÃÏñµ¹Ò»ÏÂ8
ÎÒ¿´ÄãÃÇÔÚÕâÒ»µãÉÏ־ȤºÜÏàͶ
ahaoºÍACÄãÃÇÁ©»¥Ï൹һÏÂ8
ÎÒ¿´ÄãÃÇÔÚÕâÒ»µãÉÏ־ȤºÜÏàͶ
Õ¦²»Ëµ»°ÁË£¬²»»áÒѾ·âÁ˰ɣ¿
×¢²áÁËÐÂÂí¼×Ö®ºó¼ÇµÃ·¢¶ÌÏûÏ¢¸øÎÒ°¡£¬°³ÏÖÔÚ¶¼²»´¦ÀíºÃÓÑÏûÏ¢ÁË£¨Ö÷Òª¶¼ÊDz»ÈÏʶµÄÈË£©£¬³ý·ÇÓÐÈËÌØµØ·¢Õ¾¶Ì¸æËßÎÒ¼Ó¡£
{{----}
Ïà¹ØÎÊ´ð£º
accessÊý¾Ý¿â£¬Ö±½ÓʹÓà select ×Ö¶Î from ±í ¶ÁÈ¡Êý¾Ý
È»ºóÔÚÒ³ÃæÖÐʹÓÃRepeaterÀ´ÏÔʾ
ÕâÕűíÓÐ2000ÌõÊý¾Ý£¬ËùÒÔÒ³Ãæ´ò¿ªµÄºÜÂý
Çë½Ì¸÷λÅóÓÑ£¬ÓÐûÓа취½â¾ö£¬Ìá¸ßµãËÙ¶È£¡
Ò»´ÎÈ«²¿¶ÁÍê ......
ÇëÎʸ÷λ´óʦ£¬ÎÒÏÖÔÚÐèÒª½«XMLµÄÊý¾ÝʵʱµÄ´æÈëµ½Êý¾Ý¿âÖУ¬ÎÒÊÇÓÃasp±àµÄ³ÌÐò£¬´óÁ¿Ãǰïæ·ÖÎö һϣ¡£¡£¡
ÏÂÃæÊÇÎÒµÄXMLÎļþ´úÂë
XML code:
<?xml version="1.0" encoding="utf-8"? ......
¸÷λ´óϺ£¬Ð¡µÜÓõÄÊÇADOÁ¬½ÓACCESSÊý¾Ý¿â£¬ÓÃDBGridÏÔʾ²éѯµÄÊý¾Ý£¬ÎÒ×öµÄÊǸöÊý¾Ý²É¼¯ÏµÍ³£¬¸ù¾Ý²»Í¬µÄµØÖ·°ÑÊý¾Ý·ÅÔÚACCESSÊý¾Ý¿âÖв»Í¬µÄ±íÀïÃæ£¬ÏÖÔÚÎÒÏë²éѯijһ¶Îʱ¼äÄÚËùÓбíÄÚµÄÊý¾Ý£¬²¢ÇÒÔÚDBGridÖÐÏÔʾ³ ......
Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......