Combobox

[Lalybs]

Buenas tardes eh aquí con una nueva consulta: Tengo un text en el cual cargo un código de Pelicula, dependiendo el número del text se cargan las etiquetas en el combo, al seleccionar una etiqueta cambia de estado.. a no disponible, la idea es que desaparezca del combo una vez que se haya seleccionado y cargado en la base..
Este es el ejemplo que hice:

Private Sub text7_change()
Dim ry As New ADODB.recordset
ry.Open "SELECT * FROM Ejemplares WHERE idpelicula = " & Text7.Text & " And idpelicula = " & Text7.Text & " and idestado=1", con, adOpenKeyset, adLockOptimistic, adCmdText
While Not ry.EOF
Combo1.AddItem ry!Etiqueta
' Combo1.ListIndex = 0
ry.MoveNext
Wend
ry.Close
ry.Open "UPDATE Ejemplares SET Idestado=2 WHERE Etiqueta=" & "'" & Combo1.Text & "'"
End Sub
pero no lo esta quitando del combo. se agradece de ante mano.. Saludos!

[pkj]

No se que es eso de ADODB, asi que no se como funciona, pero si estás hablando de quitar elementos de un combo, en tu sub lo que haces es cargarlo con additem, pero no veo ningun removeitem para eliminarlo una vez llevado a donde sea que dices.

Siento no ser de más ayuda.

[seba123neo]

aparte nunca estas limpiando el combo con .Clear y te va a ir acumulando y acumulando registros....yo dira que te leas un manual de visual basic, aparte los recordset no se declaran asi y los UPDATE o INSERTS generalmente se hacen con comandos.

saludos.