VB+AccessÄ£ºý²éѯlikeµÄÎÊÌâ,ÔÚÏßµÈ
¸÷λºÃ!
½ñÌìÅöµ½Ò»¸öÆæ¹ÖµÄÎÊÌâ:
ÎÒÓÃAccess 2003ÖеIJéѯ¹¤¾ß²éѯÏÂÃæÓï¾ä:
select * from FileDetail where Receiver_no Like '*77*'
Äܲ鵽Ïà¹Ø¼Ç¼.¼Ç¼Óм¸Ìõ.
µ«ÎÒͨ¹ýVB´úÂëÈçÏÂ:
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
str = "select * from FileDetail where Receiver_no Like '*77*'"
rs.Open str, cn, adOpenDynamic, adLockOptimistic, adCmdText
If rs.RecordCount > 0 Then 'ÕâÀïµÄrs.recordcount=0,ÕæÊÇÆæ¹Ö?
Call FillGridRecord(rs)
End If
¸ßÊÖÄÜ·ñÖ¸µãÒ»ÏÂÔÒò.±¾ÊÇÒ»¸ö¼òµ¥µÄÎÊÌâ,°ÑÎÒ¸ãºýÍ¿ÁË.
ÏÈÖ´ÐÐÒ»¸örs.movelast£¬ÔÙ¼ì²érs.recordcountÊÔÊÔ.
ÁíÍâclientside cursorÊÇÖ»ÓÐstaticÀàÐ͵ġ£
VB code:
str = "select * from FileDetail where Receiver_no Like '77%'"
Óá¡.eof and .bof ×îºÃ£¡
ÔÚadoÖÐÓÃrecordcount»áÓкܶàÎÊÌ⣡
Óá¡.eof and .bof ×îºÃ£¡
ÔÚadoÖÐÓÃrecordcount»áÓкܶàÎÊÌ⣡
str = "select * from FileDetail where Receiver_no like '%77%'"
rs.CursorLocation = adUseClient
´ó²¿·ÖÈËûעÒâµ½ÊÇaccess£¬¾ÍÓ¦ÓÃÓÃ"*"¶ø²»ÊÇ"%"
{{
Ïà¹ØÎÊ´ð£º
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......
ÎÊÌ⣱
ÎÒÓÃADOÁ¬½ÓÉèÁËÓû§ÃûÃÜÂëµÄÊý¾Ý¿â
µ«ÊÇÎÒ·¢ÏÖÎÒ²»ÊäÈë Óû§ÃûºÍÃÜÂë ¶¼¿ÉÒÔÁ¬½Ó³É¹¦ ¶øÇÒ»¹ÄܰÑÊý¾Ý¶Á³öÀ´
¼ôÁËÒ»¸öÃûΪtestÊý¾Ý¿â ½¨ÁËÒ»¸öÃûΪpeopleµÄ±í
¼ûÁËÒ»¸ö Óû§Ãû1234 ÃÜÂë1234 µÄ ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......