VB6: Trabajar con el ComboBox

[SalomonSab]

Hola que tal a todos, tengo un problema con mis combobox este es mi codigo

Código:

Private Sub CmbDepto_Click()
    If Rs.State = 1 Then Rs.Close
    Rs.Open "SELECT * FROM Departamentos WHERE DEPARTAMENTO = '" & CmbDepto.Text & "'", Cnn, adOpenStatic, adLockOptimistic
    Rs.Requery 1
        CmbUsuario.Enabled = True
        CmbUsuario.Clear
         While Rs.EOF = False
            CmbUsuario.AddItem Rs.Fields("USUARIO")
            Rs.MoveNext
         Wend

End Sub

Explico lo que me pasa:

1.- Tengo dos combobox uno llamado CmbDepto y el otro CmbUsuario
2.- lo que prentendo es que en el combo CmbDepto al dar click me muestra en el cmbUsuario todos los usuarios del departamento que seleccione en el CmbDepto
3.-Esto me funciona cuando habro el formulario pero al cerrarlo y lo vuelvo abrir me dice que: Error 33709 en tiempo de ejecución que se describe asi: No se puede usar la conexión para realizar esta operación. Esta cerrada o no es valida en este contexto.

Espero haberme explicado si no me dicen por lo pronto gracias por cualquier aporte que se me pueda dar.

[culd]

Iniciado por SalomonSab

Hola que tal a todos, tengo un problema con mis combobox este es mi codigo

Código:

Private Sub CmbDepto_Click()
    If Rs.State = 1 Then Rs.Close
    Rs.Open "SELECT * FROM Departamentos WHERE DEPARTAMENTO = '" & CmbDepto.Text & "'", Cnn, adOpenStatic, adLockOptimistic
    Rs.Requery 1
        CmbUsuario.Enabled = True
        CmbUsuario.Clear
         While Rs.EOF = False
            CmbUsuario.AddItem Rs.Fields("USUARIO")
            Rs.MoveNext
         Wend

End Sub

Explico lo que me pasa:

1.- Tengo dos combobox uno llamado CmbDepto y el otro CmbUsuario
2.- lo que prentendo es que en el combo CmbDepto al dar click me muestra en el cmbUsuario todos los usuarios del departamento que seleccione en el CmbDepto
3.-Esto me funciona cuando habro el formulario pero al cerrarlo y lo vuelvo abrir me dice que: Error 33709 en tiempo de ejecución que se describe asi: No se puede usar la conexión para realizar esta operación. Esta cerrada o no es valida en este contexto.

Espero haberme explicado si no me dicen por lo pronto gracias por cualquier aporte que se me pueda dar.

Claro por que ya tenes una consulta cargada, tenes que cerrarla para volver a realizarla con "rs.Close"

te quedaria asi

Código:

Private Sub CmbDepto_Click()
    If Rs.State = 1 Then Rs.Close
    Rs.Open "SELECT * FROM Departamentos WHERE DEPARTAMENTO = '" & CmbDepto.Text & "'", Cnn, adOpenStatic, adLockOptimistic
    Rs.Requery 1
        CmbUsuario.Enabled = True
        CmbUsuario.Clear
         While Rs.EOF = False
            CmbUsuario.AddItem Rs.Fields("USUARIO")
            Rs.MoveNext
         Wend
    Rs.Close

No es error del combo, es error tuyo al manejar la base de datos

[SalomonSab]

Gracias Culd pero no me funciona de hecho ya lo habia probado con ese opción de cerrarlo pero el problema persiste:

Cuando me da el error me marca esta linea:

Código:

 Rs.Open "SELECT * FROM Departamentos WHERE DEPARTAMENTO = '" & CmbDepto.Text & "'", Cnn, adOpenStatic, adLockOptimistic

[fede_rosario]

veamos , esto lo haces para el combo de usuarios pero el de dptos cuando lo cargas lo limpias, es decir CmbDepto.clear y el recordset asignado lo cerras ,xq en algun momento llenas al CmbDepto con los departamentos es en el form_load?

[culd]

Iniciado por SalomonSab

Gracias Culd pero no me funciona de hecho ya lo habia probado con ese opción de cerrarlo pero el problema persiste:

Cuando me da el error me marca esta linea:

Código:

 Rs.Open "SELECT * FROM Departamentos WHERE DEPARTAMENTO = '" & CmbDepto.Text & "'", Cnn, adOpenStatic, adLockOptimistic

En que comento abris la conexion osea el "Cnn"... En ese form o en otro?

Igualment reitero, tenes que cerrar el recorset "Rs" despues de utilizar la consulta, sino te va a tirar ese error en esa linea... Pero quiero saber donde conectas con Cnn, por que puede estar cerrado y ahi te tira el error

[SalomonSab]

Bueno para cerrar creo que con esto se soluciona:

Código:

If Rs.State = 1 Then Rs.Close

Si te fijas en el principio del post viene primero que si esta en uso lo cierre para posteriormente abrirlo pero tal parece que no me lo esta tomando en cuenta. y sigo con mi problema. considerando tu consejo el problema no esta en la conexión si no en el recordset
y respondiendo a tu pregunta habro la conexión en otro Form que es el principal.

Algun otro consejo que me puedan dar.