Formularios para introducción de datos (II)

Vamos ahora al último formulario, en el que vamos a ir cargando las películas. Su aspecto en tiempo de diseño:

frmnuevapeli

EN TIEMPO DE DISEÑO

Aquí aparece un control que hasta ahora no habíamos usado el control datechooser, que nos permite elegir entre diferentes fechas. En nuestro caso solo necesitamos el año, por tanto lo vamos a “dibujar” como se ve en Frmnuevapeli (ese es su nombre), y no completo como se ve en la figura siguiente:

Datechooser desplegado completo

Los controles llevan los nombres que vemos en ellos, salvo el datechooser (dtanio) y valuebox que aparece con un cero(vbxcal).

Veamos ahora el código comentado ( en rojo los comentarios) y si alguna parte merece más atención la desplegaremos debajo:
Private anio As Integer        ”Como siempre primero las variables de todo el formulario
Private hconn As Connection
Private hresul As Result

Public Sub Form_Open()

Me.Center                     ‘Centramos el formulario
modlistar.listado(cbxactor)   ‘Cargamos los combos con las listas desde la base de datos
modlistar.listado2(cbxactriz)
modlistar.listado3(cbxgenero)
modlistar.listado4(cbxdirector)
modlistar.listado(cbxactor2)
modlistar.listado2(cbxactriz2)

End

Public Sub dtanio_Change()

Dim anio As Integer   ‘Variable año sin ñ para evitar problemas de compatibilidad

anio = dtanio.Year    ‘Asignamos a la variable anio el valor elegido en el datechooser

End

Public Sub runnew(data As Connection)  ‘llamamos al mètodo runnew

hconn = data
Me.ShowModal

End

Public Sub btnagregar_Click()

Dim titulo As String    ‘Declaramos las variables locales
Dim director As String
Dim actor As String
Dim actriz As String
Dim actor2 As String
Dim actriz2 As String
Dim genero As String
Dim cal As Integer
Dim anio As Integer

titulo = txttitulo.text               ‘Les asignamos los valores
director = cbxdirector.Current.Text
actor = cbxactor.Current.text
actriz = cbxactriz.Current.text
actor2 = cbxactor2.Current.text
actriz2 = cbxactriz2.Current.text
genero = cbxgenero.Current.text
cal = Vbxcal.value
anio = dtanio.Year
‘ a continuación insertamos los datos con la sentencia sql
Try hconn.EXEC(“insert into films values (&1,&2,&3,&4,&5,&6,&7,&8,&9)”, titulo, director, actor, actriz, actor2, actriz2, genero, cal, anio)

Me.Close()      ‘Si no hay errores se cierra el formulario
Catch
Message.Error(“Imposible introducir los datos solicitados”)

End

Public Sub btncancel_Click()

Me.close

End

Como vemos, el código es muy sencillo, pero puede producir errores e insertar valores nulos si no comprobamos  que no faltan datos. Por tanto deberíamos  hacer una  rutina de captura de errores previo a intentar guardar los datos. Pero será en un próximo post.

Anuncios
Esta entrada fue publicada en programación y etiquetada , . Guarda el enlace permanente.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s