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£¬¾ÍÓ¦ÓÃÓÃ"*"¶ø²»ÊÇ"%"
{{
Ïà¹ØÎÊ´ð£º
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
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 ......
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
¸÷λ¸ßÊֺã¬Âé·³°ïÎÒ¿´ÏÂÕâ¸öÊý¾Ý¿âÁ¬½ÓÎÊÌ⣺
×öÁËÒ»¸öBBSµ«ÊÇÊý¾Ý¿â¾ÍÊÇÁ¬½Ó²»ÉÏ¡£´íÎó´úÂëÈçÏÂ
HTTP Status 500 -
------------------------------------------------------------------------------- ......
ÎÒÏë°ÑwordÁí´æÎªxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......