46 lines
1.4 KiB
VB.net
46 lines
1.4 KiB
VB.net
Imports System.Data.SqlClient
|
|
Imports System.IO
|
|
Imports WINDREAMLib
|
|
Imports DigitalData.Modules.Logging
|
|
Public Class ClassMO_REOld
|
|
Private Shared _Logger As DigitalData.Modules.Logging.Logger
|
|
Private Shared _windreamNI As ClassNIWindream
|
|
Sub New(LogConfig As LogConfig)
|
|
_Logger = LogConfig.GetLogger
|
|
_windreamNI = New ClassNIWindream(LogConfig)
|
|
End Sub
|
|
Public Shared Function Return_Datatable(Select_anweisung As String)
|
|
Try
|
|
Return DB_ECM.GetDatatable(Select_anweisung)
|
|
Catch ex As Exception
|
|
_Logger.Error(ex)
|
|
|
|
Return Nothing
|
|
End Try
|
|
End Function
|
|
Public Shared Function Execute_Command(ExecuteCMD As String)
|
|
Try
|
|
|
|
Return DB_ECM.ExecuteNonQuery(ExecuteCMD)
|
|
Catch ex As Exception
|
|
_Logger.Error(ex)
|
|
|
|
'ClassLoggerNI.Add("###FEHLER IN MO_RE Execute_Command: " & ex.Message & " SQL: " & ExecuteCMD)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
Private Shared Function file_exists(ByVal _file As String, ByVal suche As Boolean)
|
|
Try
|
|
_file = _file.Replace("W:", "\\windream\objects")
|
|
If System.IO.File.Exists(_file) Then
|
|
Return True
|
|
Else
|
|
Return False
|
|
End If
|
|
Catch ex As Exception
|
|
_Logger.Error(ex)
|
|
Return False
|
|
End Try
|
|
End Function
|
|
End Class
|