'------------------------------------------------------------------------------
' <autogenerated>
'     This code was generated by a tool.
'     Runtime Version: 1.0.3705.0
'
'     Changes to this file may cause incorrect behavior and will be lost if 
'     the code is regenerated.
' </autogenerated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On

Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Xml.Serialization

'
'这个源代码是由 wsdl，Version=1.0.3705.0 自动产生。
'
Namespace DBService_vb
    
    '<remarks/>
    <System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Web.Services.WebServiceBindingAttribute(Name:="DBSrc_vbSoap", [Namespace]:="http://tempuri.org/")>  _
    Public Class DBSrc_vb
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        
        '<remarks/>
        Public Sub New()
            MyBase.New
            Me.Url = "http://localhost/aspnetdata/ch13/13-2/vb/DBSrc.asmx"
        End Sub
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/GetSQLData", RequestNamespace:="http://tempuri.org/", ResponseNamespace:="http://tempuri.org/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function GetSQLData(ByVal ServerName As String, ByVal uid As String, ByVal Password As String, ByVal DBName As String, ByVal TBName As String) As System.Data.DataSet
            Dim results() As Object = Me.Invoke("GetSQLData", New Object() {ServerName, uid, Password, DBName, TBName})
            Return CType(results(0),System.Data.DataSet)
        End Function
        
        '<remarks/>
        Public Function BeginGetSQLData(ByVal ServerName As String, ByVal uid As String, ByVal Password As String, ByVal DBName As String, ByVal TBName As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("GetSQLData", New Object() {ServerName, uid, Password, DBName, TBName}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndGetSQLData(ByVal asyncResult As System.IAsyncResult) As System.Data.DataSet
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),System.Data.DataSet)
        End Function
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/SaveSQLData", RequestNamespace:="http://tempuri.org/", ResponseNamespace:="http://tempuri.org/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function SaveSQLData(ByVal DS As System.Data.DataSet, ByVal ServerName As String, ByVal uid As String, ByVal Password As String, ByVal DBName As String, ByVal TBName As String) As Boolean
            Dim results() As Object = Me.Invoke("SaveSQLData", New Object() {DS, ServerName, uid, Password, DBName, TBName})
            Return CType(results(0),Boolean)
        End Function
        
        '<remarks/>
        Public Function BeginSaveSQLData(ByVal DS As System.Data.DataSet, ByVal ServerName As String, ByVal uid As String, ByVal Password As String, ByVal DBName As String, ByVal TBName As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("SaveSQLData", New Object() {DS, ServerName, uid, Password, DBName, TBName}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndSaveSQLData(ByVal asyncResult As System.IAsyncResult) As Boolean
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),Boolean)
        End Function
    End Class
End Namespace
