ÓÃ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 & "%'"
¶÷£¬ºÃÁË£¬Ð»Ð»´ó¼ÒÁË¡£
Ïà¹ØÎÊ´ð£º
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
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 ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ÎÊÌâÊÇÕâÑùµÄ,ÏÖÔÚÓÐÒ»¸ö¹¤×ʱí,ÊÇEXCELµÄ,ÎÒÒª°ÑËüµ¼ÈëACCESS,ÒòΪ Òª²éѯÿ¸öÈ˵Ť×Ê,¸ù¾Ý²»Í¬µÄ±àºÅ¿ÉÒÔ²éѯµ½Ïà¶ÔµÄÈË,
ÓÃASP Ôõô½«EXCELµ¼Èëµ½ACCESS,¶øÇÒÿÔ¶¼Óв»Í¬µÄ±í,
ÒýÓÃ
Æäʵ¾ÍÊǰÑEXCELµ±³ÉÊý ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......