54 lines
2.1 KiB
VB.net
54 lines
2.1 KiB
VB.net
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
|