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

288 - Cargar controles DataList y DataCombo

<Volver> - Anterior - Siguiente

Contenido

Ejemplo 1
Ejemplo 2
Relacionados

Ejemplo 1

Ejemplo simple que permite cargar los registros de una tabla en controles DataList y DataCombo ( Microsoft DataList controls )

Para el ejemplo agregar la referencia Microsoft Activex Data Objects para usar ado y el ocx Microsoft DataList controls

En el mismo se utiliza la base de datos nwind.mdb que se instala con visual basic.

En el control DataCombo y DataList se cargan los registros de la tabla " categorías " de dicha base de datos.

En el DataCombo se especifíca el campo "NombreCategoría". En el DataList el campo "Descripción"

Nota: el ejemplo solo carga los registros, pero no los relaciona. Al final de la página hay otro ejemplo similar pero que relaciona los dos controles

Código fuente en el formulario

Option Explicit ' Variables para la conexión y para el recordset Dim conexion As ADODB.Connection Dim objRec As ADODB.Recordset Private Sub Form_Load() ' nueva conexión ado Set conexion = New ADODB.Connection ' Abre la conexión With conexion .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source = C:\Archivos de programa\Microsoft" & _ " Visual Studio\VB98\nwind.mdb" .Open End With ' Nuevo Recordset Set objRec = New ADODB.Recordset ' Propiedades del Recordset With objRec .CursorLocation = adUseClient ' Abre el recordset indicando la tabla .Open "Categorías", conexion, adOpenStatic, adLockOptimistic, adCmdTable End With 'Control Datacombo '---------------- Set DataCombo1.RowSource = objRec ' campo a mostrar en el datacombo DataCombo1.ListField = "NombreCategoría" DataCombo1.DataField = "NombreCategoría" Set DataCombo1.DataSource = objRec 'Control Datalist '---------------- ' campo a mostrar en el DataList DataList1.ListField = "Descripción" Set DataList1.RowSource = objRec End Sub Private Sub Form_Unload(Cancel As Integer) ' Descarga y cierra el recordset If Not objRec.State = adStateClosed Then objRec.Close End If If Not objRec Is Nothing Then Set objRec = Nothing End If ' cierra la conexión ado If Not conexion.State = adStateClosed Then conexion.Close End If If Not conexion Is Nothing Then Set conexion = Nothing End If End Sub

Relacionar un DataCombo y un DataList

Este ejemplo es exactamente igual al anterior, lo único es que se especifica en la propiedad BoundColumn de los dos controles, los campos para que al hacer click en un elemento de cualquiera de los dos controles, se seleccione en el otro , el elemento que le corresponde ( esto en el evento Click de cada uno consultando la propiedad BoundText )

vista del formulario con los controles datalist y datacombo con los registros cargados

Código fuente en el formulario

Option Explicit ' Variables para la con ado y para el recordset Dim conexion As ADODB.Connection Dim objRec As ADODB.Recordset Private Sub DataCombo1_Click(Area As Integer) If Area = 2 Then DataList1.Text = DataCombo1.BoundText End If End Sub Private Sub DataList1_Click() DataCombo1.Text = DataList1.BoundText End Sub Private Sub Form_Load() ' nueva conexión Set conexion = New ADODB.Connection ' Propeidades de la conexión With conexion .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source = C:\Archivos de programa\Microsoft" & _ " Visual Studio\VB98\nwind.mdb" 'Abre .Open End With ' Nuevo objeto Recordset Set objRec = New ADODB.Recordset ' Propiedades para el Recordset With objRec .CursorLocation = adUseClient ' Abre el recordset ( indicar la tabla ) .Open "Categorías", conexion, adOpenStatic, adLockOptimistic, adCmdTable End With 'Código para el Control Datacombo '---------------------------------- Set DataCombo1.DataSource = objRec Set DataCombo1.RowSource = objRec ' campo a mostrar en el datacombo DataCombo1.ListField = "NombreCategoría" DataCombo1.DataField = "NombreCategoría" 'campo a relacionar con el datalist DataCombo1.BoundColumn = "Descripción" ' Código para el Control Datalist '-------------------------------- Set DataList1.RowSource = objRec ' campo a mostrar en el DataList DataList1.ListField = "Descripción" Set DataList1.RowSource = objRec 'campo a relacionar para el datacombo DataList1.BoundColumn = "NombreCategoría" End Sub Private Sub Form_Unload(Cancel As Integer) ' Descarga y cierra el recordset y la conexión ado If Not objRec.State = adStateClosed Then objRec.Close End If If Not objRec Is Nothing Then Set objRec = Nothing End If If Not conexion.State = adStateClosed Then conexion.Close End If If Not conexion Is Nothing Then Set conexion = Nothing End If End Sub

Recursos vb6 - Enlaces relacionados

Buscar en Recursos vb