Crear la siguiente pantalla en Visual Basic

2 Frame

8 Etiquetas Label

8 Cajas de Texto

1 Control Image

1 Control Adodc

Prof.: Ricardo Viqueira

Crear la Base de datos “alumnos”

Crear la tabla “datos” y asignarles los siguientes campos y datos.

NOMBRE DE LA IMAGEN

Y EL TIPO DE DATO ES TEXTO.

Prof.: Ricardo Viqueira

F5, PARA PROBAR LA APLICACIÓN

CONECTAR EL LABEL A LA BASE DE DATOS AL CAMPO IMAGEN, PARA PODER VER EL NOMBRE DE LA IMAGEN

CONECTAR TODOS LOS CONTROLES A LA BASE DE DATOS. CAJA DE TEXTO AL CAMPO IMAGEN

Prof.: Ricardo Viqueira

Private Sub Form_Load()

x = App.PathImage1.Picture = LoadPicture(x & "\" & Label8.Caption)

End Sub

EN EL EVENTO LOAD DEL FORMULARIO, AGREGAR EL SIGUIENTE CÓDIGO

x = App.Path (PERMITE VER LA RUTA ACTIVA

Image1.Picture = LoadPicture(x & "\" & Label8.Caption)

CARGAR EN EL CONTROL IMAGE LA IMAGEN QUE SE ENCUENTRA EN LA SIGUIENTE RUTA (LABEL 8)

Prof.: Ricardo Viqueira

SI PROBAMOS LA APLICACIÓN SE PUEDE VER LA IMAGEN. PARA QUE LA FOTO SE VEA BIEN Y QUEDE CENTRADA EN EL CONTROL, IR A LA PROPIEDAD STRETCH DEL CONTROL IMAGE Y DARLE UN VALOR TRUE

SI PROBAMOS NUEVAMENTE LA IMAGEN, PODEMOS VER LOS RESULTADOS

SI PROBAMOS EL CONTROL ADODC NO RESPONDE CON LAS IMÁGENES.

AGREGAR UN NUEVO FRAME Y LOS SIGUIENTES CONTROLES DE COMANDO COMO MUESTRA LA IMAGEN

Private Sub Command1_Click()Adodc1.Recordset.MoveNextx = App.PathImage1.Picture = LoadPicture(x & "\" & Label8.Caption)End Sub

AGREGAR EN EL PROCEDIMIENTO DEL CONTROL, EVENTO CLIC, EL SIGUIENTE CÓDIGO PARA PODER AVANZAR AL SIGUIENTE REGISTRO. AGREGAR EL CÓDIGO PARA EL RESTO DE LOS CONTROLES

Prof.: Ricardo Viqueira

AL HACER CLIC EN EL BOTÓN NUEVO, SE TIENE QUE VOLVER A VER LA CAJA DE TEXTO EN LA CUAL VAMOS A INGRESAR EL NOMBRE DE LA IMAGEN.CÓDIGO BOTÓN NUEVO

Text8.Visible = TrueText2.SetFocusAdodc1.Recordset.AddNewCÓDIGO BOTÓN GUARDAR:

Adodc1.Recordset.UpdateAdodc1.Recordset.MoveFirstX = App.PathImage1.Picture = LoadPicture(X & "\" & Label8.Caption)Text8.Visible = False

F5 PARA EJECUTAR LA APLICACIÓNProf.: Ricardo Viqueira

Private Sub Command1_Click(Index As Integer)Select Case IndexCase Is = 0Adodc1.Recordset.MoveNextX = App.PathImage1.Picture = LoadPicture(X & "\" & Label8.Caption)Case Is = 1Adodc1.Recordset.MovePreviousX = App.PathImage1.Picture = LoadPicture(X & "\" & Label8.Caption)Case Is = 2Text8.Visible = TrueText2.SetFocusAdodc1.Recordset.AddNewCase Is = 3Adodc1.Recordset.MoveLastX = App.PathImage1.Picture = LoadPicture(X & "\" & Label8.Caption)Case Is = 4Adodc1.Recordset.MoveFirstX = App.PathImage1.Picture = LoadPicture(X & "\" & Label8.Caption)Case Is = 5Adodc1.Recordset.UpdateAdodc1.Recordset.MoveFirstX = App.PathImage1.Picture = LoadPicture(X & "\" & Label8.Caption)Text8.Visible = False

End SelectEnd Sub

CÓDIGO COMPLETO DE LOS CONTROLES:

PRIMERO, ÚLTIMO,

SIGUIENTE, ANTERIOR, NUEVO Y GUARDAR

Prof.: Ricardo Viqueira

LA CAJA DE TEXTO 8 Y EL LABEL 8, QUE CONTIENEN EL NOMBRE DE LA IMAGEN NO QUIERO QUE SE VEAN, YA QUE SOLO LOS VOY A UTILIZAR PARA VER Y CARGAR EL NOMBRE DE LA IMAGEN. POR LO CUAL PONER EN FALSO LA PROPIEDAD VISIBLE DE LOS DOS CONTROLES.

AL EJECUTAR EL PROGRAMA NO SE VEN LOS CONTROLES, TEXT Y LABEL 8

Prof.: Ricardo Viqueira