A cargar los comboboxes

Para facilitar la carga de las películas en la base de  datos vamos a crear los procedimientos listado, de manera que los nombres de actores, actrices, directores y géneros los podamos elegir desde los mismos sin necesidad de escribirlo.            Recordemos la sintaxis de la carga:

combobox.add(“loquesea”)

Podríamos así colocar cada nombre pero se nos haría eterno el código, y además cada vez que quisieramos agregar algo habría que ir al código fuente.

Vamos a crear un nuevo módulo al que llamaremos modlistar y dentro de éste los procedimientos listado, listado2,listado3 y listado4.
Veamos el código:

Private hconn As Connection
Private hresul As Result

Public Sub listado(lista As ComboBox)

Dim Clave As String ‘declaramos variables

hconn = modcon.ConectarBase()  ‘nos conectamos a la base
hresul = hconn.Exec(“Select * from actores order by nombre ASC”) ‘consulta sql

Do While hresul.Available
Clave = hresul[“nombre”]
lista.Add(Clave)
hresul.MoveNext()
Loop

End

Public Sub listado2(lista As ComboBox)

Dim Clave As String

hconn = modcon.ConectarBase()
hresul = hconn.Exec(“Select * from actrices order by nombre ASC”) ‘consulta sql

Do While hresul.Available
Clave = hresul[“nombre”]
lista.Add(Clave)
hresul.MoveNext()
Loop

End

Public Sub listado3(lista As ComboBox)

Dim Clave As String

hconn = modcon.ConectarBase()
hresul = hconn.Exec(“Select * from generos order by genero ASC”) ‘consulta sql

Do While hresul.Available
Clave = hresul[“genero”]
lista.Add(Clave)
hresul.MoveNext()
Loop

End

Public Sub listado4(lista As ComboBox)

Dim Clave As String

hconn = modcon.ConectarBase()
hresul = hconn.Exec(“Select * from directores order by nombre ASC”) ‘consulta sql

Do While hresul.Available          ‘mientras haya resultados
Clave = hresul[“nombre”]
lista.Add(Clave)                  ‘lo cargamos a la lista
hresul.MoveNext()             ‘y vamos al siguiente
Loop

End

Vemos que los 4 procedimientos son prácticamente iguales, variando las consultas sql según la tabla a consultar y la clave, que en tres casos es nombre y en el restante género. He resaltado en azul esas líneas. Luego con un bucle Do While….Loop  le decimos que mientras siga habiendo resultados los vaya cargando.

Aparte del código que ahorramos de esta manera, tenemos la ventaja de poder  usar el procedimiento en varias partes de nuestro programa llamándolo con la conocida fórmula de anteponer el nombre del módulo al del procedimiento:
modlistar.listado

Por ejemplo, listado, el que carga los actores, lo vamos a usar para cargar dos combos en dos formularios diferentes (al igual que listado1); listados2  y listado3 cargan uno cada uno en dos formularios. Promedialmente, usamos 3 veces cada uno, con lo que ganamos en claridad al tener menos código y en velocidad al compilarlo.

En el próximo post comenzaremos a construir la interfase principal.

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

2 respuestas a A cargar los comboboxes

  1. bryan dijo:

    amigo disculpa para q sirrve el modcon para q sirve o q ace esa parte modcon.ConectarBase()

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