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
Ïà¹ØÎÊ´ð£º
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
ÎÒµÄÒªÇóÊÇ£ºÍ¨¹ýץȡ±ðµÄ³ÌÐòÉϵıí¸ñµÄ¾ä±ú£¬È»ºó¶ÁÈ¡Õâ¸ö±í¸ñµÄÄÚÈÝ¡£
±í¸ñ¾ä±ú£¨ÀàÃû£ºMSFlexGridWndClass£©ÎÒÒÑ×¥µ½£¬½ÓÏÂÀ´ÈçºÎ¶ÁÈ¡±í¸ñµÄÄÚÈݾͲ»»áÁË£¿ÇóÖú¡£
ÄܰѴúÂë·¢À´Ñ§Ï°Ï²»£¿
244326867@qq.com ......