reference.vb

sql server report service的例子。给dw开发者

        
        '''<remarks/>
        Public Overloads Sub ListSecureMethodsAsync()
            Me.ListSecureMethodsAsync(Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub ListSecureMethodsAsync(ByVal userState As Object)
            If (Me.ListSecureMethodsOperationCompleted Is Nothing) Then
                Me.ListSecureMethodsOperationCompleted = AddressOf Me.OnListSecureMethodsOperationCompleted
            End If
            Me.InvokeAsync("ListSecureMethods", New Object(-1) {}, Me.ListSecureMethodsOperationCompleted, userState)
        End Sub
        
        Private Sub OnListSecureMethodsOperationCompleted(ByVal arg As Object)
            If (Not (Me.ListSecureMethodsCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent ListSecureMethodsCompleted(Me, New ListSecureMethodsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("ExecutionHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("TrustedUserHeaderValue"),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Loa"& _ 
            "dReport", RequestNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", ResponseNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function LoadReport(ByVal Report As String, ByVal HistoryID As String) As <System.Xml.Serialization.XmlElementAttribute("executionInfo")> ExecutionInfo
            Dim results() As Object = Me.Invoke("LoadReport", New Object() {Report, HistoryID})
            Return CType(results(0),ExecutionInfo)
        End Function
        
        '''<remarks/>
        Public Overloads Sub LoadReportAsync(ByVal Report As String, ByVal HistoryID As String)
            Me.LoadReportAsync(Report, HistoryID, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub LoadReportAsync(ByVal Report As String, ByVal HistoryID As String, ByVal userState As Object)
            If (Me.LoadReportOperationCompleted Is Nothing) Then
                Me.LoadReportOperationCompleted = AddressOf Me.OnLoadReportOperationCompleted
            End If
            Me.InvokeAsync("LoadReport", New Object() {Report, HistoryID}, Me.LoadReportOperationCompleted, userState)
        End Sub
        
        Private Sub OnLoadReportOperationCompleted(ByVal arg As Object)
            If (Not (Me.LoadReportCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent LoadReportCompleted(Me, New LoadReportCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("ExecutionHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("TrustedUserHeaderValue"),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Loa"& _ 
            "dReportDefinition", RequestNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", ResponseNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function LoadReportDefinition(<System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary")> ByVal Definition() As Byte, ByRef warnings() As Warning) As <System.Xml.Serialization.XmlElementAttribute("executionInfo")> ExecutionInfo
            Dim results() As Object = Me.Invoke("LoadReportDefinition", New Object() {Definition})
            warnings = CType(results(1),Warning())
            Return CType(results(0),ExecutionInfo)
        End Function
        
        '''<remarks/>
        Public Overloads Sub LoadReportDefinitionAsync(ByVal Definition() As Byte)
            Me.LoadReportDefinitionAsync(Definition, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub LoadReportDefinitionAsync(ByVal Definition() As Byte, ByVal userState As Object)
            If (Me.LoadReportDefinitionOperationCompleted Is Nothing) Then
                Me.LoadReportDefinitionOperationCompleted = AddressOf Me.OnLoadReportDefinitionOperationCompleted
            End If
            Me.InvokeAsync("LoadReportDefinition", New Object() {Definition}, Me.LoadReportDefinitionOperationCompleted, userState)
        End Sub
        
        Private Sub OnLoadReportDefinitionOperationCompleted(ByVal arg As Object)
            If (Not (Me.LoadReportDefinitionCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent LoadReportDefinitionCompleted(Me, New LoadReportDefinitionCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("ExecutionHeaderValue"),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("TrustedUserHeaderValue"),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Set"& _ 
            "ExecutionCredentials", RequestNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", ResponseNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function SetExecutionCredentials(ByVal Credentials() As DataSourceCredentials) As <System.Xml.Serialization.XmlElementAttribute("executionInfo")> ExecutionInfo
            Dim results() As Object = Me.Invoke("SetExecutionCredentials", New Object() {Credentials})
            Return CType(results(0),ExecutionInfo)
        End Function
        
        '''<remarks/>
        Public Overloads Sub SetExecutionCredentialsAsync(ByVal Credentials() As DataSourceCredentials)
            Me.SetExecutionCredentialsAsync(Credentials, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub SetExecutionCredentialsAsync(ByVal Credentials() As DataSourceCredentials, ByVal userState As Object)
            If (Me.SetExecutionCredentialsOperationCompleted Is Nothing) Then
                Me.SetExecutionCredentialsOperationCompleted = AddressOf Me.OnSetExecutionCredentialsOperationCompleted
            End If
            Me.InvokeAsync("SetExecutionCredentials", New Object() {Credentials}, Me.SetExecutionCredentialsOperationCompleted, userState)
        End Sub
        
        Private Sub OnSetExecutionCredentialsOperationCompleted(ByVal arg As Object)
            If (Not (Me.SetExecutionCredentialsCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent SetExecutionCredentialsCompleted(Me, New SetExecutionCredentialsCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("ExecutionHeaderValue"),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("TrustedUserHeaderValue"),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Set"& _ 
            "ExecutionParameters", RequestNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", ResponseNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function SetExecutionParameters(ByVal Parameters() As ParameterValue, ByVal ParameterLanguage As String) As <System.Xml.Serialization.XmlElementAttribute("executionInfo")> ExecutionInfo
            Dim results() As Object = Me.Invoke("SetExecutionParameters", New Object() {Parameters, ParameterLanguage})
            Return CType(results(0),ExecutionInfo)
        End Function
        
        '''<remarks/>
        Public Overloads Sub SetExecutionParametersAsync(ByVal Parameters() As ParameterValue, ByVal ParameterLanguage As String)
            Me.SetExecutionParametersAsync(Parameters, ParameterLanguage, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub SetExecutionParametersAsync(ByVal Parameters() As ParameterValue, ByVal ParameterLanguage As String, ByVal userState As Object)
            If (Me.SetExecutionParametersOperationCompleted Is Nothing) Then
                Me.SetExecutionParametersOperationCompleted = AddressOf Me.OnSetExecutionParametersOperationCompleted
            End If
            Me.InvokeAsync("SetExecutionParameters", New Object() {Parameters, ParameterLanguage}, Me.SetExecutionParametersOperationCompleted, userState)
        End Sub
        
        Private Sub OnSetExecutionParametersOperationCompleted(ByVal arg As Object)
            If (Not (Me.SetExecutionParametersCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent SetExecutionParametersCompleted(Me, New SetExecutionParametersCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("ExecutionHeaderValue"),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("TrustedUserHeaderValue"),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Res"& _ 
            "etExecution", RequestNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", ResponseNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function ResetExecution() As <System.Xml.Serialization.XmlElementAttribute("executionInfo")> ExecutionInfo
            Dim results() As Object = Me.Invoke("ResetExecution", New Object(-1) {})
            Return CType(results(0),ExecutionInfo)
        End Function
        
        '''<remarks/>
        Public Overloads Sub ResetExecutionAsync()
            Me.ResetExecutionAsync(Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub ResetExecutionAsync(ByVal userState As Object)
            If (Me.ResetExecutionOperationCompleted Is Nothing) Then
                Me.ResetExecutionOperationCompleted = AddressOf Me.OnResetExecutionOperationCompleted
            End If
            Me.InvokeAsync("ResetExecution", New Object(-1) {}, Me.ResetExecutionOperationCompleted, userState)
        End Sub
        
        Private Sub OnResetExecutionOperationCompleted(ByVal arg As Object)
            If (Not (Me.ResetExecutionCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent ResetExecutionCompleted(Me, New ResetExecutionCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute("ServerInfoHeaderValue", Direction:=System.Web.Services.Protocols.SoapHeaderDirection.Out),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("ExecutionHeaderValue"),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("TrustedUserHeaderValue"),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Ren"& _ 
            "der", RequestNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", ResponseNamespace:="http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)>  _
        Public Function Render(ByVal Format As String, ByVal DeviceInfo As String, ByRef Extension As String, ByRef MimeType As String, ByRef Encoding As String, ByRef Warnings() As Warning, ByRef StreamIds() As String) As <System.Xml.Serialization.XmlElementAttribute("Result", DataType:="base64Binary")> Byte()
            Dim results() As Object = Me.Invoke("Render", New Object() {Format, DeviceInfo})
            Extension = CType(results(1),String)
            MimeType = CType(results(2),String)
            Encoding = CType(results(3),String)
            Warnings = CType(results(4),Warning())
            StreamIds = CType(results(5),String())
            Return CType(results(0),Byte())
        End Function
        
        '''<remarks/>
        Public Overloads Sub RenderAsync(ByVal Format As String, ByVal DeviceInfo As String)
            Me.RenderAsync(Format, DeviceInfo, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub RenderAsync(ByVal Format As String, ByVal DeviceInfo As String, ByVal userState As Object)
            If (Me.RenderOperationCompleted Is Nothing) Then
                Me.RenderOperationCompleted = AddressOf Me.OnRenderOperationCompleted
            End If
            Me.InvokeAsync("Render", New Object() {Format, DeviceInfo}, Me.RenderOperationCompleted, userState)
        End Sub
        
        Private Sub OnRenderOperationCompleted(ByVal arg As Object)
            If (Not (Me.RenderCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent RenderCompleted(Me, New RenderCompletedEventArgs(invokeArgs.Results, invokeArgs.Error, invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub
        
        '''<remarks/>