Còmo hacer para que cboBox tome datos de Base de datos en VB6

[Siddhartha]

Hola a todos! Estoy queriendo tomar datos de una base de datos para que un cboBox aparezca con esa info en su propiedad Text. Hice lo siguiente pero me da error:

Private Sub Form_Load()
cboCursos.Text=DatPaquetes.Recordset("Paquetes")
End Sub

donde cboCursos es el nombre del comboBox
DatPaquetes es el control data asociado a la
base de datos cuya tabla "Cursos"
contiene el campo "Paquetes"

El error que me da es: "Variable de tipo object o la variable de tipo with no está establecida"

También quisiera que me ayuden a tomar de una base de datos la lista del cboBox.

Gracias!

[lic_dahool]

Para agregar datos al combo debes usar:

Combo.AddItem "Texto"

Saludos.

[Siddhartha]

Si, pero lo quiero sacar de la base de datos...

[lic_dahool]

Pues en vez de texto colocas los datos del campo que deseas agregar:

cboCursos.AddItem DatPaquetes.Recordset("Paquetes")

[Siddhartha]

Puse:

cboCursos.AddItem DatPaquetes.Recordset("Paquetes")

y me sigue dando el error "Variable de tipo object o la variable de tipo with no está establecida"

[jrp01]

Prueba con esto:
indice es integer, rs es un recordset
En este caso asigno el ID, y el nombre de un registro por ejm si el rs metra el ID=1 y como nombre "Pepe" en el combo aparece Pepe y como indice 1 esto es muy util cuando quieres guardar el ID directamente.

Combo.AddItem rs(1)
indice = Combo.NewIndex
Combo.ItemData(indice) = rs(0)

Saludos

[lic_dahool]

Iniciado por Siddhartha

Puse:

cboCursos.AddItem DatPaquetes.Recordset("Paquetes")

y me sigue dando el error "Variable de tipo object o la variable de tipo with no está establecida"

Porque no puedes hacerlo en el evento Load del formulario, porque el objeto Data aun no realizó la conexión, debes esperar a que se carge el formulario.
Coloca el código en el evento Activate

Eso resolverá tu problema, saludos.

[Siddhartha]

Gracias, lo voy a probar

[GeoAvila]

mejor proba un DataCombo esta hecho para eso...
no el ComboBox que es solo para un par de opciones..

[Bellenger]

Bueno el codigo es simple...
tenes que hacer esto:

en el evento load del form
form_load
dim K as string ' esta variable contendra el numero de datos de la bd
For k=1 to DatPaquetes.RecordCount
DatPaquetes.MoveFirts ' Llevamos el Cursor hasta el inicio de la tabla
CboCursos.AddItem (DatPaquetes.Fields(0))' * ' agregamos los datos
'de la tabla al combo
DatPaquetes.MoveNext ' esto es para que cada vez que agrege uno
' avance al sgte, registro para luego con el
' contador luego agregarlo y listo
Next K

podes probar este codigo, solo debes pegarlo en la ventana de codigo
ojo que lo hice con las nombres de los controles que has mencionado.
* aca en la instruccion he puesto como campo de la tabla 0 que equivale al primer campo de la tabla, podes cambiarlo por el campo que os deseas agregar..
[email protected]

[GeoAvila]

pero porque se empleñan en hacerlo de esa manera,no saben de que manera carga un formulario cuando ya hay mucha información.

Para eso estan los

"DATACOMBOS"

nos vemos..