Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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 & "%'"

¶÷£¬ºÃÁË£¬Ð»Ð»´ó¼ÒÁË¡£


Ïà¹ØÎÊ´ð£º

ACCESSÎı¾¿ò³¤¶ÈÊǶàÉÙ? - ÆäËûÊý¾Ý¿â¿ª·¢ / Access

ÎÒ½«Ò»¶Î4000À´×ÖµÄÎı¾¸³Öµ¸øËüÔõô¾Í³ö´íÁË,ÌáʾÔËÐÐʱ´íÎó2176 Õâ¸öÊôÐÔµÄÉèÖÃֵ̫³¤?
ÄãÊÇÔõÑù¸³ÖµµÄ£¿

²âÊÔÁËһϣ¬Óñ¸×¢×ֶθøÎı¾¿ò×öÊý¾ÝÔ´£¬Ã»ÓÐÌáʾÉèÖÃֵ̫³¤,14893×Ö·û

ÒýÓÃÎÒ½«Ò»¶Î4000À´×ÖµÄÎ ......

³õѧvb£¬Çë¸÷λ´óϺ¸øµã½¨Òé - .NET¼¼Êõ / VB.NET

¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£

Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......

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

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

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

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

¹ØÓÚVB DIM ds as new DataSetÎÊÌâ - VB / »ù´¡Àà

DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.

datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ