SqlExceptionMeldung

Erstellt eine Meldung bei einem Ausnahmefehler während einer Datenbankaktion nach meinem üblichen Muster.

Stammnamespace
leopoldnet.LeoMeldungContainer

Speicherort
VB-Projekte Mai 2011; Asus

Beispiel

1. Imports leo = leopoldnet.LeoMeldungContainer
2. Imports System.Data.SqlClient
3.  
4. Public Class Class1
5.     Sub x()
6.         Dim sSql As String , oCmd As SqlCommand, oCn As SqlConnection
7.         Dim oMeldung As leo.SqlExceptionMeldung
8.         sSql = "Delete from Muster"
9.          oCn = New SqlConnection("nixda" )
10.         oCn.Open()
11.         Try
12.              oCmd = New SqlCommand(sSql, oCn)
13.             oCmd.ExecuteNonQuery()
14.         Catch ex As Exception
15.             oMeldung = New leo.SqlExceptionMeldung
16.             With oMeldung
17.                 .Nachricht = "Fehler bei x"
18.                  .Sql = sSql
19.                 .ExceptionMeldung = ex.Message
20.                 .Typ = leo.DarstellungTyp.Zeilenumbruch
21.             End With
22.              MsgBox(oMeldung.erstelleMeldung)
23.         End Try
24.          oCn.Close()
25.     End Sub
26.  End Class

Hinweis
Es existiert auch eine "shared"-Methode um auf eine Instanz verzichten zu können: erstelleSqlExceptionMeldung