Ver Mensaje Individual
  #1 (permalink)  
Antiguo 29/06/2009, 13:38
Divisionx
 
Fecha de Ingreso: junio-2009
Mensajes: 15
Antigüedad: 14 años, 11 meses
Puntos: 0
Dilema con ComboBox (Base de datos)

Muy buenas, es mi primer mensaje en el foro, espero que no sea el ultimo... jeje

Bueno, voy al grano, estoy desarrollando una aplicacion en visual basic de gestion de cartera de clientes como herramienta para aprender bien VB6, pero me surge el siguiente problema al intentar hacer lo que sigue:

Tengo una base de datos enlazada mediante un DSN con varias tablas, dos de ellas son "Clientes" que tiene como caracteristica que cada vez que se añade un nuevo registro, un valor llamado [Bandera] se pone TRUE. y "Asistencias"

pues bien, en un determinado formulario, todo lo que añada quedara grabado en la tabla "Asistencias" pero en ese formulario hay un ComboBox (CClientes) que me gustaria que recuperase todos los nombres de los clientes de la tabla "Clientes" para que solo fuera necesario seleccionarlos.

Yo lo he planteado de la siguiente manera:

Código vb:
Ver original
  1. Private Sub Form_Load()
  2.     Set base = New Connection
  3.     Set tabla = New Recordset
  4.     Set tabla2 = New Recordset
  5.     Set temp = New Recordset
  6.    
  7.     base.Open "dsn=data"
  8.     tabla.Open "Asistencias", base, adOpenDynamic, adLockOptimistic
  9.     tabla2.Open "Clientes", base, adOpenDynamic, adLockOptimistic
  10.  
  11. With tabla2
  12.             If .BOF = False And .EOF = False Then .MoveFirst
  13.            
  14.             Do While Not .EOF
  15.                 If bandera = True Then
  16.                     CClientes.AddItem !Nombre
  17.                     .MoveNext
  18.             Loop
  19.            
  20.             If bandera = False Then
  21.             End If
  22.      End If
  23. End sub

Esto seguramente esta mal, pero mas que darme cabezazos contra el teclado no hago, y no hay manera, he buscado por mil sitios y probado mil soluciones sin siquiera entenderlas, y tampoco.

Muchas gracias de antemano!

S4lu2!!!

Última edición por Divisionx; 30/06/2009 a las 14:36 Razón: correccion de codigo