Database: remove baseclass

This commit is contained in:
Jonathan Jenne
2019-08-29 11:27:06 +02:00
parent 718c77ccdd
commit 64a195018a
5 changed files with 38 additions and 31 deletions

View File

@@ -2,8 +2,6 @@
Imports DigitalData.Modules.Logging
Public Class ODBC
Inherits BaseClass
Private _Logger As Logger
Private _LogConfig As LogConfig
@@ -88,7 +86,7 @@ Public Class ODBC
''' </summary>
''' <param name="SqlCommand">The command to execute</param>
''' <returns>True, if command was executed sucessfully. Otherwise false.</returns>
Public Overrides Function ExecuteNonQuery(SqlCommand As String) As Boolean
Public Function ExecuteNonQuery(SqlCommand As String) As Boolean
Dim oConnection As OdbcConnection = GetConnection()
Dim oScalarValue As Object = ExecuteNonQueryWithConnection(SqlCommand, oConnection)
oConnection.Close()
@@ -128,7 +126,7 @@ Public Class ODBC
''' </summary>
''' <param name="SqlQuery">The query to execute</param>
''' <returns>A datatable containing the results if the command was executed successfully. Nothing otherwise.</returns>
Public Overrides Function GetScalarValue(SqlQuery As String) As Object
Public Function GetScalarValue(SqlQuery As String) As Object
Dim oConnection As OdbcConnection = GetConnection()
Dim oDatatable As DataTable = GetDatatableWithConnection(SqlQuery, oConnection)
oConnection.Close()
@@ -171,7 +169,7 @@ Public Class ODBC
''' </summary>
''' <param name="SqlQuery">The query to execute</param>
''' <returns>A datatable containing the results if the command was executed successfully. Nothing otherwise.</returns>
Public Overrides Function GetDatatable(SqlQuery As String) As DataTable
Public Function GetDatatable(SqlQuery As String) As DataTable
Dim oConnection As OdbcConnection = GetConnection()
Dim oDatatable As DataTable = GetDatatableWithConnection(SqlQuery, oConnection)
oConnection.Close()