vb Ò»¸öСÎÊÌâ - VB / »ù´¡Àà
ÎÒÓÃvb±à³Ì£¬ÆäÖÐÒ»¸öcombox¿Ø¼þµÄdataformat ÉèΪÈÕÆÚ£¬Èç2010-7-1£¬Êý¾Ý¿âÖÐÓиö×Ö¶ÎΪÈÕÆÚÐÍ£¬Ò²Èç2010-7-1£¬ÎÒÏëʵÏÖÔÚcomboxÑ¡ÖÐÒ»¸öÈÕÆÚÖ®ºó£¬Ö´ÐÐÓï¾ä£º
Adodc1.RecordSource = "select * from ÏúÁ¿Ä¿±ê where ʱ¼ä='Combo1.Text'"
Adodc1.Refresh
Ìáʾ´íÎ󣺱ê×¼±í´ïʽÖÐÊý¾ÝÀàÐͲ»Æ¥Åä
ÎÒÏëÊÇcombox ºÍaccessÊý¾Ý¿âÖеÄ×ֶεÄÈÕÆÚÀàÐÍÓÐÎÊÌ⣬²»ÖªµÀ¾ßÌåʲôÎÊÌ⣬ÈçºÎ½â¾ö£¬Çëд³ö½â¾ö´úÂ롣лл£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡
Adodc1.RecordSource = "select * from ÏúÁ¿Ä¿±ê where ʱ¼ä='" & Combo1.Text & "'"
Êý¾Ý¿âΪSQL£º
Adodc1.RecordSource = "select * from ÏúÁ¿Ä¿±ê where ʱ¼ä='"& Combo1.Text &"'"
Êý¾Ý¿âΪACCESS£º
Adodc1.RecordSource = "select * from ÏúÁ¿Ä¿±ê where ʱ¼ä=#"& Combo1.Text &"#"
Adodc1.RecordSource = "select * from ÏúÁ¿Ä¿±ê where ʱ¼ä=#" & Combo1.Text & "#"
Adodc1.Refresh
SqlÓï¾äÓÐÎó£¬×Ö·û´®Á¬½Ó´íÎó
VB code:
Adodc1.RecordSource = "select * from ÏúÁ¿Ä¿±ê where ʱ¼ä[color=#FF0000]='Combo1.Text'"[/color][b][/b]Adodc1.Refresh
¸ÄΪ
VB code:
Adodc1.RecordSource = "select * from ÏúÁ¿Ä¿±ê where ʱ¼ä=#" & Combo1.Text
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
ÓÃVB±à³Ì¶ÁÈ¡¶ÌÐÅ,µÃµ½Ò»´ó¶Ñunicode±àÂë,Çë½ÌÈçºÎת»»³ÉÎı¾
ÀýÈç:¶ÁÈ¡¶ÌÐźó(»ªÎª900C»òTC35i),´®¿ÚµÃµ½ÈçÏÂÊý¾Ý:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......
ϵͳÔÚ¶ą̀µçÄÔÉÏÔËÐУ¬¾ÍÔÚÆäÖÐһ̨µçÄÔÉϲúÉú¡±ÄÚ´æÒç³ö¡°¡£
ÿ̨µçÄÔ²Ù×÷ϵͳ ÅäÖö¼Ò»ÑùµÄ¡£¡£ÇëÎÊÊÇʲôÔÒò£¿
(1)ÓÃÁËÉè¼Æ²»ÍêÉÆµÄ¿Ø¼þ£¬¿Ø¼þ±¾ÉíÓÐÎÊÌ⣬»òÕß²»Ç¡µ±µØÊ¹ÓÃÁËapiº¯Êý¡£
(2)ÎÞÏÞµÄ ......