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

LeoMeldungContainer

Erstellt eine Meldung aus mehreren Zeichenketten nach meinem üblichen Muster.

Stammnamespace
leopoldnet.LeoMeldungContainer

Speicherort
Vb-Projekte Mai 2011; Asus

Beispiel

1.  
2. Imports leo = leopoldnet.LeoMeldungContainer
3.  
4. Public Class Class1
5.     Sub muster()
6.         Dim oMeldung As New _
7.          leo.LeoMeldungContainer(leo.DarstellungTyp.HtmlListe)
8.         With oMeldung
9.             .addMeldung("Fehler im Muster" )
10.             .addMeldung("SQL: " & "Select * From x" )
11.             .addMeldung("Meldung: " & "ex.Message" )
12.         End With
13.          MsgBox("Meldung" , MsgBoxStyle.OkOnly, oMeldung.zeigeMeldungen)
14.     End Sub
15.  End Class

Hä? Ich werde alt!

Na Klasse.

Da schreibe ich den ganzen Tag eine Klasse, nur um festzustellen dass ich vor ca. 2,5 Jahren so etwas schon einmal gemacht habe. Mist.

Gut. Da ich dieses Blog eh nicht nutze, nutze ich es ab heute um meine eigenen Klassen für mich zu protokollieren.
Sowas habe ich zwar schonmal "offline" getan, aber die Liste ist auf irgend einem Rechner verschollen. Daher ab jetzt hier.

Nur zur Erläuterung.