Sección de códigos , trucos y ejemplos para visual basic


358 - Cargar registros de una tabla en Combobox y Listbox

<Volver> - Anterior - Siguiente



 

Ejemplo 1 - Ejemplo para cargar los datos de una Tabla en ListBox o Combobox.

El siguiente ejemplo para descargar muestra una forma simple y efectiva de cargar el campo de una Tabla en un control Listbox o Combox.

Descargar Ejemplo - Código fuente vb6.

Descripción del ejemplo ...

Por ejemplo, suponiendo que estemos desarrollando un sistema de gestión para una casa de venta de zapatillas y zapatos, y necesitamos mostrar en un formulario, varios Combobox con los talles para cada zapatilla. Cada Combobox deberá tener cargada la misma lista de Talles para las zapatillas.

ejemplo - cargar tabla base de datos en un combo o listbox

En el ejemplo a descargar, se muestra como cargar en el Combo 1, los talles almacenados en la Tabla de la base de datos, y el resto de los combos copiarle la imformación del primer combobox hacia el resto. ( Los Combobox o ListBox deberá estar en un array de controles) Combo1(0), Combo(1), Combo(2) etc .., o listbox, Listbox(0), Listbox(1), Listbox(2) etc ..

Solo hay 2 procedimientos muy simples en el FormLoad.

call CargarTablaEnCombo ("SELECT talle From Talles order by Talle asc", Me.cboTalles(0), "talle")

En el primer parámetro enviamos el SQL para cargar el campo de la tabla, en el segundo parámetro podemos pasar el Combobox o Listbox. El parámetro está declarado como Object, por lo cual aceptará cualquiera de los 2 controles.

El otro procedimiento que copia el contenido del combo anterior en el resto de Combobox, es el siguiente:

Call duplicarCombos(Me.cboTalles)

El primer parámetro es el combo ( Debe ser si o si un array de controles).

Descargar Ejemplo - Código fuente vb6.

Nota: Se puede ver un ejemplo más completo y terminado haciendo clic en este enlace...

Ejemplo 2 - Cargar los registros de un campo de un recordset Ado en un control combobox o en un Listbox

 

Este ejemplo, en ves de utilizar la propiedad AddIetm para añadir los registros a dichos controles, utiliza la función del api SendMesage y también la función LockWindowUpdate, para que la carga de los mismos sea mas rápida

Formulario

vista del formulario con los controles combo y listbox  para el ejemplo de visual basic

 

El código fuente tiene una función llamada "cargar" con los siguietnes parámetros:

Public Function Cargar(ElControl As Object, _
                       rst As ADODB.Recordset, _
                       Columna As String) As Boolean 

 

El parámetro "ElControl as Object" , es el control ListBox o comboBox

El parámetro rst, es un recordset ado que ya contiene los registros cargados.

Columna, es el nombre del campo a cargar

 

por ejemplo

Call Cargar (Combo1, Rst, "Clientes")

 

Controles y referencias

 

Código fuente en el formulario


Código fuente en el módulo bas

 


Recursos vb.net

Recursos vb 6.0



Buscar en Recursos vb