Autoridad Abministrativa

PASOS PARA CREAR UNA CONEXION DE UNA BASE DE DATOS DE ACCESS CON UN FROMULARIO EN V.B.NET

1. Crear una carpeta en la unidad C:\ con el nombre
Ejm. TRANSITOH

2. Crear una Base de Datos enAccess y guardarla en la carpeta TRANSITOH Con el nombre Base Transito

3. Crear las tablas necesarias que contendrá la base de datos
Ejm: Tabla USUARIOS
Campos: Nombre – textoContraseña – texto
Agregar los registros necesarios a la tabla

4. Crear un nuevo proyecto en V.B.net

5. Agregar un formulario con el nombre carga

6. Agregar lossiguientes controles y modificar la propiedad Name :
Timer1—Name: TmrReloj Enabled= True
ProgressBar1—Name:PGBCarga
Label1---- Name: LblCarga
Form1--- Name: FrmCarga7. Codificar el Timer
Doble click en el timer y agregar lo siguiente
Public Class FRMCARGA

Private Sub TmrReloj_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesTmrReloj.Tick
LBLCARGA.Text = PGBCARGA.Value + 1
If PGBCARGA.Value < 100 Then
PGBCARGA.Value = PGBCARGA.Value + 1
Else
Me.Hide()FRMUSUARIOS.Show()

End If
End Sub

End Class

8. Agregar un formulario con el nombre usuarios y otro con el nombre menu
9. Agregar al formulario usuarios los siguiente controles ymodificar la propiedad Name:
ComboBox1—Name: CBUSUARIOS
TextBox1—Name: TXTCONTRASEÑA
Button—Name: BTNINGRESAR Text:INGRESAR
Label1---Text: USUARIO
Label2---Text: CONTRASEÑA
Form1—Name:FRMUSUARIOS

10. Codificar el Formulario
Doble click en el formulario y agregar lo siguiente:
Imports System.Data.OleDb 'permite utilizar los recursos oleDb
Public Class FRMUSUARIOS'procediemiento para cargar los datos de la tabla
'variable para realizar la conexion
Dim CONEXION As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0; data source= c:\TRANSITOH\BASE...