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£¬¾ÍÓ¦ÓÃÓÃ"*"¶ø²»ÊÇ"%"
{{
Ïà¹ØÎÊ´ð£º
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
¿ÉÒÔÂð
ºÃÆæ¹ÖµÄÌâÄ¿¶î£¡£¡
¿ÉÒÔ¸æËßÎÒÃÇÄãµ½µ×ÏëÎÊʲô £¿
2·Ö¸øÎҵϰ¾Í¿ÉÒÔ¡£
........................¿ÉÒÔÂð
¿ÉÒÔ!
¾À½á£¬
29. vb¿ÉÒÔÕâÑù×ö²»£¿ ( H )¡Ì
A. ......
¸÷λ¸ßÊֺã¬Âé·³°ïÎÒ¿´ÏÂÕâ¸öÊý¾Ý¿âÁ¬½ÓÎÊÌ⣺
×öÁËÒ»¸öBBSµ«ÊÇÊý¾Ý¿â¾ÍÊÇÁ¬½Ó²»ÉÏ¡£´íÎó´úÂëÈçÏÂ
HTTP Status 500 -
------------------------------------------------------------------------------- ......