Torna al Thread

Private Sub AggiornaDataSource() 'Questa sub abbiorna il DataBase con le modifiche apportate Try 'Applico le modifiche al DataSet objBindingSource.EndEdit() 'Dichiaro un oggetto CommandBuilder per generare i comandi sql 'necessari al DataAdapter per modificare il DataBase Dim cmdBuild As New OleDbCommandBuilder(objDataAdapter) 'Ricavo il comando sql per l'inserimento di nuovi record objDataAdapter.InsertCommand = cmdBuild.GetInsertCommand 'Ricavo il comando sql per l'eliminazione dei record objDataAdapter.DeleteCommand = cmdBuild.GetDeleteCommand 'Ricavo il comando sql per la modifica dei record objDataAdapter.UpdateCommand = cmdBuild.GetUpdateCommand 'Aggiorno il database objDataAdapter.Update(objDataSet.Tables("Tabella")) 'Rendo effettive le modifiche anche sul DataSet objDataSet.AcceptChanges() Catch OleDbEx As OleDbException 'Avverto l'utente che è stata generata un'eccezione MsgBox("Impossibile aggiornare il DataBase in quanto è stato generato un errore, probabilmente, perchè il DataBase è corrotto." & vbCrLf & vbCrLf _ & "Descrizione errore:" & vbCrLf _ & OleDbEx.Message, MsgBoxStyle.Critical, "Impossibile aggiornare il DataBase") 'Annullo le modifiche effettuate sul DataSet objDataSet.RejectChanges() Catch ex As Exception 'Mostro il messaggio dell'eccezione all'utente MsgBox(ex.Message, MsgBoxStyle.Critical, "Errore") 'Annullo le modifiche apportate sul DataSet objDataSet.RejectChanges() Finally 'Disabilito i controlli adibiti alle modifiche del DataBase Me.DisabilitaControlliModifiche() 'Abilito il DataGridView Me.DataGridView.Enabled = True 'Abilito la toolstrip principale Me.ToolStrip.Enabled = True End Try End Sub
Copyright © dotNetHell.it 2002-2025
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5