Visual Basic - Ayuda urgente por favor!!!

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda urgente por favor!!!

Publicado por Robert (3 intervenciones) el 29/03/2007 17:34:40
Bueno, gracias por leer este mensaje. A lo que nos convoca. Estoy comenzando con esto del Visual y tengo la siguiente duda:
Agregue a mi formulario un combobox, el cual deseo tome datos de una tabla de acces 2000 llamada listas. He enlazado el combobox con la tabla de la db a través de las propiedades de un ADO data control y a su vez este control lo he en lazado a la tabla mencionada anteriormente (listas). Cuando ejecuto la aplicación el código me muestra solo el primer registro de la tabla listas ¿ Como puedo solucionar esto? se hace de esta forma o existen otras? ¿ Me pueden dar un ejemplo?

Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda urgente por favor!!!

Publicado por Luis Prieto (166 intervenciones) el 29/03/2007 21:35:23
Hola, Robert!!

Lo debes hacer de esta manera:

Combo1.Clear
do while not adodc1.recordset.eof
Combo1.AddItem adodc1.recoerdset!campo
adodc1.recordset.movenext
loop
Combo1.ListIndex = 0

Saludos!!

Pdta: Cualquier duda escribeme
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda urgente por favor!!!

Publicado por Robert (3 intervenciones) el 29/03/2007 23:39:51
Hola Luis!!!!:

Gracias por responder. La verdad es que estoy recomplicado con esto.
Al agregar tu código me aparece lo siguiente:

Run time error 91, Object variable or with block variable not set

el debug apunta a:

Do While Not Adodc1.Recordset.EOF

El código con el que estoy probando actualmente es el que tu me indicaste:

Private Sub Form_Load()
Combo1.Clear
Do While Not Adodc1.Recordset.EOF
Combo1.AddItem Adodc1.Recordset!texto (en este caso el campo se llama texto)
Adodc1.Recordset.MoveNext
Loop
Combo1.ListIndex = 0
End Sub

Con el código que lo he estado intentando realizar es el siguiente:

Private Sub Form_Load()

'Combo1.AddItem "Seleccione Sector"
'Combo1.AddItem "A"
'Combo1.AddItem "B"
'Combo1.AddItem "C"
'Combo1.ListIndex = 0

'Combo2.AddItem "Seleccione Previsión"
'Combo2.AddItem "1"
'Combo2.AddItem "2"
'Combo2.AddItem "3"
'Combo2.ListIndex = 0

End Sub

Intenté mostrar el contenido de la BD de varias formas pero no pude. Por ello lo realicé de la manera mas básica que es la que está descrita anteriormente. Fuenciona de forma correcta de esta manera? No se si esto se puede hacer.

Necesito guardarlo en tabla de la base de datos y la idea inicial era tomar estos datos seleccionables desde una table llamada "lista" que alimentara a 2 combos diferentes con información y al ser seleccionada esta información me permitiera guardarlos junto a otros datos desde texts a otra tabla de almacenamiento.

Si me puedes orientar o dar algún ejemplo sería ideal. Muchas Gracias

Robet.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar