Common: Dont swallow sql exceptions

This commit is contained in:
Jonathan Jenne 2021-04-29 16:05:28 +02:00
parent 91ad6fe33d
commit fc014a57ef

View File

@ -47,6 +47,8 @@ Namespace Base
Select Case oNumber
Case 2627
oMessage = "Es wurde ein Doppelter Wert in eine Spalte eingetragen, die einzigartig sein muss."
Case Else
oMessage = Exception.Message
End Select
ElseIf TypeOf Exception Is NoNullAllowedException Then
oMessage = "Einige benötigte Felder wurde nicht ausgefüllt."