ÓÃvb+accessÏëʵÏÖÄ£ºý²éѯ£¬³öÁ˵ãÎÊÌ⣬Çë´ó¼Ò°ïæ
ÎÒÊÇÓÃadodc1ÓëÒ»¸ödatagrid¿Ø¼þÖ±½ÓÓëaccessÊý¾Ý¿âÁ¬½Ó£¬Ä£ºý²éѯµÄ´úÂëÈçÏÂ
Private Sub Command1_Click()
Dim str As String
str = "select * from ½ÌʦÐÅÏ¢±í where ÐÕÃû Like '" & Text1 & "% '"
Adodc1.RecordSource = str
Adodc1.Refresh
End Sub
ÎÒ²»ÖªµÀÕâ¸öÓï¾äÄÄÀïд´íÁË£¬Ã»Óа취ʵÏÖÄ£ºý²éÕÒÊý¾Ý¡£
µ«ÊÇÈç¹û»»³É¾«È·²éÕÒµÄÓï¾ästr = "select * from ½ÌʦÐÅÏ¢±í where ÐÕÃû= '" & Text1 & " '"
¾ÍÄܽ«Êý¾Ýµ÷³öÀ´ÁË
Çë´ó¼Ò°ï棬ÎÒÊÇ×Ô¼ºÄÃ×ÅÊé¿´£¬Ã»ÓнøÐÐϵͳµÄvbºÍaccessµÄѧϰ¡£
ËùÒÔ»¹Çë¸÷λ¶à³öÖ÷Òâ°¡£¡
Like '" & Text1 & "% '"
¸Ä³É
Like '%" & Text1 & "% '%"
»ò
Like '*" & Text1 & "% '*"
¿´ÏÂ
²»ºÃÒâ˼£¬Ã»¿´Çå³þ¡£¡£
Like '" & Text1 & "% '"
¸Ä³É£¨×¢ÒâÄã¶à´òÁ˸ö¿Õ¸ñ£©
Like '" & Text1 & "%'"
»ò
Like '" & Text1 & "*'"
str = "select * from ½ÌʦÐÅÏ¢±í where ÐÕÃû Like '" & Text1 & "%'"
¶÷£¬ºÃÁË£¬Ð»Ð»´ó¼ÒÁË¡£
Ïà¹ØÎÊ´ð£º
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÎÊÌâÊÇÕâÑùµÄ,ÏÖÔÚÓÐÒ»¸ö¹¤×ʱí,ÊÇEXCELµÄ,ÎÒÒª°ÑËüµ¼ÈëACCESS,ÒòΪ Òª²éѯÿ¸öÈ˵Ť×Ê,¸ù¾Ý²»Í¬µÄ±àºÅ¿ÉÒÔ²éѯµ½Ïà¶ÔµÄÈË,
ÓÃASP Ôõô½«EXCELµ¼Èëµ½ACCESS,¶øÇÒÿÔ¶¼Óв»Í¬µÄ±í,
ÒýÓÃ
Æäʵ¾ÍÊǰÑEXCELµ±³ÉÊý ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......