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