Report Server Course


Husk Report Builder 2.0

Og her er koden i forbindelse med Report server kurset d 25. – 27 feb:

Private Sub

 ‘load information into list view

 Dim myCatalogItems As

CatalogItem()myCatalogItems = rs.ListChildren(“/”, True) 
For Each cItem As CatalogItem In myCatalogItems 
Dim strValues(3) As String
strValues(0) = cItem.Name
strValues(1) = cItem.Path
strValues(2) = cItem.Type.ToString()strValues(3) = cItem.CreatedBy
lstView.Items.Add(New ListViewItem(strValues)) 
End Sub
Private Sub DisplayCurrentInfo() 
Me.Cursor = Cursors.WaitCursor 
‘display item information in messagebox
Dim item As ListViewItem = lstView.SelectedItems(0) 
Dim strName As String = item.SubItems(0).Text 
Dim strPath As String = item.SubItems(1).Text 
Dim Properties As [Property]()
Properties = rs.GetProperties(strPath,Nothing) 
Dim sb As New System.Text.StringBuilder
For Each prop As [Property] In Properties
sb.Append(prop.Name & “: ” & prop.Value & vbCrLf) 
MessageBox.Show(sb.ToString(), _
“properties of ” & strName)
Me.Cursor = Cursors.Default 
End Sub
Ex 3

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

ReportViewer1.ProcessingMode = ProcessingMode.Remote

Dim serverReport As ServerReport

serverReport = ReportViewer1.ServerReport


‘set the report server URL and report path
New Uri(ReportServerTextBox.Text)serverReport.ReportPath = FolderTextBox.Text + ReportNameTextBox.Text
‘conditionally add parameter


If ParameterNameTextBox.Text.Length > 0 Then
Dim parameter As New



‘set the report parameters for the report
Dim parameters() As 

End If





End Sub









By | 2009-02-27T14:44:04+00:00 February 27th, 2009|SQL|Comments Off on Report Server Course

About the Author:

Kåre Rude Andersen
Microsoft Certified Trainer since 1996, MCSE, TS and ITP in Microsoft Windows, SQL (also Microsoft), Exchange (MS) and Microsoft Operations Manager. Senior Consultant and have recently worked as a consultant at CSC, SAS, ISS, Nokia and Scandlines.