Cual es mi problema

sebastian
09 de Octubre del 2004
estoy tratando de obtener datos desde una base de datos y colocarlos en un combo.
estoy utilizando el siguiente codigo:
For tvs = 0 To Configuracionautomatico.Data1.Recordset.RecordCount '- 1
Data1.Recordset.MoveNext
comboestilo.AddItem Trim(Configuracionautomatico.Data1.Recordset.Fields("Estilo") & "")
Next tvs

El problema es que solamente adhiere el primer registro.-
Gracias !!!

BBmucho
09 de Octubre del 2004
Yo lo hago asi:

For Each aux In BDatos.Tables
cboTablas.AddItem aux.Name
Next aux

Aux es de tipo Table2
BDatos es de tipo Database2

Espero que te sirva.

sebastian
09 de Octubre del 2004
Gracias por contestar.-
te comento que yo estoy abriendo la BD directamente con un data.
decime si sabes como hacerlo con el data.-
Gracias

pablin_web
09 de Octubre del 2004
a ver si así te anda...
Do While not Data1.Recordset.EOF
comboestilo.AddItem Trim(Configuracionautomatico.Data1.Recordset.Fields("Estilo") & "")
Data1.Recordset.MoveNext
Loop