Cutty's Blog

Another one that took considerable time to find and answer for.

As for the last post, I have a DataGridView that does not allow the user to add or delete rows via the grid.

They can however use a button on the form to add or delete. Add creates a new row in the base dataset which shows the bland row on the grid.

Dim row As DataRow = dsCountries.Tables("Country").NewRow
row.Item("pkCountryID") = 0
row.Item("Country") = String.Empty

dsCountries.Tables("Country").Rows.Add(row)

Dim LastRow As Integer = grdCountries.Rows.GetLastRow(DataGridViewElementStates.Visible)
grdCountries.Rows(LastRow).Cells.Item("Country").Selected = True
grdCountries.BeginEdit(True)

The grid is bound to a binding source:

Private WithEvents bs As BindingSource

bs = New BindingSource(dsCountries.Tables(0), String.Empty)

grdCountries.DataSource = dsCountries.Tables("Country")


Then the ListChanged event is tested on the binding source to know when to update the data to the database:

Private Sub bs_ListChanged(ByVal sender As System.Object, ByVal e As System.ComponentModel.ListChangedEventArgs) _
Handles bs.ListChanged

UpdateCountries(dsCountries)

End Sub

The delete button simply handles the OnClick event for the button:

Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click

If Me.grdCountries.SelectedCells.Count > 0 Then

Me.grdCountries.Rows.RemoveAt( _
Me.grdCountries.SelectedCells(0).RowIndex)

UpdateCountries(dsCountries)

End If

End Sub

Hopefully I don't need to go looking for this stuff again...

Today I wanted to use the SQL Reporting Services Web Service to generate some reports and save a copy of the resultant report to a database table.

Took me quite a while on Google to find some sample code for how to do this:

Private Sub SaveDBReport()

Dim rs As New ReportingService

rs.Credentials = System.Net.CredentialCache.DefaultCredentials

Dim strConn As String
Dim results As Byte(), image As Byte()
Dim streamids As String(), streamid As String

Dim parameters(1) As ParameterValue

strConn = "Server=servername;Initial Catalog=TempTest;user id=sa;"

parameters(0) = New ParameterValue

parameters(0).Name = "ServiceProvider"
parameters(0).Value = "19"

parameters(1) = New ParameterValue
parameters(1).Name = "InvoiceNo"
parameters(1).Value = "197"

' Render the report to HTML4.0
results = rs.Render("/Invoices/Print Invoice", "HTML4.0", _
Nothing, ">DeviceInfo>TestRS/", _
parameters, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, streamids)

' For each image stream returned by the call to render,
' render the stream and save it to the application root
For Each streamid In streamids
image = rs.RenderStream("/Invoices/Print Invoice", "HTML4.0", streamid, _
Nothing, Nothing, parameters, Nothing, Nothing)

Next
' Write the rendered report to the Web form
SqlHelper.ExecuteNonQuery(strConn, CommandType.StoredProcedure, "SaveInvoice", _
New SqlParameter("@InvoiceBlob", results))
Response.BinaryWrite(results)

End Sub