Visual Basic - Rellenar Combobox con una BD

Life is soft - evento anual de software empresarial
 
Vista:

Rellenar Combobox con una BD

Publicado por Juanjo (1 intervención) el 16/03/2001 13:14:10
Me gustaría poder poner las opciones de un combo leyendolas de una base de datos, y no metiendolas a mano.
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

Utiliza el DBCOMBO

Publicado por Felipe (97 intervenciones) el 16/03/2001 15:19:05
Hola
Porque no utilizas el DbCombo, tiene que asociarle un data, en las propiedades .ListView seleccionas el campo que quieres que te liste (muestre), en .Boundcolumn colocas el campo o dato que quieres que te devuelva cuando el usuario seleccione uno, lo demas tienes que investigar tu.

Saludos desde Chile

felipe

PD.: para que no te modifiquen los datos en la BD tienes que cambiar el Style a 2
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:Rellenar Combobox con una BD

Publicado por Biel (12 intervenciones) el 17/03/2001 18:16:27
te aconsejo que te crees una función a este estilo:
public sub add2DAO(rs as recordes,cbo as combobox, nombrecampo as string)
do until rs.eof
cbo.additem rs![Nombrecampo]
rs.movenext
loop
exit sub
rs es el recordset que has creado para rellenar
cbo es el combo a rellenar
nombrecampo el campo que utilizarás
Sobre esta base puedes hacer muchas variaciones.
Un saludo!
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:Rellenar Combobox con una BD

Publicado por Jose Reynaldo Chavarria (6 intervenciones) el 27/03/2001 02:02:55
Es mejor si utilizas un Data Combo Con ADO
En este ejemplo
Donde "CnnMain" es una Coneccion ADO y "rsFarmacias" es Un Recordset que contiene la informacion que queremos en el Combo

SQL = "SELECT Nombre as Nombre, IDFarmacia"
SQL = SQL & " FROM Farmacias"
SQL = SQL & " ORDER BY Nombre"
Set rsFarmacias = CnnMain.Execute(SQL)
With DcboFarmacia
.ListField = "Nombre"
.BoundColumn = "IDFarmacia"
Set .RowSource = rsFarmacias
End With

PD. Esto Funciona en VB6.0
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