Report Server Course

Links:

http://msdn.microsoft.com/en-us/library/ms153561.aspx

http://msdn.microsoft.com/en-us/library/ms156500.aspx

http://www.developer.com/db/article.php/10920_3727626_2

http://msdn.microsoft.com/en-us/library/ms157406(sql.90).aspx

http://blogs.msdn.com/bwelcker/archive/tags/Reporting+Services/default.aspx

http://www.sql-server-performance.com/articles/reporting/index.aspx

http://lyon-smith.org/blogs/code-o-rama/archive/2007/03/22/visual-studio-column-guides-redux.aspx

http://www.microsoft.com/downloads/details.aspx?familyid=9f783224-9871-4eea-b1d5-f3140a253db6&displaylang=en

http://visualstudiomagazine.com/columns/article.aspx?editorialsid=1900

Husk Report Builder 2.0

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

Private Sub

LoadInformation() 
 ‘load information into list view
lstView.Items.Clear()

 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)) 
Next
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) 
Next
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
 

 
 

 

parameter.Values.Add(ParameterValueTextBox.Text)
‘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.