VB.NET+AJAX搜索建議功能的實(shí)現(xiàn)

DE:Visual Web Developer 2008 Express Edition

成都創(chuàng)新互聯(lián)-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價(jià)比開化網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫(kù),直接使用。一站式開化網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋開化地區(qū)。費(fèi)用合理售后完善，十多年實(shí)體公司更值得信賴。

DB:Access 2007

 

到http://www.asp.net/ajax/downloads/下載AJAX Control Toolkit，將AjaxControlToolkit.dll拷貝到項(xiàng)目的bin目錄下，在工具欄中引入。

 

在Web.config的<controls>...</controls>里加上

[xhtml]   view plain   copy

  1. < add   tagPrefix = "ajaxToolkit"   namespace = "AjaxControlToolkit"   assembly = "AjaxControlToolkit" />   

 

WebService的代碼：（aaa.asmx）

[vb]   view plain   copy

  1. <WebMethod()> _  

  2. <System.Web.Script.Services.ScriptMethod()> _  

  3. Public   Function  GetCompletionList( ByVal  prefixText  As   String ,  ByVal  count  As   Integer )  As   String ()  

  4.      Dim  myConnection  As  OleDbConnection  

  5.      Dim  myCommand  As  OleDbCommand  

  6.      Dim  dbname  As   String   

  7.     dbname = Server.MapPath( "location.accdb" )  

  8.     myConnection =  New  OleDbConnection( "Provider=Microsoft.ACE.OLEDB.12.0;DATA Source="  & dbname)  

  9.     myConnection.Open()  

  10.      Dim  list  As   New  List(Of  String )  

  11.     myCommand =  New  OleDbCommand( "SELECT DISTINCT(columnName) FROM tableName WHERE columnName LIKE '"  + prefixText &  "%"  +  "'" , myConnection)  

  12.      Dim  reader  As  OleDbDataReader = myCommand.ExecuteReader()  

  13.      Do   While  reader.Read  

  14.         list.Add(reader.GetString(0))  

  15.      Loop   

  16.      Return  list.ToArray()  

  17. End   Function   

 

 

FORM中的代碼：（aaa.aspx）

[xhtml]   view plain   copy

  1. < asp:TextBox   ID = "txtNo"   runat = "server"   autopostback = "true"   Columns = "50" > </ asp:TextBox >   

  2. < ajaxToolkit:AutoCompleteExtender   ID = "txtNo_AutoCompleteExtender"   runat = "server"   Enabled = "True"   ServiceMethod = "GetCompletionList"   ServicePath = "aaa.asmx"   TargetControlID = "txtNo"   MinimumPrefixLength = "1"   EnableCaching  = "true" >   

  3. </ ajaxToolkit:AutoCompleteExtender >   

 

以上即可。

 

AJAX日期控件的使用也很方便，如：

[xhtml]   view plain   copy

  1. < asp:TextBox   ID = "txtDate"   runat = "server"   Columns = "24" > </ asp:TextBox >   

  2. < ajaxToolkit:CalendarExtender   ID = "txtDate_CalendarExtender"   runat = "server"   Enabled = "True"   TargetControlID = "txtDate" >   

  3. </ ajaxToolkit:CalendarExtender >   

如果您覺得此篇文章對(duì)您有幫助，歡迎關(guān)注微信公眾號(hào)：大禹編程，您的支持是對(duì)我最大的鼓勵(lì)！共同學(xué)習(xí)，共同進(jìn)步:)

本文標(biāo)題：VB.NET+AJAX搜索建議功能的實(shí)現(xiàn)
轉(zhuǎn)載注明：http://muchs.cn/article14/ijdoge.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供做網(wǎng)站、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)站設(shè)計(jì)公司、App開發(fā)、品牌網(wǎng)站制作、定制網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)

成都定制網(wǎng)站網(wǎng)頁(yè)設(shè)計(jì)