clase error

avanzando un poco mas... sería posible entonces que mi función o mejor dicho
cada función devolviera una excepción en caso de que se produzca un error
para poder capturarla desde el códio principal?

Esto sería algo así lo que quiero hacer aunque no comprendo muy bien... cómo

clase llamadora
Try
GraboDatos
Catch as exception
' un mensaje de error generado por mi grabo datos
End Try


clase llamada
GraboDatos
'aca va el codigo por ejemplo que ejecuta un procedimiento almacenado
Si todo va bien
RETURN Grabodatosok
Si Algo va Mal
RETUR DevuelvoExepción con error
Fin SI







"Leonardo Azpurua [mvp vb]" <l e o n a r d o (arroba) m v p s (punto) o r g>
escribió en el mensaje news:%23PA%
Mostrar la cita

"Hugo Gsell" escribió en el mensaje
news:%
Mostrar la cita

si... lo he analizado un poco mejor... y decidí que el error "real" se
muestre (msgbox o lo que sea) en la capa mas baja y chau... a los
sumo la función grabar devuelve un FALSE y listo
De todas formas gracias por 'leerme'
Un saludo

Hola, Hugo:

Si muestras el error en la capa mas baja y luego determinas el resultado
en función de un valor devuelto, ocurriran dos cosas:

1: Los componentes servidores no podran correr como procesos desatendidos.
Eso entorpecerá la reorganización de la aplicacion en componentes
distribuídos

2: Alguien llamará a la función sin evaluar el valor devuelto (cada vez
mas personas asumimos que si algo anda mal se generará una excepción),
ignorará un código de error y acabará produciendo un resultado
inimaginable y castrofico.

Igual los problemas no son tan evidentes ahora: tu aplicacion no parece
necesitar un entorno distribuido y solo la mantienes tu, que eres
infalible y jamás dejas de chequear los valores devueltos por las
funciones.

Pero el futuro es impredecible. Igual aciertas y tu aplicacion comienza a
venderse como pan caliente y tienes que contratar ayuda. O bien te la
compra General Motors, y deciden que quieren que los componentes de
soporte estén en su servidor corporativo de Detroit (o te piden que
desarrolles una interfaz Web). Y en ese momento tienes que rehacer buena
parte de la aplicación o establecer y documentar unos estándares
irracionales (no confíen en las excepciones) y estrictos (para que nunca
nadie olvide verificar el valor devuelto por las funciones).

No es lo mismo darle un mateo a un procedimiento que determinar la manera
en que se comunicarán entre si los diferentes componentes funcionales.

Lo que estas tomando es una decisión "de arquitectura", es decir
fundamental. Y es una pésima decision.


Salud!

"Hugo Gsell" escribió en el mensaje
news:%
Mostrar la cita

avanzando un poco mas... sería posible entonces que mi función o mejor
dicho cada función devolviera una excepción en caso de que se produzca un
error para poder capturarla desde el códio principal?

Esto sería algo así lo que quiero hacer aunque no comprendo muy bien...
cómo

clase llamadora
Try
GraboDatos
Catch as exception
' un mensaje de error generado por mi grabo datos
End Try


clase llamada
GraboDatos
'aca va el codigo por ejemplo que ejecuta un procedimiento almacenado
Si todo va bien
RETURN Grabodatosok
Si Algo va Mal
RETUR DevuelvoExepción con error
Fin SI

Hola, Hugo:

La estructura genera de un componente responsable de la ejecución de un
proceso es esta:

Public Sub ProcesarTalCosa()
Try
PrepararEntorno
IniciarTransaccion
ProcesoAEjecutar
ConfirmarTransaccion
Catch ex As Exception ' esto puede ser mas complicado
CancelarTransaccion
LevantarExcepcion ' para el proceso que llama
Finally
RestablecerEntornoOriginal
End Try
End Sub

Si cualquier funcion llamada dentro de «ProcesoAEjecutar» produjere una
excepcion, controlada o no, será capturada dentro del bloque del
controlador, que pone todo como estaba al principio y le envia una excepcion
al cliente, que a su vez no tiene mas que hacer que notificarle al usuario.

Private Sub cbProcesar_Click(Sender As Object, e As EventArgs) _
Handles
cbProcesar.Click
Try
ProcesarTalCosa()
ReiniciarForma()
Catch Ex As Excepcion
ManejarExcepcion(Ex)
End Try
End Sub

Donde puse "ManejarExcepcion(Ex)" puedes implementar un manejo de errores
con el nivel de sofisticacion que quieras: desde pasar la excepcion (como
argumento) a una clase que maneje la notificacion al usuario y almacene una
traza para efectos de auditoría de errores (estudia a fondo la estructura de
la clase Exception y de sus derivadas: es sorprendente toda la informacion
que puedes obtener de ellas) hasta ignorarla o abrir un simple cuadro de
mensaje.

Las funciones deberian dejarse *solamente* para calcular y devolver valores
necesarios para la lógica de la aplicación. En la medida de lo posible, los
errores deberían manejarse mediante excepciones.

Salud!

Como siempre excelente y simple la respuesta.
Por lo menos así lo veo yo.

Hugo A. Gsell
Sgo del Estero
Argentina

"Leonardo Azpurua [mvp vb]" <l e o n a r d o (arroba) m v p s (punto) o r g>
escribió en el mensaje news:
Mostrar la cita

"Hugo Gsell" escribió en el mensaje
news:%
Mostrar la cita

avanzando un poco mas... sería posible entonces que mi función o mejor
dicho cada función devolviera una excepción en caso de que se produzca un
error para poder capturarla desde el códio principal?

Esto sería algo así lo que quiero hacer aunque no comprendo muy bien...
cómo

clase llamadora
Try
GraboDatos
Catch as exception
' un mensaje de error generado por mi grabo datos
End Try


clase llamada
GraboDatos
'aca va el codigo por ejemplo que ejecuta un procedimiento almacenado
Si todo va bien
RETURN Grabodatosok
Si Algo va Mal
RETUR DevuelvoExepción con error
Fin SI

Hola, Hugo:

La estructura genera de un componente responsable de la ejecución de un
proceso es esta:

Public Sub ProcesarTalCosa()
Try
PrepararEntorno
IniciarTransaccion
ProcesoAEjecutar
ConfirmarTransaccion
Catch ex As Exception ' esto puede ser mas complicado
CancelarTransaccion
LevantarExcepcion ' para el proceso que llama
Finally
RestablecerEntornoOriginal
End Try
End Sub

Si cualquier funcion llamada dentro de «ProcesoAEjecutar» produjere una
excepcion, controlada o no, será capturada dentro del bloque del
controlador, que pone todo como estaba al principio y le envia una
excepcion al cliente, que a su vez no tiene mas que hacer que notificarle
al usuario.

Private Sub cbProcesar_Click(Sender As Object, e As EventArgs) _
Handles
cbProcesar.Click
Try
ProcesarTalCosa()
ReiniciarForma()
Catch Ex As Excepcion
ManejarExcepcion(Ex)
End Try
End Sub

Donde puse "ManejarExcepcion(Ex)" puedes implementar un manejo de errores
con el nivel de sofisticacion que quieras: desde pasar la excepcion (como
argumento) a una clase que maneje la notificacion al usuario y almacene
una traza para efectos de auditoría de errores (estudia a fondo la
estructura de la clase Exception y de sus derivadas: es sorprendente toda
la informacion que puedes obtener de ellas) hasta ignorarla o abrir un
simple cuadro de mensaje.

Las funciones deberian dejarse *solamente* para calcular y devolver
valores necesarios para la lógica de la aplicación. En la medida de lo
posible, los errores deberían manejarse mediante excepciones.

Salud!

una pregunta mas haber digamos que uso dos capas .. presentación y
accesoadatos

En acceso a datos hace algo como

Grabaregistro(parametros a grabar)
abrebase
abretabla
grabadatos
dispose
Finaccesoadatos

ahora bien para que el cath funcione en la capa llamadora.
debo NO PONER CONTROL DE TRY ... CATH en Grabaregistro... supongamos que
ocurre un error al conectarse a la base de datos
Si pongo el control lo captura allá y en mi clicengrabar ni me entero..
ahora si no pongo el control ocurre el error y la captura se trasala al
clcengrabar
¿ESTO ES LO QUE ESTAS PLANTEANDO?
¿CREES QUE ESTÁ BIEN HACERLO ASÍ?



sub clicengrabar
SiControlDatosOk
TRY
Grabaregistro
CATCH ex exception
MSGBOX ex.message
EndTry
FinSi

end sub


Hugo A. gsell
Sgo del Estero
Argentina





"Leonardo Azpurua [mvp vb]" <l e o n a r d o (arroba) m v p s (punto) o r g>
escribió en el mensaje news:
Mostrar la cita

"Hugo Gsell" escribió en el mensaje
news:%
Mostrar la cita

avanzando un poco mas... sería posible entonces que mi función o mejor
dicho cada función devolviera una excepción en caso de que se produzca un
error para poder capturarla desde el códio principal?

Esto sería algo así lo que quiero hacer aunque no comprendo muy bien...
cómo

clase llamadora
Try
GraboDatos
Catch as exception
' un mensaje de error generado por mi grabo datos
End Try


clase llamada
GraboDatos
'aca va el codigo por ejemplo que ejecuta un procedimiento almacenado
Si todo va bien
RETURN Grabodatosok
Si Algo va Mal
RETUR DevuelvoExepción con error
Fin SI

Hola, Hugo:

La estructura genera de un componente responsable de la ejecución de un
proceso es esta:

Public Sub ProcesarTalCosa()
Try
PrepararEntorno
IniciarTransaccion
ProcesoAEjecutar
ConfirmarTransaccion
Catch ex As Exception ' esto puede ser mas complicado
CancelarTransaccion
LevantarExcepcion ' para el proceso que llama
Finally
RestablecerEntornoOriginal
End Try
End Sub

Si cualquier funcion llamada dentro de «ProcesoAEjecutar» produjere una
excepcion, controlada o no, será capturada dentro del bloque del
controlador, que pone todo como estaba al principio y le envia una
excepcion al cliente, que a su vez no tiene mas que hacer que notificarle
al usuario.

Private Sub cbProcesar_Click(Sender As Object, e As EventArgs) _
Handles
cbProcesar.Click
Try
ProcesarTalCosa()
ReiniciarForma()
Catch Ex As Excepcion
ManejarExcepcion(Ex)
End Try
End Sub

Donde puse "ManejarExcepcion(Ex)" puedes implementar un manejo de errores
con el nivel de sofisticacion que quieras: desde pasar la excepcion (como
argumento) a una clase que maneje la notificacion al usuario y almacene
una traza para efectos de auditoría de errores (estudia a fondo la
estructura de la clase Exception y de sus derivadas: es sorprendente toda
la informacion que puedes obtener de ellas) hasta ignorarla o abrir un
simple cuadro de mensaje.

Las funciones deberian dejarse *solamente* para calcular y devolver
valores necesarios para la lógica de la aplicación. En la medida de lo
posible, los errores deberían manejarse mediante excepciones.

Salud!

La idea es capturar y procesar el error donde sea necesario. Si no se va a
hacer nada con el error entonces este debería pasar al nivel superior y asi
hasta que en algun lugar se lo procese o nos haga caer la aplicacion. Por
ejemplo aqui solo procesaria un tipo de excepcion dejando que las demas
pasen al nivel anterior:

Sub HacerAlgo()

Try

Catch ExcepcionQuePuedoControlarAqui

Finally

End Try

End Sub

Algo a tener en cuenta tambien es que las excepciones son costosas y tienes
que tratar de evitarlas. Por ejemplo en lugar de esperar a que se genere una
excepcion al abrir un archivo te fijas primero si existe. Y en el caso de
tus funciones si no necesitas informacion extra es mejor devolver un valor
no valido que lanzar una excepcion. Por ejemplo si buscas un cliente es
mejor:

cliente = BuscarCliente()

If cliente Is Nothing Then
MsgBox("Cliente no encontrado")
End If

Que:

Try
cliente = BuscarCliente()
Catch ex As ClienteNoEncontradoException
MsgBox("Cliente no encontrado")
End Try


Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo
http://mvp.support.microsoft.com/pr...4EF5A4191C