Operaciones de Insercion , Eliminacion ,Actualizacion en una Base de Datos

• Para empezar este ejercicio deberan adabtar el siguiente codigo con su base de datos que tienen

y la tabla que ustedes deseen 

• Cree un form y diseñelo de la siguiente manera

y en la propiedad ControlBox del Form cambien de True a False

• Diseñe la siguiente clase en su proyecto

• Incluye en su form la siguiente linea

Imports System.Data.OleDb

• y dentro de la clase de la creacion del form  declare las variables que necesitaremos

  Dim con As New oledbconnect
  Dim cmd As New OleDbCommand
  Dim cnobj As New OleDbConnection

• En los metodos Click de los botones  incluya los siguientes codigos

En el Boton de Insertar                                     insert()
En el Boton de Eliminar                                    delete()
En el Boton de Actualizar                           oledbupdate()


En el Boton de Limpiar

        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()

En el Boton de Salir
        End

• Dentro del form agregue los siguientes procedimientos 

Procedimiento de insertar 


Private Sub insert()
        Try
   cnobj = con.cn
cmd.Connection = cnobj
 str = "insert into alumnos values(" & TextBox1.Text & ",'" & TextBox2.Text & "','" & TextBox3.Text & "')"
            cmd.CommandText = str
            cmd.ExecuteNonQuery()
            MsgBox("INSERTADO")
        Catch ex As Exception
        End Try
    End Sub

Procedimiento de Borrado

    Private Sub delete()
        Try
            cnobj = con.cn
            cmd.Connection = cnobj
            str = "delete from alumnos where regno=" & TextBox1.Text & ""
            cmd.CommandText = str
            cmd.ExecuteNonQuery()
            MsgBox("BORRADO")
        Catch ex As Exception
        End Try
    End Sub
 
Procedimiento de Actualizacion

Private Sub oledbupdate()
        Try
            cnobj = con.cn
            cmd.Connection = cnobj
str = "update oledb set name='" & TextBox2.Text & "',dept='" & TextBox3.Text & "' where regno=" & TextBox1.Text & ""
           cmd.CommandText = str
            cmd.ExecuteNonQuery()
            MsgBox("ACTUALIZADO")
            cnobj.Close()
        Catch ex As Exception
        End Try
    End Sub