VB access²»Í¬±íÁªºÏ²éѯ
СµÜÎÒÔÚдһ¸öÆû³µÐÞÀí³ÌÐòµÄʱºòÓö¼ûÁËÒ»¸öÎÊÌ⣬ÎҵĴ洢ģʽÊÇÕâÑùµÄ£¬³µÁ¾ÐÅÏ¢´æ·ÅÔÚÒ»ÕűíÄÚ£¬³µÁ¾Î¬Ð޼ǼÊÇÿ¸ö³µ´æ·ÅÒ»ÕűíÈçÏÂËùʾ£º£¨±í1 µÄ±íÃûÊÇ¡°Î¬ÐÞÕËÄ¿¡±£¬±í2µÄ±íÃûÊÇ ³µÅƶÔÓ¦µÄIDºÅ£©
±í1 άÐÞÕËÄ¿
ID | ³µÅƺŠ| ÁªÏµÈË | ÁªÏµµç»°
----------------------------------------------
1 | ´¨M52013 | Îâ¹ý | 13086571119
±í2 1
ID | άÐÞÈÕÆÚ | Ö÷ÐÞÈË | Ö§¸¶×´Ì¬
---------------------------------------------------
1 | 2009-8-18 | ¸¶Ê¦ | ÒѸ¶
2 | 2009-9-2 | ¸¶Ê¦ | δ¸¶
3 | 2009-9-20 | ¸¶Ê¦ | δ¸¶
ÎÒÏë°ÑÕâÁ½ÕűíµÄ²éѯ½á¹û·ÅÔÚÒ»¸ögrid¿Ø¼þÀïÏÔʾ£¬ÈçÏÂͼ£º
ID | ³µÅƺŠ| ÁªÏµÈË | άÐÞÈÕÆÚ | Ö§¸¶×´Ì¬
----------------------------------------------------------
1 | ´¨M52013 | Îâ¹ý | 2009-8-18 | ÒѸ¶
2 | | | 2009-9-2 | δ¸¶
3 | | | 2009-9-20
Ïà¹ØÎÊ´ð£º
IsSqlDataBase = 0 'Ö÷Êý¾Ý¿âÀàÐÍ(1=SQL£¬0=AC)
'===========================================================================
SqlDatabaseName = "ads365" 'Ö÷Êý¾Ý¿âÃû
S ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
Option Explicit
Private Sub Command1_Click()
WebBrowser1.Navigate "http://mc.qeedoo.com/servers.php"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......