用脚本发布Reporting Services报表

• Dim mDefinition As [Byte]() = Nothing
  Dim mWarnings As Warning() = Nothing
  Dim mParentPath As String = "/" + pParentFolder
  
  Public Sub Main()Sub Main()
  rs.Credentials = System.Net.CredentialCache.DefaultCredentials
  Dim name As String
  Dim items As CatalogItem() = Nothing
  Dim folderExist, dataSourceExist As Boolean
  
  Try
  items = rs.ListChildren("/", True) '列举ReportServer根目录下所有项，判断目标目录是否已存在
  Dim i As Integer
  For i = 0 To items.length - 1
  If items(i).name.toUpper = pParentFolder.toUpper And items(i).Type = 1 Then '1表示Folder
  folderExist = True
  End If
  If items(i).name.toUpper = pParentFolder.toUpper And items(i).Type = 5 Then '5表示DataSource
  dataSourceExist = True
  End If
  Next
  Catch e As SoapException
  Console.WriteLine(e.Detail.InnerXml.ToString())
  End Try
  
  '创建目标目录
  If folderExist Then
  Console.WriteLine("FOLDER EXISTED！")
  Else
  Try
  rs.CreateFolder(pParentFolder, "/", Nothing)
  Console.WriteLine("FOLDER:{0} CREATED SUCCESSFULLY！", pParentFolder)
  Catch e As Exception
  Console.WriteLine(e.Message)
  End Try
  End If
  
  '创建数据源
  If folderExist And dataSourceExist And pOverwriteDataSource = False Then
  Console.WriteLine("DATA SOURCE EXISTED！")
  Else
  CreateDataSource()
  End If
  
  Try
  Dim di As DirectoryInfo
  If pFilePath = "" Then di = New DirectoryInfo(".") Else di = New DirectoryInfo(pFilePath)
  Dim files As FileInfo() = di.GetFiles("*.rdl")
  Console.WriteLine("TOTAL REPORT FILES: {0}", files.Length)
  Dim fiNext As FileInfo
  For Each fiNext In files
  DeployReport(Microsoft.VisualBasic.Left(fiNext.name, fiNext.name.length - 4))
  Next
  Catch e As Exception
  Console.WriteLine(e.ToString())
  End Try
  End Sub
  
• [1] [2] [3] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 用脚本发布Reporting Services报表 相关文章：
• ·非主流ps教程实用的技巧大全
• ·把网页保存为图片 换种方式收集有用资料
• ·巧用名称框选择过宽的Excel单元格区域
• ·用十大安全策略加固无线局域网安全
• ·Photoshop字体安装使用方法和技巧
• ·不用双显卡 PowerPoint 2007也玩双显示输出
• ·利用插件来校验XHTML是否符合Web标准
• ·Windows Vista系统如何用命令行运行系统还原
• ·用Illustrator封套快速制作时装广告
• ·用JavaScript刷新框架子页面的方法
• 用脚本发布Reporting Services报表 相关软件
• ·《反恐精英CS》夜视镜专用地图cs_17elwell
• ·WEF决赛 Grubby使用不死族大败Tod录像包
• ·《实况足球9》实用工具集
• ·Excel2003函数应用完全手册
• ·魔兽CEG2006专用地图下载
• ·《雷神之锤4》v1.3到v1.4.2升级补丁（Windows系统专用）
• ·《热血传奇》专用下载器
• ·《彩虹岛》专用下载器
• ·《合金战纪》大众用户封测客户端
• ·图片欣赏-精美军用飞机航空摄影

上一篇:排查无线局域网络故障技巧和方法

下一篇:IE7.0浏览器用户量突破3亿人

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐