ADO !!! creare un recordset nuovo

''' michele nasi



Imports System.Data
Imports System.Data.OleDb
Public Class frmInterrogazioni

Private Sub frmInterrogazioni_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: questa riga di codice carica i dati nella tabella 'AssegniDataSet.Assegno'. È possibile spostarla o rimuoverla se necessario.

'Me.AssegnoTableAdapter.Fill(Me.AssegniDataSet.Assegno)

'TODO: questa riga di codice carica i dati nella tabella 'AssegniDataSet.Beneficiario'. È possibile spostarla o rimuoverla se necessario.

Me.BeneficiarioTableAdapter.Fill(Me.AssegniDataSet.Beneficiario)

Me.AssegnoDataGridView.Enabled = False
Me.AssegnoDataGridView.Visible = False
Me.pnl_DatiBeneficiario.Visible = False
Me.lbl_SommaImporti.Visible = False
End Sub

Private Sub btn_Cerca_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cerca.Click
Dim IDBeneficiario As Long
IDBeneficiario = Me.cmb_Beneficiario.SelectedValue

Me.AssegnoDataGridView.Enabled = True
Me.AssegnoDataGridView.Visible = True
Me.pnl_DatiBeneficiario.Visible = True
Me.AssegnoTableAdapter.FillByBeneficiario(Me.AssegniDataSet.Assegno, IDBeneficiario)

Dim objConnection As OleDbConnection
objConnection = New OleDbConnection(My.Settings.dbConnectionString)
Try
objConnection.Open()
Catch OleDbExceptionErr As OleDbException
MessageBox.Show(OleDbExceptionErr.Message, "Errore database")
Catch InvalidOperationExceptionErr As InvalidOperationException
MessageBox.Show(InvalidOperationExceptionErr.Message, "Errore database")
End Try
If objConnection.State <> ConnectionState.Open Then
MessageBox.Show("L'aggiornamento del database non sara' effettuato", "Attenzione", MessageBoxButtons.OK, MessageBoxIcon.Stop)
Exit Sub
End If

Dim strSQL As String = "SELECT SUM(Importo_Assegno) AS SommaImporti FROM Assegno WHERE IDBeneficiario=" & IDBeneficiario
Dim objCommand As New OleDbCommand(strSQL, objConnection)
Dim objDataReader As OleDbDataReader

objCommand.Connection = objConnection
objCommand.CommandText = strSQL
objDataReader = objCommand.ExecuteReader()
If objDataReader.HasRows Then
objDataReader.Read()
If objDataReader("SommaImporti") Is DBNull.Value Then
Me.lbl_SommaImporti.Text = "€ 0"
Else
Me.lbl_SommaImporti.Text = "€ " & objDataReader("SommaImporti")
End If
End If

objCommand.Dispose()
objDataReader.Close()
objDataReader = Nothing
objConnection.Close()
objConnection.Dispose()
objConnection = Nothing

Me.lbl_SommaImporti.Visible = True

End Sub

Private Sub cmb_Beneficiario_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmb_Beneficiario.SelectedIndexChanged
Me.AssegnoDataGridView.Enabled = False
Me.AssegnoDataGridView.Visible = False
Me.pnl_DatiBeneficiario.Visible = False
Me.lbl_SommaImporti.Visible = False
End Sub
End Class