22 lines
745 B
VB.net
22 lines
745 B
VB.net
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
|