ÇëÎÊÒ»ÏÂÎÒ»ñÈ¡Õû¸öÍøÒ³µÄÔ´ÂëºóÔõô¸ù¾ÝÒÑÓеÄurl×Ö·ûÀ´»ñÈ¡ÍêÕûµÄURLѽ
±ÈÈ磻
ÎÒÒѾ֪µÀ²¿·Öurl£» www.qq.com
ÔÚͨ¹ýDocument.All»ñÈ¡Õâ¸öÔ´Âëºó£¬Ïë»ñȡԴÂëÖÐËùÓк¬ÓС°www.qq.com¡±µÄURL£¬Èç"www.qq.com/eg?xxx=123"Ò»ÀàµÄURL¡£
»ñÈ¡urlºóÏÔʾÔÚlist1ÖÐ
Ï£Íû¸ßÈËÄܸø³ö´ú ......
ÓÐûÓÐϸÖµĽ²ÊöVBÖÐÀà¡¢¶ÔÏóµÄÊ飬²»ÂÛVB6»òVB2008½Ô¿É¡£
VB6Àï°´F2»ò¿´MSDN
http://download.csdn.net/source/1842876
²»È»,Äã¿ÉÒÔÂò±¾´úÂë´óÈ«2¿´¿´........
ÎÒ¾õµÃÕâ±¾Êéͦ²»´íµÄ,½²µ½Á˺ܶàϸ½ÚµÄ´úÂë¹ÜÀí¼¼Êõ.
ÒýÓÃ
²»È»,Äã¿ÉÒÔÂò±¾´úÂë´óÈ«2¿´¿´........
ÎÒ¾õµÃÕâ±¾Êéͦ²»´íµÄ,½²µ½Á輆 ......
Ò»°ã»ñÈ¡Èͮ򵀼¯ÊýÊÇdate£¬µ«Èç¹û½«ÏµÍ³ÈÕÆÚÐ޸ĺóº¯Êý·µ»ØµÄÖµÒ²¾ÍÊÇÐ޸ĺóµÄ£¬ÄǾͲ»ÊÇÎÒÏëÒªµÄÕýÈ·ÈÕÆÚ£¬²¢ÇÒµçÄÔÊÇÍÑÀëÍøÂçµÄ£¬ÎÒÏÖÔÚ²»Ïëͨ¹ýDateº¯ÊýºÍÍøÂçÀ´»ñÈ¡ÈÕÆÚ£¬ÇëÎÊÔõô°ìÄØ£¿Ð»Ð»¸ßÊÖÖ¸µã£¡
ÕÒ¸ñÁÖÍþÖα¨Ê±Ì¨Ð£Õýʱ¼ä°É!
¶ÁBIOSÖеÄʱ¼äÀ².²»¹ýBIOSÖеÄʱ¼äÒ»ÑùÄܸĵÄ.
×ö¸öÄܾ«È·¼ÆÊ±µÄµ¥Æ ......
Ìí¼ÓµÄʱºòÀÏÊdzöÏÖ¡°ÊéºÅ²»ÄÜΪ¿Õ¡±µÄÌáʾ£¬²»¹ÜÊéºÅ¿Õ²»¿Õ£»´úÂëÈçÏ£º
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As New ADODB.Command
Public connstring As String
Private Sub cmdadd_Click()
Dim rsvalid As ADODB.Recordset
'Dim strsql$, strreaderID$, strN ......
µ±¼Çʱ¾ÄÚÈÝΪ¿Õʱ£¬Áбí¿òÌí¼ÓΪ¿Õ£¬ÔõôÈÃÁбí¿ò²»Ìí¼Ó¿ÕÏî
Äܲ»Äܽ²µÄÏêϸµã£¿
if text1.text <>"" then list1.additem text1.txt
If Dir(App.Path & "\yourTXT.txt") = "" Then
list1.additem "abc"
End If
if ¶ÁÈëµÄÁ¿ <>"" ......
¡°³µÁ¾ÅŰࡱ±íÓиö¡°ÈÕÆÚ¡±µÄ×ֶΣ¬ÊÇstring¸ñʽ£¬Ã»ÓÃdate¸ñʽ£¬ÄÚÈÝÈç¡°2009-12-31 12:48:01¡±£¬ÏÖÔÚÒª²éѯÈÕÆÚ×Ö¶ÎÀïÃæ°üº¬¡°2009-12-31¡±µÄÄÚÈÝ,²»ÒªºóÃæ²¿·Ö¡£
select * from ³µÁ¾ÅŰà where ÈÕÆÚ¡¡¡¡
select * from ³µÁ¾ÅŰà where left(ÈÕÆÚ,10)='2009-12-31'
select * from ³µÁ¾ÅŰà where cha ......