Use Database from Monorepo, Add initial ODBC Support

2019-08-06 15:41:02 +02:00
parent 6e6a483602
commit 43d3ba5ef2
15 changed files with 237 additions and 364 deletions
--- a/app/DD_Clipboard_Searcher/ClassLicense.vb
+++ b/app/DD_Clipboard_Searcher/ClassLicense.vb
@@ -4,7 +4,7 @@ Public Class ClassLicense
    Private Shared Sub Get_License(CLIENT_ID As Integer)
        Dim sql As String = String.Format("SELECT LICENSE_DDCBSEARCHER FROM TBDD_CLIENT WHERE GUID = {0}", CLIENT_ID)

-        lic_string = clsDatabase.Execute_Scalar(sql)
+        lic_string = Database.NewExecuteScalar(sql)
    End Sub
    Public Shared Sub Refresh_Licence(CLIENT_ID As Integer)
        Try