Initial commit

Archiv/EDKB01/clsLog.vb

@@ -0,0 +1,53 @@
+Imports System
+Imports System.Configuration
+Imports System.Data
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Public Class clsLog
+    Dim m_journalid As Long
+    Dim m_applikationid As Long
+
+    Dim clsapplikation As New edokadb.clsApplikation()
+    Dim clsjournal As New edokadb.clsJournal()
+    Dim clsjournaleintrag As New edokadb.clsJournaleintrag()
+
+    Public Sub Startlog(ByVal ApplicationID As Integer)
+        clsapplikation.iApplikationnr = New SqlInt32(CType(ApplicationID, Int32))
+        clsapplikation.cpMainConnectionProvider = conn_journale
+        clsapplikation.SelectOne()
+        Me.m_applikationid = clsapplikation.iApplikationnr.Value
+
+        clsjournal.daStart = New SqlDateTime(CType(Now, DateTime))
+        clsjournal.iApplikationnr = New SqlInt32(CType(Me.m_applikationid, Int32))
+        clsjournal.bFehlerhaft = New SqlBoolean(CType(False, Boolean))
+        clsjournal.sFehlerbeschreibung = New SqlString(CType("", String))
+        clsjournal.cpMainConnectionProvider = conn_journale
+        conn_journale.OpenConnection()
+        clsjournal.Insert()
+        Me.m_journalid = clsjournal.iJournalnr.Value
+        conn_journale.CloseConnection(True)
+    End Sub
+
+    Public Sub InsertJournale(ByVal Message As String)
+        clsjournaleintrag.iJournalnr = New SqlInt32(CType(Me.m_journalid, Int32))
+        clsjournaleintrag.daDatumzeit = New SqlDateTime(CType(Now, DateTime))
+        clsjournaleintrag.sEintrag = New SqlString(CType(Message, String))
+        clsjournaleintrag.cpMainConnectionProvider = conn_journale
+        Console.WriteLine(Message)
+        conn_journale.OpenConnection()
+        clsjournaleintrag.Insert()
+        conn_journale.CloseConnection(True)
+    End Sub
+
+    Public Sub StopLog(ByVal applicationid As Integer)
+        clsapplikation.iApplikationnr = New SqlInt32(CType(applicationid, Int32))
+        clsapplikation.cpMainConnectionProvider = conn_journale
+        clsapplikation.SelectOne()
+        clsapplikation.daLastrun = New SqlDateTime(CType(Now, DateTime))
+        conn_journale.OpenConnection()
+        clsapplikation.Update()
+        conn_journale.CloseConnection(True)
+    End Sub
+
+End Class