AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

First pass of new config

Browse Source
This commit is contained in:
Jonathan Jenne
2019-04-16 12:39:48 +02:00
parent 93bd7d0733
commit 4c86bd4c5c
28 changed files with 984 additions and 1127 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD_PM_WINDREAM/frmSQL_Admin.vb
View File

@@ -19,7 +19,7 @@ Public Class frmSQL_Admin
Try
Me.Cursor = Cursors.WaitCursor
Dim connection As New SqlClient.SqlConnection(MyConnectionString) 'csb.ConnectionString)
Dim connection As New SqlClient.SqlConnection(CONNECTION_STRING) 'csb.ConnectionString)
connection.Open()
Dim cmd As New SqlClient.SqlCommand(txtSQL.Text, connection)
cmd.ExecuteNonQuery()
@@ -38,7 +38,7 @@ Public Class frmSQL_Admin
End Sub
Sub Load_ConString(constr As String)
Dim csb As New SqlClient.SqlConnectionStringBuilder
csb.ConnectionString = MyConnectionString
csb.ConnectionString = CONNECTION_STRING
If csb.Password.Length > 0 Then
constr = constr.Replace(csb.Password, "XXXXX")
End If
@@ -66,7 +66,7 @@ Public Class frmSQL_Admin
End Sub
Private Sub frmSQL_Admin_Load(sender As Object, e As EventArgs) Handles Me.Load
Load_ConString(MyConnectionString)
Load_ConString(CONNECTION_STRING)
End Sub
Private Sub txtSQL_KeyPress_1(sender As Object, e As KeyPressEventArgs) Handles txtSQL.KeyPress