Archivo

Posts Tagged ‘VB.NET a Access’

Insertar data desde VB.NET a Access

agosto 20, 2009 52 comentarios

Con este tutorial podrás (como el título dice) insertar registros por medio de un formulario desarrollado en VB.NET, a un archivo de MS Access (*.mdb). Para este tutorial es necesario contar con un archivo *.mdb llamado RegistroHoras2.mdb el cual posee una tabla llamada Registro, a su vez esta tabla tiene los siguientes campos Id (Autonumérico), Nombre (Texto), DNI (Número), Fecha (Texto) y HoraRegistro (Fecha/Hora).

Nuestro proyecto consiste en crear un sistema el cual espera un número de identificación (DNI) para que luego de presiona el botón Registrar, los datos del DNI sean grados en nuestra base de datos (Access) junto con la hora y fecha actual.

Nuestro formulario tiene el siguiente diseño, consistente en 2 TextBox (txtcodigo y txthora), 1 botón (btnregistrar) y 1 DateTimePicker (CmbFecha), además a nuestro proyecto se le insertó el módulo Timer (Timer1)  (arrástralo al formulario desde el Toolbox del Visual Sudio).

formularioControldeAsistencia
Bueno manos a la obra:

1.- Importar las siguientes librerias:

1

2.- Creamos dos variales en el formulario:

2

3.- En el evento Load del formulario insertar el siguiente código:

Dim con As String = “Provider=Microsoft.JET.oledb.4.0;Data Source=C:\RegistroHoras2.mdb”
conn = New OleDb.OleDbConnection(con)

‘Activar control Timer
Timer1.Enabled = True
Timer1.Interval = 1
Timer1.Start()

4.- Finalmente, en el evento Click del botón Registrar, copiar el siguiente código.

Dim Fecha As String
Dim Hora As String
txthora.Text = Date.Now().ToLongTimeString
Fecha = Date.Now().ToLongDateString
Hora = txthora.Text

Try
conn.Open()
cmd = New OleDb.OleDbCommand(“insert into Registro (DNI,Fecha,HoraRegistro) values(‘ ” + txtcodigo.Text + ” ‘,'” + Fecha + “‘,'” + Hora + “‘)”, conn)
cmd.ExecuteNonQuery()
conn.Close()
MessageBox.Show(“Hora de Ingreso ” + Hora, Fecha, MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(“Error de Conexión”)
End Try

txtcodigo.Text = “”
txtcodigo.Focus()

5.- Y eso es todo, para ver como debería funcionarte colocaré algunos pantallazos del sistema:

4

5

6

Webgrafía: http://www.dotnetspider.com/resources/30381-really-best-code.aspx

Anuncios