网站建设资讯

NEWS

网站建设资讯

VB.NET+AJAX搜索建议功能的实现

DE:Visual Web Developer 2008 Express Edition

成都创新互联-专业网站定制、快速模板网站建设、高性价比开化网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式开化网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖开化地区。费用合理售后完善,十多年实体公司更值得信赖。

DB:Access 2007

 

到http://www.asp.net/ajax/downloads/下载AJAX Control Toolkit,将AjaxControlToolkit.dll拷贝到项目的bin目录下,在工具栏中引入。

 

在Web.config的...里加上

[xhtml]   view plain   copy

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

 

WebService的代码:(aaa.asmx)

[vb]   view plain   copy

  1.  _  

  2.  _  

  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" >   

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

  3.   

 

以上即可。

 

AJAX日期控件的使用也很方便,如:

[xhtml]   view plain   copy

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

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

  3.   

如果您觉得此篇文章对您有帮助,欢迎关注微信公众号:大禹编程,您的支持是对我最大的鼓励!共同学习,共同进步:)


文章标题:VB.NET+AJAX搜索建议功能的实现
网站网址:http://njwzjz.com/article/ijdoge.html