Visual Basic
Práctica : ACCESO A UNA BASE DE DATOS ACCESS DESDE VISUAL BASIC Una Escuela desea almacenar la información de sus estudiantes . Utilizando la siguientebase de datos se crear á la interfaz necesaria para interactuar con la misma.
Agregar. Proyecto/Referencias/Microsoft Active Data Object 2.8 library. Proyecto/Componentes/Microsoft DataGrid ControlAgregar Módulo Clic derecho en Formularios/Agregar/Modulo/Abrir Módulo de visual basic Public db As ADODB.Connection Public Function conectar() Set db = New Connection db.CursorLocation =adUseClient db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Da ta Source=" + App.Path + "\estudiante.MDB" End Function
Laboratorio de Diseño de Base de Datos
FORMULARIOS EN VISUAL BASIC. Formularioestudiante
Código Dim rs As ADODB.Recordset Bontón Guardar Private Sub cmdguardar_Click() If txtcarnet.Text = "" Then MsgBox "seleccione un estudiante" Exit Sub End If Dim rx As ADODB.Recordset Set rx =New ADODB.Recordset
Laboratorio de Diseño de Base de Datos
rx.Open "SELECT * from estudiante where carnet='" & txtcarnet.Text & "'", db, adOpenStati c, adLockOptimistic If rx.RecordCount = 1Then rx!carnet = txtcarnet.Text rx!nombres = txtnombres.Text rx!apellidos = txtapellidos.Text rx!fecha_naci = txtfechanac.Text rx!Telefono = txttelefono.Text rx!direccion = txtdireccion.Textrx.Update Else rx.AddNew rx!carnet = txtcarnet.Text rx!nombres = txtnombres.Text rx!apellidos = txtapellidos.Text rx!fecha_naci = txtfechanac.Text rx!Telefono = txttelefono.Text rx!direccion =txtdireccion.Text rx.Update End If rs.Requery rx.Close End Sub Private Sub cmdsalir_Click() Unload Me End Sub Private Sub DataGrid1_Click() txtcarnet.Text = Me.DataGrid1.Columns(0).Value txtnombres.Text =Me.DataGrid1.Columns(1).Value txtapellidos.Text = Me.DataGrid1.Col umns(2).Value
Laboratorio de Diseño de Base de Datos
txtfechanac.Text = Me.DataGrid1.Columns(3).Value txttelefono.Text =...
Regístrate para leer el documento completo.