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ÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
ËÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......