numero de error

"Hugo Gsell" preguntó:

cuando hao un try... catch ex exception ... end try... si se produce el
error (cath)
¿como recupero en nro de error?

Hola:

No has indicado el espacio de nombres de datos con los cuales trabajas. De
todos modos, los tres espacios de nombres de System.Data (OleDb, SqlClient y
Odbc) disponen de sus correspondientes objetos Exception (OleDbException,
SqlException y OdbcException, respectivamente), los cuales tienen una
colección llamada «Errors», que la puedes recorrer fácilmente en un bucle.

Por ejemplo, si trabajas con el espacio de nombres OleDb, y deseas
interceptar una excepción producida por los objetos incluidos en dicho
espacio de nombres, el bloque Try ... End Try quedaría de la siguiente
manera:

Try
' Instrucciones a ejecutar

Catch ex As OleDbException

' Recorrermos la colección Errors
'
Dim n As Integer
For n = 0 To ex.Errors.Count - 1
MessageBox.Show(ex.Errors(n).Message)
Next

Catch ex As Exception
' Otras excepciones que se produzcan
MessageBox.Show(ex.Message)

Finally
' Instrucciones de cierre

End Try

Te hago la observación que, para atrapar las excepciones de un objeto en
concreto, deberás de escribir primero las instrucciones «Catch»
pertenecientes a dicho objeto, y en última posición, el objeto «Exception»
genérico, para interceptar otras excepciones generales que se puedan
producir, tal y como queda demostrado en el ejemplo expuesto.

Un saludo

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

Ademas de lo que dice Enrique, quizas te simplifique las cosas en la
aplicacion si creas tus propias excepciones y las lanzas desde tu capa base.
Por ejemplo, creas un ClaveDuplicadaException y la lanzas en lugar de pasar
la excepcion OleDb o Sql:

...
Catch ex As OleDbException

Select Case ex.ErrorCode
Case xxxx
Throw New ClaveDuplicadaException()
...
End Select
...

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

Si usas SQLServer, quizás te valga esto:

...
Generating Errors from Stored Procedures

Transact-SQL (T-SQL) provides a RAISERROR (note the spelling) function,
which you can use to generate custom errors and return them to the client.
For ADO.NET clients, the SQL Server .NET Data Provider intercepts these
database errors and translates them to SqlError objects.

The simplest way to use the RAISERROR function is to include the message
text as the first parameter, and then specify severity and state
parameters, as shown in the following code fragment.

RAISERROR( 'Unknown Product ID: %s', 16, 1, @ProductID )


In this example, a substitution parameter is used to return the current
product ID as part of the error message text. Parameter two is the message
severity, and parameter three is the message state.
More Information

* To avoid hard coding message text, you can add your own message to the
sysmessages table by using the sp_addmessage system stored procedure, or by
using the SQL Server Enterprise Manager. You can then reference the message
by using an ID passed to the RAISERROR function. The message IDs that you
define must be greater than 50,000, as shown in the following code
fragment.

RAISERROR( 50001, 16, 1, @ProductID )


* For full details relating to the RAISERROR function, look up RAISERROR
in the SQL Server Books Online index.
...

http://msdn.microsoft.com/library/e...frame=true


Desde Aguadulce - España
Carlos Gomez