Visual Basic - No me actualiza MSHFlexGrid con un ADODC

Life is soft - evento anual de software empresarial
 
Vista:

No me actualiza MSHFlexGrid con un ADODC

Publicado por Any (15 intervenciones) el 02/02/2003 23:48:49
Estoy usando un MSHFlexGrid con un ADODC y cuando actualizo los datos del adodc no se me refrescan los datos de la grilla. Si yo llamo desde el botón que busca a la función para actualizar los datos de la grilla los datos del MSHFlexGrid se refrescan pero si yo llamo a esa misma función desde donde estoy actualizando los datos la grilla no se refrescan. Alguien tiene idea porque me pasa esto o como hacer para solucionarlo?

Funcion que actualiza:

Sub ActualizarGrilla()
On Error GoTo ActualizarGrilla_Err

Screen.MousePointer = vbHourglass
sSQL = \"SELECT Usuario, Apellido_Usuario, Nombre_Usuario, Permiso_Usuario \"
sSQL = sSQL & \"FROM Usuarios WHERE Activo_Usuario = \" & CVnx(xTxt_Activo) & \" \"
If sTxt_Usuario <> \"\" Then
sSQL = sSQL & \"AND Usuario Like \'%\" & CVne(sTxt_Usuario) & \"%\' \"
End If
Ado_Usuarios.ConnectionString = sCon
Ado_Usuarios.RecordSource = sSQL
Ado_Usuarios.Refresh
Set Grd_Usuario.DataSource = Ado_Usuarios
Grd_Usuario.Refresh

ActualizarGrilla_Exit:
Screen.MousePointer = vbArrow
Exit Sub
ActualizarGrilla_Err:
MostrarError \"ActualizarGrilla\"
Resume ActualizarGrilla_Exit
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder