reference.vb

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

            If (Not (Me.CreateBatchCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent CreateBatchCompleted(Me, New CreateBatchCompletedEventArgs(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("BatchHeaderValue"),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Can"& _ 
            "celBatch", 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 Sub CancelBatch()
            Me.Invoke("CancelBatch", New Object(-1) {})
        End Sub
        
        '''<remarks/>
        Public Overloads Sub CancelBatchAsync()
            Me.CancelBatchAsync(Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub CancelBatchAsync(ByVal userState As Object)
            If (Me.CancelBatchOperationCompleted Is Nothing) Then
                Me.CancelBatchOperationCompleted = AddressOf Me.OnCancelBatchOperationCompleted
            End If
            Me.InvokeAsync("CancelBatch", New Object(-1) {}, Me.CancelBatchOperationCompleted, userState)
        End Sub
        
        Private Sub OnCancelBatchOperationCompleted(ByVal arg As Object)
            If (Not (Me.CancelBatchCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent CancelBatchCompleted(Me, New System.ComponentModel.AsyncCompletedEventArgs(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("BatchHeaderValue"),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Exe"& _ 
            "cuteBatch", 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 Sub ExecuteBatch()
            Me.Invoke("ExecuteBatch", New Object(-1) {})
        End Sub
        
        '''<remarks/>
        Public Overloads Sub ExecuteBatchAsync()
            Me.ExecuteBatchAsync(Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub ExecuteBatchAsync(ByVal userState As Object)
            If (Me.ExecuteBatchOperationCompleted Is Nothing) Then
                Me.ExecuteBatchOperationCompleted = AddressOf Me.OnExecuteBatchOperationCompleted
            End If
            Me.InvokeAsync("ExecuteBatch", New Object(-1) {}, Me.ExecuteBatchOperationCompleted, userState)
        End Sub
        
        Private Sub OnExecuteBatchOperationCompleted(ByVal arg As Object)
            If (Not (Me.ExecuteBatchCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent ExecuteBatchCompleted(Me, New System.ComponentModel.AsyncCompletedEventArgs(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.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Get"& _ 
            "SystemProperties", 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 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 Overloads Sub GetSystemPropertiesAsync(ByVal Properties() As [Property])
            Me.GetSystemPropertiesAsync(Properties, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetSystemPropertiesAsync(ByVal Properties() As [Property], ByVal userState As Object)
            If (Me.GetSystemPropertiesOperationCompleted Is Nothing) Then
                Me.GetSystemPropertiesOperationCompleted = AddressOf Me.OnGetSystemPropertiesOperationCompleted
            End If
            Me.InvokeAsync("GetSystemProperties", New Object() {Properties}, Me.GetSystemPropertiesOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetSystemPropertiesOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetSystemPropertiesCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetSystemPropertiesCompleted(Me, New GetSystemPropertiesCompletedEventArgs(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.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Set"& _ 
            "SystemProperties", 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 Sub SetSystemProperties(ByVal Properties() As [Property])
            Me.Invoke("SetSystemProperties", New Object() {Properties})
        End Sub
        
        '''<remarks/>
        Public Overloads Sub SetSystemPropertiesAsync(ByVal Properties() As [Property])
            Me.SetSystemPropertiesAsync(Properties, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub SetSystemPropertiesAsync(ByVal Properties() As [Property], ByVal userState As Object)
            If (Me.SetSystemPropertiesOperationCompleted Is Nothing) Then
                Me.SetSystemPropertiesOperationCompleted = AddressOf Me.OnSetSystemPropertiesOperationCompleted
            End If
            Me.InvokeAsync("SetSystemProperties", New Object() {Properties}, Me.SetSystemPropertiesOperationCompleted, userState)
        End Sub
        
        Private Sub OnSetSystemPropertiesOperationCompleted(ByVal arg As Object)
            If (Not (Me.SetSystemPropertiesCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent SetSystemPropertiesCompleted(Me, New System.ComponentModel.AsyncCompletedEventArgs(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("BatchHeaderValue"),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Del"& _ 
            "eteItem", 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 Sub DeleteItem(ByVal Item As String)
            Me.Invoke("DeleteItem", New Object() {Item})
        End Sub
        
        '''<remarks/>
        Public Overloads Sub DeleteItemAsync(ByVal Item As String)
            Me.DeleteItemAsync(Item, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub DeleteItemAsync(ByVal Item As String, ByVal userState As Object)
            If (Me.DeleteItemOperationCompleted Is Nothing) Then
                Me.DeleteItemOperationCompleted = AddressOf Me.OnDeleteItemOperationCompleted
            End If
            Me.InvokeAsync("DeleteItem", New Object() {Item}, Me.DeleteItemOperationCompleted, userState)
        End Sub
        
        Private Sub OnDeleteItemOperationCompleted(ByVal arg As Object)
            If (Not (Me.DeleteItemCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent DeleteItemCompleted(Me, New System.ComponentModel.AsyncCompletedEventArgs(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("BatchHeaderValue"),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Mov"& _ 
            "eItem", 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 Sub MoveItem(ByVal Item As String, ByVal Target As String)
            Me.Invoke("MoveItem", New Object() {Item, Target})
        End Sub
        
        '''<remarks/>
        Public Overloads Sub MoveItemAsync(ByVal Item As String, ByVal Target As String)
            Me.MoveItemAsync(Item, Target, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub MoveItemAsync(ByVal Item As String, ByVal Target As String, ByVal userState As Object)
            If (Me.MoveItemOperationCompleted Is Nothing) Then
                Me.MoveItemOperationCompleted = AddressOf Me.OnMoveItemOperationCompleted
            End If
            Me.InvokeAsync("MoveItem", New Object() {Item, Target}, Me.MoveItemOperationCompleted, userState)
        End Sub
        
        Private Sub OnMoveItemOperationCompleted(ByVal arg As Object)
            If (Not (Me.MoveItemCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent MoveItemCompleted(Me, New System.ComponentModel.AsyncCompletedEventArgs(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.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Lis"& _ 
            "tChildren", 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 ListChildren(ByVal Item As String, ByVal Recursive As Boolean) As <System.Xml.Serialization.XmlArrayAttribute("CatalogItems")> CatalogItem()
            Dim results() As Object = Me.Invoke("ListChildren", New Object() {Item, Recursive})
            Return CType(results(0),CatalogItem())
        End Function
        
        '''<remarks/>
        Public Overloads Sub ListChildrenAsync(ByVal Item As String, ByVal Recursive As Boolean)
            Me.ListChildrenAsync(Item, Recursive, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub ListChildrenAsync(ByVal Item As String, ByVal Recursive As Boolean, ByVal userState As Object)
            If (Me.ListChildrenOperationCompleted Is Nothing) Then
                Me.ListChildrenOperationCompleted = AddressOf Me.OnListChildrenOperationCompleted
            End If
            Me.InvokeAsync("ListChildren", New Object() {Item, Recursive}, Me.ListChildrenOperationCompleted, userState)
        End Sub
        
        Private Sub OnListChildrenOperationCompleted(ByVal arg As Object)
            If (Not (Me.ListChildrenCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent ListChildrenCompleted(Me, New ListChildrenCompletedEventArgs(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.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Lis"& _ 
            "tDependentItems", 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 ListDependentItems(ByVal Item As String) As <System.Xml.Serialization.XmlArrayAttribute("CatalogItems")> CatalogItem()
            Dim results() As Object = Me.Invoke("ListDependentItems", New Object() {Item})
            Return CType(results(0),CatalogItem())
        End Function
        
        '''<remarks/>
        Public Overloads Sub ListDependentItemsAsync(ByVal Item As String)
            Me.ListDependentItemsAsync(Item, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub ListDependentItemsAsync(ByVal Item As String, ByVal userState As Object)
            If (Me.ListDependentItemsOperationCompleted Is Nothing) Then