WIP: first pass of depending controls

This commit is contained in:
Jonathan Jenne
2020-02-10 17:09:14 +01:00
parent ee404100a4
commit acf61c9ca5
12 changed files with 275 additions and 211 deletions

View File

@@ -62,6 +62,14 @@ Public Class ClassDatabase
Return connectionString
End Function
Public Shared Function Return_Datatable_Combined(SqlCommand As String, ConnectionString As String, Optional userInput As Boolean = False)
If ConnectionString.Contains("Initial Catalog=") Then
Return Return_Datatable(SqlCommand, userInput)
Else
Return Oracle_Return_Datatable(SqlCommand, ConnectionString, userInput)
End If
End Function
Public Shared Function Return_Datatable(sql_command As String, Optional userInput As Boolean = False)
Try
Dim SQLconnect As New SqlConnection