VB.NET+AJAX搜索建議功能的實現

DE:Visual Web Developer 2008 Express Edition

DB:Access 2007

到http://www.asp.net/ajax/downloads/下載AJAX Control Toolkit，將AjaxControlToolkit.dll拷貝到項目的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 >   

如果您覺得此篇文章對您有幫助，歡迎關注微信公眾號：大禹編程，您的支持是對我最大的鼓勵！共同學習，共同進步:)