CÓDIGO FUENTE EDICION DATOS

Public Class Form1
    Sub deshabilitar()
        Principio.Enabled = False
        Anterior.Enabled = False
        Siguiente.Enabled = False
        Ultimo.Enabled = False
        Nuevo.Enabled = False
        Guardar.Enabled = True
        Cancelar.Enabled = True
        Eliminar.Enabled = False
        Modificar.Enabled = False
        Salir.Enabled = False
        Buscar.Enabled = False
        Actualizar.Enabled = False
        '*************
        CedulaTextEdit.Enabled = True
        NombresTextEdit.Enabled = True
        EdadTextEdit.Enabled = True
        SexoComboBox.Enabled = True
        FotoPictureBox.Enabled = True

    End Sub
    Sub habilitar()
        Principio.Enabled = True
        Anterior.Enabled = True
        Siguiente.Enabled = True
        Ultimo.Enabled = True
        Nuevo.Enabled = True
        Guardar.Enabled = False
        Cancelar.Enabled = False
        Eliminar.Enabled = True
        Modificar.Enabled = True
        Salir.Enabled = True
        Buscar.Enabled = True
        Actualizar.Enabled = True
        '*************
        CedulaTextEdit.Enabled = False
        NombresTextEdit.Enabled = False
        EdadTextEdit.Enabled = False
        SexoComboBox.Enabled = False
        FotoPictureBox.Enabled = False
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'Mi_baseDataSet.Sujeto' Puede moverla o quitarla según sea necesario.
        Me.SujetoTableAdapter.Fill(Me.Mi_baseDataSet.Sujeto)
    End Sub

    Private Sub Nuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nuevo.Click
        deshabilitar()
        SujetoBindingSource.AddNew()
        CedulaTextEdit.Focus()
    End Sub

    Private Sub Eliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Eliminar.Click
        Try
            If MsgBox("Deseas eliminar el registro?", CType(vbQuestion + vbYesNo, MsgBoxStyle), _
                      "Eliminar registro") = vbNo Then Exit Sub
            SujetoBindingSource.RemoveCurrent()
            SujetoTableAdapter.Update(Mi_baseDataSet.Sujeto)
        Catch ex As Exception
            MsgBox("Lo sentimos su Base de Datos se encuentra vacia", MsgBoxStyle.Exclamation, "Datos")
        End Try
    End Sub

    Private Sub Principio_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Principio.Click
        SujetoBindingSource.MoveFirst()
    End Sub

    Private Sub Anterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Anterior.Click
        SujetoBindingSource.MovePrevious()
    End Sub

    Private Sub Siguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Siguiente.Click
        SujetoBindingSource.MoveNext()
    End Sub

    Private Sub Ultimo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ultimo.Click
        SujetoBindingSource.MoveLast()
    End Sub

    Private Sub Guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Guardar.Click
        SujetoBindingSource.EndEdit()
        SujetoTableAdapter.Update(Mi_baseDataSet.Sujeto)
        MsgBox("La información se guardo correctamente..!", MsgBoxStyle.Information, "Registro de usuarios")
        habilitar()
    End Sub

    Private Sub Modificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Modificar.Click
        deshabilitar()
        CedulaTextEdit.Enabled = False
    End Sub

    Private Sub Salir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Salir.Click
        End
    End Sub
    Private Sub Cancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancelar.Click
        SujetoBindingSource.CancelEdit()
        habilitar()
    End Sub
    Private Sub Buscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buscar.Click
        Dim buscarce As String
        buscarce = InputBox("Introduzca el Nùmero de Cèdula: ", "Busqueda de Datos")
        Me.SujetoTableAdapter.buscarcedula(Me.Mi_baseDataSet.Sujeto, buscarce)
    End Sub

    Private Sub Actualizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Actualizar.Click
        Me.SujetoTableAdapter.Fill(Me.Mi_baseDataSet.Sujeto)
    End Sub

    Private Sub Buscar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buscar1.Click
        Dim buscarnom As String
        buscarnom = InputBox("Introduzca el Nombre: ", "Busqueda de Datos")
        Me.SujetoTableAdapter.buscarnombres(Me.Mi_baseDataSet.Sujeto, buscarnom)
    End Sub


    Private Sub FotoPictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FotoPictureBox.Click
        Try
            OpenFileDialog1.Title = "Abrir Imagen"
            OpenFileDialog1.FileName = "Imagenes"
            OpenFileDialog1.Filter = "All Files |*.*"
            OpenFileDialog1.ShowDialog()
            FotoPictureBox.Image = System.Drawing.Image.FromFile(OpenFileDialog1.FileName)
        Catch ex As Exception
            'Do Nathing End Try
        End Try
    End Sub
End Class

BÚSQUEDA DE CÉDULA

SELECT cedula, Nombres, Edad, Sexo, foto FROM Sujeto WHERE (cedula = ?)

BÚSQUEDA DE NOMBRES

SELECT cedula, Nombres, Edad, Sexo, foto FROM Sujeto WHERE (Nombres LIKE '%' + ? + '%')

Read More

EDICIÓN EN VISUAL BASIC .NET

Imports System.Data.OleDb
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.SujetoTableAdapter.Fill(Me.Mi_baseDataSet.Sujeto)
    End Sub

    Private Sub Nuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nuevo.Click
        SujetoBindingSource.AddNew()
        CedulaTextEdit.Focus()
    End Sub

    Private Sub Eliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Eliminar.Click
        If MsgBox("Deseas eliminar el registro?", CType(vbQuestion + vbYesNo, MsgBoxStyle), _
                  "Eliminar registro") = vbNo Then Exit Sub
        SujetoBindingSource.RemoveCurrent()
        SujetoTableAdapter.Update(Mi_baseDataSet.Sujeto)
    End Sub

    Private Sub Principio_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Principio.Click
        SujetoBindingSource.MoveFirst()
    End Sub

    Private Sub Anterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Anterior.Click
        SujetoBindingSource.MovePrevious()
    End Sub

    Private Sub Siguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Siguiente.Click
        SujetoBindingSource.MoveNext()
    End Sub

    Private Sub Ultimo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ultimo.Click
        SujetoBindingSource.MoveLast()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SujetoBindingSource.EndEdit()
        SujetoTableAdapter.Update(Mi_baseDataSet.Sujeto)
        MsgBox("La información se guardo correctamente..!", MsgBoxStyle.Information, "Registro de usuarios")
    End Sub

Read More

CODIGO FUENTE NUEVO-GUARDAR-ELIMINAR

Imports System.Data.OleDb
Public Class Form1

    Dim connString As String = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
                              & "D:\PRACTICA MI_BASE\Mi_base.accdb" & ";Persist Security Info=False;") 'CAMBIA LA RUTA

    Dim Conexión As OleDbConnection = New OleDbConnection

    Private Sub SujetoBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
        Me.SujetoBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Mi_baseDataSet)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'Mi_baseDataSet.Sujeto' Puede moverla o quitarla según sea necesario.
        Me.SujetoTableAdapter.Fill(Me.Mi_baseDataSet.Sujeto)

    End Sub

    Private Sub Nuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nuevo.Click
        Try
            CedulaTextEdit.Text = ""
            NombresTextEdit.Text = " "
            EdadTextEdit.Text = 0
            SexoTextEdit.Text = ""
            CedulaTextEdit.Select()
        Catch ex As Exception
            ex.Message.ToUpper()
        End Try
    End Sub

    Private Sub Guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Guardar.Click
        'Abrimos la conexión
        Conexión.ConnectionString = connString
        Conexión.Open()

        'Guardamos solo 4 campos
        Dim str As String
        str = "insert into Sujeto ([Cedula], [Nombres], [Edad], [Sexo]) values (?, ?, ?, ?)"

        Dim cmd As OleDbCommand = New OleDbCommand(str, Conexión)
        cmd.Parameters.Add(New OleDbParameter("Cedula", CType(CedulaTextEdit.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Nombres", CType(NombresTextEdit.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Edad", CType(EdadTextEdit.Text, String)))
        cmd.Parameters.Add(New OleDbParameter("Sexo", CType(SexoTextEdit.Text, String)))
        Try
            cmd.ExecuteNonQuery()
            MsgBox("La información se guardo correctamente..!", MsgBoxStyle.Information, "Registro de usuarios")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Me.SujetoTableAdapter.Fill(Me.Mi_baseDataSet.Sujeto)
        Conexión.Close()
    End Sub

    Private Sub Eliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Eliminar.Click
        If SujetoDataGridView.Rows.Count < 1 Then Exit Sub
        If MsgBox("Deseas eliminar el registro?", CType(vbQuestion + vbYesNo, MsgBoxStyle), _
                  "Eliminar registro") = vbNo Then Exit Sub

        Conexión.ConnectionString = connString
        Conexión.Open()

        Dim str As String

        str = "Delete from Sujeto Where Cedula = '" & CedulaTextEdit.Text & "'"
        Dim cmd As OleDbCommand = New OleDbCommand(str, Conexión)
        Me.SujetoTableAdapter.Fill(Me.Mi_baseDataSet.Sujeto)
        Try
            cmd.ExecuteNonQuery()
            MsgBox("Registro eliminado", MsgBoxStyle.Exclamation, "Eliminar registro")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Me.SujetoTableAdapter.Fill(Me.Mi_baseDataSet.Sujeto)

        Conexión.Close()

    End Sub
End Class

Read More

PROYECTO EN VISUAL BASIC .NET CON ACCESS

HAGA CLICK AQUI PARA VER LOS VIDEOS DEL PROYECTO

Read More

TUTORIAL DE VISUAL BASIC .NET (VISUAL STUDIO 2010

HAGA CLICK PARA VER LOS VIDEOS DEL TUTORIAL

Read More

CONEXION BD ACCESS VB .NET

Imports System.Data.OleDb
Module Module1
    ' CREAR CONEXION

    Private ConecBD As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & _
                                           "Data Source=C:\Users\PCServifor\Documents\proyecto basededatos\estudiantes.accdb;")

    Public Sub Conectarse()
        Try
            ConecBD.Open()
            MsgBox("Conexion exitosa")
        Catch ex As Exception
            MsgBox("Conexion fallida")
        End Try
    End Sub
End Module

Read More