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


358 - Cargar recordset Ado en Combobox y Listbox

<Volver> - Anterior - Siguiente



 

Ejemplo para 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