Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

List + DB Access + Data

Estas en el tema de List + DB Access + Data en el foro de Visual Basic clásico en Foros del Web. Como puedo hacer para ver la fila de 1 base de datos en una LISTA (list) con el control DATA.... Saludos...
  #1 (permalink)  
Antiguo 17/08/2005, 23:22
Avatar de SKL®  
Fecha de Ingreso: agosto-2005
Ubicación: San PEdro Buenos Aires (Argentina)
Mensajes: 33
Antigüedad: 18 años, 8 meses
Puntos: 0
List + DB Access + Data

Como puedo hacer para ver la fila de 1 base de datos en una LISTA (list) con el control DATA....


Saludos
  #2 (permalink)  
Antiguo 18/08/2005, 03:21
Avatar de aldo1982  
Fecha de Ingreso: noviembre-2004
Ubicación: Santa Fe (Argentina) Colon F.C
Mensajes: 1.362
Antigüedad: 19 años, 5 meses
Puntos: 6
Cita:
Iniciado por SKL®
Como puedo hacer para ver la fila de 1 base de datos en una LISTA (list) con el control DATA....
Saludos
la fila, es decir un registro ?? bue yo lo hago de la siguiente manera

suponte ke tenes la tabla usuarios con los campos nombre_usuario, contrasenia y email

y keres meter los datos de determinado usuario en un list, bue yo hago asi:

'como el nombre de usuario no se puede duplicar seria algo asi como la 'CLAVE :P

'en el evento load del formulario cargamos todos los usuarios en un combo
'de la sig manera

sql = "select ditinct nommbre_usurio from usuarios "
dbconn.open
set = dbconn.execute (sql)
'recorremosla base de datos hasta ke sea fin de archivo
do while not rs.eof
combo1.additem rs!nombre_usuario

rs.movenext

loop
rs.close
'---------------------------------------
'ahora en el evenyo click OJO ke por ahi dekamos este evento en CHANG y 'asi no debe ser
'---------------------------------------------
'bue como decia en el evento click del combo ponemos

'una sentencia sql ma o menos asi

sql = "select * from usuarios where nombre_usuario = '"& combo1.text &"'"

do while not rs.eof

'aca viene el codigo de la list
list1.additem rs!nombre_usuario & "" & rs!contrasenia & " " & rs!apellido

rs.movenext
loop

rs.close

'-------------------------------------
'bue espero seaeso lo ke kerias, me re gaste escribiendo ejejeje
'----------------------------------------
'salu2
__________________
LA MUERTE ESTÁ TAN SEGURA DE VENCER QUE NOS DA TODA UNA VIDA DE VENTAJA
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 06:23.