Nueva pregunta sobre Combo y tres campos
Hola Ezequiel...
Tuve que volver a pedir tu valiosa ayuda porque aunque lo intente con el código que me enviaste no logre el resultado...
Te recuerdo que la cuestión es que necesito que aparezcan tres campos de una tabla en el Combo para poder seleccionar.. Así: El Grado, nombre y apellido de una persona.
Este es el código que he utilizado pero no me funciona bien .. No se que podrá ser.. !
Private Sub cargarCombo3()
Set cmdPilotos.ActiveConnection = cnn
cmdPilotos.CommandText = "SELECT pilotos.grado, pilotos.apellidos, pilotos.nombre FROM pilotos where pilotos.unidad = '" & Combo1.Text & "'"
RSTpILOTOS.CursorLocation = adUseClient
RSTpILOTOS.Open cmdPilotos, , adOpenStatic, adLockBatchOptimistic
' hasta aqui he hecho el command y el recordset de la tabla pilotos..
'Ahora lo que hago es asignarle los tres campos a una variable
Dim Combo3GradoNombreApellido As String
Combo3GradoNombreApellido = RSTpILOTOS!grado & " " & RSTpILOTOS!nombre & " " & RSTpILOTOS!APELLIDOS
' Ahora esta variable se la asigno al combo donde necesito que aparezca..
Do While Not RSTpILOTOS.EOF
Combo3.AddItem RSTpILOTOS!Combo3GradoNombreApellido
RSTpILOTOS.MoveNext
Loop
Set cmdPilotos = Nothing
RSTpILOTOS.Close
Combo3.ListIndex = 0
End Sub
'' Y no me funciona... Que pasarà-
...?
Te agradezco tu ayuda..!
Tuve que volver a pedir tu valiosa ayuda porque aunque lo intente con el código que me enviaste no logre el resultado...
Te recuerdo que la cuestión es que necesito que aparezcan tres campos de una tabla en el Combo para poder seleccionar.. Así: El Grado, nombre y apellido de una persona.
Este es el código que he utilizado pero no me funciona bien .. No se que podrá ser.. !
Private Sub cargarCombo3()
Set cmdPilotos.ActiveConnection = cnn
cmdPilotos.CommandText = "SELECT pilotos.grado, pilotos.apellidos, pilotos.nombre FROM pilotos where pilotos.unidad = '" & Combo1.Text & "'"
RSTpILOTOS.CursorLocation = adUseClient
RSTpILOTOS.Open cmdPilotos, , adOpenStatic, adLockBatchOptimistic
' hasta aqui he hecho el command y el recordset de la tabla pilotos..
'Ahora lo que hago es asignarle los tres campos a una variable
Dim Combo3GradoNombreApellido As String
Combo3GradoNombreApellido = RSTpILOTOS!grado & " " & RSTpILOTOS!nombre & " " & RSTpILOTOS!APELLIDOS
' Ahora esta variable se la asigno al combo donde necesito que aparezca..
Do While Not RSTpILOTOS.EOF
Combo3.AddItem RSTpILOTOS!Combo3GradoNombreApellido
RSTpILOTOS.MoveNext
Loop
Set cmdPilotos = Nothing
RSTpILOTOS.Close
Combo3.ListIndex = 0
End Sub
'' Y no me funciona... Que pasarà-
...?
Te agradezco tu ayuda..!
1 Respuesta
Respuesta de kieleze
1
A ver... no entiendo bien...
¿Qué error te aparece?
Creo que quieres hacer demasiadas cosas en un solo paso...
Primero genera la consulta sql... que te de la clave del piloto, grado, nombre y apellido...
Con esto... lo ingresas en el combo con additem
Y también debes guardar el código del piloto en el indice del combo..
En el ejemplo que tem ando yo esta hecho eso... para facilitar las consultas...
Porque si quieres hacer las consultas con el contenido del combo... que ahora es un único string... deberás separarlo en las distintas componentes y es mucho lio...
Me explico...
FROM pilotos where pilotos.unidad = '" & Combo1.Text & "'"
No se porque en el select le pones combo1.text
Quieres cargar todos los pilotos o algunos que cumplan alguna condición... QUE SEAN DE UNA DETERMINADA UNIDAD...
Dime a donde te salta el error y de que tipo es
Dim Combo3GradoNombreApellido As String
Combo3GradoNombreApellido = RSTpILOTOS!grado & " " & RSTpILOTOS!nombre & " " & RSTpILOTOS!APELLIDOS
' Ahora esta variable se la asigno al combo donde necesito que aparezca..
Do While Not RSTpILOTOS.EOF
Combo3. AddItem RSTpILOTOS! Combo3GradoNombreApellido
RSTpILOTOS. MoveNext
Loop
Esto no esta bien...
Combo3gradonombreapellido es una variable tipo string... que contiene "grado juan perez"
Deberia ser asi
Dim Combo3GradoNombreApellido As String
Do While Not RSTpILOTOS.EOF
'debes general el grado nombre y apellido por cada registro
Combo3GradoNombreApellido = RSTpILOTOS!grado & " " & RSTpILOTOS!nombre & " " & RSTpILOTOS!APELLIDOS
Combo3. AddItem Combo3GradoNombreApellido
RSTpILOTOS. MoveNext
Loop
Seria algo así
Un saludo de ezequiel
Desde rosario argentina
Te inciste también agregale al indice del combo la clave o identificador del piloto... para que si tienes que hacer una búsqueda sea más fácil
En el ejemplo que te envíe esta como se hace eso
¿Qué error te aparece?
Creo que quieres hacer demasiadas cosas en un solo paso...
Primero genera la consulta sql... que te de la clave del piloto, grado, nombre y apellido...
Con esto... lo ingresas en el combo con additem
Y también debes guardar el código del piloto en el indice del combo..
En el ejemplo que tem ando yo esta hecho eso... para facilitar las consultas...
Porque si quieres hacer las consultas con el contenido del combo... que ahora es un único string... deberás separarlo en las distintas componentes y es mucho lio...
Me explico...
FROM pilotos where pilotos.unidad = '" & Combo1.Text & "'"
No se porque en el select le pones combo1.text
Quieres cargar todos los pilotos o algunos que cumplan alguna condición... QUE SEAN DE UNA DETERMINADA UNIDAD...
Dime a donde te salta el error y de que tipo es
Dim Combo3GradoNombreApellido As String
Combo3GradoNombreApellido = RSTpILOTOS!grado & " " & RSTpILOTOS!nombre & " " & RSTpILOTOS!APELLIDOS
' Ahora esta variable se la asigno al combo donde necesito que aparezca..
Do While Not RSTpILOTOS.EOF
Combo3. AddItem RSTpILOTOS! Combo3GradoNombreApellido
RSTpILOTOS. MoveNext
Loop
Esto no esta bien...
Combo3gradonombreapellido es una variable tipo string... que contiene "grado juan perez"
Deberia ser asi
Dim Combo3GradoNombreApellido As String
Do While Not RSTpILOTOS.EOF
'debes general el grado nombre y apellido por cada registro
Combo3GradoNombreApellido = RSTpILOTOS!grado & " " & RSTpILOTOS!nombre & " " & RSTpILOTOS!APELLIDOS
Combo3. AddItem Combo3GradoNombreApellido
RSTpILOTOS. MoveNext
Loop
Seria algo así
Un saludo de ezequiel
Desde rosario argentina
Te inciste también agregale al indice del combo la clave o identificador del piloto... para que si tienes que hacer una búsqueda sea más fácil
En el ejemplo que te envíe esta como se hace eso
Te envío mi correo del MSN por si estas conectado
[email protected]
[email protected]
