Release

app/DD_PM_WINDREAM/frmSQL_Admin.vb

@@ -7,7 +7,7 @@ Public Class frmSQL_Admin
     Private Sub btnrunSQL_Click(sender As Object, e As EventArgs) Handles btnrunSQL.Click
         If txtSQL.Text <> "" Then
             If txtSQL.Text.ToLower.StartsWith("select") Then
-                Dim dt As DataTable = ClassDatabase.Return_Datatable(txtSQL.Text, "btnrunSQL_Click")
+                Dim dt As DataTable = Database_ECM.GetDatatable(txtSQL.Text) ', "btnrunSQL_Click")
                 If Not dt Is Nothing Then
                     XtraTabControl1.SelectedTabPageIndex = 1
                     BindingSource1.DataSource = dt
@@ -19,7 +19,7 @@ Public Class frmSQL_Admin
                     Try
                         Me.Cursor = Cursors.WaitCursor
 
-                        Dim connection As New SqlClient.SqlConnection(CONNECTION_STRING) 'csb.ConnectionString)
+                        Dim connection As New SqlClient.SqlConnection(CONNECTION_STRING_ECM) 'csb.ConnectionString)
                         connection.Open()
                         Dim cmd As New SqlClient.SqlCommand(txtSQL.Text, connection)
                         cmd.ExecuteNonQuery()
@@ -39,7 +39,7 @@ Public Class frmSQL_Admin
     End Sub
     Sub Load_ConString(constr As String)
         Dim csb As New SqlClient.SqlConnectionStringBuilder
-        csb.ConnectionString = CONNECTION_STRING
+        csb.ConnectionString = CONNECTION_STRING_ECM
         If csb.Password.Length > 0 Then
             constr = constr.Replace(csb.Password, "XXXXX")
         End If
@@ -68,7 +68,7 @@ Public Class frmSQL_Admin
     End Sub
 
     Private Sub frmSQL_Admin_Load(sender As Object, e As EventArgs) Handles Me.Load
-        Load_ConString(CONNECTION_STRING)
+        Load_ConString(CONNECTION_STRING_ECM)
     End Sub
 
     Private Sub txtSQL_KeyPress_1(sender As Object, e As KeyPressEventArgs) Handles txtSQL.KeyPress