Revision: 42403
Updated Code
at March 5, 2011 03:27 by derebus
Updated Code
Imports System.Collections.Generic
Imports System.Web.Services
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Data
<WebService> _
<WebServiceBinding(ConformsTo := WsiProfiles.BasicProfile1_1)> _
<System.Web.Script.Services.ScriptService> _
Public Class AutoComplete
Inherits WebService
Public Sub New()
End Sub
<WebMethod> _
Public Function GetCompletionList(prefixText As String, count As Integer) As String()
If count = 0 Then
count = 10
End If
Dim dt As DataTable = GetRecords(prefixText)
Dim items As New List(Of String)(count)
For i As Integer = 0 To dt.Rows.Count - 1
Dim strName As String = dt.Rows(i)(0).ToString()
items.Add(strName)
Next
Return items.ToArray()
End Function
Public Function GetRecords(strName As String) As DataTable
Dim strConn As String = ConfigurationManager.ConnectionStrings("DatabaseConnectionString").ConnectionString
Dim con As New SqlConnection(strConn)
Dim cmd As New SqlCommand()
cmd.Connection = con
cmd.CommandType = System.Data.CommandType.Text
cmd.Parameters.AddWithValue("@Name", strName)
cmd.CommandText = "Select Name from Test where Name like '%'+@Name+'%'"
Dim objDs As New DataSet()
Dim dAdapter As New SqlDataAdapter()
dAdapter.SelectCommand = cmd
con.Open()
dAdapter.Fill(objDs)
con.Close()
Return objDs.Tables(0)
End Function
End Class
'------------------------------------------------------------------------------
'If u want to use Sessions, u have to change <WebService> _ for
'<WebMethod(EnableSession:=True)> _
'------------------------------------------------------------------------------
'--------------------------ASP.NET CODE ----------------------------------------------------
<asp:TextBox ID="txtName" runat="server" Text='<%#Bind("Name") %>' ></asp:TextBox>
<ajaxToolkit:AutoCompleteExtender runat="server" ID="autoComplete1" TargetControlID="txtName" ServicePath="AutoComplete.asmx" ServiceMethod="GetCompletionList" MinimumPrefixLength="1" CompletionInterval="10" EnableCaching="true" CompletionSetCount="12" />
Revision: 42402
Updated Code
at March 4, 2011 09:55 by derebus
Updated Code
Imports System.Collections.Generic
Imports System.Web.Services
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Data
<WebService> _
<WebServiceBinding(ConformsTo := WsiProfiles.BasicProfile1_1)> _
<System.Web.Script.Services.ScriptService> _
Public Class AutoComplete
Inherits WebService
Public Sub New()
End Sub
<WebMethod> _
Public Function GetCompletionList(prefixText As String, count As Integer) As String()
If count = 0 Then
count = 10
End If
Dim dt As DataTable = GetRecords(prefixText)
Dim items As New List(Of String)(count)
For i As Integer = 0 To dt.Rows.Count - 1
Dim strName As String = dt.Rows(i)(0).ToString()
items.Add(strName)
Next
Return items.ToArray()
End Function
Public Function GetRecords(strName As String) As DataTable
Dim strConn As String = ConfigurationManager.ConnectionStrings("DatabaseConnectionString").ConnectionString
Dim con As New SqlConnection(strConn)
Dim cmd As New SqlCommand()
cmd.Connection = con
cmd.CommandType = System.Data.CommandType.Text
cmd.Parameters.AddWithValue("@Name", strName)
cmd.CommandText = "Select Name from Test where Name like '%'+@Name+'%'"
Dim objDs As New DataSet()
Dim dAdapter As New SqlDataAdapter()
dAdapter.SelectCommand = cmd
con.Open()
dAdapter.Fill(objDs)
con.Close()
Return objDs.Tables(0)
End Function
End Class
'--------------------------ASP.NET CODE ----------------------------------------------------
<asp:TextBox ID="txtName" runat="server" Text='<%#Bind("Name") %>' ></asp:TextBox>
<ajaxToolkit:AutoCompleteExtender runat="server" ID="autoComplete1" TargetControlID="txtName" ServicePath="AutoComplete.asmx" ServiceMethod="GetCompletionList" MinimumPrefixLength="1" CompletionInterval="10" EnableCaching="true" CompletionSetCount="12" />
Revision: 42401
Updated Code
at March 4, 2011 08:38 by derebus
Updated Code
Imports System.Collections.Generic
Imports System.Web.Services
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Data
<WebService> _
<WebServiceBinding(ConformsTo := WsiProfiles.BasicProfile1_1)> _
<System.Web.Script.Services.ScriptService> _
Public Class AutoComplete
Inherits WebService
Public Sub New()
End Sub
<WebMethod> _
Public Function GetCompletionList(prefixText As String, count As Integer) As String()
If count = 0 Then
count = 10
End If
Dim dt As DataTable = GetRecords(prefixText)
Dim items As New List(Of String)(count)
For i As Integer = 0 To dt.Rows.Count - 1
Dim strName As String = dt.Rows(i)(0).ToString()
items.Add(strName)
Next
Return items.ToArray()
End Function
Public Function GetRecords(strName As String) As DataTable
Dim strConn As String = ConfigurationManager.ConnectionStrings("DatabaseConnectionString").ConnectionString
Dim con As New SqlConnection(strConn)
Dim cmd As New SqlCommand()
cmd.Connection = con
cmd.CommandType = System.Data.CommandType.Text
cmd.Parameters.AddWithValue("@Name", strName)
cmd.CommandText = "Select Name from Test where Name like '%'+@Name+'%'"
Dim objDs As New DataSet()
Dim dAdapter As New SqlDataAdapter()
dAdapter.SelectCommand = cmd
con.Open()
dAdapter.Fill(objDs)
con.Close()
Return objDs.Tables(0)
End Function
End Class
'--------------------------ASP CODE ----------------------------------------------------
<asp:TextBox ID="txtName" runat="server" Text='<%#Bind("Name") %>' ></asp:TextBox>
<ajaxToolkit:AutoCompleteExtender runat="server" ID="autoComplete1" TargetControlID="txtName" ServicePath="AutoComplete.asmx" ServiceMethod="GetCompletionList" MinimumPrefixLength="1" CompletionInterval="10" EnableCaching="true" CompletionSetCount="12" />
Revision: 42400
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at March 4, 2011 08:38 by derebus
Initial Code
Imports System.Collections.Generic
Imports System.Web.Services
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Data
<WebService> _
<WebServiceBinding(ConformsTo := WsiProfiles.BasicProfile1_1)> _
<System.Web.Script.Services.ScriptService> _
Public Class AutoComplete
Inherits WebService
Public Sub New()
End Sub
<WebMethod> _
Public Function GetCompletionList(prefixText As String, count As Integer) As String()
If count = 0 Then
count = 10
End If
Dim dt As DataTable = GetRecords(prefixText)
Dim items As New List(Of String)(count)
For i As Integer = 0 To dt.Rows.Count - 1
Dim strName As String = dt.Rows(i)(0).ToString()
items.Add(strName)
Next
Return items.ToArray()
End Function
Public Function GetRecords(strName As String) As DataTable
Dim strConn As String = ConfigurationManager.ConnectionStrings("DatabaseConnectionString").ConnectionString
Dim con As New SqlConnection(strConn)
Dim cmd As New SqlCommand()
cmd.Connection = con
cmd.CommandType = System.Data.CommandType.Text
cmd.Parameters.AddWithValue("@Name", strName)
cmd.CommandText = "Select Name from Test where Name like '%'+@Name+'%'"
Dim objDs As New DataSet()
Dim dAdapter As New SqlDataAdapter()
dAdapter.SelectCommand = cmd
con.Open()
dAdapter.Fill(objDs)
con.Close()
Return objDs.Tables(0)
End Function
End Class
'------------------------------------------------------------------------------
<asp:TextBox ID="txtName" runat="server" Text='<%#Bind("Name") %>' ></asp:TextBox>
<ajaxToolkit:AutoCompleteExtender runat="server" ID="autoComplete1" TargetControlID="txtName" ServicePath="AutoComplete.asmx" ServiceMethod="GetCompletionList" MinimumPrefixLength="1" CompletionInterval="10" EnableCaching="true" CompletionSetCount="12" />
Initial URL
http://www.dotnetfunda.com/articles/article224.aspx
Initial Description
In this example i am implementing the AutoComplete functionality to textbox using AJAX autocomplete extender, for this we need to create a web service which calls the method to fetch data from database and display results as suggestions for textbox
Initial Title
AutoComplete functionality to textbox using AJAX autocomplete extender
Initial Tags
Initial Language
Visual Basic