WIP: EDM Designer, Create Tables

2018-09-03 17:24:17 +02:00
parent ae0bb16dc8
commit a2e233fe68
13 changed files with 490 additions and 174 deletions
--- a/EDMDesigner/ClassCurrentUser.vb
+++ b/EDMDesigner/ClassCurrentUser.vb
@@ -7,9 +7,9 @@ Public Class ClassCurrentUser
    Private DBFirebird As Firebird

    Public Sub New(DBFirebird As Firebird)
-        Username = Environment.UserName
+        'Username = Environment.UserName

-        Dim sql As String = $"SELECT FNGET_USER_ACCESS('edm','{Username}') FROM rdb$database"
-        Dim result = DBFirebird.GetExecuteScalar(sql)
+        'Dim sql As String = $"SELECT FNGET_USER_ACCESS('edm','{Username}') FROM rdb$database"
+        'Dim result = DBFirebird.GetScalarValue(sql)
    End Sub
 End Class