SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Jorge López en Miércoles 15 de Enero de 2003, 13:14

Título: Re: LLenar un listbox
Publicado por: Jorge López en Miércoles 15 de Enero de 2003, 13:14
Hola a todos...



Como  Puedo hacer para que los datos de mi campo "Nombre"de mi tabla "productos", estos nombres los pueda ver en un listbox ?, es decir que cuando cargue el form que tiene el listbox, aparezcan los nombres de los productos alli...



saludos...
Título: LLenar un listbox
Publicado por: ROBER.29 en Miércoles 15 de Enero de 2003, 16:54
Private Sub Form_load ()

Dim rsProductos As New Adodb.RecordSet, strSql as String, conexion as String

strSql = "SELECT Nombre FROM Productos"

conexion = ' Lo tendras que igualar a la cadena conexion que te convenga dependiendo de la base de datos con la que vas a atacar.

'Aqui abres el recordset con la consulta especificada anteriormente de SQL
rsProductos.Open strSql, conexion, 3 ,1

'Bucle donde cargarás el listbox
Do while rsProductos.EOF
Nombrelistbox.addItem rsProductos("Nombre")
rsProductos.MoveNext
Loop

rsProductos.close
Set rsProductos = Nothing
End Sub


Esto funciona perfectamente, lo único que tienes que hacer es poner en conexión la cadena de conexion correspondiente a la base de datos con la que vas a atacar.

Un saludo,
Roberto García