Inicio > Visual Basic > boy14 > combobox

combobox

Experto:
Usuario:
Fecha: 04/07/2007
Valoración: (5,00 sobre 5) Categoría: Visual Basic
27/06/2007
albgarcia100, usuario preguntando en Visual Basic
Usuario
Hola de nuevo, agradezco de antemano su ayuda, tengo una base de datos con varias tablas, una llamada nombres y una llamada reportes, en el formulario de reportes tengo un combobox llamado nombres, quiero que en el combobox me aparezcan los datos que tengo en la ta bla nombres, esta tabla solo tiene un dato(nombre) y que este dato se guarde con la actualizacion del formulario.
gracias
27/06/2007
albgarcia100, experto respondiendo en Visual Basic
Experto
hola, si lo que quieres es cargar los datos que tienescen una tabla en un combo haz lo siguiente:

crea: un control data y un combo, luego coloca este codigo en el load del formulario:

Data1.DatabaseName = App.Path & "\bd.mdb"
Data1.RecordSource = "tabla"
Data1.Refresh

With Combo1
.Clear
Data1.Refresh
While Not Data1.Recordset.EOF
.AddItem Data1.Recordset!nombre
Data1.Recordset.MoveNext
Wend
End With


con esto llenas el combo con los nombres que tienes almacenados en la tabla..

ahora bien cuando dices que quieres guardar los datos del formulario reporte, eso dependera de que datos quieres guardar...

Saludos, y espero te sirva la ayuda..
27/06/2007
albgarcia100, usuario preguntando en Visual Basic
Usuario
Ya tengo un control data, este hace referencia a la tabla reportes, cree otro formulario con un control data para aplicar tu codigo me da run time error en la tercer linea Data1.Refresh.
el formulario original es para llenar la tabla reportes, quiero seleccionar los nombres a ingresar en un combobox que me muestre los nombres de una tabla llamada nombres y que lo almacene en la tabla llamada reportes junto con el resto de la captura.
gracias por tu apoyo
28/06/2007
albgarcia100, experto respondiendo en Visual Basic
Experto
Me parece raro que te de ese error porque lo probe y funciona bien, a menos que:
a)no tengas bien instalado el visual
b)ó sea otra version (este ejemplo es con vb 6.0)

De todas formas intenta nuevamente con:


Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\bd2.mdb" ' nombre de la base de datos
Data1.RecordSource = "nombres" ' nombre de la tabla donde tienes los datos requeridos
Data1.Refresh' actualiza los datos del control data para poder utulizarlos

With Combo1
.Clear
Data1.Refresh
While Not Data1.Recordset.EOF
.AddItem Data1.Recordset!nombre ' nombre del campo de la tabla que tiene en la base de datos
Data1.Recordset.MoveNext
Wend
End With
End Sub


ahora bien no entiendo bien cuando dices que: quiero seleccionar los nombres a ingresar en un combobox; entonces:

1) el ejemplo sirve para llenar el combo con todos los nombres que tienes guardados en la tabla nombres y luego almacenarlos en la tabla reportes puedes crear un boton y haces larutina de guardado en en boton

2) lo que necesitas es seleccionar unos determinados nombres (basados en unos criterios)de la tabla nombres para luego guardarlos en la tabla reporte.

Si quieres especificame bien tus necesidades y que deseas hacer para tratar de ayudarte mejor.. Estoy a la orden
30/06/2007
albgarcia100, usuario preguntando en Visual Basic
Usuario
gracias por el apoyo, pero sigo teniendo problemas, tengo el VB6 y no se por que me sigue dando el error, una molestia mas, me puedes enviar la compilacion aplicada, este es mi correo
albgarcia1000@yahoo.com.mx
gracias por anticipado
02/07/2007
albgarcia100, experto respondiendo en Visual Basic
Experto
ok, te acabo de enviar por correo la aplicación..
04/07/2007
albgarcia100, usuario preguntando en Visual Basic
Usuario
excelente, no pudo ser mejor
Enlaces patrocinados