Thank you very much for the help. It works of marvel.
But have I another question?
Since I do to update the recorset. for example that wants to change the order that estan showing the consultation.
The initial recorset is:
Code: Select all
oVar := "SELECT * from colores order by CODIGO"
TRY
oLamcla:oRsColore:=tOleAuto():New("ADODB.RecordSet")
CATCH oError
MsgStop( "No se ha podido crear el RECORDSET !","Error de Datos" )
END
oLamcla:oRsColore:CursorLocation := adUseClient //adUseServer
oLamcla:oRsColore:LockType := adLockOptimistic
oLamcla:oRsColore:CursorType := adOpenKeyset
oLamcla:oRsColore:Source := oVar
oLamcla:oRsColore:ActiveConnection( oLamcla:oServer )
Code: Select all
oVar := "SELECT * from colores order by NOMBRE"
In advance thank you for the answer.