reference.vb

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

        <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"& _ 
            "derStream", 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 RenderStream(ByVal Format As String, ByVal StreamID As String, ByVal DeviceInfo As String, ByRef Encoding As String, ByRef MimeType As String) As <System.Xml.Serialization.XmlElementAttribute("Result", DataType:="base64Binary")> Byte()
            Dim results() As Object = Me.Invoke("RenderStream", New Object() {Format, StreamID, DeviceInfo})
            Encoding = CType(results(1),String)
            MimeType = CType(results(2),String)
            Return CType(results(0),Byte())
        End Function
        
        '''<remarks/>
        Public Overloads Sub RenderStreamAsync(ByVal Format As String, ByVal StreamID As String, ByVal DeviceInfo As String)
            Me.RenderStreamAsync(Format, StreamID, DeviceInfo, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub RenderStreamAsync(ByVal Format As String, ByVal StreamID As String, ByVal DeviceInfo As String, ByVal userState As Object)
            If (Me.RenderStreamOperationCompleted Is Nothing) Then
                Me.RenderStreamOperationCompleted = AddressOf Me.OnRenderStreamOperationCompleted
            End If
            Me.InvokeAsync("RenderStream", New Object() {Format, StreamID, DeviceInfo}, Me.RenderStreamOperationCompleted, userState)
        End Sub
        
        Private Sub OnRenderStreamOperationCompleted(ByVal arg As Object)
            If (Not (Me.RenderStreamCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent RenderStreamCompleted(Me, New RenderStreamCompletedEventArgs(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/Get"& _ 
            "ExecutionInfo", 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 GetExecutionInfo() As <System.Xml.Serialization.XmlElementAttribute("executionInfo")> ExecutionInfo
            Dim results() As Object = Me.Invoke("GetExecutionInfo", New Object(-1) {})
            Return CType(results(0),ExecutionInfo)
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetExecutionInfoAsync()
            Me.GetExecutionInfoAsync(Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetExecutionInfoAsync(ByVal userState As Object)
            If (Me.GetExecutionInfoOperationCompleted Is Nothing) Then
                Me.GetExecutionInfoOperationCompleted = AddressOf Me.OnGetExecutionInfoOperationCompleted
            End If
            Me.InvokeAsync("GetExecutionInfo", New Object(-1) {}, Me.GetExecutionInfoOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetExecutionInfoOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetExecutionInfoCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetExecutionInfoCompleted(Me, New GetExecutionInfoCompletedEventArgs(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/Get"& _ 
            "DocumentMap", 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 GetDocumentMap() As <System.Xml.Serialization.XmlElementAttribute("result")> DocumentMapNode
            Dim results() As Object = Me.Invoke("GetDocumentMap", New Object(-1) {})
            Return CType(results(0),DocumentMapNode)
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetDocumentMapAsync()
            Me.GetDocumentMapAsync(Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetDocumentMapAsync(ByVal userState As Object)
            If (Me.GetDocumentMapOperationCompleted Is Nothing) Then
                Me.GetDocumentMapOperationCompleted = AddressOf Me.OnGetDocumentMapOperationCompleted
            End If
            Me.InvokeAsync("GetDocumentMap", New Object(-1) {}, Me.GetDocumentMapOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetDocumentMapOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetDocumentMapCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetDocumentMapCompleted(Me, New GetDocumentMapCompletedEventArgs(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.InOut),  _
         System.Web.Services.Protocols.SoapHeaderAttribute("TrustedUserHeaderValue"),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Loa"& _ 
            "dDrillthroughTarget", 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 LoadDrillthroughTarget(ByVal DrillthroughID As String) As <System.Xml.Serialization.XmlElementAttribute("ExecutionInfo")> ExecutionInfo
            Dim results() As Object = Me.Invoke("LoadDrillthroughTarget", New Object() {DrillthroughID})
            Return CType(results(0),ExecutionInfo)
        End Function
        
        '''<remarks/>
        Public Overloads Sub LoadDrillthroughTargetAsync(ByVal DrillthroughID As String)
            Me.LoadDrillthroughTargetAsync(DrillthroughID, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub LoadDrillthroughTargetAsync(ByVal DrillthroughID As String, ByVal userState As Object)
            If (Me.LoadDrillthroughTargetOperationCompleted Is Nothing) Then
                Me.LoadDrillthroughTargetOperationCompleted = AddressOf Me.OnLoadDrillthroughTargetOperationCompleted
            End If
            Me.InvokeAsync("LoadDrillthroughTarget", New Object() {DrillthroughID}, Me.LoadDrillthroughTargetOperationCompleted, userState)
        End Sub
        
        Private Sub OnLoadDrillthroughTargetOperationCompleted(ByVal arg As Object)
            If (Not (Me.LoadDrillthroughTargetCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent LoadDrillthroughTargetCompleted(Me, New LoadDrillthroughTargetCompletedEventArgs(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/Tog"& _ 
            "gleItem", 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 ToggleItem(ByVal ToggleID As String) As <System.Xml.Serialization.XmlElementAttribute("Found")> Boolean
            Dim results() As Object = Me.Invoke("ToggleItem", New Object() {ToggleID})
            Return CType(results(0),Boolean)
        End Function
        
        '''<remarks/>
        Public Overloads Sub ToggleItemAsync(ByVal ToggleID As String)
            Me.ToggleItemAsync(ToggleID, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub ToggleItemAsync(ByVal ToggleID As String, ByVal userState As Object)
            If (Me.ToggleItemOperationCompleted Is Nothing) Then
                Me.ToggleItemOperationCompleted = AddressOf Me.OnToggleItemOperationCompleted
            End If
            Me.InvokeAsync("ToggleItem", New Object() {ToggleID}, Me.ToggleItemOperationCompleted, userState)
        End Sub
        
        Private Sub OnToggleItemOperationCompleted(ByVal arg As Object)
            If (Not (Me.ToggleItemCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent ToggleItemCompleted(Me, New ToggleItemCompletedEventArgs(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/Nav"& _ 
            "igateDocumentMap", 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 NavigateDocumentMap(ByVal DocMapID As String) As <System.Xml.Serialization.XmlElementAttribute("PageNumber")> Integer
            Dim results() As Object = Me.Invoke("NavigateDocumentMap", New Object() {DocMapID})
            Return CType(results(0),Integer)
        End Function
        
        '''<remarks/>
        Public Overloads Sub NavigateDocumentMapAsync(ByVal DocMapID As String)
            Me.NavigateDocumentMapAsync(DocMapID, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub NavigateDocumentMapAsync(ByVal DocMapID As String, ByVal userState As Object)
            If (Me.NavigateDocumentMapOperationCompleted Is Nothing) Then
                Me.NavigateDocumentMapOperationCompleted = AddressOf Me.OnNavigateDocumentMapOperationCompleted
            End If
            Me.InvokeAsync("NavigateDocumentMap", New Object() {DocMapID}, Me.NavigateDocumentMapOperationCompleted, userState)
        End Sub
        
        Private Sub OnNavigateDocumentMapOperationCompleted(ByVal arg As Object)
            If (Not (Me.NavigateDocumentMapCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent NavigateDocumentMapCompleted(Me, New NavigateDocumentMapCompletedEventArgs(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/Nav"& _ 
            "igateBookmark", 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 NavigateBookmark(ByVal BookmarkID As String, ByRef UniqueName As String) As <System.Xml.Serialization.XmlElementAttribute("PageNumber")> Integer
            Dim results() As Object = Me.Invoke("NavigateBookmark", New Object() {BookmarkID})
            UniqueName = CType(results(1),String)
            Return CType(results(0),Integer)
        End Function
        
        '''<remarks/>
        Public Overloads Sub NavigateBookmarkAsync(ByVal BookmarkID As String)
            Me.NavigateBookmarkAsync(BookmarkID, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub NavigateBookmarkAsync(ByVal BookmarkID As String, ByVal userState As Object)
            If (Me.NavigateBookmarkOperationCompleted Is Nothing) Then
                Me.NavigateBookmarkOperationCompleted = AddressOf Me.OnNavigateBookmarkOperationCompleted
            End If
            Me.InvokeAsync("NavigateBookmark", New Object() {BookmarkID}, Me.NavigateBookmarkOperationCompleted, userState)
        End Sub
        
        Private Sub OnNavigateBookmarkOperationCompleted(ByVal arg As Object)
            If (Not (Me.NavigateBookmarkCompletedEvent) Is Nothing) Then