<ServiceContract(Namespace:="")> <AspNetCompatibilityRequirements(RequirementsMode:=AspNetCompatibilityRequirementsMode.Allowed)> Public Class MyService <OperationContract()> Public Function GetNums() As String Return HttpContext.Current.User.Identity.Name.ToString() End Function <OperationContract()> Public Function GetMoreUserData(ByVal Uid As String) As List(Of Entity) Dim list As List(Of Entity) = New List(Of Entity)() Using conn As SqlConnection = New SqlConnection("MyConnection/Database") conn.Open() Using dcmd As SqlCommand = New SqlCommand("StoredProcedure", conn) Dim prms As New SqlParameter("@Uid", SqlDbType.VarChar, 70) prms.Value = Uid & "%" dcmd.Parameters.Add(prms) dcmd.CommandType = CommandType.StoredProcedure Using reader As SqlDataReader = dcmd.ExecuteReader() While reader.Read() list.Add(New Entity() With { _ .NUM = reader("NUM").ToString() _ }) End While End Using conn.Close() End Using Return list End Using End Function <OperationContract()> Public Function GetAuthorizeDivision(ByVal NUM As String) As List(Of Entity) Dim list As List(Of Entity) = New List(Of Entity)() Using conn As SqlConnection = New SqlConnection("MyDatabaseConnection") conn.Open() Using dcmd As SqlCommand = New SqlCommand("StoredProcedure", conn) Dim prms As New SqlParameter("@NUM", SqlDbType.VarChar, 9) prms.Value = NUM & "%" dcmd.Parameters.Add(prms) dcmd.CommandType = CommandType.StoredProcedure Using reader As SqlDataReader = dcmd.ExecuteReader() While reader.Read() list.Add(New Entity() With { _ .YESGO = reader("YESGO").ToString() _ }) End While End Using conn.Close() End Using Return list End Using End Function <OperationContract()> Public Function GetAuthorizedAppU(ByVal EAPPNUM As String) As List(Of Entity) Dim list As List(Of Entity) = New List(Of Entity)() Using conn As SqlConnection = New SqlConnection("MyDatabase/Connetion") conn.Open() Using dcmd As SqlCommand = New SqlCommand("StoredProcedure", conn) Dim prms As New SqlParameter("@EAPPNUM", SqlDbType.VarChar, 15) prms.Value = EAPPNUM & "%" dcmd.Parameters.Add(prms) dcmd.CommandType = CommandType.StoredProcedure Using reader As SqlDataReader = dcmd.ExecuteReader While reader.Read() list.Add(New Entity() With { _ .Column1 = reader("Column1").ToString _ }) End While conn.Close() End Using Return list End Using End Using End Function
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)