Saber Exceptión
Publicado por Miguel Ángel (20 intervenciones) el 18/07/2019 01:16:50
Hola !!! Por favor, me gustaría saber como saber que error (Exception) se produce, para así poder actuar en consecuencia.
En el siguiente código, intento que si el usuario ha ingresado en tu textBox un valor nulo, me lo detecte y me lance mi MsgBox con mi mensaje personalizado, y lo mismo con una clave duplicada en un textBox que ambos están vinculados a una base de datos.
Muchísimas gracias !!!
Mas que nada, sería para controlar mas los errores e indicarle al Usuario que lo ha producido y que ha de hacer para solventarlo.
Unos cuantos millones de gracias por su ayuda ;-)
En el siguiente código, intento que si el usuario ha ingresado en tu textBox un valor nulo, me lo detecte y me lance mi MsgBox con mi mensaje personalizado, y lo mismo con una clave duplicada en un textBox que ambos están vinculados a una base de datos.
Muchísimas gracias !!!
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub TrabajadoresBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrabajadoresBindingNavigatorSaveItem.Click
Try ' Controlo el error al salvar un item
Me.Validate()
Me.TrabajadoresBindingSource.EndEdit()
Me.TrabajadoresTableAdapter.Update(Me.RegistrosDataSet.Trabajadores)
Catch Ex As Exception
MsgBox(Ex.Message, MsgBoxStyle.Critical, "Error producido")
>>>>>>> ' LO QUE SIGUE Esto es lo que yo quisiera :-( <<<<<<<<<
If DNITextBox.Text = "" Then '>>>>>>> o Catch Ex As ErrorDeCampoNull y ErrorDeCaveUnicaDuplicada<<<<<<<<<
Dim Msj As String
Msj = "No se puede dejar," & Chr(13) & " el campo DNI del trabajador vacío."
MsgBox(Msj, MsgBoxStyle.Exclamation, "Campo obligatorio vacío:")
DNITextBox.Focus() 'Si está vacío pon el foco
End If
End Try
End Sub
Mas que nada, sería para controlar mas los errores e indicarle al Usuario que lo ha producido y que ha de hacer para solventarlo.
Unos cuantos millones de gracias por su ayuda ;-)
Valora esta pregunta
0