Ho creato un piccolo programma di gestione database.
Questo è costituito da 3 bottoni rispettivamente Nuovo, Aggiorna ed Elimina
Di seguito vi riporto il codice
Nuovo
codice:Private Sub Nuovo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nuovo.Click bs.AddNew() End Sub
Elimina
Aggiornacodice:Private Sub Elimina_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Elimina.Click bs.RemoveCurrent() Dim cb As New OleDb.OleDbCommandBuilder(da) da.Update(ds, "Anagrafica") End Sub
Proprio in quest'ultimo riscontro il problema. In pratica non mi fa l'update dicendomicodice:Private Sub Aggiorna_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Aggiorna.Click bs.EndEdit() Dim cb As New OleDb.OleDbCommandBuilder(da) da.Update(ds, "Anagrafica")
Mi potete aiutare??
Grazie


Rispondi quotando