Problema con un Combo
Iverson
22 de Abril del 2003
Hola,
Tengo una serie de problemas con unos combos. Tengo una tabla de una BBDD con sus campos, quiero meter los campos en un combo, para ello lo que hago es hacer lo siguiente
Dim query As String
Dim rsConsulta As New ADODB.Recordset
query = "select codigoSeccion,descripcion from seccion where baja=0 order by descripcion"
rsConsulta.Open query, objConexion
If Not rsConsulta.EOF Then
While Not rsConsulta.EOF
Me.cmbSeccion.AddItem rsConsulta.Fields(1)
Me.cmbSeccion.ItemData(Me.cmbSeccion.NewIndex) = rsConsulta.Fields(0)
rsConsulta.MoveNext
Wend
Else
MsgBox "NO HAY SECCIONES", vbCritical
Me.Hide
Unload Me
End If
El codigo de seccion es un nº y la descripcui贸n texto que es lo que quiero que aparezca en el combo. Hasta aqu铆 sin problemas, cada vez que hago un alta, el combo me aparece lleno y hago el alta sin problemas. El problema lo tengo cada vez que hago una modificaci贸n, mi pantalla es un grid donde tengo los datos de la tabla, si quiero hacer la modificaci贸n, selecciono un elemnto del grid y pulso modificar, me carga los campos en cajas de texto y combos (entre ellos el del problema). Lo que necesito es alguna manera para tener tanto el valor de codigo seccion y descripci贸n que paso del grig a la caja de texto para que al pulsar un bot贸n llamado aceptar, me haga la update en la BBDD.
Gracias
Tengo una serie de problemas con unos combos. Tengo una tabla de una BBDD con sus campos, quiero meter los campos en un combo, para ello lo que hago es hacer lo siguiente
Dim query As String
Dim rsConsulta As New ADODB.Recordset
query = "select codigoSeccion,descripcion from seccion where baja=0 order by descripcion"
rsConsulta.Open query, objConexion
If Not rsConsulta.EOF Then
While Not rsConsulta.EOF
Me.cmbSeccion.AddItem rsConsulta.Fields(1)
Me.cmbSeccion.ItemData(Me.cmbSeccion.NewIndex) = rsConsulta.Fields(0)
rsConsulta.MoveNext
Wend
Else
MsgBox "NO HAY SECCIONES", vbCritical
Me.Hide
Unload Me
End If
El codigo de seccion es un nº y la descripcui贸n texto que es lo que quiero que aparezca en el combo. Hasta aqu铆 sin problemas, cada vez que hago un alta, el combo me aparece lleno y hago el alta sin problemas. El problema lo tengo cada vez que hago una modificaci贸n, mi pantalla es un grid donde tengo los datos de la tabla, si quiero hacer la modificaci贸n, selecciono un elemnto del grid y pulso modificar, me carga los campos en cajas de texto y combos (entre ellos el del problema). Lo que necesito es alguna manera para tener tanto el valor de codigo seccion y descripci贸n que paso del grig a la caja de texto para que al pulsar un bot贸n llamado aceptar, me haga la update en la BBDD.
Gracias