access ×éºÏ¿òÄ£ºý²éѯ - ÆäËûÊý¾Ý¿â¿ª·¢ / Access
ÓÉÓÚ×éºÏ¿òµÄÐÐÀ´Ô´Êý¾ÝºÜ¶à,ËùÒÔÎÒдÁËÒÔÏ´úÂë:
Private Sub F_NAME_Change()
Me.F_NAME_±êÇ©.SetFocus
Me.F_NAME.Requery
Me.F_NAME.SetFocus
If Nz(F_NAME) <> "" Then Me.F_NAME.SelStart = Len(Me.F_NAME)
Me.F_NAME.Dropdown
End Sub
µ«ÊÇ,ÎÞ·¨ÊµÏÖÏñSQLÓï¾äÖÐµÄ LIKE "* x *" ÕâÑùµÄÈκÎλÖõÄ×Ö·û´®Ä£ºý²éѯ,Ö»ÄÜ×öµ½Ê××Ö·û´®µÄÄ£ºý²éѯ
ÇëÎÊ,ÒªÏë×öµ½ÈκÎλÖõÄ×Ö·û´®Ä£ºý²éѯ(ÏñSQLÓï¾äÖÐµÄ LIKE "* x *" )
ÔõÃ´Ð´ÄØ?
Óе㼱,ÄÜ·ñ°ï°ïæ
ÔÚ²éѯµÄSQLÖÐÄã¿ÉÒÔÕâÑùÓÃmid(×Ö¶ÎÃû £¬num)as XXX
ÔõÑù·ÖÀà²éѯ£¿
ûÓзÖÀà²éѯ,
×Ö¶ÎÖµÖ»Êǵ¥Î»Ãû³Æ¶øÒÑ,
ÔÚ×éºÏ¿òµÄÐÐÀ´Ô´ÉÏ×öÒ»¸öÄ£ºýËÑË÷
ºóÀ´ÎÒÓָijÉÕâÑù
Private Sub F_NAME_Change()
Dim a As String
a = "*" & Me.F_NAME.Text & "*"
Me.F_NAME.RowSource = "SELECT F_NAME from Ftab Where F_NAME like ''''" & a & "''''"
Me.F_NAME.Dropdown
End Sub
µ«»¹ÊÇÎÞ·¨ËÑË÷
²»Ì«Ã÷°×ÄãËù˵µÄ£¬Äã²»¾ÍÊÇÐèÒªÒ»¸öÄ£ºý²éѯÂ
SQL code:
strSql="f_name like '*" & f_name.value & "*'"
Form.filter=strsql
form.filteron=true
{{
Ïà¹ØÎÊ´ð£º
ÒÑÖªAccessÊý¾Ý¿â a.mdb´æÔÚÒ»¸ö±í£ºcc£¬¼ÙÈçccµÄ±í½á¹¹ÈçÏ£º
×Ö¶ÎÃû³Æ Êý¾ÝÀàÐÍ ËµÃ÷
tName Îı¾ Ö¸¶¨ÈËÔ±µÄÐÕÃû
tAge Êý×Ö ......
ÎÒÏë´ÓAccess µ¼³öÊý¾Ýµ½DB2£¬ ±ÈÈç˵Access±íÖÐÓÐ3ÌõÊý¾Ý£¬ÎÒÒªµ¼ÈëDB2£¬²¢ÇÒҪɾ³ý¡£ µ«ÊDzåÈë3ÐпÉÒԳɹ¦£¬É¾³ýÖ»ÄÜɾ³ý1ÐУ¬²¢ÇÒµÚÒ»ÐÐɾ³ý3±é£¨ÒòΪÓÐ3ÌõÊý¾Ý£©¡£ ´úÂëÈçÏ£º¿ÒÇë¸÷λ¸ßÊÖÖ¸µãÒ»¶þ£¬Ð¡µÜ¸Ð¼¤²»¾ ......
ÏëAccess²åÈëÊý¾Ý£¨ÅúÁ¿£©£¬ÔÚVSÖ±½ÓÔËÐÐÊý¾Ý³É¹¦²åÈ룬µ«Èô·¢²¼ºóÔ¶³Ì²Ù×÷£¨Í¨¹ýIP£©,ÔòÊý¾ÝûÓвåÈë¡£ÎÒ½«Í¨¹ýIP²Ù×÷µÄAccess·¾¶ÏÔʾ³öÀ´£¬È·ÈÏ·þÎñÆ÷·¾¶ÊǶԵģ¬¿É¾ÍÊDz»³É¹¦£¬ÄÄλ֪µÀ¸øÖ¸µãһϡ£
C# code: ......