MS_13022016

app/DD-Record-Organiser/frmSQLEditor.vb

@@ -132,8 +132,24 @@ Public Class frmSQLEditor
                     sqlAdapter.SelectCommand = sqlCommand
                     sqlAdapter.Fill(dataset)
 
+                    Return dataset
+                ElseIf connectionString.Contains("dsn=") Then 'ODBC-Connection
+                    Dim sqlConnection As Odbc.OdbcConnection
+                    Dim sqlCommand As Odbc.OdbcCommand
+                    Dim sqlAdapter As New Odbc.OdbcDataAdapter
+                    Dim dataset As New DataSet
+
+                    sqlConnection = New Odbc.OdbcConnection(connectionString)
+                    sqlConnection.Open()
+
+                    sqlCommand = New Odbc.OdbcCommand(sql, sqlConnection)
+
+                    sqlAdapter.SelectCommand = sqlCommand
+                    sqlAdapter.Fill(dataset)
+
                     Return dataset
                 Else
+
                     If LogErrorsOnly = True Then ClassLogger.Add(" >> It's an Oracle-Connection (ExecuteWithConnection)", False)
                     Dim sqlConnection As OracleConnection
                     Dim sqlCommand As OracleCommand