MS_02062016_2

This commit is contained in:
SchreiberM
2016-06-02 15:42:01 +02:00
parent f60d30572c
commit 5c1b1dbc67
10 changed files with 53 additions and 35 deletions

View File

@@ -1,6 +1,5 @@
Imports Oracle.ManagedDataAccess.Client
Imports System.Data.Odbc
Public Class ClassDatabase
Private Shared connectionString As String
@@ -145,7 +144,7 @@ Public Class ClassDatabase
SQLcommand = SQLconnect.CreateCommand
'Update Last Created Record in Foo
SQLcommand.CommandText = ExecuteCMD
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
SQLconnect.Close()
@@ -180,7 +179,7 @@ Public Class ClassDatabase
MsgBox("No ConnectionID for Conn-ID: " & ConnID.ToString, MsgBoxStyle.Exclamation)
Return Nothing
End If
Catch ex As Exception
ClassLogger.Add("Error in Execute_non_Query_withConn: " & ex.Message, True)
ClassLogger.Add("SQL: " & ExecuteCMD, False)