Yamil,
Usando esto:
- Code: Select all Expand view
BEGIN SEQUENCE
::oConnection:Open( cConnString, cUserId, cPassword, nOptions)
RECOVER USING oError
lResult := .F.
MsgStop(oError:Operation+CRLF+oError:Description,"Ado Connection")
MsgInfo("Yeahhh")
END SEQUENCE
Donde ::oConnection es un objeto Connection de ADO debería de capturar el error y seguir en RECOVER USING. No obstante, esto no evita que salga el mensaje de error de ADO y los que
añadas.
No obstante, si no te es mucho inconveniente, podrías usar xHarbour y dejar el código de la siguiente manera:
- Code: Select all Expand view
TRY
::oConnection:Open( cConnString, cUserId, cPassword, nOptions)
CATCH oError
lResult := .F.
MsgStop(oError:Operation+CRLF+oError:Description,"Ado Connection")
END
En este caso, el único mensaje que aparecerá es el que tu muestras con el MsgStop. Si quieres ver algunos ejemplos y dos clases básicas para utilizar ADO con xharbour, están en
www.capelblog.comEspero haberte sido de ayuda.
Saludos,
José Luis Capel
www.capelblog.com