Cómo rellenar los controles DataCombo y DataList
Por Enrique Martínez Montejo
Última revisión: 07/03/2004
 

El siguiente ejemplo le enseñará a rellenar los controles DataCombo y DataList en tiempo de ejecución.

Para ejecutar el ejemplo necesitará insertar un control DataCombo y DataList en el formulario de inicio del proyecto, por lo que previamente tendrá que seleccionar el componente ActiveX Microsoft DataList Controls 6.0 (SP3) (OLEDB). Copie y pegue el siguiente código en la sección Declaraciones del formulario de inicio del proyecto.

Option Explicit

Private
Sub Form_Load()

    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset

    ' Creamos un nuevo objeto Connection
    Set cnn = New ADODB.Connection

    ' Abrimos la conexión
    With mCnn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source = C:\Mis documentos\Neptuno.mdb"
        .Open
    End With

    ' Creamos un nuevo objeto Recordset
    Set rst = New ADODB.Recordset

    ' Configuramos y abrimos el Recordset
    With rst
        ' Para que se rellene el DataCombo, hay que
        ' utilizar cursores del lado del cliente

        .CursorLocation = adUseClient
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
        .Open "Empleados", cnn, , , adCmdTable
    End With

    '***************************************************
    ' Código sólo rellenar el DataList y el DataCombo

    With DataList1
        Set .DataSource = rst
        Set .RowSource = rst
        ' Seleccionamos el campo para que se rellene el DataList
        .ListField = "Apellidos"
        .DataField = "Apellidos"
    End With

    With DataCombo1
        Set .RowSource = rst
        .BoundColumn = "Nombre"
        ' Seleccionamos el campo para que se rellene el DataCombo
        .ListField = "Nombre"
        .DataField = "Nombre"

        ' Establecer el origen de datos para que el
        ' control DataCombo muestre el primer registro

        Set .DataSource = rst
    End With
   
'
    '***************************************************

End Sub

 

Otros enlaces de interés:

Indice de Ejemplos de ADO


Enrique Martínez Montejo - 2004

NOTA: La información contenida en este artículo, así como el código fuente incluido en el mismo, se proporciona COMO ESTÁ, sin garantías de ninguna clase, y no otorga derecho alguno. Usted asume cualquier riesgo al poner en práctica, utilizar o ejecutar lo explicado, recomendado o sugerido en el presente artículo.

NOTE: The information contained in this article and source code included therein, is provided AS IS without warranty of any kind, and confers no rights. You assume any risk to implement, use or run it explained, recommended or suggested in this article.