42 lines
1.1 KiB
VB.net
42 lines
1.1 KiB
VB.net
Imports System.IO
|
|
Imports System.Data.SqlClient
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Reflection
|
|
|
|
Public Class clsDivFnkt
|
|
|
|
#Region "Deklarationen"
|
|
Dim clsjournaleintrag As New edokaDB.clsJournaleintrag
|
|
|
|
Public Enum Enum_InfoTyp
|
|
Keine = 0
|
|
Information = 1
|
|
Warnung = 2
|
|
Fehler = 3
|
|
End Enum
|
|
|
|
#End Region
|
|
|
|
Public Sub InsertJournale(ByVal Message As String, ByVal sTyp As Enum_InfoTyp)
|
|
Try
|
|
|
|
If sTyp <> Enum_InfoTyp.Keine Then
|
|
End If
|
|
clsjournaleintrag.iJournalnr = New SqlInt32(CType(-3, Int32))
|
|
clsjournaleintrag.daDatumzeit = New SqlDateTime(CType(Now, DateTime))
|
|
clsjournaleintrag.sEintrag = New SqlString(CType(Message, String))
|
|
clsjournaleintrag.cpMainConnectionProvider = Globals.connJournale
|
|
Console.WriteLine(Message)
|
|
Globals.connJournale.OpenConnection()
|
|
clsjournaleintrag.Insert()
|
|
Globals.connJournale.CloseConnection(True)
|
|
Catch ex As Exception
|
|
LogEntry.Writelog(Log.Logtype.Debug, ex.Message)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
|