Mantto con vb2010
- 1. Imports System.Data Imports System.Data.OleDb Public Class Form1 Dim strConexión As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:DBpruebas.accdb" Dim strComando As String = "Select * from categorias" Dim DA As OleDbDataAdapter Dim DS As New DataSet() Dim CB As OleDbCommandBuilder Dim Posicion As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try DA = New OleDbDataAdapter(strComando, strConexión) DA.Fill(DS, "categorias") CB = New OleDbCommandBuilder(DA) txtIdCategoria.DataBindings.Add(New Binding("Text", DS, "categorias.Id")) txtCategoria.DataBindings.Add(New Binding("Text", DS, "categorias.Nom_categoria")) txtDescripcion.DataBindings.Add(New Binding("Text", DS, "categorias.Descripcion")) Catch ex As Exception MsgBox(ex.Message) End Try End Sub #Region "Botones" Private Sub btnNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNuevo.Click If btnNuevo.Text = "Nuevo" Then Me.BindingContext(DS, "categorias").AddNew() btnNuevo.Text = "Guardar" btnEditar.Text = "Cancelar" btnEliminar.Enabled = False btnSalir.Enabled = False txtIdCategoria.Enabled = True txtCategoria.Enabled = True
- 2. txtDescripcion.Enabled = True txtIdCategoria.Focus() Else Try BindingContext(DS, "categorias").EndCurrentEdit() DA.Update(DS, "categorias") DS.Tables("categorias").AcceptChanges() btnNuevo.Text = "Nuevo" btnEditar.Text = "Modificar" btnEliminar.Enabled = True btnSalir.Enabled = True txtIdCategoria.Enabled = False txtCategoria.Enabled = False txtDescripcion.Enabled = False Catch ex As Exception MsgBox(ex.Message) End Try End If End Sub Private Sub btnEditar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditar.Click If btnEditar.Text = "Modificar" Then btnNuevo.Text = "Guardar" btnEditar.Text = "Cancelar" btnEliminar.Enabled = False btnSalir.Enabled = False txtIdCategoria.Enabled = False txtCategoria.Enabled = True txtDescripcion.Enabled = True txtCategoria.Focus() Else BindingContext(DS, "categorias").CancelCurrentEdit() btnNuevo.Text = "Nuevo" btnEditar.Text = "Editar" btnEliminar.Enabled = True btnSalir.Enabled = True txtIdCategoria.Enabled = False txtCategoria.Enabled = False txtDescripcion.Enabled = False End If End Sub Private Sub btnEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEliminar.Click If MsgBox("Esta seguro de eliminar esta Categoría?", MsgBoxStyle.YesNo, "Eliminar") = MsgBoxResult.Yes Then Try Posicion = BindingContext(DS, "categorias").Position DS.Tables("categorias").Rows(Posicion).Delete() DA.Update(DS, "categorias") DS.Tables("categorias").AcceptChanges() Catch ex As Exception MsgBox(ex.Message) End Try
- 3. End If End Sub Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click End End Sub #End Region #Region "Botones de navegación" Private Sub btnInicio_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInicio.Click Me.BindingContext(DS, "categorias").Position = 0 End Sub Private Sub btnAnterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnterior.Click Me.BindingContext(DS, "categorias").Position -= 1 End Sub Private Sub btnSiguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSiguiente.Click Me.BindingContext(DS, "categorias").Position += 1 End Sub Private Sub btnFin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFin.Click Me.BindingContext(DS, "categorias").Position = BindingContext(DS, "categorias").Count End Sub #End Region End Class