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Êý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
ÎÊÌâÊÇÕâÑùµÄ,ÏÖÔÚÓÐÒ»¸ö¹¤×ʱí,ÊÇEXCELµÄ,ÎÒÒª°ÑËüµ¼ÈëACCESS,ÒòΪ Òª²éѯÿ¸öÈ˵Ť×Ê,¸ù¾Ý²»Í¬µÄ±àºÅ¿ÉÒÔ²éѯµ½Ïà¶ÔµÄÈË,
ÓÃASP Ôõô½«EXCELµ¼Èëµ½ACCESS,¶øÇÒÿÔ¶¼Óв»Í¬µÄ±í,
ÒýÓÃ
Æäʵ¾ÍÊǰÑEXCELµ±³ÉÊý ......
rt£¬ÎÒÊÔÁËÍøÉÏÖ±Á¬AccesÊý¾Ý¿âµÄ·½·¨,windowsÏÂûÓÐÎÊÌâ,µ«ÊÇÔÚlinuxϲ»ÐУ¬ËÄܸøµãÌáʾ£¿Ð»Ð»
ÄãÔõôÁ¬µÄ£¿
AccesÊý¾Ý¿â..
ÄãÔõôÁ·µÄÄØ£¿
Java code:
static String DBDRIVER = "sun.jd ......
ÎÒÁ¬½ÓaccessÊý¾Ý¿â£¬ÒÔǰһֱºÜºÃ£¬×î½üÈ´×ÜÊdzö´í£¨Êý¾Ý¿âÁ¬½Ó³ö´í!£¡£©£¬´úÂëÈçÏ£º
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&" ......