Combo... Y tres campos
Hola experto Kieleze .. Gracias por la dedicación y tu voluntad.. Necesito arreglar algo aquí en este código que tengo para que en el ITEM del combo2 aparezca el GRADO, NOMBRE Y APELLIDO en el mismo combo2. Estos datos los saco de una tabla que se llama pilotos donde cada uno es un campo.. La idea es que ahora cada uno pase a ser un solo campo en una nueva tabla..
' combo2
Set cmdPilotos.ActiveConnection = cnn
cmdPilotos.CommandText = "SELECT pilotos.grado, pilotos.nombre, pilotos.apellidos FROM pilotos WHERE pilotos.unidad='" & Combo1.Text & "'" ' En este combo va el nombre de una avioneta lo que tiene que aparecer en el recordset son los nombres de los pilotos.
RSTpILOTOS.CursorLocation = adUseClient
RSTpILOTOS.Open cmdPilotos, , adOpenStatic, adLockBatchOptimistic
Do While Not RSTpILOTOS.EOF
Combo3.AddItem RSTpILOTOS!grado&nombre&apellido
RSTpILOTOS.MoveNext
Loop
Set cmdPilotos = Nothing
RSTpILOTOS.Close
Combo3.ListIndex = 0
En la linea que dice Combo3.AddItem RSTpILOTOS! Grado&nombre&apellido
es donde tengo la duda porque ahí debe aparecer el grado el nombre y el apellido de la persona en una sola linea habiéndola tomado de tres campos de la tabla pilotos...
Gracias por tu ayuda... !
' combo2
Set cmdPilotos.ActiveConnection = cnn
cmdPilotos.CommandText = "SELECT pilotos.grado, pilotos.nombre, pilotos.apellidos FROM pilotos WHERE pilotos.unidad='" & Combo1.Text & "'" ' En este combo va el nombre de una avioneta lo que tiene que aparecer en el recordset son los nombres de los pilotos.
RSTpILOTOS.CursorLocation = adUseClient
RSTpILOTOS.Open cmdPilotos, , adOpenStatic, adLockBatchOptimistic
Do While Not RSTpILOTOS.EOF
Combo3.AddItem RSTpILOTOS!grado&nombre&apellido
RSTpILOTOS.MoveNext
Loop
Set cmdPilotos = Nothing
RSTpILOTOS.Close
Combo3.ListIndex = 0
En la linea que dice Combo3.AddItem RSTpILOTOS! Grado&nombre&apellido
es donde tengo la duda porque ahí debe aparecer el grado el nombre y el apellido de la persona en una sola linea habiéndola tomado de tres campos de la tabla pilotos...
Gracias por tu ayuda... !
1 Respuesta
Respuesta de kieleze
1
Oks finaliza la pregunta
Me ha sido de gran ayuda... la estoy implementando y creo que me va a funcionar.. sin embargo... si llego e necesitar de tu ayuda te escribiré.. muchas gracias..
Gracias Ezequiel.. recibí tu ayuda... y la estoy implementando ... si llegare a tener una duda, te escribiré por este medio para que me des una mano..
Muchas gracias..
Muchas gracias..
A ver si entendí
Necesitas que en el combo aparezcan las 3 campos del recordset...
Y tienes que guardarlo todo junto
La única forma que se me ocurre es usar una variable tipo string y concatenarle los campos ejemplo
Dim strCOMBO as string
strCOMBO = rs!grado & " - " & rs!nombre & " - " " rs!apellido
y guardas esto en el combo
si quieres te paso un codigo que tengo guardar los textos de un recordset al combo...
tendras que modificarlo un poquito.. pero funcionara
Public Sub cargarCombo(tipo As String, cbo As ComboBox)
'Cargar los combos con los datos de la base
Dim rsCargarCombo As Recordset
Dim tabla As String
With cbo
.AddItem "(Ninguno)"
.ItemData(.NewIndex) = 0
.ListIndex = 0
Select Case tipo
Case "doc"
'carga los datos de tipo de documento, descripcion y clave
tabla = "tpo_doc"
Set rsCargarCombo = bd.OpenRecordset(tabla, dbOpenForwardOnly)
Do While Not rsCargarCombo.EOF
.AddItem rsCargarCombo.Fields!dsc_tpo_doc
.ItemData(.NewIndex) = rsCargarCombo.Fields!tpo_doc
rsCargarCombo.MoveNext
Loop
Case "loc"
'carga los datos de las localidades, descripcion y clave
tabla = "localidades"
Set rsCargarCombo = bd.OpenRecordset(tabla, dbOpenForwardOnly)
Do While Not rsCargarCombo.EOF
.AddItem rsCargarCombo.Fields!nom_localidad
.ItemData(.NewIndex) = rsCargarCombo.Fields!cod_localidad
rsCargarCombo.MoveNext
Loop
End Select
End With
rsCargarCombo.Close
End Sub
Este lo hice para que cargue los datos de una localidad y del tipo de dni...
Pero puedes modificarlo... dejar uno sola opción y hacerlo funcionar
Necesitas que en el combo aparezcan las 3 campos del recordset...
Y tienes que guardarlo todo junto
La única forma que se me ocurre es usar una variable tipo string y concatenarle los campos ejemplo
Dim strCOMBO as string
strCOMBO = rs!grado & " - " & rs!nombre & " - " " rs!apellido
y guardas esto en el combo
si quieres te paso un codigo que tengo guardar los textos de un recordset al combo...
tendras que modificarlo un poquito.. pero funcionara
Public Sub cargarCombo(tipo As String, cbo As ComboBox)
'Cargar los combos con los datos de la base
Dim rsCargarCombo As Recordset
Dim tabla As String
With cbo
.AddItem "(Ninguno)"
.ItemData(.NewIndex) = 0
.ListIndex = 0
Select Case tipo
Case "doc"
'carga los datos de tipo de documento, descripcion y clave
tabla = "tpo_doc"
Set rsCargarCombo = bd.OpenRecordset(tabla, dbOpenForwardOnly)
Do While Not rsCargarCombo.EOF
.AddItem rsCargarCombo.Fields!dsc_tpo_doc
.ItemData(.NewIndex) = rsCargarCombo.Fields!tpo_doc
rsCargarCombo.MoveNext
Loop
Case "loc"
'carga los datos de las localidades, descripcion y clave
tabla = "localidades"
Set rsCargarCombo = bd.OpenRecordset(tabla, dbOpenForwardOnly)
Do While Not rsCargarCombo.EOF
.AddItem rsCargarCombo.Fields!nom_localidad
.ItemData(.NewIndex) = rsCargarCombo.Fields!cod_localidad
rsCargarCombo.MoveNext
Loop
End Select
End With
rsCargarCombo.Close
End Sub
Este lo hice para que cargue los datos de una localidad y del tipo de dni...
Pero puedes modificarlo... dejar uno sola opción y hacerlo funcionar
