remove obsolete mysqlserver methods

Modules.Database/MSSQLServer.vb

@@ -108,7 +108,7 @@ Public Class MSSQLServer
                 Return Nothing
             End If
 
-            _Logger.Debug("Running Query: {0}", SqlCommand)
+            _Logger.Debug("GetDatatable: Running Query [{0}]", SqlCommand)
 
             Using oConnection = GetSQLConnection()
                 Using oSQLCOmmand = oConnection.CreateCommand()
@@ -123,7 +123,8 @@ Public Class MSSQLServer
             End Using
         Catch ex As Exception
             _Logger.Error(ex)
-            _Logger.Warn("sqlcommand: " & SqlCommand)
+            _Logger.Warn("GetDatatable failed with:")
+            _Logger.Warn("SQL Query: {0}", SqlCommand)
             Return Nothing
         End Try
     End Function
@@ -138,7 +139,7 @@ Public Class MSSQLServer
                 Return Nothing
             End If
 
-            _Logger.Debug("Running Query: {0}", SqlCommand)
+            _Logger.Debug("GetDatatableWithConnection: Running Query [{0}]", SqlCommand)
 
             Using oConnection = GetSQLConnection(ConnectionString)
                 Using oSQLCOmmand = oConnection.CreateCommand()
@@ -155,22 +156,11 @@ Public Class MSSQLServer
             _Logger.Error(ex)
             _Logger.Warn("GetDatatableWithConnection failed with:")
             _Logger.Warn("ConnectionString: ")
-            _Logger.Warn("SQL Query: " & SqlCommand)
+            _Logger.Warn("SQL Query: {0}", SqlCommand)
             Return Nothing
         End Try
     End Function
 
-    ''' <summary>
-    ''' Executes the passed sql-statement 
-    ''' </summary>
-    ''' <param name="executeStatement">the sql statement</param>
-    ''' <returns>Returns true if properly executed, else false</returns>
-    ''' <remarks></remarks>
-    Public Function NewExecutenonQuery(executeStatement As String) As Boolean
-        '_Logger.Warn("NewExecutenonQuery is deprecated. Use ExecuteNonQuery instead.")
-        Return ExecuteNonQuery(executeStatement)
-    End Function
-
     Public Function ExecuteNonQuery(SQLCommand As String, Timeout As Integer) As Boolean Implements IDatabase.ExecuteNonQuery
         Try
             If TestCanConnect() = False Then
@@ -189,7 +179,8 @@ Public Class MSSQLServer
             End Using
         Catch ex As Exception
             _Logger.Error(ex)
-            _Logger.Warn("executeStatement: " & SQLCommand)
+            _Logger.Warn("ExecuteNonQuery failed:")
+            _Logger.Warn("SQL Query: " & SQLCommand)
             Return False
         End Try
     End Function
@@ -220,16 +211,6 @@ Public Class MSSQLServer
         Return ExecuteNonQuery(SQLCommand, _Timeout)
     End Function
 
-    ''' <summary>
-    ''' Executes the passed sql-statement as Scalar
-    ''' </summary>
-    ''' <param name="ScalarSQL">the sql statement</param>
-    ''' <returns>Returns true if properly executed, else false</returns>
-    Public Function NewExecuteScalar(ScalarSQL As String) As Object
-        _Logger.Warn("NewExecuteScalar is deprecated. Use GetScalarValue instead.")
-        Return GetScalarValue(ScalarSQL)
-    End Function
-
     Public Function GetScalarValue(SQLCommand As String, Timeout As Integer) As Object Implements IDatabase.GetScalarValue
         Try
             If TestCanConnect() = False Then
@@ -286,7 +267,7 @@ Public Class MSSQLServer
                 Return Nothing
             End If
 
-            _Logger.Debug("Running Query: {0}", SQLCommand)
+            _Logger.Debug("GetScalarValue: Running Query [{0}]", SQLCommand)
 
             If SQLCommand.CommandText.Contains(" ") Then
                 SQLCommand.CommandType = CommandType.Text
@@ -349,7 +330,7 @@ Public Class MSSQLServer
             Exit Sub
         End If
 
-        _Logger.Debug("Running Query: {0}", SqlCommand)
+        _Logger.Debug("NewExecuteNonQueryAsync: Running Query [{0}]", SqlCommand)
 
         Try
             Dim oCallback As New AsyncCallback(AddressOf NewExecuteNonQueryAsync_Callback)