reference.vb

Professional.SQL.Server.Reporting.Services的随书例子代码

'------------------------------------------------------------------------------
' <autogenerated>
'     This code was generated by a tool.
'     Runtime Version: 1.1.4322.573
'
'     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

'
'This source code was auto-generated by Microsoft.VSDesigner, Version 1.1.4322.573.
'
Namespace RSService
    
    '<remarks/>
    <System.Diagnostics.DebuggerStepThroughAttribute(),  _
     System.ComponentModel.DesignerCategoryAttribute("code"),  _
     System.Web.Services.WebServiceBindingAttribute(Name:="ReportingServiceSoap", [Namespace]:="http://schemas.microsoft.com/sqlserver/2003/12/reporting/reportingservices"),  _
     System.Xml.Serialization.XmlIncludeAttribute(GetType(DataSourceDefinitionOrReference)),  _
     System.Xml.Serialization.XmlIncludeAttribute(GetType(ExpirationDefinition)),  _
     System.Xml.Serialization.XmlIncludeAttribute(GetType(RecurrencePattern)),  _
     System.Xml.Serialization.XmlIncludeAttribute(GetType(ScheduleDefinitionOrReference))>  _
    Public Class ReportingService
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        
        Public ServerInfoHeaderValue As ServerInfoHeader
        
        Public BatchHeaderValue As BatchHeader
        
        Public ItemNamespaceHeaderValue As ItemNamespaceHeader
        
        Public SessionHeaderValue As SessionHeader
        
        '<remarks/>
        Public Sub New()
            MyBase.New
            Me.Url = "http://localhost/ReportServer/ReportService.asmx"
        End Sub
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2003/12/reporting/reportingservices/ListSe"& _ 
"cureMethods", RequestNamespace:="http://schemas.microsoft.com/sqlserver/2003/12/reporting/reportingservices", ResponseNamespace:="http://schemas.microsoft.com/sqlserver/2003/12/reporting/reportingservices", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function ListSecureMethods() As String()
            Dim results() As Object = Me.Invoke("ListSecureMethods", New Object(-1) {})
            Return CType(results(0),String())
        End Function
        
        '<remarks/>
        Public Function BeginListSecureMethods(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("ListSecureMethods", New Object(-1) {}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndListSecureMethods(ByVal asyncResult As System.IAsyncResult) As String()
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),String())
        End Function
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2003/12/reporting/reportingservices/Create"& _ 
"Batch", RequestNamespace:="http://schemas.microsoft.com/sqlserver/2003/12/reporting/reportingservices", ResponseNamespace:="http://schemas.microsoft.com/sqlserver/2003/12/reporting/reportingservices", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function CreateBatch() As <System.Xml.Serialization.XmlElementAttribute("BatchID")> String
            Dim results() As Object = Me.Invoke("CreateBatch", New Object(-1) {})
            Return CType(results(0),String)
        End Function
        
        '<remarks/>
        Public Function BeginCreateBatch(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("CreateBatch", New Object(-1) {}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndCreateBatch(ByVal asyncResult As System.IAsyncResult) As String
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),String)
        End Function
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("BatchHeaderValue"),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2003/12/reporting/reportingservices/Cancel"& _ 
"Batch", RequestNamespace:="http://schemas.microsoft.com/sqlserver/2003/12/reporting/reportingservices", ResponseNamespace:="http://schemas.microsoft.com/sqlserver/2003/12/reporting/reportingservices", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Sub CancelBatch()
            Me.Invoke("CancelBatch", New Object(-1) {})
        End Sub
        
        '<remarks/>
        Public Function BeginCancelBatch(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("CancelBatch", New Object(-1) {}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Sub EndCancelBatch(ByVal asyncResult As System.IAsyncResult)
            Me.EndInvoke(asyncResult)
        End Sub
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("BatchHeaderValue"),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2003/12/reporting/reportingservices/Execut"& _ 
"eBatch", RequestNamespace:="http://schemas.microsoft.com/sqlserver/2003/12/reporting/reportingservices", ResponseNamespace:="http://schemas.microsoft.com/sqlserver/2003/12/reporting/reportingservices", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Sub ExecuteBatch()
            Me.Invoke("ExecuteBatch", New Object(-1) {})
        End Sub
        
        '<remarks/>
        Public Function BeginExecuteBatch(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("ExecuteBatch", New Object(-1) {}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Sub EndExecuteBatch(ByVal asyncResult As System.IAsyncResult)
            Me.EndInvoke(asyncResult)
        End Sub
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2003/12/reporting/reportingservices/GetSys"& _ 
"temProperties", RequestNamespace:="http://schemas.microsoft.com/sqlserver/2003/12/reporting/reportingservices", ResponseNamespace:="http://schemas.microsoft.com/sqlserver/2003/12/reporting/reportingservices", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function GetSystemProperties(ByVal Properties() As [Property]) As <System.Xml.Serialization.XmlArrayAttribute("Values")> [Property]()
            Dim results() As Object = Me.Invoke("GetSystemProperties", New Object() {Properties})
            Return CType(results(0),[Property]())
        End Function
        
        '<remarks/>
        Public Function BeginGetSystemProperties(ByVal Properties() As [Property], ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("GetSystemProperties", New Object() {Properties}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Function EndGetSystemProperties(ByVal asyncResult As System.IAsyncResult) As [Property]()
            Dim results() As Object = Me.EndInvoke(asyncResult)
            Return CType(results(0),[Property]())
        End Function
        
        '<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2003/12/reporting/reportingservices/SetSys"& _ 
"temProperties", RequestNamespace:="http://schemas.microsoft.com/sqlserver/2003/12/reporting/reportingservices", ResponseNamespace:="http://schemas.microsoft.com/sqlserver/2003/12/reporting/reportingservices", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Sub SetSystemProperties(ByVal Properties() As [Property])
            Me.Invoke("SetSystemProperties", New Object() {Properties})
        End Sub
        
        '<remarks/>
        Public Function BeginSetSystemProperties(ByVal Properties() As [Property], ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
            Return Me.BeginInvoke("SetSystemProperties", New Object() {Properties}, callback, asyncState)
        End Function
        
        '<remarks/>
        Public Sub EndSetSystemProperties(ByVal asyncResult As System.IAsyncResult)