Fix Cultures not applying, remove LIB_STANDARD dependency
This commit is contained in:
@@ -1,5 +1,6 @@
|
||||
Imports DD_LIB_Standards
|
||||
Imports DD_Clipboard_Watcher.ClassHotkey.ModfierKey
|
||||
Imports DigitalData.Modules.Database
|
||||
|
||||
Public Class frmConfig_Basic
|
||||
Dim WithEvents Hotkey As New ClassHotkey(Me)
|
||||
@@ -32,10 +33,10 @@ Public Class frmConfig_Basic
|
||||
MyConnectionString = con 'csb.ConnectionString
|
||||
'clsDatabase.Init(MyConnectionString)
|
||||
If chkbxUserAut.Checked = False Then
|
||||
Dim wrapper As New clsEncryption("!35452didalog=")
|
||||
Dim cipherText As String = wrapper.EncryptData(Me.txtPasswort.Text)
|
||||
Dim pw As String = cipherText
|
||||
con = "Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & pw & ";"
|
||||
con = MSSQLServer.EncryptConnectionString("Server=" & Me.txtServer.Text & ";Database=" & Me.cmbDatenbank.Text & ";User Id=" & Me.txtUser.Text & ";Password=" & Me.txtPasswort.Text & ";")
|
||||
'Dim wrapper As New clsEncryption("!35452didalog=")
|
||||
'Dim cipherText As String = wrapper.EncryptData(Me.txtPasswort.Text)
|
||||
'Dim pw As String = cipherText
|
||||
End If
|
||||
|
||||
'SaveConfigValue("MyConnectionString", con)
|
||||
|
||||
Reference in New Issue
Block a user