Descargar

'--------------------------------------------------
'Juan Fco. Berrocal
'http://www.juandotnet.blogspot.com
'Ejemplo para http://www.mygnet.com
'Guardar datos a una BD de Access
'
'---------------------------------------------------
REM NOTA: En caso de que la conexion no te funcione
REM cambiale el path a la BD desde el objeto de conexion
 
REM Importamos los NameSpaces Necesarios
Imports System.Data
Imports System.Data.OleDb
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
Private Sub btnGuardar_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnGuardar.Click
 
        REM Declaramos el objeto de conexion
        Dim objConexion As OleDbConnection
 
        REM Establecemos la conexion con la BD
        objConexion = New OleDbConnection _
        ("Provider=Microsoft.Jet.OleDb.4.0;Data Source=E:ProyectoBDPRUEBA1.mdb")
 
        REM Abrimos la conexion
        objConexion.Open()
 
        REM Guardamos los Datos a la BD, Aqui mismo
        REM declaramos el oleDbCommand que nos permitira
        REM manejar los datos
        Dim GuardarDatos As String = "Insert into Clientes (Nombre,Direccion,Telefono) values ('" & Me.txtNombre.Text.Trim & "','" & Me.txtDireccion.Text.Trim & "','" & Me.txtTelefono.Text.Trim & "')"
        Dim OLECommand As New OleDb.OleDbCommand(GuardarDatos, objConexion)
        OLECommand.CommandType = CommandType.Text
        REM Mensaje al usuario para que sepa que los datos
        REM se guardaron con exito
        MessageBox.Show("Los Datos han sido guardados con exito", "Datos Guardados")
 
        Try
            OLECommand.ExecuteNonQuery()
            REM Cierro la conexion
            objConexion.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub
 
    Private Sub btnCerrar_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnCerrar.Click
 
        REM Salimos de la aplicacion
        Application.Exit()
 
    End Sub
End Class

Descargar