Ejercicio con Base de Datos

Ejercicio 01

  1. Crear una base de datos en Access con el nombre que gustes en una carpeta donde almacenaras todo el proyecto que vamos a desarrollar.
  2. Crear una tabla con los campos que se muestran en la pantalla y al final guardarla con el nombre de Nombres. 
  3. No olvidar crear el indice.
  4. Cerrar la tabla.





  • Crear un nuevo proyecto en Visual Basic 6.0
  • Hacer referencia a "Microsoft DAO 3.6 Objec Library" ¿como agregarla?, ir a la Barra de Menú  de Visual Basic, ubicar el menú Proyecto - Referencias (a continuación la pantalla). Dar Aceptar.









  • Crear el siguiente diseño en un formulario de Visual Basic
 

  • Crear las variables que utilizaremos para conectarnos a la Base de datos y a la tabla, esto dando doble click al formulario, en la ventana de codigo ubicar en el combobox General e introducir el siguiente código.

  •  Nos conectamos a la base de datos como se muestra en la siguiente imagen, esto se hace en la propiedad load del formulario debido a que desde que aparezca el formulario en la pantalla debe estar ya conectada a la base de datos y a la tabla para que sea transparente para el usuario.
 

  • Ingresaremos el código al boton de Consultar que es el siguiente
recordset.index = "Clave"
recordset.seek "=", val(text1.text)

If recordset.nomatch then
  msgbox "Registro no localizado"
else
   text2.text = recordset.fields("Nombres")
   text3.text = recordset.fields("Apellidos")
end if

  • Ingresamos el código en el botón de actualizar
recordset.edit
recordset.fields("Nombres") = Text2.text
recordset.fields("Apellidos") = Text3.text
recordset.update
msgbox "Registro Actualizado"
  • Ingresamos el código al botón "Borrar Registro"
 res=msgbox("¿Deseas eliminar el registro?",vbinformation+vbyesno,"Aviso Importante")
if res=6 then
    recordset.delete
    msgbox "Registro Eliminado"
else
    msgbox "Operacion Cancelada"
endif

  • Insertamos el siguiente código en el botón de "Nuevo"
recordset.movelast
text1.text=recordset.fields("Clave")+1
text2.text=""
text3.text=""

  • Insertamos el siguiente código en el botón de "Insertar"
recordset.addnew
recordset.fields("Clave") = text1.text
recordset.fields("Nombres") = text2.text
recordset.fields("Apellidos") = text3.text
recordset.update

    No hay comentarios: