reference.vb

来自「wrox出版社的另一套经典的VB2005数据库编程学习书籍,收集了书中源码,郑重」· VB 代码 · 共 433 行 · 第 1/2 页

'------------------------------------------------------------------------------
' <autogenerated>
'     This code was generated by a tool.
'     Runtime Version:2.0.40607.42
'
'     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.Data
Imports System.Data.SqlTypes
Imports System.Diagnostics
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Xml.Serialization

'
'This source code was auto-generated by Microsoft.VSDesigner, Version 2.0.40607.42.
'
Namespace WSNwindEP
    
    '''<remarks/>
    <System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Web.Services.WebServiceBindingAttribute(Name:="NorthwindEPSoap", [Namespace]:="http://oakleaf.ws/webservices/northwindep"),  _
     System.Xml.Serialization.XmlIncludeAttribute(GetType(xml)),  _
     System.Xml.Serialization.XmlIncludeAttribute(GetType(SqlParameter()))>  _
    Public Class NorthwindEP
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        
        '''<remarks/>
        Public Sub New()
            MyBase.New
            Dim urlSetting As String = System.Configuration.ConfigurationSettings.AppSettings("SqlNativeWebServices.WSNwindEP.NorthwindEP")
            If (Not (urlSetting) Is Nothing) Then
                Me.Url = String.Concat(urlSetting, "")
            Else
                Me.Url = "http://localhost/wsnwindep"
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2004/SOAPsqlbatch", RequestNamespace:="http://schemas.microsoft.com/sqlserver/2004/SOAP", ResponseNamespace:="http://schemas.microsoft.com/sqlserver/2004/SOAP", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function sqlbatch(ByVal BatchCommands As String, <System.Xml.Serialization.XmlArrayAttribute(IsNullable:=true), System.Xml.Serialization.XmlArrayItemAttribute([Namespace]:="http://schemas.microsoft.com/sqlserver/2004/SOAP/types/SqlParameter", IsNullable:=false)> ByRef Parameters() As SqlParameter) As <System.Xml.Serialization.XmlArrayItemAttribute("SqlResultCode", GetType(Integer), [Namespace]:="http://schemas.microsoft.com/sqlserver/2004/SOAP/types/SqlResultStream", IsNullable:=false), System.Xml.Serialization.XmlArrayItemAttribute(GetType(SqlTransaction), [Namespace]:="http://schemas.microsoft.com/sqlserver/2004/SOAP/types/SqlResultStream", IsNullable:=false), System.Xml.Serialization.XmlArrayItemAttribute(GetType(SqlRowCount), [Namespace]:="http://schemas.microsoft.com/sqlserver/2004/SOAP/types/SqlResultStream", IsNullable:=false), System.Xml.Serialization.XmlArrayItemAttribute("SqlXml", GetType(System.Xml.XmlNode), [Namespace]:="http://schemas.microsoft.com/sqlserver/2004/SOAP/types/SqlResultStream", IsNullable:=false), System.Xml.Serialization.XmlArrayItemAttribute(GetType(SqlMessage), [Namespace]:="http://schemas.microsoft.com/sqlserver/2004/SOAP/types/SqlResultStream", IsNullable:=false), System.Xml.Serialization.XmlArrayItemAttribute("SqlRowSet", GetType(System.Data.DataSet), [Namespace]:="http://schemas.microsoft.com/sqlserver/2004/SOAP/types/SqlResultStream", IsNullable:=false)> Object()
            Dim results() As Object = Me.Invoke("sqlbatch", New Object() {BatchCommands, Parameters})
            Parameters = CType(results(1),SqlParameter())
            Return CType(results(0),Object())
        End Function
        
        '''<remarks/>
        Public Function Beginsqlbatch(ByVal BatchCommands As String, ByVal Parameters() As SqlParameter, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("sqlbatch", New Object() {BatchCommands, Parameters}, callback, asyncState)
        End Function
        
        '''<remarks/>
        Public Function Endsqlbatch(ByVal asyncResult As System.IAsyncResult, ByRef Parameters() As SqlParameter) As Object()
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Parameters = CType(results(1),SqlParameter())
            Return CType(results(0),Object())
        End Function
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://oakleaf.ws/webservices/northwindepCustomerOrderHistory", RequestNamespace:="http://oakleaf.ws/webservices/northwindep", ResponseNamespace:="http://oakleaf.ws/webservices/northwindep", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function CustomerOrderHistory(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal CustomerID As System.Data.SqlTypes.SqlString) As System.Data.DataSet
            Dim results() As Object = Me.Invoke("CustomerOrderHistory", New Object() {CustomerID})
            Return CType(results(0),System.Data.DataSet)
        End Function
        
        '''<remarks/>
        Public Function BeginCustomerOrderHistory(ByVal CustomerID As System.Data.SqlTypes.SqlString, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("CustomerOrderHistory", New Object() {CustomerID}, callback, asyncState)
        End Function
        
        '''<remarks/>
        Public Function EndCustomerOrderHistory(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://oakleaf.ws/webservices/northwindepEmployeeSalesByCountry", RequestNamespace:="http://oakleaf.ws/webservices/northwindep", ResponseNamespace:="http://oakleaf.ws/webservices/northwindep", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function EmployeeSalesByCountry(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal Beginning_Date As System.Data.SqlTypes.SqlDateTime, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal Ending_Date As System.Data.SqlTypes.SqlDateTime) As System.Data.DataSet
            Dim results() As Object = Me.Invoke("EmployeeSalesByCountry", New Object() {Beginning_Date, Ending_Date})
            Return CType(results(0),System.Data.DataSet)
        End Function
        
        '''<remarks/>
        Public Function BeginEmployeeSalesByCountry(ByVal Beginning_Date As System.Data.SqlTypes.SqlDateTime, ByVal Ending_Date As System.Data.SqlTypes.SqlDateTime, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("EmployeeSalesByCountry", New Object() {Beginning_Date, Ending_Date}, callback, asyncState)
        End Function
        
        '''<remarks/>
        Public Function EndEmployeeSalesByCountry(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://oakleaf.ws/webservices/northwindepSalesByCategory", RequestNamespace:="http://oakleaf.ws/webservices/northwindep", ResponseNamespace:="http://oakleaf.ws/webservices/northwindep", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function SalesByCategory(<System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal CategoryName As System.Data.SqlTypes.SqlString, <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)> ByVal OrdYear As System.Data.SqlTypes.SqlString) As System.Data.DataSet
            Dim results() As Object = Me.Invoke("SalesByCategory", New Object() {CategoryName, OrdYear})
            Return CType(results(0),System.Data.DataSet)
        End Function
        
        '''<remarks/>
        Public Function BeginSalesByCategory(ByVal CategoryName As System.Data.SqlTypes.SqlString, ByVal OrdYear As System.Data.SqlTypes.SqlString, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("SalesByCategory", New Object() {CategoryName, OrdYear}, callback, asyncState)
        End Function
        
        '''<remarks/>
        Public Function EndSalesByCategory(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://oakleaf.ws/webservices/northwindepTenMostExpensiveProducts", RequestNamespace:="http://oakleaf.ws/webservices/northwindep", ResponseNamespace:="http://oakleaf.ws/webservices/northwindep", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function TenMostExpensiveProducts() As System.Data.DataSet
            Dim results() As Object = Me.Invoke("TenMostExpensiveProducts", New Object(-1) {})
            Return CType(results(0),System.Data.DataSet)
        End Function
        
        '''<remarks/>
        Public Function BeginTenMostExpensiveProducts(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("TenMostExpensiveProducts", New Object(-1) {}, callback, asyncState)
        End Function
        
        '''<remarks/>
        Public Function EndTenMostExpensiveProducts(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
    End Class
    
    '''<remarks/>
    <System.SerializableAttribute(),  _
     System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://schemas.microsoft.com/sqlserver/2004/SOAP/types/SqlParameter")>  _
    Public Class SqlParameter
        
        '''<remarks/>
        <System.Xml.Serialization.XmlElementAttribute(IsNullable:=true)>  _
        Public Value As Object
        
        '''<remarks/>
        <System.Xml.Serialization.XmlAttributeAttribute()>  _
        Public name As String
        
        '''<remarks/>
        <System.Xml.Serialization.XmlAttributeAttribute(),  _
         System.ComponentModel.DefaultValueAttribute(sqlDbTypeEnum.NVarChar)>  _
        Public sqlDbType As sqlDbTypeEnum
        
        '''<remarks/>
        <System.Xml.Serialization.XmlAttributeAttribute(),  _
         System.ComponentModel.DefaultValueAttribute(ParameterDirection.Input)>  _
        Public direction As ParameterDirection
        
        '''<remarks/>
        <System.Xml.Serialization.XmlAttributeAttribute(),  _
         System.ComponentModel.DefaultValueAttribute(GetType(Long), "1")>  _
        Public maxLength As Long
        
        '''<remarks/>
        <System.Xml.Serialization.XmlAttributeAttribute(),  _
         System.ComponentModel.DefaultValueAttribute(GetType(Byte), "18")>  _
        Public precision As Byte
        
        '''<remarks/>
        <System.Xml.Serialization.XmlAttributeAttribute(),  _
         System.ComponentModel.DefaultValueAttribute(GetType(Byte), "0")>  _
        Public scale As Byte
        
        '''<remarks/>
        <System.Xml.Serialization.XmlAttributeAttribute(),  _
         System.ComponentModel.DefaultValueAttribute("")>  _
        Public clrTypeName As String
        
        '''<remarks/>
        <System.Xml.Serialization.XmlAttributeAttribute(),  _
         System.ComponentModel.DefaultValueAttribute(sqlCompareOptionsList.None)>  _
        Public sqlCompareOptions As sqlCompareOptionsList
        
        '''<remarks/>
        <System.Xml.Serialization.XmlAttributeAttribute(),  _
         System.ComponentModel.DefaultValueAttribute(-1)>  _
        Public localeId As Integer
        
        '''<remarks/>
        <System.Xml.Serialization.XmlAttributeAttribute(),  _
         System.ComponentModel.DefaultValueAttribute(0)>  _
        Public sqlCollationVersion As Integer
        
        '''<remarks/>
        <System.Xml.Serialization.XmlAttributeAttribute(),  _
         System.ComponentModel.DefaultValueAttribute(0)>  _
        Public sqlSortId As Integer
        
        Public Sub New()
            MyBase.New
            Me.sqlDbType = sqlDbTypeEnum.NVarChar
            Me.direction = ParameterDirection.Input
            Me.maxLength = CType(1,Long)
            Me.precision = CType(18,Byte)
            Me.scale = CType(0,Byte)
            Me.clrTypeName = ""
            Me.sqlCompareOptions = sqlCompareOptionsList.None
            Me.localeId = -1
            Me.sqlCollationVersion = 0
            Me.sqlSortId = 0
        End Sub
    End Class