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£¬¾ÍÓ¦ÓÃÓÃ"*"¶ø²»ÊÇ"%"
{{
Ïà¹ØÎÊ´ð£º
±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......
¸Õ½Ó´¥vb6.0£¬ÓÐЩÃþ²»µ½µÄ¸Ð¾õ£¬¾´Çë¸÷λ´óϺ¸øµã½¨Ò飡£¡£¡
²»»á°É£¬ÍƼöѧϰ.NET¡£Ë³±ãÍÆ¼öʵÓôúÂëÍøÕ¾http://bingning.net/free/source/index.html¡£
Èç¹ûû»ù´¡ ¾ÍÓÃÒ×ÓïÑÔ°É ÖÐÎıà³ÌÄØ ´úÂë¶¼ÊÇÖÐÎÄ ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
°ÑÒÑÓÐÊý¾Ý£¨Êý¾Ý´óÓÚ20ÐУ©µÄRS(recordset)µÄµÚ10ÐÐÊý¾ÝÓëµÚ11ÐÐÊý¾Ý×ö¼Ó·¨ºó£¬É¾³ýµÚ11ÐеÄÊý¾Ý£¬È»ºó°ÑºóÃæµÄÊý¾ÝÏòÇ°ÒÆ¡£
RSµÄ»°ÐÞ¸ÄÊý¾ÝÊÇ»á¸üÐÂÊý¾Ý¿â£¬ÏÖÔÚµÄÎÊÌâÊÇRSÀïµÄÒÑÓÐÊý¾ÝÊÇÓÃSQLÓï¾ä·ÖÀàͳ¼Æ³öÀ´µÄ ......