MS IDB Anbindung RightClick und Events

This commit is contained in:
2020-08-17 11:23:11 +02:00
parent 64d957a217
commit 1698e9cc97
21 changed files with 790 additions and 15 deletions

21
SearchIDB/OTypeSearch.vb Normal file
View File

@@ -0,0 +1,21 @@
Imports DigitalData.Modules.Database
Imports DigitalData.Modules.Logging
Public Class OTypeSearch
Private _Database As MSSQLServer
Private LogConfig As LogConfig
Private Logger As Logger
Public Username As String
Public User_Language As String
Public ConnStringIDB As String
Public Sub Init(LogConfig As LogConfig, ConnectionStringIDB As String, Username As String, UserLanguage As String)
Me.LogConfig = LogConfig
Me.Logger = LogConfig.GetLogger()
Me.ConnStringIDB = ConnectionStringIDB
Me.Username = Username
Me.User_Language = UserLanguage
Me._Database = New MSSQLServer(LogConfig, ConnectionStringIDB)
Dim oSQL = "SELECT * FROM "
End Sub
End Class