DAtabase integriert

app/DD-Record-Organizer/Classes/ClassSQLEditor.vb

@@ -16,17 +16,17 @@ Public Class ClassSQLEditor
         Dim svc As IWindowsFormsEditorService = TryCast(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService)
         Dim SQLSTring As String = DirectCast(value, SQLValue).Value
 
-        If svc IsNot Nothing AndAlso SQLSTring IsNot Nothing Then
-            Using Form As New frmSQLEditor()
-                Form.Value = SQLSTring
-                If svc.ShowDialog(Form) = DialogResult.OK Then
-                    Dim sql As New SQLValue(Form.Value)
-                    value = sql
-                End If
-            End Using
-        End If
+        'If svc IsNot Nothing AndAlso SQLSTring IsNot Nothing Then
+        '    Using Form As New frmSQLEditor()
+        '        Form.Value = SQLSTring
+        '        If svc.ShowDialog(Form) = DialogResult.OK Then
+        '            Dim sql As New SQLValue(Form.Value)
+        '            value = sql
+        '        End If
+        '    End Using
+        'End If
 
-        Return value
+        Return ""
     End Function
 End Class