Visual Basic - ayudenme

Life is soft - evento anual de software empresarial
 
Vista:

ayudenme

Publicado por Dan (50 intervenciones) el 03/02/2006 21:57:45
HOLA QUE TAL DE ANTE MANO GRACIAS POR TODO.

SI ALGUIEN ME PUDIERA AYUDAR CON ESTE PROBLEMA.

TENGO UN COMBOBOX EN EL CUAL QUIERO CARGAR EN EL LOS REGISTROS DE UN CAMPO DE UNA BASE DE DATOS, EJEMPLO LA MARCA, QUE MUESTRE EN EL COMBOBOX TODAS LAS MARCAS QUE ESTEN.

POR FAVOR AYUDENME.

GRACIAS POR TODO
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:ayudenme

Publicado por jose (33 intervenciones) el 04/02/2006 03:59:22
en el evento que quieras
List1.Clear
Set rs = db.Execute("select marca from tabla1")
With rs
While Not .EOF
List1.AddItem rs!marca
.MoveNext
Wend
End With
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:ayudenme

Publicado por Luis Prieto (166 intervenciones) el 04/02/2006 18:00:52
Hola!
Dan

Eso, es muy facil, pero no se si usas un combobox o un datacombo, aqui te paso el codigo para los dos.

'con el combobox
dim cn as new adodb.connection
dim rs as new adodb.connection

cn.connectionstring="cadenaconexion"
cn.open

do while not rs.eof
combobox1.additem rs.fields("campo")
rs.movenext
loop

set rs=nothing
rs.close
cn.close

y listo.

'con el datacombo
dim cn as new adodb.connection
dim rs as new adodb.connection

cn.connectionstring="cadenaconexion"
cn.open

rs.open "select campo from tabla", cn
set datacombo1.rowsource=rs
datacombo1.listfield=rs.fields("campo")
set rs=nothing
rs.close
cn.close

' y listo mucho mas facil.
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