Amigos, hace mucho que no uso VB y estoy un poco trabado con un codigo y me gustaria ver si podrian ayudarme con esto que me esta quemando la cabeza.
el codigo es el siguiente:
Código:
Private Sub Text1_Change()
On Error Resume Next
rs.Open "select * from tbl_pacientes where apellido LIKE '%" & Me.Text1.Text & "%'", cnn, adOpenStatic, adLockOptimistic
With DataGrid
.AllowUpdate = False
End With
Call CargarDataGrid(DataGrid)
End Sub
Funciona perfectamente, pero el problema es que como está en un Text1_Change, al presionar la letra por segunda vez, me salta un error indicando lo siguiente:
"La operacion no esta permitida si el objeto esta abierto"
Es obvio este mensaje, dado a que nunca cerre el objeto y al colocarle un rs.close en el objeto, el mismo se cierra y no se vuelve a abrir...
Código:
Private Sub Text1_Change()
On Error Resume Next
rs.Open "select * from tbl_pacientes where apellido LIKE '%" & Me.Text1.Text & "%'", cnn, adOpenStatic, adLockOptimistic
With DataGrid
.AllowUpdate = False
End With
Call CargarDataGrid(DataGrid)
rs.close 'agrego esto, pero la connecion se cierra forever...
End Sub
Me gustaria saber si existe alguna forma de realizar esto, es decir, que cuando una persona tipee una letra, automaticamente vallan apareciendo los datos en el datagird.
Quedo por favor a la espera de cualquier ayuda al respecto.
Muchas gracias.