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
{{
Ïà¹ØÎÊ´ð£º
ÔõÑùʵÏÖµã»÷Ò»¸ö°´Å¥£¬¾Í½«µ±Ç°´°ÌåÖ¸¶¨ÊäÈë¿òÀïµÄÊý¾Ý¸´ÖƵ½Windows¼ôÇаåÄØ£¿ÎÒÊÔ¹ýÓÃClipboard£¬µ«²»ÐУ¬ËƺõûÓÐÕâ¸öº¯Êý
ÓÐÕâ¸ö¹¦ÄÜ°¡¡£²éÒ»ÏÂmsdn¾Í¿ÉÒÔÁË°¡¡£
Private Sub mnuCopy_Click ()
Cli ......
VB.NET code:
Public Class excelAccess
Public Function exceltoTb(ByVal strExcelFileName As String, ByVal strSheetName As String) As System.Data.DataTable
Dim cnnStr As String = " ......
ÓÃVB³ÌÐòÖн«excelµÄÎļþ·ÅÔں͹¤³Ìͬһ¸öÎļþ¼ÐÖУ¬µ¼ÈëʱûÓдíÎ󣬵«ÔÚ±ðµÄĿ¼Ïµ¼Èë¾Í»á³öÏÖ´íÎó
Ìáʾ£º Ö÷¹Ø¼ü×ÖÖظ´£¨Õâ¸öÅжÏÎÒÔÚ³ÌÐòÖмÓÁË£¬ÔÚºÍACCESSͬһĿ¼ÏÂʱû³öÏÖ´íÎó£©
Common ......
ÎÒÏë´ÓAccess µ¼³öÊý¾Ýµ½DB2£¬ ±ÈÈç˵Access±íÖÐÓÐ3ÌõÊý¾Ý£¬ÎÒÒªµ¼ÈëDB2£¬²¢ÇÒҪɾ³ý¡£ µ«ÊDzåÈë3ÐпÉÒԳɹ¦£¬É¾³ýÖ»ÄÜɾ³ý1ÐУ¬²¢ÇÒµÚÒ»ÐÐɾ³ý3±é£¨ÒòΪÓÐ3ÌõÊý¾Ý£©¡£ ´úÂëÈçÏ£º¿ÒÇë¸÷λ¸ßÊÖÖ¸µãÒ»¶þ£¬Ð¡µÜ¸Ð¼¤²»¾ ......
ÏÂÃæÕâ¶Î´úÂëÊÇÏëʵÏÖ¶ÁÈ¡Êý¾Ý¿â±íÖеĻõ±Ò×Ö¶Îmoney£¬ ²¢½øÐиüУ¬µ«Êǵ÷ÊÔʱ×ÜÔÚ¶ÁÈ¡moneyʱ³ö´í£¨»ÆÉ«´¦£©£¬´ó¼Ò°ïæ¿´¿´£¬Ð»Ð»ÁË~~
db1.oleDbConnection1.Open();
OleDbCommand cmd = new ......