reference.vb

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

                Me.ListDependentItemsOperationCompleted = AddressOf Me.OnListDependentItemsOperationCompleted
            End If
            Me.InvokeAsync("ListDependentItems", New Object() {Item}, Me.ListDependentItemsOperationCompleted, userState)
        End Sub
        
        Private Sub OnListDependentItemsOperationCompleted(ByVal arg As Object)
            If (Not (Me.ListDependentItemsCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent ListDependentItemsCompleted(Me, New ListDependentItemsCompletedEventArgs(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("ItemNamespaceHeaderValue"),  _
         System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://schemas.microsoft.com/sqlserver/2005/06/30/reporting/reportingservices/Get"& _ 
            "Properties", 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 GetProperties(ByVal Item As String, ByVal Properties() As [Property]) As <System.Xml.Serialization.XmlArrayAttribute("Values")> [Property]()
            Dim results() As Object = Me.Invoke("GetProperties", New Object() {Item, Properties})
            Return CType(results(0),[Property]())
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetPropertiesAsync(ByVal Item As String, ByVal Properties() As [Property])
            Me.GetPropertiesAsync(Item, Properties, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetPropertiesAsync(ByVal Item As String, ByVal Properties() As [Property], ByVal userState As Object)
            If (Me.GetPropertiesOperationCompleted Is Nothing) Then
                Me.GetPropertiesOperationCompleted = AddressOf Me.OnGetPropertiesOperationCompleted
            End If
            Me.InvokeAsync("GetProperties", New Object() {Item, Properties}, Me.GetPropertiesOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetPropertiesOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetPropertiesCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetPropertiesCompleted(Me, New GetPropertiesCompletedEventArgs(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/Set"& _ 
            "Properties", 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 SetProperties(ByVal Item As String, ByVal Properties() As [Property])
            Me.Invoke("SetProperties", New Object() {Item, Properties})
        End Sub
        
        '''<remarks/>
        Public Overloads Sub SetPropertiesAsync(ByVal Item As String, ByVal Properties() As [Property])
            Me.SetPropertiesAsync(Item, Properties, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub SetPropertiesAsync(ByVal Item As String, ByVal Properties() As [Property], ByVal userState As Object)
            If (Me.SetPropertiesOperationCompleted Is Nothing) Then
                Me.SetPropertiesOperationCompleted = AddressOf Me.OnSetPropertiesOperationCompleted
            End If
            Me.InvokeAsync("SetProperties", New Object() {Item, Properties}, Me.SetPropertiesOperationCompleted, userState)
        End Sub
        
        Private Sub OnSetPropertiesOperationCompleted(ByVal arg As Object)
            If (Not (Me.SetPropertiesCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent SetPropertiesCompleted(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"& _ 
            "ItemType", 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 GetItemType(ByVal Item As String) As <System.Xml.Serialization.XmlElementAttribute("Type")> ItemTypeEnum
            Dim results() As Object = Me.Invoke("GetItemType", New Object() {Item})
            Return CType(results(0),ItemTypeEnum)
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetItemTypeAsync(ByVal Item As String)
            Me.GetItemTypeAsync(Item, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetItemTypeAsync(ByVal Item As String, ByVal userState As Object)
            If (Me.GetItemTypeOperationCompleted Is Nothing) Then
                Me.GetItemTypeOperationCompleted = AddressOf Me.OnGetItemTypeOperationCompleted
            End If
            Me.InvokeAsync("GetItemType", New Object() {Item}, Me.GetItemTypeOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetItemTypeOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetItemTypeCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetItemTypeCompleted(Me, New GetItemTypeCompletedEventArgs(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/Cre"& _ 
            "ateFolder", 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 CreateFolder(ByVal Folder As String, ByVal Parent As String, ByVal Properties() As [Property])
            Me.Invoke("CreateFolder", New Object() {Folder, Parent, Properties})
        End Sub
        
        '''<remarks/>
        Public Overloads Sub CreateFolderAsync(ByVal Folder As String, ByVal Parent As String, ByVal Properties() As [Property])
            Me.CreateFolderAsync(Folder, Parent, Properties, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub CreateFolderAsync(ByVal Folder As String, ByVal Parent As String, ByVal Properties() As [Property], ByVal userState As Object)
            If (Me.CreateFolderOperationCompleted Is Nothing) Then
                Me.CreateFolderOperationCompleted = AddressOf Me.OnCreateFolderOperationCompleted
            End If
            Me.InvokeAsync("CreateFolder", New Object() {Folder, Parent, Properties}, Me.CreateFolderOperationCompleted, userState)
        End Sub
        
        Private Sub OnCreateFolderOperationCompleted(ByVal arg As Object)
            If (Not (Me.CreateFolderCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent CreateFolderCompleted(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/Cre"& _ 
            "ateReport", 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 CreateReport(ByVal Report As String, ByVal Parent As String, ByVal Overwrite As Boolean, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary")> ByVal Definition() As Byte, ByVal Properties() As [Property]) As <System.Xml.Serialization.XmlArrayAttribute("Warnings")> Warning()
            Dim results() As Object = Me.Invoke("CreateReport", New Object() {Report, Parent, Overwrite, Definition, Properties})
            Return CType(results(0),Warning())
        End Function
        
        '''<remarks/>
        Public Overloads Sub CreateReportAsync(ByVal Report As String, ByVal Parent As String, ByVal Overwrite As Boolean, ByVal Definition() As Byte, ByVal Properties() As [Property])
            Me.CreateReportAsync(Report, Parent, Overwrite, Definition, Properties, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub CreateReportAsync(ByVal Report As String, ByVal Parent As String, ByVal Overwrite As Boolean, ByVal Definition() As Byte, ByVal Properties() As [Property], ByVal userState As Object)
            If (Me.CreateReportOperationCompleted Is Nothing) Then
                Me.CreateReportOperationCompleted = AddressOf Me.OnCreateReportOperationCompleted
            End If
            Me.InvokeAsync("CreateReport", New Object() {Report, Parent, Overwrite, Definition, Properties}, Me.CreateReportOperationCompleted, userState)
        End Sub
        
        Private Sub OnCreateReportOperationCompleted(ByVal arg As Object)
            If (Not (Me.CreateReportCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent CreateReportCompleted(Me, New CreateReportCompletedEventArgs(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/Get"& _ 
            "ReportDefinition", 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 GetReportDefinition(ByVal Report As String) As <System.Xml.Serialization.XmlElementAttribute("Definition", DataType:="base64Binary")> Byte()
            Dim results() As Object = Me.Invoke("GetReportDefinition", New Object() {Report})
            Return CType(results(0),Byte())
        End Function
        
        '''<remarks/>
        Public Overloads Sub GetReportDefinitionAsync(ByVal Report As String)
            Me.GetReportDefinitionAsync(Report, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub GetReportDefinitionAsync(ByVal Report As String, ByVal userState As Object)
            If (Me.GetReportDefinitionOperationCompleted Is Nothing) Then
                Me.GetReportDefinitionOperationCompleted = AddressOf Me.OnGetReportDefinitionOperationCompleted
            End If
            Me.InvokeAsync("GetReportDefinition", New Object() {Report}, Me.GetReportDefinitionOperationCompleted, userState)
        End Sub
        
        Private Sub OnGetReportDefinitionOperationCompleted(ByVal arg As Object)
            If (Not (Me.GetReportDefinitionCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent GetReportDefinitionCompleted(Me, New GetReportDefinitionCompletedEventArgs(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/Set"& _ 
            "ReportDefinition", 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 SetReportDefinition(ByVal Report As String, <System.Xml.Serialization.XmlElementAttribute(DataType:="base64Binary")> ByVal Definition() As Byte) As <System.Xml.Serialization.XmlArrayAttribute("Warnings")> Warning()
            Dim results() As Object = Me.Invoke("SetReportDefinition", New Object() {Report, Definition})
            Return CType(results(0),Warning())
        End Function
        
        '''<remarks/>
        Public Overloads Sub SetReportDefinitionAsync(ByVal Report As String, ByVal Definition() As Byte)
            Me.SetReportDefinitionAsync(Report, Definition, Nothing)
        End Sub
        
        '''<remarks/>
        Public Overloads Sub SetReportDefinitionAsync(ByVal Report As String, ByVal Definition() As Byte, ByVal userState As Object)
            If (Me.SetReportDefinitionOperationCompleted Is Nothing) Then
                Me.SetReportDefinitionOperationCompleted = AddressOf Me.OnSetReportDefinitionOperationCompleted
            End If
            Me.InvokeAsync("SetReportDefinition", New Object() {Report, Definition}, Me.SetReportDefinitionOperationCompleted, userState)
        End Sub
        
        Private Sub OnSetReportDefinitionOperationCompleted(ByVal arg As Object)
            If (Not (Me.SetReportDefinitionCompletedEvent) Is Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = CType(arg,System.Web.Services.Protocols.InvokeCompletedEventArgs)
                RaiseEvent SetReportDefinitionCompleted(Me, New SetReportDefinitionCompletedEventArgs(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.