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

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£¬¾ÍÓ¦ÓÃÓÃ"*"¶ø²»ÊÇ"%"
{{


Ïà¹ØÎÊ´ð£º

vbÖÐÈçºÎʵÏÖ¶ÔÏóÊôÐԵĶ¯Ì¬ÉèÖà - VB / »ù´¡Àà

±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
 A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......

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

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

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

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

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

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

Çë½Ì!ÓõÄÊÇVB 6.0 - VB / ¿Ø¼þ

°ÑÒÑÓÐÊý¾Ý£¨Êý¾Ý´óÓÚ20ÐУ©µÄRS(recordset)µÄµÚ10ÐÐÊý¾ÝÓëµÚ11ÐÐÊý¾Ý×ö¼Ó·¨ºó£¬É¾³ýµÚ11ÐеÄÊý¾Ý£¬È»ºó°ÑºóÃæµÄÊý¾ÝÏòÇ°ÒÆ¡£
RSµÄ»°ÐÞ¸ÄÊý¾ÝÊÇ»á¸üÐÂÊý¾Ý¿â£¬ÏÖÔÚµÄÎÊÌâÊÇRSÀïµÄÒÑÓÐÊý¾ÝÊÇÓÃSQLÓï¾ä·ÖÀàͳ¼Æ³öÀ´µÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ