Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÓÃ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Ìâ - VB / »ù´¡Àà

°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
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ÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......

ÓÃASP Ôõô½«EXCELµ¼Èëµ½ACCESS - Web ¿ª·¢ / ASP

ÎÊÌâÊÇÕâÑùµÄ,ÏÖÔÚÓÐÒ»¸ö¹¤×ʱí,ÊÇEXCELµÄ,ÎÒÒª°ÑËüµ¼ÈëACCESS,ÒòΪ Òª²éѯÿ¸öÈ˵Ť×Ê,¸ù¾Ý²»Í¬µÄ±àºÅ¿ÉÒÔ²éѯµ½Ïà¶ÔµÄÈË,
ÓÃASP Ôõô½«EXCELµ¼Èëµ½ACCESS,¶øÇÒÿÔ¶¼Óв»Í¬µÄ±í,

ÒýÓÃ
Æäʵ¾ÍÊǰÑEXCELµ±³ÉÊý ......

vb³¬¼òµ¥form.showµÄÎÊÌâ - VB / ·Ç¼¼ÊõÀà

ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É

ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿

ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ