태터데스크 관리자

도움말
닫기
적용하기   첫페이지 만들기

태터데스크 메시지

저장하였습니다.

TFS Tips2015.03.16 16:23

DIM definition As [Byte]() = Nothing
DIM warnings As Warning() = Nothing

Public Sub Main()
 Try
  DIM stream As FileStream = File.OpenRead(FILEPATH + REPORTNAME + ".rdl")
  definition = New [Byte](stream.Length - 1) {}
  stream.Read(definition, 0, CInt(stream.Length))
  stream.Close()
    Catch e As IOException
        Console.WriteLine(e.Message)
    End Try

    Try
        rs.CreateCatalogItem("Report", REPORTNAME, REPORTSERVER_FOLDER, True, definition, Nothing, warnings)

        If Not (warnings Is Nothing) Then
            Dim warning As Warning
   
            For Each warning In warnings
                Console.WriteLine(warning.Message)
            Next warning
        Else
            Console.WriteLine("Report: {0} uploaded successfully to {1} with no warnings", REPORTNAME, REPORTSERVER_FOLDER)
        End If
    Catch e As Exception
        Console.WriteLine(e.Message)
    End Try
 End Sub

 

신고
Posted by webmars

티스토리 툴바