.net webservice

Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols

Imports kemet.Never.DA
Imports kemet.Never.BL
Imports System.Data.SqlClient
Imports System.Data

 

' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line.
' <System.Web.Script.Services.ScriptService()> _
<WebService(Namespace:="http://tempuri.org/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class Service
    Inherits System.Web.Services.WebService

    Private _DBTrans As kemet.Never.DA.DBTransaction
    Private _BL As kemet.Never.BL.Query
    Private _connectionString As String = ""

 

    <WebMethod()> _
    Public Function HelloWorld() As String
        Return "Hello World"
    End Function

    'Public Sub New(ByVal connectionString As String)
    '    _connectionString = connectionString
    'End Sub

    <WebMethod()> _
    Public Function Binding(ByVal r As re) As DataSet

        _connectionString = r.connec
        ' "Data Source=LDBYYQ3R1\MYSQLTEST;  Initial Catalog=MES_TRANS_MCD; User ID=sa; PassWord=admin; Persist Security Info=False;"

        _DBTrans = New kemet.Never.DA.DBTransaction("", _connectionString)
        _BL = New kemet.Never.BL.Query(_DBTrans)
        Dim resultDS As New DataSet

        Try

            resultDS = _BL.GetJobInfo2("FPI162236TMW3N")
            Return resultDS
        Catch ex As Exception
            Throw ex

        End Try

    End Function
    'Public Sub New()
    '    MyBase.New()

    '    InitialLizeComponet()

    'End Sub
    'Private components As System.ComponentModel.IContainer
    '<System.Diagnostics.DebuggerStepThrough()> Private Sub InitialLizeComponet()
    '    components = New System.ComponentModel.Container()

    'End Sub
    'Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    '    If disposing Then
    '        If Not (components Is Nothing) Then
    '            components.Dispose()

    '        End If
    '    End If
    '    MyBase.Dispose(disposing)
    'End Sub

End Class

Public Class re
    Public pn As String
    Public job As String
    Public connec As String

End Class