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

 

 

 

 

 

 

 

 

**
 
 

Comments are closed.