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://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
**
