reportingservices服務(wù)部署配置及開發(fā)-資料下載頁(yè)
2025-05-15 23:24本頁(yè)面
【正文】 ReportsFilePath = Then oDirectoryInfo = New DirectoryInfo(.) Else oDirectoryInfo = New DirectoryInfo(strReportsFilePath) End If Dim files As FileInfo() = (*.rdl) (總共報(bào)表數(shù)量: {0}, ) Dim fiNext As FileInfo 39。循環(huán)發(fā)布報(bào)表 For Each fiNext In files DeployReport((, 4)) Next 39。將報(bào)表引用已創(chuàng)建的數(shù)據(jù)源 Dim reference As New DataSourceReference = strParentPath amp。 / amp。 strDataSourceName Dim subItems As CatalogItem() = (strParentReportsPath, False) For Each item As CatalogItem In subItems If = Then Dim dataSources As DataSource() = () For Each datasource As DataSource In dataSources = reference Next (, dataSources) End If Next Catch ex As Exception () End Try End Sub Public Sub CreateDataSource() 39。Dim folderPath As String = / amp。 strAimFolder Dim csrdb As New DataSourceDefinition = Initial Catalog= amp。 strDataBaseName amp。 。Data Source= amp。 strServerName = SQL = = True = True = False = strDataSourceUserName = strDataSourcePassword 39。 = Try (strDataSourceName, strParentPath, True, csrdb, Nothing) Catch ex As Exception () End Try End Sub Public Sub DeployReport(ByVal strReportName As String) Try Dim stream As FileStream = (strReportsFilePath amp。 \ amp。 strReportName amp。 .rdl) mDefinition = New [Byte]() {} (mDefinition, 0, CInt()) () Catch ex As IOException () End Try Try mWarnings = (strReportName, strParentReportsPath, True, mDefinition, Nothing) If Not (mWarnings Is Nothing) Then Dim warning As Warning For Each warning In mWarnings () Next warning Else 39。SetReportDataSourceRef(strReportName) (發(fā)布報(bào)表：{0} 成功!, strReportName) End If Catch ex As Exception () End Try End Sub40 / 40
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1