Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports AjaxControlToolkit
Imports System.Data
Imports System.Data.SqlClient
<WebService(Namespace:="[URL unfurl="true"]http://tempuri.org/")>[/URL] _
<System.Web.Script.Services.ScriptService()> _
Public Class GetNames
Inherits System.Web.Services.WebService
<WebMethod()> _
Public Function GetLNames( _
ByVal knownCategoryValues As String, _
ByVal category As String) As CascadingDropDownNameValue()
Dim values As New _
System.Collections.Generic.List( _
Of AjaxControlToolkit.CascadingDropDownNameValue)
Dim conn As New SqlConnection( _
"Data Source=.\KVCSQL;Initial Catalog=CLIENT_KS;" & _
"Integrated Security=True")
Dim comm As New SqlCommand( _
"SELECT DISTINCT LNAME FROM MASTERFILE", conn)
conn.Open()
Dim reader As SqlDataReader = comm.ExecuteReader
While reader.Read
values.Add(New CascadingDropDownNameValue(reader("FNAME"), reader("COUNTER")))
End While
conn.Close()
Return values.ToArray
End Function
<WebMethod()> _
Public Function GetFNames( _
ByVal knownCategoryValues As String, _
ByVal category As String) As CascadingDropDownNameValue()
Dim values As New _
System.Collections.Generic.List( _
Of AjaxControlToolkit.CascadingDropDownNameValue)
Dim conn As New SqlConnection( _
"Data Source=.\KVCSQL;Initial Catalog=CLIENT_KS;" & _
"Integrated Security=True")
Dim comm As New SqlCommand( _
"SELECT DISTINCT FNAME, CSNBR FROM MASTERFILE", conn)
conn.Open()
Dim reader As SqlDataReader = comm.ExecuteReader
While reader.Read
values.Add(New CascadingDropDownNameValue(reader("FNAME") & " " & reader("CSNBR"), reader("CSNBR")))
End While
conn.Close()
Return values.ToArray
End Function
End Class