diff --git a/EFCore.VisualBasic/Design/EFCoreVisualBasicServices.vb b/EFCore.VisualBasic/Design/EFCoreVisualBasicServices.vb index 244b999..3a49ff3 100644 --- a/EFCore.VisualBasic/Design/EFCoreVisualBasicServices.vb +++ b/EFCore.VisualBasic/Design/EFCoreVisualBasicServices.vb @@ -15,10 +15,6 @@ Namespace Design .AddSingleton(Of IVisualBasicHelper, VisualBasicHelper)() .AddSingleton(Of IMigrationsCodeGenerator, VisualBasicMigrationsGenerator)() .AddSingleton(Of IModelCodeGenerator, VisualBasicModelGenerator)() - - 'Compiled Models - .AddSingleton(Of IVisualBasicRuntimeAnnotationCodeGenerator, VisualBasicRuntimeAnnotationCodeGenerator) - .AddSingleton(Of ICompiledModelCodeGenerator, VisualBasicRuntimeModelCodeGenerator) End With End Sub End Class diff --git a/EFCore.VisualBasic/Design/IVisualBasicHelper.vb b/EFCore.VisualBasic/Design/IVisualBasicHelper.vb index 2b0f11d..e69d988 100644 --- a/EFCore.VisualBasic/Design/IVisualBasicHelper.vb +++ b/EFCore.VisualBasic/Design/IVisualBasicHelper.vb @@ -350,33 +350,5 @@ Namespace Design ''' The fully qualified namespace of the imported type ''' Function ImportsClause(currentTypeNamespace As String, importedTypeNamespace As String) As String - - ''' - ''' Translates a node representing a statement into source code that would produce it. - ''' - ''' The node to be translated. - ''' Any namespaces required by the translated code will be added to this set. - ''' Source code that would produce . - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Function Statement(node As Expressions.Expression, collectedNamespaces As ISet(Of String)) As String - - ''' - ''' Translates a node representing an expression into source code that would produce it. - ''' - ''' The node to be translated. - ''' Any namespaces required by the translated code will be added to this set. - ''' Source code that would produce . - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Function Expression(node As Expressions.Expression, collectedNamespaces As ISet(Of String)) As String End Interface End Namespace diff --git a/EFCore.VisualBasic/Design/IVisualBasicRuntimeAnnotationCodeGenerator.vb b/EFCore.VisualBasic/Design/IVisualBasicRuntimeAnnotationCodeGenerator.vb deleted file mode 100644 index 4670158..0000000 --- a/EFCore.VisualBasic/Design/IVisualBasicRuntimeAnnotationCodeGenerator.vb +++ /dev/null @@ -1,140 +0,0 @@ -Imports System.Runtime.CompilerServices -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Storage - -Namespace Design - ''' - ''' Implemented by database providers to generate the code for annotations. - ''' - ''' - ''' The service lifetime Is . This means a single instance - ''' Is used by many instances. The implementation must be thread-safe. - ''' This service cannot depend on services registered as . - ''' - Public Interface IVisualBasicRuntimeAnnotationCodeGenerator - ''' - ''' Generates code to create the given annotations. - ''' - ''' The model to which the annotations are applied. - ''' Additional parameters used during code generation. - Sub Generate(model As IModel, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The entity type to which the annotations are applied. - ''' Additional parameters used during code generation. - Sub Generate(entityType As IEntityType, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The entity type to which the annotations are applied. - ''' Additional parameters used during code generation. - Sub Generate(complexProperty As IComplexProperty, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The entity type to which the annotations are applied. - ''' Additional parameters used during code generation. - Sub Generate(complexType As IComplexType, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The property to which the annotations are applied. - ''' Additional parameters used during code generation. - Sub Generate([property] As IProperty, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The property to which the annotations are applied. - ''' Additional parameters used during code generation. - Sub Generate([property] As IServiceProperty, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The key to which the annotations are applied. - ''' Additional parameters used during code generation. - Sub Generate(key As IKey, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The foreign key to which the annotations are applied. - ''' Additional parameters used during code generation. - Sub Generate(foreignKey As IForeignKey, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The navigation to which the annotations are applied. - ''' Additional parameters used during code generation. - Sub Generate(navigation As INavigation, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The skip navigation to which the annotations are applied. - ''' Additional parameters used during code generation. - Sub Generate(navigation As ISkipNavigation, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The index to which the annotations are applied. - ''' Additional parameters used during code generation. - Sub Generate(index As IIndex, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The trigger to which the annotations are applied. - ''' Additional parameters used during code generation. - Sub Generate(trigger As ITrigger, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The scalar type configuration to which the annotations are applied. - ''' Additional parameters used during code generation. - Sub Generate(typeConfiguration As ITypeMappingConfiguration, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - ''' - ''' Generates code to create the given property type mapping. - ''' - ''' The type mapping to create. - ''' Additional parameters used during code generation. - ''' The value comparer that should be used instead of the one in the type mapping. - ''' The key value comparer that should be used instead of the one in the type mapping. - ''' The provider value comparer that should be used instead of the one in the type mapping. - Function Create( - typeMapping As CoreTypeMapping, - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters, - Optional valueComparer As ValueComparer = Nothing, - Optional keyValueComparer As ValueComparer = Nothing, - Optional providerValueComparer As ValueComparer = Nothing) As Boolean - End Interface - - Module IVisualBasicRuntimeAnnotationCodeGeneratorExtensions - ''' - ''' Generates code to create the given property type mapping. - ''' - ''' The type mapping to create. - ''' The property to which this type mapping will be applied. - ''' Additional parameters used during code generation. - - Function Create(service As IVisualBasicRuntimeAnnotationCodeGenerator, typeMapping As CoreTypeMapping, [property] As IProperty, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) As Boolean - Return service.Create( - typeMapping, - parameters, - [property].GetValueComparer(), - [property].GetKeyValueComparer(), - [property].GetProviderValueComparer()) - End Function - End Module -End Namespace diff --git a/EFCore.VisualBasic/Design/Internal/VisualBasicHelper.vb b/EFCore.VisualBasic/Design/Internal/VisualBasicHelper.vb index 7c9673c..85c95d3 100644 --- a/EFCore.VisualBasic/Design/Internal/VisualBasicHelper.vb +++ b/EFCore.VisualBasic/Design/Internal/VisualBasicHelper.vb @@ -5,9 +5,7 @@ Imports System.Runtime.CompilerServices Imports System.Security Imports System.Text Imports EntityFrameworkCore.VisualBasic -Imports EntityFrameworkCore.VisualBasic.Design.Query.Internal Imports Microsoft.CodeAnalysis -Imports Microsoft.CodeAnalysis.Editing Imports Microsoft.CodeAnalysis.VisualBasic Imports Microsoft.EntityFrameworkCore.Design Imports Microsoft.EntityFrameworkCore.Internal @@ -25,17 +23,11 @@ Namespace Design.Internal Implements IVisualBasicHelper Private ReadOnly _typeMappingSource As ITypeMappingSource - Private ReadOnly _translator As LinqToVisualBasicSyntaxTranslator Sub New(typeMappingSource As ITypeMappingSource) NotNull(typeMappingSource, NameOf(typeMappingSource)) _typeMappingSource = typeMappingSource - - Dim workspace = New AdhocWorkspace() - Dim syntaxGen = SyntaxGenerator.GetGenerator(workspace, LanguageNames.VisualBasic) - - _translator = New LinqToVisualBasicSyntaxTranslator(syntaxGen) End Sub Private Shared ReadOnly _literalFuncs As New Dictionary(Of Type, Func(Of VisualBasicHelper, Object, String)) From { @@ -1309,34 +1301,6 @@ Namespace Design.Internal Return node.NormalizeWhitespace().ToFullString() End Function - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Public Overridable Function Statement(node As Expression, collectedNamespaces As ISet(Of String)) As String _ - Implements IVisualBasicHelper.Statement - Dim sb As New StringBuilder - - For Each e In _translator.TranslateStatement(node, collectedNamespaces) - sb.AppendLine(ToSourceCode(e)) - Next - - Return sb.ToString() - End Function - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Public Overridable Function Expression(node As Expression, collectedNamespaces As ISet(Of String)) As String _ - Implements IVisualBasicHelper.Expression - Return ToSourceCode(_translator.TranslateExpression(node, collectedNamespaces)) - End Function - #Region "VB Namespace" ''' ''' This is an internal API that supports the Entity Framework Core infrastructure and not subject to diff --git a/EFCore.VisualBasic/Design/Query/Internal/ILinqToVisualBasicSyntaxTranslator.vb b/EFCore.VisualBasic/Design/Query/Internal/ILinqToVisualBasicSyntaxTranslator.vb deleted file mode 100644 index 8b2a0b9..0000000 --- a/EFCore.VisualBasic/Design/Query/Internal/ILinqToVisualBasicSyntaxTranslator.vb +++ /dev/null @@ -1,56 +0,0 @@ -Imports System.Linq.Expressions -Imports Microsoft.CodeAnalysis.VisualBasic.Syntax - -Namespace Design.Query.Internal - - ''' - ''' Translates a LINQ expression tree to a Roslyn syntax tree. - ''' - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Public Interface ILinqToVisualBasicSyntaxTranslator - - ''' - ''' Translates a node representing a statement into a collection of Roslyn syntax tree. - ''' - ''' The node to be translated. - ''' Any namespaces required by the translated code will be added to this set. - ''' A collection of Roslyn syntax tree representation of . - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Function TranslateStatement(node As Expression, collectedNamespaces As ISet(Of String)) As IReadOnlyList(Of StatementSyntax) - - ''' - ''' Translates a node representing an expression into a Roslyn syntax tree. - ''' - ''' The node to be translated. - ''' Any namespaces required by the translated code will be added to this set. - ''' A Roslyn syntax tree representation of . - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Function TranslateExpression(node As Expression, collectedNamespaces As ISet(Of String)) As ExpressionSyntax - - ''' - ''' Returns the captured variables detected in the last translation. - ''' - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - ReadOnly Property CapturedVariables As IReadOnlySet(Of ParameterExpression) - End Interface -End Namespace diff --git a/EFCore.VisualBasic/Design/Query/Internal/LinqToVisualBasicSyntaxTranslator.vb b/EFCore.VisualBasic/Design/Query/Internal/LinqToVisualBasicSyntaxTranslator.vb deleted file mode 100644 index 9b81e03..0000000 --- a/EFCore.VisualBasic/Design/Query/Internal/LinqToVisualBasicSyntaxTranslator.vb +++ /dev/null @@ -1,2827 +0,0 @@ -Imports System.Globalization -Imports System.Linq.Expressions -Imports System.Reflection -Imports System.Runtime.CompilerServices -Imports System.Text -Imports Microsoft.CodeAnalysis -Imports Microsoft.CodeAnalysis.Editing -Imports Microsoft.CodeAnalysis.VisualBasic -Imports Microsoft.CodeAnalysis.VisualBasic.Syntax -Imports Microsoft.EntityFrameworkCore.Query -Imports E = System.Linq.Expressions.Expression -Imports SF = Microsoft.CodeAnalysis.VisualBasic.SyntaxFactory - -Namespace Design.Query.Internal - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Public Class LinqToVisualBasicSyntaxTranslator - Inherits ExpressionVisitor - Implements ILinqToVisualBasicSyntaxTranslator - - Private NotInheritable Class StackFrame - ReadOnly Property Variables As Dictionary(Of ParameterExpression, String) - ReadOnly Property VariableNames As HashSet(Of String) - - Sub New(variables As Dictionary(Of ParameterExpression, String), - variableNames As HashSet(Of String)) - - Me.Variables = variables - Me.VariableNames = variableNames - End Sub - End Class - - Private ReadOnly _stack As New Stack(Of StackFrame)({New StackFrame(New Dictionary(Of ParameterExpression, String), - New HashSet(Of String)(StringComparer.OrdinalIgnoreCase))}) - - Private _labels As Dictionary(Of LabelTarget, String) - Private _unnamedLabelNames As HashSet(Of String) - - Private _unnamedParameterCounter As Integer - - Private NotInheritable Class LiftedState - ReadOnly Property Statements As List(Of StatementSyntax) - ReadOnly Property Variables As Dictionary(Of ParameterExpression, String) - ReadOnly Property VariableNames As HashSet(Of String) - ReadOnly Property UnassignedVariableDeclarations As List(Of LocalDeclarationStatementSyntax) - - Sub New(statements As List(Of StatementSyntax), - variables As Dictionary(Of ParameterExpression, String), - variableNames As HashSet(Of String), - unassignedVariableDeclarations As List(Of LocalDeclarationStatementSyntax)) - - Me.Statements = statements - Me.Variables = variables - Me.VariableNames = variableNames - Me.UnassignedVariableDeclarations = unassignedVariableDeclarations - End Sub - - Public Shared Function CreateEmpty() As LiftedState - Return New LiftedState(New List(Of StatementSyntax), - New Dictionary(Of ParameterExpression, String), - New HashSet(Of String)(StringComparer.OrdinalIgnoreCase), - New List(Of LocalDeclarationStatementSyntax)) - End Function - End Class - - Private _liftedState As LiftedState = LiftedState.CreateEmpty() - - Private _context As ExpressionContext - Private _onLastLambdaLine As Boolean - - Private ReadOnly _capturedVariables As New HashSet(Of ParameterExpression) - Private _collectedNamespaces As ISet(Of String) - - Private Shared _activatorCreateInstanceMethod As MethodInfo - Private Shared _typeGetFieldMethod As MethodInfo - Private Shared _fieldGetValueMethod As MethodInfo - Private Shared _AscW As MethodInfo - Private Shared _ChrW As MethodInfo - - Private ReadOnly _sideEffectDetector As New SideEffectDetectionSyntaxWalker - Private ReadOnly _g As SyntaxGenerator - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Public Sub New(syntaxGenerator As SyntaxGenerator) - _g = syntaxGenerator - End Sub - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Public ReadOnly Property CapturedVariables As IReadOnlySet(Of ParameterExpression) Implements ILinqToVisualBasicSyntaxTranslator.CapturedVariables - Get - Return _capturedVariables.ToHashSet() - End Get - End Property - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' ''' - Protected Overridable Property Result As New GeneratedSyntaxNodes - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Public Overridable Function TranslateStatement(node As Expression, collectedNamespaces As ISet(Of String)) As IReadOnlyList(Of StatementSyntax) _ - Implements ILinqToVisualBasicSyntaxTranslator.TranslateStatement - Return ResultAsStatementSyntaxList(TranslateCore(node, collectedNamespaces, statementContext:=True)) - End Function - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Public Overridable Function TranslateExpression(node As Expression, collectedNamespaces As ISet(Of String)) As ExpressionSyntax _ - Implements ILinqToVisualBasicSyntaxTranslator.TranslateExpression - Return TranslateCore(node, collectedNamespaces, statementContext:=False).GetExpression - End Function - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Protected Overridable Function TranslateCore(node As Expression, - collectedNamespaces As ISet(Of String), - Optional statementContext As Boolean = False) As GeneratedSyntaxNodes - - _labels = New Dictionary(Of LabelTarget, String) - _unnamedLabelNames = New HashSet(Of String)(StringComparer.OrdinalIgnoreCase) - _capturedVariables.Clear() - _collectedNamespaces = collectedNamespaces - _unnamedParameterCounter = 0 - _context = If(statementContext, ExpressionContext.Statement, ExpressionContext.Expression) - _onLastLambdaLine = True - - Visit(node) - - If _liftedState.Statements.Count > 0 Then - If _context = ExpressionContext.Expression Then - Throw New NotSupportedException("Lifted expressions remaining at top-level in expression context") - End If - End If - - DebugAssert(_stack.Count = 1, "_parameterStack.Count = 1") - DebugAssert(_stack.Peek().Variables.Count = 0, "_stack.Peek().Parameters.Count = 0") - DebugAssert(_stack.Peek().VariableNames.Count = 0, "_stack.Peek().ParameterNames.Count = 0") - - Return Result - End Function - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Protected Overridable Function Translate(node As Expression) As GeneratedSyntaxNodes - Visit(node) - Return Result - End Function - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Protected Overridable Function Translate(Of T As VisualBasicSyntaxNode)(node As Expression) As T - Visit(node) - - Dim x = TryCast(Result.Node, T) - - If x Is Nothing Then - Throw New InvalidOperationException($"Got translated node of type '{If(Result?.GetType().Name, "Nothing")}' instead of the expected {GetType(T)}.") - End If - - Return x - End Function - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Protected Overridable Function Translate(expression As Expression, lowerableAssignmentVariable As IdentifierNameSyntax) As ExpressionSyntax - DebugAssert(_context = ExpressionContext.Expression OrElse _context = ExpressionContext.ExpressionLambda, - "Cannot lower in statement context") - - Dim switchExpression = TryCast(expression, SwitchExpression) - If switchExpression IsNot Nothing Then Return DirectCast(TranslateSwitch(switchExpression, lowerableAssignmentVariable).Node, ExpressionSyntax) - - Dim conditionalExpression = TryCast(expression, ConditionalExpression) - If conditionalExpression IsNot Nothing Then Return DirectCast(TranslateConditional(conditionalExpression, lowerableAssignmentVariable).Node, ExpressionSyntax) - - Return Translate(Of ExpressionSyntax)(expression) - End Function - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Public Overrides Function Visit(node As Expression) As Expression - If node Is Nothing Then - Result = Nothing - Return Nothing - End If - - Return MyBase.Visit(node) - End Function - - ''' - Protected Overrides Function VisitBinary(binary As BinaryExpression) As Expression - Using ChangeContext(ExpressionContext.Expression) - - ' Handle special cases - - If IsVBStringComparisonOperators(binary) Then - Dim opSyntaxKinds = GetSyntaxKindForBinaryOperator(binary) - - Result = New GeneratedSyntaxNodes( - SF.BinaryExpression( - opSyntaxKinds.Kind, - Translate(Of ExpressionSyntax)( - DirectCast(binary.Left, MethodCallExpression).Arguments(0)), - SF.Token(opSyntaxKinds.OperatorTokenKind), - Translate(Of ExpressionSyntax)( - DirectCast(binary.Left, MethodCallExpression).Arguments(1)))) - - Return binary - End If - - Select Case binary.NodeType - Case ExpressionType.Assign - Return VisitAssignment(binary) - - Case ExpressionType.ModuloAssign - Return VisitAssignment( - E.Assign( - binary.Left, - E.Modulo(binary.Left, binary.Right))) - - Case ExpressionType.AndAssign - Return VisitAssignment( - E.Assign( - binary.Left, - E.And(binary.Left, binary.Right))) - - Case ExpressionType.OrAssign - Return VisitAssignment( - E.Assign( - binary.Left, - E.Or(binary.Left, binary.Right))) - - Case ExpressionType.ExclusiveOrAssign - Return VisitAssignment( - E.Assign( - binary.Left, - E.ExclusiveOr(binary.Left, binary.Right))) - - Case ExpressionType.Coalesce - Return VisitCoalesce(binary) - End Select - - Dim liftedStatementOrigPosition = _liftedState.Statements.Count - Dim left = Translate(Of ExpressionSyntax)(binary.Left) - Dim liftedStatementLeftPosition = _liftedState.Statements.Count - Dim right = Translate(Of ExpressionSyntax)(binary.Right) - - ' If both sides were lifted, we don't need to do anything special. Same if the left side was lifted. - ' But if the right side was lifted And the left wasn't, then in order to preserve evaluation order we need to lift the left side - ' out as well, otherwise the right side gets evaluated before the left. - ' We refrain from doing this only if the two expressions can't possibly have side effects over each other, for nicer code. - If _liftedState.Statements.Count > liftedStatementLeftPosition AndAlso - liftedStatementLeftPosition = liftedStatementOrigPosition AndAlso - Not _sideEffectDetector.CanBeReordered(left, right) Then - - Dim name = UniquifyVariableName("lifted") - _liftedState.Statements.Insert( - liftedStatementLeftPosition, - GenerateDeclaration(name, left)) - _liftedState.VariableNames.Add(name) - left = SF.IdentifierName(name) - End If - - If binary.NodeType = ExpressionType.ArrayIndex Then - Result = New GeneratedSyntaxNodes( - SF.InvocationExpression( - left, - SF.ArgumentList(SF.SingletonSeparatedList(Of ArgumentSyntax)(SF.SimpleArgument(right))))) - Return binary - End If - - Select Case binary.NodeType - Case ExpressionType.Equal - Result = TranslateEqual(binary, left, right) - Return binary - - Case ExpressionType.NotEqual - Result = TranslateNotEqual(binary, left, right) - Return binary - End Select - - ' TODO: Confirm what to do with the unchecked expression types - - Dim operatorSyntaxKinds = GetSyntaxKindForBinaryOperator(binary) - - If operatorSyntaxKinds.IsAnAssignmentStatement Then - Result = New GeneratedSyntaxNodes( - SF.AssignmentStatement( - operatorSyntaxKinds.Kind, - left, - SF.Token(operatorSyntaxKinds.OperatorTokenKind), - right)) - Else - Result = New GeneratedSyntaxNodes( - SF.BinaryExpression( - operatorSyntaxKinds.Kind, - left, - SF.Token(operatorSyntaxKinds.OperatorTokenKind), - right)) - End If - - Return binary - End Using - End Function - - Private Shared Function GetSyntaxKindForBinaryOperator(binary As BinaryExpression) _ - As (Kind As SyntaxKind, - OperatorTokenKind As SyntaxKind, - IsAnAssignmentStatement As Boolean) - - Select Case binary.NodeType - Case ExpressionType.Equal - Return (SyntaxKind.EqualsExpression, SyntaxKind.EqualsToken, False) - - Case ExpressionType.NotEqual - Return (SyntaxKind.NotEqualsExpression, SyntaxKind.LessThanGreaterThanToken, False) - - Case ExpressionType.Add - Return (SyntaxKind.AddExpression, SyntaxKind.PlusToken, False) - - Case ExpressionType.AddChecked - Return (SyntaxKind.AddExpression, SyntaxKind.PlusToken, False) - - Case ExpressionType.Subtract - Return (SyntaxKind.SubtractExpression, SyntaxKind.MinusToken, False) - - Case ExpressionType.SubtractChecked - Return (SyntaxKind.SubtractExpression, SyntaxKind.MinusToken, False) - - Case ExpressionType.Multiply - Return (SyntaxKind.MultiplyExpression, SyntaxKind.AsteriskToken, False) - - Case ExpressionType.MultiplyChecked - Return (SyntaxKind.MultiplyExpression, SyntaxKind.AsteriskToken, False) - - Case ExpressionType.Divide - Return (SyntaxKind.DivideExpression, SyntaxKind.SlashToken, False) - - Case ExpressionType.Modulo - Return (SyntaxKind.ModuloExpression, SyntaxKind.ModKeyword, False) - - Case ExpressionType.Power - Return (SyntaxKind.ExponentiateExpression, SyntaxKind.CaretToken, False) - - Case ExpressionType.AddAssign - Return (SyntaxKind.AddAssignmentStatement, SyntaxKind.PlusEqualsToken, True) - - Case ExpressionType.AddAssignChecked - Return (SyntaxKind.AddAssignmentStatement, SyntaxKind.PlusEqualsToken, True) - - Case ExpressionType.SubtractAssign - Return (SyntaxKind.SubtractAssignmentStatement, SyntaxKind.MinusEqualsToken, True) - - Case ExpressionType.SubtractAssignChecked - Return (SyntaxKind.SubtractAssignmentStatement, SyntaxKind.MinusEqualsToken, True) - - Case ExpressionType.MultiplyAssign - Return (SyntaxKind.MultiplyAssignmentStatement, SyntaxKind.AsteriskEqualsToken, True) - - Case ExpressionType.MultiplyAssignChecked - Return (SyntaxKind.MultiplyAssignmentStatement, SyntaxKind.AsteriskEqualsToken, True) - - Case ExpressionType.DivideAssign - Return (SyntaxKind.DivideAssignmentStatement, SyntaxKind.SlashEqualsToken, True) - - Case ExpressionType.PowerAssign - Return (SyntaxKind.ExponentiateAssignmentStatement, SyntaxKind.CaretEqualsToken, True) - - Case ExpressionType.GreaterThan - Return (SyntaxKind.GreaterThanExpression, SyntaxKind.GreaterThanToken, False) - - Case ExpressionType.GreaterThanOrEqual - Return (SyntaxKind.GreaterThanOrEqualExpression, SyntaxKind.GreaterThanEqualsToken, False) - - Case ExpressionType.LessThan - Return (SyntaxKind.LessThanExpression, SyntaxKind.LessThanToken, False) - - Case ExpressionType.LessThanOrEqual - Return (SyntaxKind.LessThanOrEqualExpression, SyntaxKind.LessThanEqualsToken, False) - - Case ExpressionType.AndAlso - Return (SyntaxKind.AndAlsoExpression, SyntaxKind.AndAlsoKeyword, False) - - Case ExpressionType.OrElse - Return (SyntaxKind.OrElseExpression, SyntaxKind.OrElseKeyword, False) - - Case ExpressionType.And - Return (SyntaxKind.AndExpression, SyntaxKind.AndKeyword, False) - - Case ExpressionType.Or - Return (SyntaxKind.OrExpression, SyntaxKind.OrKeyword, False) - - Case ExpressionType.ExclusiveOr - Return (SyntaxKind.ExclusiveOrExpression, SyntaxKind.XorKeyword, False) - - Case ExpressionType.LeftShift - Return (SyntaxKind.LeftShiftExpression, SyntaxKind.LessThanLessThanToken, False) - - Case ExpressionType.RightShift - Return (SyntaxKind.RightShiftExpression, SyntaxKind.GreaterThanGreaterThanToken, False) - - Case ExpressionType.LeftShiftAssign - Return (SyntaxKind.LeftShiftAssignmentStatement, SyntaxKind.LessThanLessThanEqualsToken, True) - - Case ExpressionType.RightShiftAssign - Return (SyntaxKind.RightShiftAssignmentStatement, SyntaxKind.GreaterThanGreaterThanEqualsToken, True) - - Case Else - Throw New ArgumentOutOfRangeException("BinaryExpression with " & binary.NodeType) - End Select - End Function - - Private Shared Function TranslateEqual(binary As BinaryExpression, left As ExpressionSyntax, right As ExpressionSyntax) As GeneratedSyntaxNodes - If IsNullableValueTypeTestedWithNothing(binary) Then - Return New GeneratedSyntaxNodes( - SF.IsExpression(left, right)) - End If - - If Not IsReferenceEqualitySemantics(binary.Left, binary.Right) AndAlso - (binary.Method?.Name = "op_Equality" OrElse binary.Left.Type.IsValueType) Then - - Return New GeneratedSyntaxNodes( - SF.EqualsExpression(left, right)) - End If - - Return New GeneratedSyntaxNodes( - SF.IsExpression(left, right)) - End Function - - Private Shared Function TranslateNotEqual(binary As BinaryExpression, left As ExpressionSyntax, right As ExpressionSyntax) As GeneratedSyntaxNodes - If IsNullableValueTypeTestedWithNothing(binary) Then - Return New GeneratedSyntaxNodes( - SF.IsNotExpression(left, right)) - End If - - If Not IsReferenceEqualitySemantics(binary.Left, binary.Right) AndAlso - (binary.Method?.Name = "op_Inequality" OrElse binary.Left.Type.IsValueType) Then - - Return New GeneratedSyntaxNodes( - SF.NotEqualsExpression(left, right)) - End If - - Return New GeneratedSyntaxNodes( - SF.IsNotExpression(left, right)) - End Function - - Private Shared Function IsNullableValueTypeTestedWithNothing(binary As BinaryExpression) As Boolean - Return (binary.Left.Type.IsNullableValueType AndAlso - binary.Right.NodeType = ExpressionType.Constant AndAlso - DirectCast(binary.Right, ConstantExpression).Value Is Nothing) _ - OrElse - (binary.Right.Type.IsNullableValueType AndAlso - binary.Left.NodeType = ExpressionType.Constant AndAlso - DirectCast(binary.Left, ConstantExpression).Value Is Nothing) - End Function - - Private Function VisitAssignment(assignment As BinaryExpression) As Expression - - Dim translatedLeft = Translate(Of ExpressionSyntax)(assignment.Left) - - Dim translatedRight As ExpressionSyntax - - ' LINQ expression trees can directly access private members, but VB code cannot. - ' If a private member Is being set, VisitMember generated a reflection GetValue invocation for it; detect - ' that here And replace it with SetValue instead. - ' TODO: Replace this With a more efficient API For .NET 8.0. - ' TODO: Private Property - - Dim isPrivateMember = False - - Dim invocationExpressionSyntax = TryCast(translatedLeft, InvocationExpressionSyntax) - If invocationExpressionSyntax IsNot Nothing AndAlso - invocationExpressionSyntax.Expression IsNot Nothing Then - - Dim fieldInfoExpression As ExpressionSyntax = Nothing - - Dim memberAccessExpressionSyntax = TryCast(invocationExpressionSyntax.Expression, MemberAccessExpressionSyntax) - If memberAccessExpressionSyntax IsNot Nothing AndAlso - memberAccessExpressionSyntax.Name.Identifier.Text = NameOf(FieldInfo.GetValue) Then - - fieldInfoExpression = memberAccessExpressionSyntax.Expression - isPrivateMember = True - Dim lValue = invocationExpressionSyntax.ArgumentList?.Arguments(0) - - translatedRight = Translate(Of ExpressionSyntax)(assignment.Right) - - Result = New GeneratedSyntaxNodes( - SF.InvocationExpression( - SF.SimpleMemberAccessExpression( - fieldInfoExpression, - SF.IdentifierName(NameOf(FieldInfo.SetValue))), - SF.ArgumentList( - SF.SeparatedList({lValue, SF.SimpleArgument(translatedRight)})))) - End If - End If - - If Not isPrivateMember Then - ' Identify assignment where the RHS supports assignment lowering (switch, conditional). If the e.g. switch expression Is - ' lifted out (because some arm contains a block), this will lower the variable to be assigned inside the resulting switch - ' statement, rather then adding another useless temporary variable. - translatedRight = Translate(assignment.Right, - lowerableAssignmentVariable:=TryCast(translatedLeft, IdentifierNameSyntax)) - - ' If the RHS was lifted out And the assignment lowering succeeded, Translate above returns the lowered assignment variable; - ' this would mean that we return a useless identity assignment (i = i). Instead, just return it. - If translatedRight Is translatedLeft Then - Result = New GeneratedSyntaxNodes(translatedRight) - Else - Result = New GeneratedSyntaxNodes( - SF.SimpleAssignmentStatement(translatedLeft, translatedRight)) - End If - End If - - Return assignment - End Function - - Private Function VisitCoalesce(coalesxeExpr As BinaryExpression) As Expression - - If coalesxeExpr.Conversion IsNot Nothing Then Throw New NotSupportedException("Coalesce BinaryExpression with a conversion lambda.") - - Dim translatedLeft = Translate(Of ExpressionSyntax)(coalesxeExpr.Left) - Dim translatedRight = Translate(Of ExpressionSyntax)(coalesxeExpr.Right) - - Result = New GeneratedSyntaxNodes( - SF.BinaryConditionalExpression(translatedLeft, translatedRight)) - - Return coalesxeExpr - End Function - - Private Shared Function IsVBStringComparisonOperators(binary As BinaryExpression) As Boolean - ' VB CODE x = y - ' -> Equal(Microsoft.VisualBasic.CompilerServices.Operators.CompareString(x, y, False), 0) - - Dim methodExpr As MethodCallExpression - - Dim HaveAConstantZero = (binary.Left.NodeType = ExpressionType.Constant AndAlso DirectCast(binary.Left, ConstantExpression).Value?.Equals(0)) Xor - (binary.Right.NodeType = ExpressionType.Constant AndAlso DirectCast(binary.Right, ConstantExpression).Value?.Equals(0)) - - If HaveAConstantZero AndAlso - (TypeOf binary.Left Is MethodCallExpression Xor - TypeOf binary.Right Is MethodCallExpression) Then - - methodExpr = If(TryCast(binary.Left, MethodCallExpression), - TryCast(binary.Right, MethodCallExpression)) - Else - Return False - End If - - Return methodExpr.Method.Name = "CompareString" AndAlso - methodExpr.Method.DeclaringType?.Name = "Operators" AndAlso - methodExpr.Method.DeclaringType?.Namespace = "Microsoft.VisualBasic.CompilerServices" AndAlso - methodExpr.Object Is Nothing AndAlso - methodExpr.Arguments.Count = 3 AndAlso - TypeOf methodExpr.Arguments(2) Is ConstantExpression - End Function - - ''' - Protected Overrides Function VisitBlock(block As BlockExpression) As Expression - Dim blockContext = _context - - Dim parentOnLastLambdaLine = _onLastLambdaLine - Dim parentLiftedState = _liftedState - - ' Expression blocks have no stack of their own, since they're lifted directly to their parent non-expression block. - Dim ownStackFrame As StackFrame = Nothing - If blockContext <> ExpressionContext.Expression Then - ownStackFrame = PushNewStackFrame() - _liftedState = LiftedState.CreateEmpty() - End If - - Dim stackFrame = _stack.Peek() - - ' Do a 1st pass to identify And register any labels, since GoTo can appear before its label. - PreprocessLabels(block) - - Try - ' Go over the block's variables, assign names to any unnamed ones and uniquify. Then add them to our stack frame, unless - ' this Is an expression block that will get lifted. - - For Each parameterExpr In block.Variables - Dim variables = stackFrame.Variables - Dim variableNames = stackFrame.VariableNames - - Dim uniquifiedName = UniquifyVariableName(If(parameterExpr.Name, "unnamed")) - - If blockContext = ExpressionContext.Expression Then - _liftedState.Variables.Add(parameterExpr, uniquifiedName) - _liftedState.VariableNames.Add(uniquifiedName) - Else - variables.Add(parameterExpr, uniquifiedName) - variableNames.Add(uniquifiedName) - End If - Next - - Dim unassignedVariables = block.Variables.ToList() - - Dim statements As New List(Of SyntaxNode)() - - ' Now visit the block's expressions - For i = 0 To block.Expressions.Count - 1 - Dim expression = block.Expressions(i) - Dim onLastBlockLine = i = block.Expressions.Count - 1 - _onLastLambdaLine = parentOnLastLambdaLine AndAlso onLastBlockLine - - ' Any lines before the last are evaluated in statement context (they aren't returned); the last line is evaluated in the - ' context of the block as a whole. _context now refers to the statement's context, blockContext to the block's. - Dim statementContext = If(onLastBlockLine, _context, ExpressionContext.Statement) - - Dim translated As GeneratedSyntaxNodes - Using ChangeContext(statementContext) - translated = Translate(expression) - End Using - - ' Syntax optimization. This is an assignment of a block variable to some value. Render this as - ' Dim x As = - ' ... instead of: - ' Dim x As - ' x = - ' ... except for expression context (i.e. on the last line), where we just return the value if needed. - Dim binaryExpr = TryCast(expression, BinaryExpression) - Dim lValue = TryCast(binaryExpr?.Left, ParameterExpression) - Dim AssignmentExpr As AssignmentStatementSyntax = Nothing - - If translated.Count = 1 Then - AssignmentExpr = TryCast(translated.Node, AssignmentStatementSyntax) - End If - - If binaryExpr IsNot Nothing AndAlso binaryExpr.NodeType = ExpressionType.Assign AndAlso - lValue IsNot Nothing AndAlso - AssignmentExpr IsNot Nothing AndAlso - statementContext = ExpressionContext.Statement AndAlso - unassignedVariables.Remove(lValue) Then - - Dim valueSyntax = AssignmentExpr.Right - - translated = New GeneratedSyntaxNodes( - _g.LocalDeclarationStatement(Translate(lValue.Type), LookupVariableName(lValue), valueSyntax)) - End If - - If statementContext = ExpressionContext.Expression Then - ' We're on the last line of a block in expression context - the block is being lifted out. - ' All statements before the last line (this one) have already been added to _liftedStatements, just return the last - ' expression. - DebugAssert(onLastBlockLine, "onLastBlockLine") - Result = translated - Exit For - End If - - If blockContext <> ExpressionContext.Expression Then - If _liftedState.Statements.Count > 0 Then - ' If any expressions were lifted out of the current expression, flatten them into our own block, just before the - ' expression from which they were lifted. Note that we don't do this in Expression context, since our own block is - ' lifted out. - statements.AddRange(_liftedState.Statements) - _liftedState.Statements.Clear() - End If - - ' Same for any variables being lifted out of the block; we add them to our own stack frame so that we can do proper - ' variable name uniquification etc. - If _liftedState.Variables.Count > 0 Then - For Each kv In _liftedState.Variables - Dim param = kv.Key - Dim name = kv.Value - stackFrame.Variables(param) = name - stackFrame.VariableNames.Add(name) - Next - - _liftedState.Variables.Clear() - End If - End If - - ' Skip useless expressions with no side effects in statement context (these can be the result of switch/conditional lifting - ' with assignment lowering) - If statementContext = ExpressionContext.Statement AndAlso Not _sideEffectDetector.MayHaveSideEffects(translated.Nodes) Then - Continue For - End If - - Dim statementsBlock As SyntaxList(Of StatementSyntax) - - If translated.Count > 0 AndAlso Not translated.IsASingleExpression Then - statementsBlock = ResultAsStatementSyntaxList(translated) - - ElseIf Not translated.IsASingleExpression Then - Throw New ArgumentOutOfRangeException() - - ElseIf _onLastLambdaLine AndAlso - statementContext = ExpressionContext.ExpressionLambda Then - ' If this is the last line in an expression lambda, wrap it in a return statement. - statementsBlock = SF.List(Of StatementSyntax)( - {SF.ReturnStatement(DirectCast(translated.Node, ExpressionSyntax))}) - Else - statementsBlock = SF.List(ResultAsStatementSyntaxList(translated)) - End If - - If blockContext = ExpressionContext.Expression Then - ' This block Is in expression context, And so will be lifted (we won't be returning a block). - _liftedState.Statements.AddRange(statementsBlock) - Else - statements.AddRange(statementsBlock) - End If - Next - - ' Above we transform top-level assignments (i = 8) to declarations with initializers (Dim i = 8) those variables have - ' already been taken care of and removed from the list. - ' But there may still be variables that get assigned inside nested blocks Or other situations; prepare declarations for those - ' And either add them to the block, Or lift them if we're an expression block. - Dim unassignedVariableDeclarations = - unassignedVariables.Select( - Function(v) DirectCast(_g.LocalDeclarationStatement(Translate(v.Type), LookupVariableName(v)), LocalDeclarationStatementSyntax)) - - If blockContext = ExpressionContext.Expression Then - _liftedState.UnassignedVariableDeclarations.AddRange(unassignedVariableDeclarations) - Else - statements.InsertRange(0, unassignedVariableDeclarations.Concat(_liftedState.UnassignedVariableDeclarations)) - _liftedState.UnassignedVariableDeclarations.Clear() - - ' We're done. If the block is in an expression context, it needs to be lifted out; but not if it's in a lambda (in that - ' case we just added return above). - Result = New GeneratedSyntaxNodes(statements) - End If - - Return block - Finally - _onLastLambdaLine = parentOnLastLambdaLine - _liftedState = parentLiftedState - - If ownStackFrame IsNot Nothing Then - Dim popped = _stack.Pop() - DebugAssert(popped.Equals(ownStackFrame), "popped.Equals(ownStackFrame)") - End If - End Try - End Function - - Private Sub PreprocessLabels(block As BlockExpression) - - ' LINQ label targets can be unnamed, so we need to generate names for unnamed ones and maintain a target->name mapping. - For Each labelExpr In block.Expressions.OfType(Of LabelExpression)() - - Dim identifier As String = Nothing - If _labels.TryGetValue(labelExpr.Target, identifier) Then - Continue For - End If - - Dim labels = _labels - Dim unnamedLabelNames = _unnamedLabelNames - - ' Generate names for unnamed label targets And uniquify - identifier = If(labelExpr.Target.Name, "unnamedLabel") - Dim identifierBase = identifier - - Dim i = 0 - While unnamedLabelNames.Contains(identifier) - identifier = identifierBase & i - i += 1 - End While - - If labelExpr.Target.Name Is Nothing Then - unnamedLabelNames.Add(identifier) - End If - - labels.Add(labelExpr.Target, identifier) - Next - End Sub - - ''' - Protected Overrides Function VisitCatchBlock(catchBlock As CatchBlock) As CatchBlock - Result = New GeneratedSyntaxNodes(TranslateCatchBlock(catchBlock)) - Return catchBlock - End Function - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Protected Overridable Function TranslateCatchBlock(catchBlock As CatchBlock, Optional noType As Boolean = False) As SyntaxNode - Dim translatedBody = Translate(catchBlock.Body) - - Dim identifier As IdentifierNameSyntax = Nothing - Dim asClause As SimpleAsClauseSyntax = Nothing - - Dim exceptionTestType = If(noType, Nothing, catchBlock.Test) - - If exceptionTestType IsNot Nothing Then - asClause = SF.SimpleAsClause(Translate(catchBlock.Test)) - - If catchBlock.Variable IsNot Nothing Then - If catchBlock.Variable.Name Is Nothing Then - Throw New NotSupportedException("TranslateCatchBlock: unnamed parameter as catch variable") - End If - - identifier = SF.IdentifierName(catchBlock.Variable.Name) - Else - Dim name = UniquifyVariableName(Nothing) - identifier = SF.IdentifierName(name) - End If - End If - - DebugAssert(Not (asClause Is Nothing AndAlso catchBlock.Filter IsNot Nothing), - "Not (asClause Is Nothing AndAlso catchBlock.Filter IsNot Nothing)") - - Dim whenClause = If(catchBlock.Filter Is Nothing, Nothing, SF.CatchFilterClause(Translate(Of ExpressionSyntax)(catchBlock.Filter))) - - Dim catchStatement = SF.CatchStatement(identifier, asClause, whenClause) - - Return SF.CatchBlock(catchStatement, ResultAsStatementSyntaxList(translatedBody)) - End Function - - ''' - Protected Overrides Function VisitConditional(conditional As ConditionalExpression) As Expression - Result = TranslateConditional(conditional, lowerableAssignmentVariable:=Nothing) - - Return conditional - End Function - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Protected Overridable Function TranslateConditional(conditional As ConditionalExpression, - lowerableAssignmentVariable As IdentifierNameSyntax) As GeneratedSyntaxNodes - - ' ConditionalExpression can be an expression or an If/Else statement. - Dim test = Translate(Of ExpressionSyntax)(conditional.Test) - - Dim defaultIfFalse = TryCast(conditional.IfFalse, DefaultExpression) - Dim isFalseAbsent = defaultIfFalse IsNot Nothing AndAlso defaultIfFalse.Type = GetType(Void) - - Select Case _context - Case ExpressionContext.Statement - Return New GeneratedSyntaxNodes(TranslateConditionalStatement(conditional, isFalseAbsent, test)) - - Case ExpressionContext.Expression, - ExpressionContext.ExpressionLambda - - If isFalseAbsent Then - Throw New NotSupportedException( - $"Missing {NameOf(ConditionalExpression.IfFalse)} in {NameOf(ConditionalExpression)} in expression context") - End If - - Dim parentLiftedState = _liftedState - _liftedState = LiftedState.CreateEmpty() - - ' If we're in a lambda body, we try to translate as an expression if possible (i.e. no blocks in the True/False arms). - Using ChangeContext(ExpressionContext.Expression) - Dim ifTrue = Translate(conditional.IfTrue) - Dim ifFalse = Translate(conditional.IfFalse) - - If Not ifTrue.IsASingleExpression OrElse - Not ifFalse.IsASingleExpression Then - Throw New InvalidOperationException("Trying to evaluate a non-expression condition in expression context") - End If - - Dim ifTrueExpression = ifTrue.GetExpression() - Dim ifFalseExpression = ifFalse.GetExpression() - - ' There were no lifted expressions inside either arm - we can translate directly to a VB ternary conditional expression - If _liftedState.Statements.Count = 0 Then - _liftedState = parentLiftedState - Return New GeneratedSyntaxNodes(SF.TernaryConditionalExpression(test, ifTrueExpression, ifFalseExpression)) - End If - End Using - - ' If we're in a lambda body and couldn't translate as a conditional expression, translate as an If/Else statement with - ' return. Wrap the true/false sides in blocks to have "return" added. - If _context = ExpressionContext.ExpressionLambda Then - _liftedState = parentLiftedState - - Return New GeneratedSyntaxNodes( - TranslateConditionalStatement( - conditional.Update(conditional.Test, - If(TypeOf conditional.IfTrue Is BlockExpression, conditional.IfTrue, E.Block(conditional.IfTrue)), - If(TypeOf conditional.IfFalse Is BlockExpression, conditional.IfFalse, E.Block(conditional.IfFalse))), - isFalseAbsent, - test)) - End If - - ' We're in regular expression context, and there are lifted expressions inside one of the arms; we translate to an If/Else - ' statement but lowering an assignment into both sides of the condition - _liftedState = LiftedState.CreateEmpty() - - Dim assignmentVariable As IdentifierNameSyntax - Dim loweredAssignmentVariableType As TypeSyntax = Nothing - - If lowerableAssignmentVariable Is Nothing Then - Dim name = UniquifyVariableName("liftedConditional") - Dim parameter = E.Parameter(conditional.Type, name) - assignmentVariable = SF.IdentifierName(name) - loweredAssignmentVariableType = Translate(parameter.Type) - Else - assignmentVariable = lowerableAssignmentVariable - End If - - Dim iftruestatements = ResultAsStatementSyntaxList(ProcessArmBody(conditional.IfTrue, assignmentVariable)) - Dim iffalsestatements = ResultAsStatementSyntaxList(ProcessArmBody(conditional.IfFalse, assignmentVariable)) - - _liftedState = parentLiftedState - - If lowerableAssignmentVariable Is Nothing Then - _liftedState.Statements.Add( - SF.LocalDeclarationStatement( - SF.TokenList(SF.Token(SyntaxKind.DimKeyword)), - SF.SeparatedList( - {SF.VariableDeclarator( - SF.SeparatedList( - {SF.ModifiedIdentifier(assignmentVariable.Identifier.Text)}), - Nothing, - Nothing)}))) - End If - - _liftedState.Statements.Add( - SF.MultiLineIfBlock( - SF.IfStatement(SF.Token(SyntaxKind.IfKeyword), test, SF.Token(SyntaxKind.ThenKeyword)), - iftruestatements, - elseIfBlocks:=Nothing, - elseBlock:=SF.ElseBlock(iffalsestatements))) - - Return New GeneratedSyntaxNodes(assignmentVariable) - Case Else - Throw New ArgumentOutOfRangeException() - End Select - End Function - - Private Function ProcessArmBody(body As Expression, assignmentVariable As IdentifierNameSyntax) As GeneratedSyntaxNodes - DebugAssert(_liftedState.Statements.Count = 0, "_liftedExpressions.Count = 0") - - Dim translatedBody = Translate(body, assignmentVariable) - - ' Usually we add an assignment for the variable. - ' The exception Is if the body was itself lifted out And the assignment lowering succeeded (nested conditionals) - - ' in this case we get back the lowered assignment variable, And don't need the assignment (i = i) - If translatedBody IsNot assignmentVariable Then - _liftedState.Statements.Add( - SF.SimpleAssignmentStatement( - assignmentVariable, - translatedBody)) - End If - - Dim sn = New GeneratedSyntaxNodes(_liftedState.Statements.Cast(Of SyntaxNode)) - - _liftedState.Statements.Clear() - Return sn - End Function - - Private Function TranslateConditionalStatement(conditional As ConditionalExpression, - isFalseAbsent As Boolean, - test As ExpressionSyntax) As MultiLineIfBlockSyntax - - Dim ifStatement = SF.IfStatement(SF.Token(SyntaxKind.IfKeyword), test, SF.Token(SyntaxKind.ThenKeyword)) - Dim ifTrue = Translate(conditional.IfTrue) - Dim ifFalse = Translate(conditional.IfFalse) - - Dim ifTrueStatements = ResultAsStatementSyntaxList(ifTrue) - - If isFalseAbsent Then - Return SF.MultiLineIfBlock(ifStatement, ifTrueStatements, Nothing, Nothing) - End If - - Dim ifFalseStatements = ResultAsStatementSyntaxList(ifFalse) - - Dim ifFalseIfBlockSyntax = TryCast(ifFalseStatements.FirstOrDefault, MultiLineIfBlockSyntax) - - ' We want to specifically exempt MultiLineIfBlockSyntax under the Else from being wrapped by a block, - ' so as to get nice ElseIf syntax - If ifFalseStatements.Count = 1 AndAlso - ifFalseIfBlockSyntax IsNot Nothing Then - - Dim elseIfBlocks = SF.List(Of ElseIfBlockSyntax)( - {SF.ElseIfBlock(SF.ElseIfStatement(ifFalseIfBlockSyntax.IfStatement.Condition), - ifFalseIfBlockSyntax.Statements)}. - Concat( - ifFalseIfBlockSyntax.ElseIfBlocks.Select( - Function(b) SF.ElseIfBlock(SF.ElseIfStatement(b.ElseIfStatement.Condition), - b.Statements)))) - - Return SF.MultiLineIfBlock(ifStatement, - ifTrueStatements, - elseIfBlocks:=elseIfBlocks, - elseBlock:=ifFalseIfBlockSyntax.ElseBlock) - Else - Return SF.MultiLineIfBlock(ifStatement, - ifTrueStatements, - elseIfBlocks:=Nothing, - elseBlock:=SF.ElseBlock(ifFalseStatements)) - End If - End Function - - ''' - Protected Overrides Function VisitConstant(constant As ConstantExpression) As Expression - Result = New GeneratedSyntaxNodes(GenerateValue(constant.Value)) - - Return constant - End Function - - Private Function GenerateValue(value As Object) As ExpressionSyntax - - If TypeOf value Is Integer OrElse - TypeOf value Is Long OrElse - TypeOf value Is UInteger OrElse - TypeOf value Is ULong OrElse - TypeOf value Is Short OrElse - TypeOf value Is SByte OrElse - TypeOf value Is UShort OrElse - TypeOf value Is Byte OrElse - TypeOf value Is Double OrElse - TypeOf value Is Single OrElse - TypeOf value Is Decimal OrElse - TypeOf value Is Char Then - - Return DirectCast(_g.LiteralExpression(value), ExpressionSyntax) - End If - - If TypeOf value Is String OrElse - TypeOf value Is Boolean OrElse - value Is Nothing Then - - Return DirectCast(_g.LiteralExpression(value), ExpressionSyntax) - End If - - Dim t = TryCast(value, Type) - If t IsNot Nothing Then - Return SF.GetTypeExpression(Translate(t)) - End If - - Dim en = TryCast(value, [Enum]) - If en IsNot Nothing Then - Return HandleEnum(en) - End If - - Dim tuple = TryCast(value, ITuple) - If tuple IsNot Nothing Then - Dim tupleType = tuple.GetType - If tupleType.IsGenericType AndAlso - tupleType.Name.StartsWith("ValueTuple`", StringComparison.Ordinal) AndAlso - tupleType.Namespace = "System" Then - - Return HandleValueTuple(tuple) - End If - End If - - Dim c = TryCast(value, IEqualityComparer) - If c IsNot Nothing AndAlso - c Is StructuralComparisons.StructuralEqualityComparer Then - Return SF.MemberAccessExpression( - SyntaxKind.SimpleMemberAccessExpression, - Translate(GetType(StructuralComparisons)), - SF.Token(SyntaxKind.DotToken), - SF.IdentifierName(NameOf(StructuralComparisons.StructuralEqualityComparer))) - End If - - Dim cultureInfo = TryCast(value, CultureInfo) - If cultureInfo IsNot Nothing Then - If cultureInfo Is CultureInfo.InvariantCulture Then - Return SF.MemberAccessExpression( - SyntaxKind.SimpleMemberAccessExpression, - Translate(GetType(CultureInfo)), - SF.Token(SyntaxKind.DotToken), - SF.IdentifierName(NameOf(cultureInfo.InvariantCulture))) - End If - - If cultureInfo Is CultureInfo.InstalledUICulture Then - Return SF.MemberAccessExpression( - SyntaxKind.SimpleMemberAccessExpression, - Translate(GetType(CultureInfo)), - SF.Token(SyntaxKind.DotToken), - SF.IdentifierName(NameOf(cultureInfo.InstalledUICulture))) - End If - - If cultureInfo Is CultureInfo.CurrentCulture Then - Return SF.MemberAccessExpression( - SyntaxKind.SimpleMemberAccessExpression, - Translate(GetType(CultureInfo)), - SF.Token(SyntaxKind.DotToken), - SF.IdentifierName(NameOf(cultureInfo.CurrentCulture))) - End If - - If cultureInfo Is CultureInfo.CurrentUICulture Then - Return SF.MemberAccessExpression( - SyntaxKind.SimpleMemberAccessExpression, - Translate(GetType(CultureInfo)), - SF.Token(SyntaxKind.DotToken), - SF.IdentifierName(NameOf(cultureInfo.CurrentUICulture))) - End If - - If cultureInfo Is CultureInfo.DefaultThreadCurrentCulture Then - Return SF.MemberAccessExpression( - SyntaxKind.SimpleMemberAccessExpression, - Translate(GetType(CultureInfo)), - SF.Token(SyntaxKind.DotToken), - SF.IdentifierName(NameOf(cultureInfo.DefaultThreadCurrentCulture))) - End If - - If cultureInfo Is CultureInfo.DefaultThreadCurrentUICulture Then - Return SF.MemberAccessExpression( - SyntaxKind.SimpleMemberAccessExpression, - Translate(GetType(CultureInfo)), - SF.Token(SyntaxKind.DotToken), - SF.IdentifierName(NameOf(cultureInfo.DefaultThreadCurrentUICulture))) - End If - End If - - Dim encoding = TryCast(value, Encoding) - If encoding IsNot Nothing Then - If encoding Is Encoding.ASCII Then - Return SF.MemberAccessExpression( - SyntaxKind.SimpleMemberAccessExpression, - Translate(GetType(Encoding)), - SF.Token(SyntaxKind.DotToken), - SF.IdentifierName(NameOf(encoding.ASCII))) - End If - - If encoding Is Encoding.Unicode Then - Return SF.MemberAccessExpression( - SyntaxKind.SimpleMemberAccessExpression, - Translate(GetType(Encoding)), - SF.Token(SyntaxKind.DotToken), - SF.IdentifierName(NameOf(encoding.Unicode))) - End If - - If encoding Is Encoding.BigEndianUnicode Then - Return SF.MemberAccessExpression( - SyntaxKind.SimpleMemberAccessExpression, - Translate(GetType(Encoding)), - SF.Token(SyntaxKind.DotToken), - SF.IdentifierName(NameOf(encoding.BigEndianUnicode))) - End If - - If encoding Is Encoding.UTF8 Then - Return SF.MemberAccessExpression( - SyntaxKind.SimpleMemberAccessExpression, - Translate(GetType(Encoding)), - SF.Token(SyntaxKind.DotToken), - SF.IdentifierName(NameOf(encoding.UTF8))) - End If - - If encoding Is Encoding.UTF32 Then - Return SF.MemberAccessExpression( - SyntaxKind.SimpleMemberAccessExpression, - Translate(GetType(Encoding)), - SF.Token(SyntaxKind.DotToken), - SF.IdentifierName(NameOf(encoding.UTF32))) - End If - - If encoding Is Encoding.Latin1 Then - Return SF.MemberAccessExpression( - SyntaxKind.SimpleMemberAccessExpression, - Translate(GetType(Encoding)), - SF.Token(SyntaxKind.DotToken), - SF.IdentifierName(NameOf(encoding.Latin1))) - End If - - If encoding Is Encoding.Default Then - Return SF.MemberAccessExpression( - SyntaxKind.SimpleMemberAccessExpression, - Translate(GetType(Encoding)), - SF.Token(SyntaxKind.DotToken), - SF.IdentifierName(NameOf(encoding.Default))) - End If - End If - - Throw New NotSupportedException( - $"Encountered a constant of unsupported type '{value.GetType().Name}'. Only primitive constant nodes are supported.") - End Function - - Private Function HandleValueTuple(tuple As ITuple) As ExpressionSyntax - Dim arguments(tuple.Length - 1) As SimpleArgumentSyntax - For i = 0 To tuple.Length - 1 - arguments(i) = SF.SimpleArgument(GenerateValue(tuple(i))) - Next - - Return SF.TupleExpression(SF.SeparatedList(arguments)) - End Function - - Private Function HandleEnum(en As [Enum]) As ExpressionSyntax - Dim enumType = en.GetType() - - Dim formatted = [Enum].Format(enumType, en, "G") - If Char.IsDigit(formatted(0)) Then - ' Unknown value, render as a cast of the underlying integral value - If Not [Enum].IsDefined(en.GetType(), en) Then - Dim underlyingType = enumType.GetEnumUnderlyingType() - - Return SF.CTypeExpression( - SF.LiteralExpression( - SyntaxKind.NumericLiteralExpression, - If(underlyingType = GetType(SByte) OrElse - underlyingType = GetType(Short) OrElse - underlyingType = GetType(Integer) OrElse - underlyingType = GetType(Long), - SF.Literal(Long.Parse(formatted)), - SF.Literal(ULong.Parse(formatted)))), - Translate(enumType)) - End If - End If - - Dim components = formatted.Split(", ") - DebugAssert(components.Length > 0, "components.Length > 0") - - Return components.Aggregate( - CType(Nothing, ExpressionSyntax), - Function(last, [next]) - If last Is Nothing Then - Return SF.MemberAccessExpression( - SyntaxKind.SimpleMemberAccessExpression, - SF.IdentifierName(enumType.Name), - SF.Token(SyntaxKind.DotToken), - SF.IdentifierName([next])) - Else - Return SyntaxFactory.BinaryExpression( - SyntaxKind.OrExpression, - last, - SF.Token(SyntaxKind.OrKeyword), - SF.MemberAccessExpression( - SyntaxKind.SimpleMemberAccessExpression, - SF.IdentifierName(enumType.Name), - SF.Token(SyntaxKind.DotToken), - SF.IdentifierName([next]))) - End If - End Function) - End Function - - ''' - Protected Overrides Function VisitDebugInfo(node As DebugInfoExpression) As Expression - Throw New NotSupportedException("DebugInfo nodes are not supporting when translating expression trees to Visual Basic") - End Function - - ''' - Protected Overrides Function VisitDefault(node As DefaultExpression) As Expression - Result = New GeneratedSyntaxNodes( - SF.CTypeExpression(SF.NothingLiteralExpression(SF.Token(SyntaxKind.NothingKeyword)), Translate(node.Type))) - Return node - End Function - - ''' - Protected Overrides Function VisitGoto(gotoNode As GotoExpression) As Expression - Result = New GeneratedSyntaxNodes( - SF.GoToStatement(SF.IdentifierLabel(TranslateLabelTarget(gotoNode.Target).Identifier))) - Return gotoNode - End Function - - ''' - Protected Overrides Function VisitInvocation(invocation As InvocationExpression) As Expression - Dim lambda = DirectCast(invocation.Expression, LambdaExpression) - - ' We need to inline the lambda invocation into the tree, by replacing parameters in the lambda body with the invocation arguments. - ' However, if an argument to the invocation can have side effects (e.g. a method call), and it's referenced multiple times from - ' the body, then that would cause multiple evaluation, which is wrong (same if the arguments are evaluated only once but in reverse - ' order). - ' So we have to lift such arguments. - Dim arguments(invocation.Arguments.Count - 1) As Expression - - For i = 0 To arguments.Length - 1 - Dim argument = invocation.Arguments(i) - - If TypeOf argument Is ConstantExpression Then - ' No need to evaluate into a separate variable, just pass directly - arguments(i) = argument - Continue For - End If - - ' Need to lift - Dim name = UniquifyVariableName(If(lambda.Parameters(i).Name, "lifted")) - Dim parameter = E.Parameter(argument.Type, name) - _liftedState.Statements.Add(GenerateDeclaration(name, Translate(Of ExpressionSyntax)(argument))) - arguments(i) = parameter - Next - - Dim replacedBody = New ReplacingExpressionVisitor(lambda.Parameters, arguments).Visit(lambda.Body) - Result = Translate(replacedBody) - - Return invocation - End Function - - ''' - Protected Overrides Function VisitLabel(label As LabelExpression) As Expression - Result = New GeneratedSyntaxNodes( - SF.LabelStatement(TranslateLabelTarget(label.Target).Identifier.Text)) - Return label - End Function - - ''' - Protected Overrides Function VisitLabelTarget(labelTarget As LabelTarget) As LabelTarget - If labelTarget Is Nothing Then - Throw New NotImplementedException("Null argument in VisitLabelTarget") - End If - - Result = New GeneratedSyntaxNodes(TranslateLabelTarget(labelTarget)) - Return labelTarget - End Function - - ''' - ''' This is an internal API that supports the Entity Framework Core infrastructure and not subject to - ''' the same compatibility standards as public APIs. It may be changed or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution and knowing that - ''' doing so can result in application failures when updating to a new Entity Framework Core release. - ''' - Protected Overridable Function TranslateLabelTarget(labelTarget As LabelTarget) As IdentifierNameSyntax - ' In LINQ expression trees, label targets can have a return type (they're expressions), which means they return the last evaluated - ' thing if e.g. they're the last expression in a block. This would require lifting out the last evaluation before the goto/break, - ' assigning it to a temporary variable, and adding a variable evaluation after the label. - If labelTarget.Type <> GetType(Void) Then - Throw New NotImplementedException("Non-void label target") - End If - - ' We did a processing pass on the block's labels, so any labels should already be found in our label stack frame - Return SF.IdentifierName(_labels(labelTarget)) - End Function - - Private Function Translate(type As Type) As TypeSyntax - If type.IsGenericType Then - Return SF.GenericName( - SF.Identifier(type.Name.Substring(0, type.Name.IndexOf("`"c))), - SF.TypeArgumentList(SF.SeparatedList(type.GenericTypeArguments.Select(AddressOf Translate)))) - End If - - If type = GetType(String) Then - Return SF.PredefinedType(SF.Token(SyntaxKind.StringKeyword)) - End If - - If type = GetType(Boolean) Then - Return SF.PredefinedType(SF.Token(SyntaxKind.BooleanKeyword)) - End If - - If type = GetType(Byte) Then - Return SF.PredefinedType(SF.Token(SyntaxKind.ByteKeyword)) - End If - - If type = GetType(SByte) Then - Return SF.PredefinedType(SF.Token(SyntaxKind.SByteKeyword)) - End If - - If type = GetType(Integer) Then - Return SF.PredefinedType(SF.Token(SyntaxKind.IntegerKeyword)) - End If - - If type = GetType(UInteger) Then - Return SF.PredefinedType(SF.Token(SyntaxKind.UIntegerKeyword)) - End If - - If type = GetType(Short) Then - Return SF.PredefinedType(SF.Token(SyntaxKind.ShortKeyword)) - End If - - If type = GetType(UShort) Then - Return SF.PredefinedType(SF.Token(SyntaxKind.UShortKeyword)) - End If - - If type = GetType(Long) Then - Return SF.PredefinedType(SF.Token(SyntaxKind.LongKeyword)) - End If - - If type = GetType(ULong) Then - Return SF.PredefinedType(SF.Token(SyntaxKind.ULongKeyword)) - End If - - If type = GetType(Single) Then - Return SF.PredefinedType(SF.Token(SyntaxKind.SingleKeyword)) - End If - - If type = GetType(Double) Then - Return SF.PredefinedType(SF.Token(SyntaxKind.DoubleKeyword)) - End If - - If type = GetType(Decimal) Then - Return SF.PredefinedType(SF.Token(SyntaxKind.DecimalKeyword)) - End If - - If type = GetType(Char) Then - Return SF.PredefinedType(SF.Token(SyntaxKind.CharKeyword)) - End If - - If type = GetType(Object) Then - Return SF.PredefinedType(SF.Token(SyntaxKind.ObjectKeyword)) - End If - - If type.IsArray Then - Return SF.ArrayType(Translate(type.GetElementType())) - End If - - If type.IsNested Then - Return SF.QualifiedName( - DirectCast(Translate(type.DeclaringType), NameSyntax), - SF.IdentifierName(type.Name)) - End If - - If type.Namespace IsNot Nothing Then - _collectedNamespaces.Add(type.Namespace) - End If - - Return SF.IdentifierName(type.Name) - End Function - - ''' - Protected Overrides Function VisitLambda(Of T)(lambda As Expression(Of T)) As Expression - - Using ChangeContext(If(lambda.ReturnType = GetType(Void), - ExpressionContext.Statement, - ExpressionContext.ExpressionLambda)) - - Dim parentOnLastLambdaLine = _onLastLambdaLine - _onLastLambdaLine = True - - Dim stackFrame = PushNewStackFrame() - - For Each param In lambda.Parameters - Dim name = UniquifyVariableName(param.Name) - stackFrame.Variables(param) = name - stackFrame.VariableNames.Add(name) - Next - - Dim body = Translate(lambda.Body) - - ' If the lambda body was an expression that had lifted statements (e.g. some block in expression context), - ' we need to insert those statements at the start - If _liftedState.Statements.Count > 0 Then - DebugAssert(lambda.ReturnType <> GetType(Void), "lambda.ReturnType <> GetType(Void)") - DebugAssert(body.IsASingleExpression, "body.IsASingleExpression") - - body = New GeneratedSyntaxNodes( - _liftedState.Statements. - Append(SF.ReturnStatement(body.GetExpression)). - ToList()) - - _liftedState.Statements.Clear() - End If - - ' Note that we always explicitly include the parameters types. - ' This is because in some cases, the parameter isn't actually used in the lambda body, and the compiler can't infer its type. - ' However, we can't do that when the type is anonymous. - Dim parameters = - SF.ParameterList( - SF.SeparatedList( - lambda. - Parameters. - Select(Function(p) SF.Parameter( - Nothing, - Nothing, - SF.ModifiedIdentifier(SF.Identifier(LookupVariableName(p))), - SF.SimpleAsClause(If(p.Type.IsAnonymousType(), Nothing, Translate(p.Type))), - Nothing)))) - - Dim isSingleLine As Boolean - Dim isProcedure = lambda.ReturnType = GetType(Void) - - Dim lambdaHeader As LambdaHeaderSyntax - Dim lambdaKind As SyntaxKind - - If isProcedure Then - ' The body of a single-line subroutine must be single-line statement. - isSingleLine = body.Count = 1 AndAlso TypeOf body.Node Is InvocationExpressionSyntax - lambdaHeader = SF.LambdaHeader(SyntaxKind.SubLambdaHeader, SF.Token(SyntaxKind.SubKeyword)) - lambdaKind = If(isSingleLine, SyntaxKind.SingleLineSubLambdaExpression, SyntaxKind.MultiLineSubLambdaExpression) - Else - Dim asClause As SimpleAsClauseSyntax = Nothing - ' The body of a single-line function must be an expression that returns a value, not a statement. - isSingleLine = body.IsASingleExpression OrElse - (body.Count = 1 AndAlso TypeOf body.Node Is ReturnStatementSyntax) - - If Not isSingleLine Then - asClause = SF.SimpleAsClause(Translate(lambda.ReturnType)) - End If - - lambdaHeader = SF.LambdaHeader(SyntaxKind.FunctionLambdaHeader, Nothing, Nothing, SF.Token(SyntaxKind.FunctionKeyword), Nothing, asClause) - lambdaKind = If(isSingleLine, SyntaxKind.SingleLineFunctionLambdaExpression, SyntaxKind.MultiLineFunctionLambdaExpression) - End If - - lambdaHeader = lambdaHeader.WithParameterList(parameters) - - If isSingleLine Then - Result = New GeneratedSyntaxNodes( - SF.SingleLineLambdaExpression(lambdaKind, lambdaHeader, DirectCast(body.Node, VisualBasicSyntaxNode))) - Else - Dim endStatement = If(isProcedure, SF.EndSubStatement(), SF.EndFunctionStatement()) - Dim statements = SF.List(ResultAsStatementSyntaxList(body)) - - Result = New GeneratedSyntaxNodes( - SF.MultiLineLambdaExpression(lambdaKind, lambdaHeader, statements, endStatement)) - End If - - Dim popped = _stack.Pop() - DebugAssert(popped.Equals(stackFrame), "popped.Equals(stackFrame)") - - _onLastLambdaLine = parentOnLastLambdaLine - - Return lambda - End Using - End Function - - ''' - Protected Overrides Function VisitLoop([loop] As LoopExpression) As Expression - - If _context = ExpressionContext.Expression Then - Throw New NotImplementedException() - End If - - Dim rewrittenLoop1 = [loop] - - If [loop].ContinueLabel IsNot Nothing Then - Dim blockExpr = TryCast([loop].Body, BlockExpression) - Dim blockBody = If(blockExpr, E.Block([loop].Body)) - - blockBody = blockBody.Update( - blockBody.Variables, - New E() {E.Label([loop].ContinueLabel)}.Concat(blockBody.Expressions)) - - rewrittenLoop1 = [loop].Update( - [loop].BreakLabel, - continueLabel:=Nothing, - blockBody) - End If - - Dim rewrittenLoop2 As Expression = rewrittenLoop1 - - If [loop].BreakLabel IsNot Nothing Then - rewrittenLoop2 = - E.Block( - rewrittenLoop1.Update(breakLabel:=Nothing, rewrittenLoop1.ContinueLabel, rewrittenLoop1.Body), - E.Label([loop].BreakLabel)) - End If - - If rewrittenLoop2 IsNot [loop] Then - Return Visit(rewrittenLoop2) - End If - - Dim translatedBody = ResultAsStatementSyntaxList(Translate([loop].Body)) - - Result = New GeneratedSyntaxNodes( - SF.WhileBlock( - SF.WhileStatement(SF.TrueLiteralExpression(SF.Token(SyntaxKind.TrueKeyword))), - translatedBody)) - - Return [loop] - End Function - - ''' - Protected Overrides Function VisitMember(member As MemberExpression) As Expression - Using ChangeContext(ExpressionContext.Expression) - - ' LINQ expression trees can directly access private members, but VB code cannot; render (slow) reflection code that does the same - ' thing. Note that assignment to private members is handled in VisitBinary. - ' TODO: Replace this with a more efficient API for .NET 8.0. - - Dim fieldInfo = TryCast(member.Member, FieldInfo) - If fieldInfo IsNot Nothing AndAlso fieldInfo.IsPrivate Then - If member.Expression Is Nothing Then - Throw New NotImplementedException("Private Shared field access") - End If - - If member.Member.DeclaringType Is Nothing Then - Throw New NotSupportedException("Private field without a declaring type: " & member.Member.Name) - End If - - If _typeGetFieldMethod Is Nothing Then - _typeGetFieldMethod = GetType(Type).GetMethod(NameOf(System.Type.GetField), {GetType(String), GetType(BindingFlags)}) - End If - - If _fieldGetValueMethod Is Nothing Then - _fieldGetValueMethod = GetType(FieldInfo).GetMethod(NameOf(fieldInfo.GetValue), {GetType(Object)}) - End If - - Result = Translate( - E.Call( - E.Call( - E.Constant(member.Member.DeclaringType), - _typeGetFieldMethod, - E.Constant(fieldInfo.Name), - E.Constant(BindingFlags.NonPublic Or BindingFlags.Instance)), - _fieldGetValueMethod, - member.Expression)) - - ' TODO: private property - ' TODO: private event - - Return member - End If - - Dim constantExpression = TryCast(member.Expression, ConstantExpression) - If fieldInfo IsNot Nothing AndAlso constantExpression IsNot Nothing AndAlso - constantExpression.Type.Attributes.HasFlag(TypeAttributes.NestedPrivate) AndAlso - Attribute.IsDefined(constantExpression.Type, GetType(CompilerGeneratedAttribute), inherit:=True) Then - - ' Unwrap closure - VisitConstant(E.Constant(fieldInfo.GetValue(constantExpression.Value), member.Type)) - Return member - End If - - Result = New GeneratedSyntaxNodes( - SF.MemberAccessExpression( - SyntaxKind.SimpleMemberAccessExpression, - If(member.Expression Is Nothing, - Translate(member.Member.DeclaringType), ' Shared - Translate(Of ExpressionSyntax)(member.Expression)), - SF.Token(SyntaxKind.DotToken), - SF.IdentifierName(member.Member.Name))) - - Return member - End Using - End Function - - ''' - Protected Overrides Function VisitIndex(index As IndexExpression) As Expression - Using ChangeContext(ExpressionContext.Expression) - - If index.Arguments.Count > 1 Then - Throw New NotImplementedException("IndexExpression with multiple arguments") - End If - - Result = New GeneratedSyntaxNodes( - SF.InvocationExpression( - Translate(Of ExpressionSyntax)(index.Object), - SF.ArgumentList( - SF.SingletonSeparatedList(Of ArgumentSyntax)( - SF.SimpleArgument( - Translate(Of ExpressionSyntax)(index.Arguments.Single())))))) - - Return index - End Using - End Function - - ''' - Protected Overrides Function VisitMethodCall([call] As MethodCallExpression) As Expression - - If [call].Method.DeclaringType Is Nothing Then - Throw New NotSupportedException($"Can't translate method '{[call].Method.Name}' which has no declaring type") - End If - - Using ChangeContext(ExpressionContext.Expression) - Dim arguments = TranslateMethodArguments([call].Method.GetParameters(), [call].Arguments) - - ' For generic methods, we check whether the generic type arguments are inferrable (e.g. they all appear in the parameters), and - ' only explicitly specify the arguments if not. Note that this isn't just for prettier code: anonymous types cannot be explicitly - ' named in code. - Dim methodIdentifier As SimpleNameSyntax - If Not [call].Method.IsGenericMethod OrElse GenericTypeParameterAreInferrable([call]) Then - methodIdentifier = SF.IdentifierName([call].Method.Name) - Else - DebugAssert( - [call].Method.GetGenericArguments().All(Function(ga) Not ga.IsAnonymousType()), - "Anonymous type as generic type argument for method whose type arguments aren't inferrable") - - methodIdentifier = SF.GenericName( - SF.Identifier([call].Method.Name), - SF.TypeArgumentList( - SF.SeparatedList( - [call].Method.GetGenericArguments().Select(AddressOf Translate)))) - End If - - ' Extension syntax - Dim literal As LiteralExpressionSyntax = Nothing - If arguments.Length > 0 Then literal = TryCast(arguments(0).Expression, LiteralExpressionSyntax) - - If [call].Method.IsDefined(GetType(ExtensionAttribute), inherit:=False) AndAlso - Not (literal IsNot Nothing AndAlso - literal.IsKind(SyntaxKind.NothingLiteralExpression)) Then - - Result = New GeneratedSyntaxNodes( - SF.InvocationExpression( - SF.MemberAccessExpression( - SyntaxKind.SimpleMemberAccessExpression, - arguments(0).Expression, - SF.Token(SyntaxKind.DotToken), - methodIdentifier), - SF.ArgumentList(SF.SeparatedList(arguments.Skip(1).Cast(Of ArgumentSyntax))))) - ElseIf [call].Method.Name = "op_Equality" AndAlso - [call].Method.IsHideBySig AndAlso - [call].Method.IsSpecialName Then - - Result = New GeneratedSyntaxNodes( - SF.EqualsExpression( - Translate(Of ExpressionSyntax)([call].Arguments(0)), - Translate(Of ExpressionSyntax)([call].Arguments(1)))) - Else - Dim expression As ExpressionSyntax - If [call].Object Is Nothing Then - ' Shared method call. Recursively add MemberAccessExpressions for all declaring types (for methods on nested types) - expression = GetMemberAccessesForAllDeclaringTypes([call].Method.DeclaringType) - Else - expression = Translate(Of ExpressionSyntax)([call].Object) - End If - - If [call].Method.Name.StartsWith("get_", StringComparison.Ordinal) AndAlso - [call].Method.GetParameters().Length = 1 AndAlso - [call].Method.IsHideBySig AndAlso - [call].Method.IsSpecialName Then - - Result = New GeneratedSyntaxNodes( - SF.InvocationExpression( - expression, - SF.ArgumentList(SF.SeparatedList(arguments.Cast(Of ArgumentSyntax))))) - Else - Result = New GeneratedSyntaxNodes( - SF.InvocationExpression( - SF.MemberAccessExpression( - SyntaxKind.SimpleMemberAccessExpression, - expression, - SF.Token(SyntaxKind.DotToken), - methodIdentifier), - SF.ArgumentList(SF.SeparatedList(arguments.Cast(Of ArgumentSyntax))))) - End If - End If - - If [call].Method.DeclaringType.Namespace <> "" Then - _collectedNamespaces.Add([call].Method.DeclaringType.Namespace) - End If - - Return [call] - End Using - End Function - - Private Function GetMemberAccessesForAllDeclaringTypes(type As Type) As ExpressionSyntax - Return If(type.DeclaringType Is Nothing, - DirectCast(Translate(type), ExpressionSyntax), - SF.MemberAccessExpression( - SyntaxKind.SimpleMemberAccessExpression, - GetMemberAccessesForAllDeclaringTypes(type.DeclaringType), - SF.Token(SyntaxKind.DotToken), - SF.IdentifierName(type.Name))) - End Function - - Private Function GenericTypeParameterAreInferrable([call] As MethodCallExpression) As Boolean - Dim originalDefinition = [call].Method.GetGenericMethodDefinition() - Dim unseenTypeParameters = originalDefinition.GetGenericArguments().ToList() - - For Each parameter In originalDefinition.GetParameters() - ProcessType(parameter.ParameterType, unseenTypeParameters) - Next - - Return unseenTypeParameters.Count = 0 - End Function - - Private Sub ProcessType(type As Type, unseenTypeParameters As List(Of Type)) - If type.IsGenericParameter Then - unseenTypeParameters.Remove(type) - ElseIf type.IsGenericType Then - For Each genericArgument In type.GetGenericArguments() - ProcessType(genericArgument, unseenTypeParameters) - Next - End If - End Sub - - ''' - Protected Overrides Function VisitNewArray(newArray As NewArrayExpression) As Expression - Using ChangeContext(ExpressionContext.Expression) - Dim elementType = Translate(newArray.Type.GetElementType()) - Dim expressions = TranslateList(newArray.Expressions) - - If newArray.NodeType = ExpressionType.NewArrayBounds Then - Result = New GeneratedSyntaxNodes( - SF.ArrayCreationExpression( - Nothing, - elementType, - GenerateArrayBounds(expressions), - SF.CollectionInitializer())) - - Return newArray - End If - - DebugAssert(newArray.NodeType = ExpressionType.NewArrayInit, "newArray.NodeType = ExpressionType.NewArrayInit") - - Result = New GeneratedSyntaxNodes( - _g.ArrayCreationExpression(elementType, expressions)) - - Return newArray - End Using - End Function - - Private Function GenerateArrayBounds(expressions As ExpressionSyntax()) As ArgumentListSyntax - - Dim arguments As New List(Of ArgumentSyntax) - - For Each expr In expressions - arguments.Add( - DirectCast( - SF.SimpleArgument( - SF.SubtractExpression( - expr, - SF.NumericLiteralExpression( - SF.Literal(1)))), - ArgumentSyntax)) - Next - - Return SF.ArgumentList( - SF.SeparatedList(arguments)) - End Function - - ''' - Protected Overrides Function VisitNew(node As NewExpression) As Expression - Using ChangeContext(ExpressionContext.Expression) - - Dim arguments = If(node.Constructor Is Nothing, - Array.Empty(Of SimpleArgumentSyntax), - TranslateMethodArguments(node.Constructor.GetParameters(), node.Arguments)) - - If node.Type.IsAnonymousType() Then - If node.Members Is Nothing Then - Throw New NotSupportedException("Anonymous type creation without members") - End If - - Result = New GeneratedSyntaxNodes( - SF.AnonymousObjectCreationExpression( - SF.ObjectMemberInitializer( - SF.SeparatedList(Of FieldInitializerSyntax)( - arguments.Select(Function(arg, i) SF.NamedFieldInitializer(SF.IdentifierName(node.Members(i).Name), arg.Expression)))))) - - Return node - End If - - ' If the type has any required properties and the constructor doesn't have [SetsRequiredMembers], we can't just generate an - ' instantiation expression. - ' TODO: Currently matching attributes by name since we target .NET 6.0. If/when we target .NET 7.0 and above, match the type. - If node.Type.GetCustomAttributes(inherit:=True). - Any(Function(a) a.GetType().FullName = "System.Runtime.CompilerServices.RequiredMemberAttribute") AndAlso - node.Constructor IsNot Nothing AndAlso - Not node.Constructor.GetCustomAttributes(). - Any(Function(a) a.GetType().FullName = "System.Diagnostics.CodeAnalysis.SetsRequiredMembersAttribute") Then - - ' If the constructor is parameterless, we generate Activator.Create(Of T)() which is almost as fast (<10ns difference). - ' For constructors with parameters, we currently throw as not supported (we can pass parameters, but boxing, probably - ' speed degradation etc.). - If node.Constructor.GetParameters().Length = 0 Then - - _activatorCreateInstanceMethod = - If(_activatorCreateInstanceMethod, GetType(Activator).GetMethod( - NameOf(Activator.CreateInstance), Array.Empty(Of Type))) - - Result = - Translate( - E.Call(_activatorCreateInstanceMethod.MakeGenericMethod(node.Type))) - Else - Throw New NotImplementedException("Instantiation of type with required properties via constructor that has parameters") - End If - - Else - ' Normal case with plain old instantiation - Result = New GeneratedSyntaxNodes( - SF.ObjectCreationExpression( - Nothing, - Translate(node.Type), - SF.ArgumentList(SF.SeparatedList(Of ArgumentSyntax)(arguments)), - Nothing)) - End If - - If node.Constructor?.DeclaringType?.Namespace IsNot Nothing Then - _collectedNamespaces.Add(node.Constructor.DeclaringType.Namespace) - End If - - Return node - End Using - End Function - - ''' - Protected Overrides Function VisitParameter(parameter As ParameterExpression) As Expression - - Dim name As String = Nothing - - ' Note that the parameter in the lambda declaration is handled separately in VisitLambda - If _stack.Peek().Variables.TryGetValue(parameter, name) OrElse - _liftedState.Variables.TryGetValue(parameter, name) Then - - Result = New GeneratedSyntaxNodes(SF.IdentifierName(name)) - Return parameter - End If - - ' This parameter is unknown to us - it's captured from outside the entire expression tree. - ' Simply return its name without worrying about uniquification, since the variable needs to correspond to the outside in any - ' case (it's the callers responsibility). - _capturedVariables.Add(parameter) - - If parameter.Name Is Nothing Then - Throw New NotSupportedException("Unnamed captured variable") - End If - - Result = New GeneratedSyntaxNodes(SF.IdentifierName(parameter.Name)) - Return parameter - End Function - - ''' - Protected Overrides Function VisitRuntimeVariables(node As RuntimeVariablesExpression) As Expression - Throw New NotSupportedException() - End Function - - ''' - Protected Overrides Function VisitSwitchCase(node As SwitchCase) As SwitchCase - Throw New NotSupportedException("Translation happens as part of VisitSwitch") - End Function - - ''' - Protected Overrides Function VisitSwitch(switchNode As SwitchExpression) As Expression - Result = TranslateSwitch(switchNode, lowerableAssignmentVariable:=Nothing) - - Return switchNode - End Function - - ''' - ''' This is an internal API that supports the Entity Framework Core infrastructure and not subject to - ''' the same compatibility standards as public APIs. It may be changed or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution and knowing that - ''' doing so can result in application failures when updating to a new Entity Framework Core release. - ''' - Protected Overridable Function TranslateSwitch(switchNode As SwitchExpression, lowerableAssignmentVariable As IdentifierNameSyntax) As GeneratedSyntaxNodes - - If switchNode.Comparison IsNot Nothing Then - Throw New NotImplementedException("Switch with non-null comparison method") - End If - - Dim switchValue = Translate(Of ExpressionSyntax)(switchNode.SwitchValue) - - Select Case _context - Case ExpressionContext.Statement - - ' Rewrites the switch as a series of nested ConditionalExpressions if a reference equality is found. - If switchNode.Cases.SelectMany(Function(c) c.TestValues).Any(Function(tv) IsReferenceEqualitySemantics(switchNode.SwitchValue, tv)) Then - Return TranslateConditional(RewriteSwitchToConditionals(switchNode), lowerableAssignmentVariable) - End If - - Dim parentLiftedState = _liftedState - _liftedState = LiftedState.CreateEmpty() - - Dim cases = - SF.List( - switchNode.Cases.Select( - Function(c) - Return SF.CaseBlock( - SF.CaseStatement( - SF.SeparatedList(Of CaseClauseSyntax)( - c.TestValues.Select( - Function(tv) SF.SimpleCaseClause(Translate(Of ExpressionSyntax)(tv))))), - statements:=ProcessCaseBody(c.Body)) - End Function)) - - If switchNode.DefaultBody IsNot Nothing Then - cases = cases.Add( - SF.CaseElseBlock( - SF.CaseElseStatement(SF.ElseCaseClause()), - ProcessCaseBody(switchNode.DefaultBody))) - End If - - Return New GeneratedSyntaxNodes(SF.SelectBlock(SF.SelectStatement(switchValue), cases)) - Case ExpressionContext.Expression, - ExpressionContext.ExpressionLambda - - If switchNode.DefaultBody Is Nothing Then - Throw New NotSupportedException("Missing default arm for switch expression") - End If - - Dim parentLiftedState = _liftedState - _liftedState = LiftedState.CreateEmpty() - - ' VB does not support SwitchExpression. This rewrites the switch as a series of nested ConditionalExpressions. - Dim conditionalExpr = TranslateConditional(RewriteSwitchToConditionals(switchNode), lowerableAssignmentVariable) - - ' If there were no lifted expressions inside any arm, we can return this TernaryConditionalExpression - If _liftedState.Statements.Count = 0 AndAlso - conditionalExpr.IsASingleExpression Then - _liftedState = parentLiftedState - Return conditionalExpr - End If - - ' Rewriting it to a Select Case statement. - _liftedState = LiftedState.CreateEmpty() - - Dim assignmentVariable As IdentifierNameSyntax - Dim loweredAssignmentVariableType As TypeSyntax = Nothing - - If lowerableAssignmentVariable Is Nothing Then - Dim name = UniquifyVariableName("liftedSwitch") - Dim param = E.Parameter(switchNode.Type, name) - assignmentVariable = SF.IdentifierName(name) - loweredAssignmentVariableType = Translate(param.Type) - Else - assignmentVariable = lowerableAssignmentVariable - End If - - Dim cases = SF.List( - switchNode.Cases.Select( - Function(c) - Return SF.CaseBlock( - SF.CaseStatement( - SF.SeparatedList(Of CaseClauseSyntax)( - c.TestValues.Select( - Function(tv) SF.SimpleCaseClause(Translate(Of ExpressionSyntax)(tv))))), - statements:=ProcessCaseArmBody(c.Body, assignmentVariable)) - End Function). - Append( - SF.CaseElseBlock( - SF.CaseElseStatement(SF.ElseCaseClause()), - ProcessCaseArmBody(switchNode.DefaultBody, assignmentVariable)))) - - _liftedState = parentLiftedState - - If lowerableAssignmentVariable Is Nothing Then - _liftedState.Statements.Add( - SF.LocalDeclarationStatement( - New SyntaxTokenList(SF.Token(SyntaxKind.DimKeyword)), - SF.SingletonSeparatedList( - SF.VariableDeclarator( - SF.SingletonSeparatedList(SF.ModifiedIdentifier(assignmentVariable.Identifier.Text)), - SF.SimpleAsClause(loweredAssignmentVariableType), - Nothing)))) - End If - - _liftedState.Statements.Add(SF.SelectBlock(SF.SelectStatement(switchValue), cases)) - Return New GeneratedSyntaxNodes(assignmentVariable) - Case Else - Throw New ArgumentOutOfRangeException() - End Select - End Function - - Private Function ProcessCaseBody(body As Expression) As SyntaxList(Of StatementSyntax) - Dim translatedBody = Translate(body) - - Return ResultAsStatementSyntaxList(translatedBody) - End Function - - Private Function ProcessCaseArmBody(body As Expression, assignmentVariable As IdentifierNameSyntax) As SyntaxList(Of StatementSyntax) - DebugAssert(_liftedState.Statements.Count = 0, "_liftedExpressions.Count = 0") - - Dim translatedBody = Translate(body, assignmentVariable) - - Dim AssignmentStatement = SF.SimpleAssignmentStatement( - assignmentVariable, - translatedBody) - - If _liftedState.Statements.Count = 0 Then - ' Simple expression, can embed directly in the switch case - Return SF.List(Of StatementSyntax)({AssignmentStatement}) - End If - - ' Usually we add an assignment for the variable. - ' The exception is if the body was itself lifted out and the assignment lowering succeeded (nested conditionals) - - ' in this case we get back the lowered assignment variable, and don't need the assignment (i = i) - If translatedBody IsNot assignmentVariable Then - _liftedState.Statements.Add( - SF.SimpleAssignmentStatement( - assignmentVariable, - translatedBody)) - End If - - Dim statements = SF.List(_liftedState.Statements.ToList()) - - _liftedState.Statements.Clear() - Return statements - End Function - - Private Shared Function RewriteSwitchToConditionals(node As SwitchExpression) As ConditionalExpression - If node.Type = GetType(Void) Then - Dim newExpr = - node.Cases. - SelectMany(Function(c) c.TestValues, Function(c, tv) New With {c.Body, .Label = tv}). - Reverse(). - Aggregate( - node.DefaultBody, - Function(expression, arm) If(expression Is Nothing, - E.IfThen(E.Equal(node.SwitchValue, arm.Label), arm.Body), - E.IfThenElse(E.Equal(node.SwitchValue, arm.Label), arm.Body, expression))) - - If newExpr Is Nothing Then - Throw New NotImplementedException("Empty switch statement") - End If - - Return DirectCast(newExpr, ConditionalExpression) - End If - - DebugAssert(node.DefaultBody IsNot Nothing, "Switch expression with non-void return type but no default body") - - Return DirectCast( - node.Cases. - SelectMany(Function(c) c.TestValues, Function(c, tv) New With {c.Body, .Label = tv}). - Reverse(). - Aggregate( - node.DefaultBody, - Function(expression, arm) E.Condition( - E.Equal(node.SwitchValue, arm.Label), - arm.Body, - expression)), - ConditionalExpression) - End Function - - ''' - Protected Overrides Function VisitTry(tryNode As TryExpression) As Expression - - Dim translatedBody As IEnumerable(Of SyntaxNode) = Translate(tryNode.Body).Nodes - - Dim translatedFinally As IEnumerable(Of SyntaxNode) = Nothing - - If tryNode.Finally IsNot Nothing Then - translatedFinally = Translate(tryNode.Finally).Nodes - End If - - Select Case _context - Case ExpressionContext.Statement - If tryNode.Fault IsNot Nothing Then - DebugAssert( - tryNode.Finally Is Nothing AndAlso tryNode.Handlers.Count = 0, - "tryNode.Finally is nothing AndAlso tryNode.Handlers.Count = 0") - - Result = New GeneratedSyntaxNodes( - _g.TryCatchStatement( - translatedBody, - catchClauses:={TranslateCatchBlock(E.Catch(GetType(Exception), tryNode.Fault), noType:=True)})) - - Return tryNode - End If - - Result = New GeneratedSyntaxNodes( - _g.TryCatchStatement( - translatedBody, - catchClauses:=tryNode.Handlers.Select(Function(h) TranslateCatchBlock(h)), - translatedFinally)) - - Return tryNode - - Case ExpressionContext.Expression, - ExpressionContext.ExpressionLambda - - Throw New NotImplementedException() - Case Else - Throw New ArgumentOutOfRangeException() - End Select - End Function - - ''' - Protected Overrides Function VisitTypeBinary(node As TypeBinaryExpression) As Expression - Dim visitedExpression = Translate(Of ExpressionSyntax)(node.Expression) - - Select Case node.NodeType - Case ExpressionType.TypeIs - Result = New GeneratedSyntaxNodes( - SF.TypeOfIsExpression(visitedExpression, Translate(node.TypeOperand))) - Case ExpressionType.TypeEqual - Result = New GeneratedSyntaxNodes( - SF.EqualsExpression(SF.InvocationExpression(SF.SimpleMemberAccessExpression(visitedExpression, SF.IdentifierName(NameOf(Object.GetType))), SF.ArgumentList()), - SF.GetTypeExpression(Translate(node.TypeOperand)))) - Case Else : Throw New ArgumentOutOfRangeException() - End Select - - Return node - End Function - - ''' - Protected Overrides Function VisitUnary(unary As UnaryExpression) As Expression - - If unary.Method IsNot Nothing AndAlso - Not unary.Method.IsHideBySig AndAlso - Not unary.Method.IsSpecialName AndAlso - unary.Method.Name <> "op_Implicit" AndAlso - unary.Method.Name <> "op_Explicit" AndAlso - Not isVBTypeConversionFunctions(unary) Then - - Throw New NotImplementedException("Unary node with non-null method") - End If - - Using ChangeContext(ExpressionContext.Expression) - Dim operand = Translate(Of ExpressionSyntax)(unary.Operand) - - ' TODO: Confirm what to do with the unchecked expression types - - If unary.NodeType = ExpressionType.Not AndAlso unary.Type = GetType(Boolean) Then - Result = New GeneratedSyntaxNodes(_g.LogicalNotExpression(operand)) - ElseIf unary.NodeType = ExpressionType.Throw AndAlso unary.Type = GetType(Void) Then - Result = New GeneratedSyntaxNodes(_g.ThrowStatement(operand)) - Else - Select Case unary.NodeType - Case ExpressionType.Negate - Result = New GeneratedSyntaxNodes(_g.NegateExpression(operand)) - Case ExpressionType.NegateChecked - Result = New GeneratedSyntaxNodes(_g.NegateExpression(operand)) - Case ExpressionType.Not - Result = New GeneratedSyntaxNodes(_g.BitwiseNotExpression(operand)) - Case ExpressionType.OnesComplement - Result = New GeneratedSyntaxNodes(_g.BitwiseNotExpression(operand)) - Case ExpressionType.IsFalse - Result = New GeneratedSyntaxNodes(_g.LogicalNotExpression(operand)) - Case ExpressionType.IsTrue - Result = New GeneratedSyntaxNodes(operand) - Case ExpressionType.ArrayLength - Result = New GeneratedSyntaxNodes(_g.MemberAccessExpression(operand, "Length")) - Case ExpressionType.Convert - Result = TranslateConvert(unary, operand) - Case ExpressionType.ConvertChecked - Result = TranslateConvert(unary, operand) - Case ExpressionType.Throw - Result = New GeneratedSyntaxNodes(_g.ThrowExpression(operand)) - Case ExpressionType.TypeAs - Result = TranslateTypeAs(unary, operand) - Case ExpressionType.Quote - Result = New GeneratedSyntaxNodes(operand) - Case ExpressionType.UnaryPlus - Result = New GeneratedSyntaxNodes(SF.UnaryPlusExpression(operand)) - Case ExpressionType.Unbox - Result = New GeneratedSyntaxNodes(operand) - Case ExpressionType.Increment - Result = Translate(E.Add(unary.Operand, E.Constant(1))) - Case ExpressionType.Decrement - Result = Translate(E.Subtract(unary.Operand, E.Constant(1))) - Case ExpressionType.PostIncrementAssign, - ExpressionType.PostDecrementAssign, - ExpressionType.PreIncrementAssign, - ExpressionType.PreDecrementAssign - Throw New NotSupportedException("Unsupported LINQ unary node: " & unary.NodeType.ToString()) - Case Else - Throw New ArgumentOutOfRangeException("Unsupported LINQ unary node: " & unary.NodeType.ToString()) - End Select - End If - - Return unary - End Using - End Function - - Private Function TranslateTypeAs(unary As UnaryExpression, operand As ExpressionSyntax) As GeneratedSyntaxNodes - If unary.Type.IsNullableValueType Then - Dim underlyingType = unary.Type.UnwrapNullableType() - Return New GeneratedSyntaxNodes( - SF.TernaryConditionalExpression( - SF.TypeOfIsExpression(operand, Translate(underlyingType)), - SF.CTypeExpression(operand, Translate(underlyingType)), - SF.ObjectCreationExpression(Translate(unary.Type)))) - End If - - Return New GeneratedSyntaxNodes(SF.TryCastExpression(operand, Translate(unary.Type))) - End Function - - Private Function TranslateConvert(unary As UnaryExpression, operand As ExpressionSyntax) As GeneratedSyntaxNodes - - If unary.Type Is GetType(Integer) AndAlso - unary.Operand.Type Is GetType(Char) Then - - If _AscW Is Nothing Then - _AscW = GetType(Strings).GetMethod(NameOf(Microsoft.VisualBasic.AscW), {GetType(Char)}) - End If - - Return Translate(E.Call(_AscW, unary.Operand)) - End If - - If unary.Type Is GetType(Char) AndAlso - unary.Operand.Type Is GetType(Integer) Then - - If _ChrW Is Nothing Then - _ChrW = GetType(Strings).GetMethod(NameOf(Microsoft.VisualBasic.ChrW), {GetType(Integer)}) - End If - - Return Translate(E.Call(_ChrW, unary.Operand)) - End If - - If isVBTypeConversionFunctions(unary) Then - Return New GeneratedSyntaxNodes( - SF.PredefinedCastExpression( - VBTypeConversionFunctions(unary.Method.DeclaringType.FullName & "." & unary.Method.Name), - operand). - WithAdditionalAnnotations(Simplification.Simplifier.Annotation)) - End If - - Return New GeneratedSyntaxNodes( - SF.CTypeExpression(operand, Translate(unary.Type)). - WithAdditionalAnnotations(Simplification.Simplifier.Annotation)) - End Function - - Private Shared ReadOnly VBTypeConversionFunctions As New Dictionary(Of String, SyntaxToken)(StringComparer.Ordinal) From { - {"Microsoft.VisualBasic.CompilerServices.Conversions.ToBoolean", SF.Token(SyntaxKind.CBoolKeyword)}, - {"Microsoft.VisualBasic.CompilerServices.Conversions.ToByte", SF.Token(SyntaxKind.CByteKeyword)}, - {"Microsoft.VisualBasic.CompilerServices.Conversions.ToChar", SF.Token(SyntaxKind.CCharKeyword)}, - {"Microsoft.VisualBasic.CompilerServices.Conversions.ToDate", SF.Token(SyntaxKind.CDateKeyword)}, - {"Microsoft.VisualBasic.CompilerServices.Conversions.ToDouble", SF.Token(SyntaxKind.CDblKeyword)}, - {"Microsoft.VisualBasic.CompilerServices.Conversions.ToDecimal", SF.Token(SyntaxKind.CDecKeyword)}, - {"Microsoft.VisualBasic.CompilerServices.Conversions.ToInteger", SF.Token(SyntaxKind.CIntKeyword)}, - {"Microsoft.VisualBasic.CompilerServices.Conversions.ToLong", SF.Token(SyntaxKind.CLngKeyword)}, - {"Microsoft.VisualBasic.CompilerServices.Conversions.ToObject", SF.Token(SyntaxKind.CObjKeyword)}, - {"Microsoft.VisualBasic.CompilerServices.Conversions.ToSByte", SF.Token(SyntaxKind.CSByteKeyword)}, - {"Microsoft.VisualBasic.CompilerServices.Conversions.ToShort", SF.Token(SyntaxKind.CShortKeyword)}, - {"Microsoft.VisualBasic.CompilerServices.Conversions.ToSingle", SF.Token(SyntaxKind.CSngKeyword)}, - {"Microsoft.VisualBasic.CompilerServices.Conversions.ToString", SF.Token(SyntaxKind.CStrKeyword)}, - {"Microsoft.VisualBasic.CompilerServices.Conversions.ToUInteger", SF.Token(SyntaxKind.CUIntKeyword)}, - {"Microsoft.VisualBasic.CompilerServices.Conversions.ToULong", SF.Token(SyntaxKind.CULngKeyword)}, - {"Microsoft.VisualBasic.CompilerServices.Conversions.ToUShort", SF.Token(SyntaxKind.CUShortKeyword)} - } - - Private Shared Function isVBTypeConversionFunctions(unary As UnaryExpression) As Boolean - If unary.Method Is Nothing Then Return False - - If unary.NodeType <> ExpressionType.Convert AndAlso - unary.NodeType <> ExpressionType.ConvertChecked Then - Return False - End If - - If VBTypeConversionFunctions.ContainsKey(unary.Method.DeclaringType.FullName & "." & unary.Method.Name) Then - Return True - End If - - Return False - End Function - - ''' - Protected Overrides Function VisitMemberInit(memberInit As MemberInitExpression) As Expression - Dim objectCreation = Translate(Of ObjectCreationExpressionSyntax)(memberInit.NewExpression) - - Dim incompatibleListBindings As List(Of MemberListBinding) = Nothing - - Dim initializerExpressions As New List(Of FieldInitializerSyntax)(memberInit.Bindings.Count) - - For Each binding In memberInit.Bindings - ' VB collection initialization syntax only works when Add is called on an IEnumerable, but LINQ supports arbitrary add - ' methods. Skip these, we'll add them later outside the initializer - - Dim listBinding = TryCast(binding, MemberListBinding) - If listBinding IsNot Nothing AndAlso - (Not GetMemberType(listBinding.Member).IsAssignableTo(GetType(IEnumerable)) OrElse - listBinding.Initializers.Any(Function(e) e.AddMethod.Name <> "Add" OrElse - e.Arguments.Count <> 1)) Then - - incompatibleListBindings = If(incompatibleListBindings, New List(Of MemberListBinding)) - incompatibleListBindings.Add(listBinding) - Continue For - End If - - Dim liftedStatementsPosition = _liftedState.Statements.Count - - VisitMemberBinding(binding) - - initializerExpressions.Add(DirectCast(Result.Node, FieldInitializerSyntax)) - - If _liftedState.Statements.Count > liftedStatementsPosition Then - ' TODO: This is tricky because of the recursive nature of MemberMemberBinding - Throw New NotImplementedException("MemberInit: lifted statements") - End If - Next - - If incompatibleListBindings IsNot Nothing Then - ' TODO: Lift the instantiation and add extra statements to add the incompatible bindings after that - Throw New NotImplementedException("MemberInit: incompatible MemberListBinding") - End If - - Result = New GeneratedSyntaxNodes( - objectCreation.WithInitializer( - SF.ObjectMemberInitializer( - SF.SeparatedList(Of FieldInitializerSyntax)(initializerExpressions)))) - - Return memberInit - End Function - - Private Shared Function GetMemberType(memberInfo As MemberInfo) As Type - Return If((TryCast(memberInfo, PropertyInfo))?.PropertyType, DirectCast(memberInfo, FieldInfo).FieldType) - End Function - - ''' - Protected Overrides Function VisitListInit(listInit As ListInitExpression) As Expression - Dim objectCreation = Translate(Of ObjectCreationExpressionSyntax)(listInit.NewExpression) - - Dim incompatibleListBindings As List(Of ElementInit) = Nothing - - Dim initializerExpressions As New List(Of ExpressionSyntax)(listInit.Initializers.Count) - - For Each initializer In listInit.Initializers - ' VB collection initialization syntax only works when Add is called on an IEnumerable, but LINQ supports arbitrary add - ' methods. Skip these, we'll add them later outside the initializer - If Not listInit.NewExpression.Type.IsAssignableTo(GetType(IEnumerable)) OrElse - listInit.Initializers.Any(Function(e) e.AddMethod.Name <> "Add" OrElse - e.Arguments.Count <> 1) Then - incompatibleListBindings = If(incompatibleListBindings, New List(Of ElementInit)) - incompatibleListBindings.Add(initializer) - Continue For - End If - - Dim liftedStatementsPosition = _liftedState.Statements.Count - - VisitElementInit(initializer) - - initializerExpressions.Add(DirectCast(Result.Node, ExpressionSyntax)) - - If _liftedState.Statements.Count > liftedStatementsPosition Then - Throw New NotImplementedException("ListInit: lifted statements") - End If - Next - - If incompatibleListBindings IsNot Nothing Then - ' TODO: This requires lifting statements to *after* the instantiation - we usually lift to before. - ' This is problematic: if such an expression is passed as an argument to a method, there's no way to faithfully translate it - ' while preserving evaluation order. - Throw New NotImplementedException("ListInit: incompatible ElementInit") - End If - - Result = New GeneratedSyntaxNodes( - objectCreation.WithInitializer( - SF.ObjectCollectionInitializer( - SF.CollectionInitializer(SF.SeparatedList(initializerExpressions))))) - - Return listInit - End Function - - ''' - Protected Overrides Function VisitElementInit(elementInit As ElementInit) As ElementInit - DebugAssert(elementInit.Arguments.Count = 1, "elementInit.Arguments.Count = 1") - - Visit(elementInit.Arguments.Single()) - - Return elementInit - End Function - - ''' - Protected Overrides Function VisitMemberAssignment(memberAssignment As MemberAssignment) As MemberAssignment - Result = New GeneratedSyntaxNodes( - SF.NamedFieldInitializer( - SF.IdentifierName(memberAssignment.Member.Name), - Translate(Of ExpressionSyntax)(memberAssignment.Expression))) - - Return memberAssignment - End Function - - ''' - Protected Overrides Function VisitMemberMemberBinding(memberMemberBinding As MemberMemberBinding) As MemberMemberBinding - - Dim underlyingType As Type - - Select Case memberMemberBinding.Member.MemberType - Case MemberTypes.Field - underlyingType = DirectCast(memberMemberBinding.Member, FieldInfo).FieldType - Case MemberTypes.Property - underlyingType = DirectCast(memberMemberBinding.Member, PropertyInfo).PropertyType - Case Else - Throw New NotSupportedException("Member in MemberMemberBinding must represent a field or property.") - End Select - - Result = New GeneratedSyntaxNodes( - SF.NamedFieldInitializer( - SF.IdentifierName(memberMemberBinding.Member.Name), - SF.ObjectCreationExpression( - Nothing, - Translate(underlyingType), - Nothing, - SF.ObjectMemberInitializer( - SF.SeparatedList(Of FieldInitializerSyntax)( - memberMemberBinding.Bindings.Select( - Function(x) - VisitMemberBinding(x) - Return DirectCast(Result.Node, FieldInitializerSyntax) - End Function)))))) - - Return memberMemberBinding - End Function - - ''' - Protected Overrides Function VisitMemberListBinding(memberListBinding As MemberListBinding) As MemberListBinding - - Dim underlyingType As Type - - Select Case memberListBinding.Member.MemberType - Case MemberTypes.Field - underlyingType = DirectCast(memberListBinding.Member, FieldInfo).FieldType - Case MemberTypes.Property - underlyingType = DirectCast(memberListBinding.Member, PropertyInfo).PropertyType - Case Else - Throw New NotSupportedException("Member in MemberListBinding must represent a field or property.") - End Select - - Result = New GeneratedSyntaxNodes( - SF.NamedFieldInitializer( - SF.IdentifierName(memberListBinding.Member.Name), - SF.ObjectCreationExpression( - Nothing, - Translate(underlyingType), - Nothing, - SF.ObjectCollectionInitializer( - SF.CollectionInitializer( - SF.SeparatedList(Of ExpressionSyntax)( - memberListBinding.Initializers.Select( - Function(i) - VisitElementInit(i) - Return DirectCast(Result.Node, ExpressionSyntax) - End Function))))))) - - Return memberListBinding - End Function - - ''' - ''' This is an internal API that supports the Entity Framework Core infrastructure and not subject to - ''' the same compatibility standards as public APIs. It may be changed or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution and knowing that - ''' doing so can result in application failures when updating to a new Entity Framework Core release. - ''' - Protected Overrides Function VisitExtension(node As Expression) As Expression - ' TODO: Remove any EF-specific code from this visitor (extend if needed) - ' TODO: Hack mode. Visit the expression beforehand to replace EntityQueryRootExpression with context.Set<>(), or receive it in this visitor as a replacement or something. - Dim entityQueryRoot = TryCast(node, EntityQueryRootExpression) - If entityQueryRoot IsNot Nothing Then - ' TODO: STET - Result = New GeneratedSyntaxNodes( - SF.ParseExpression($"context.Set(Of {entityQueryRoot.EntityType.ClrType.Name})()")) - Return node - End If - - Throw New NotSupportedException( - $"Encountered non-quotable expression of type {node.GetType()} when translating expression tree to VB") - End Function - - Private Function TranslateMethodArguments(parameters As ParameterInfo(), arguments As IReadOnlyList(Of Expression)) As SimpleArgumentSyntax() - Dim translatedExpressions = TranslateList(arguments) - Dim translatedArguments(arguments.Count - 1) As SimpleArgumentSyntax - - For i = 0 To translatedExpressions.Length - 1 - Dim parameter = parameters(i) - Dim argument = SF.SimpleArgument(translatedExpressions(i)) - - translatedArguments(i) = argument - Next - - Return translatedArguments - End Function - - Private Function TranslateList(list As IReadOnlyList(Of Expression)) As ExpressionSyntax() - DebugAssert(_context = ExpressionContext.Expression, "_context = ExpressionContext.Expression") - - Dim translatedList(list.Count - 1) As ExpressionSyntax - Dim lastLiftedArgumentPosition = 0 - - For i = 0 To list.Count - 1 - - Dim expression = list(i) - - Dim liftedStatementsPosition = _liftedState.Statements.Count - - Dim translated = Translate(Of ExpressionSyntax)(expression) - - If _liftedState.Statements.Count > liftedStatementsPosition Then - ' This argument contained lifted statements. In order to preserve evaluation order, we must also lift out all preceding - ' arguments to before this argument's lifted statements. - While lastLiftedArgumentPosition < i - - Dim argumentExpression = translatedList(lastLiftedArgumentPosition) - - If Not _sideEffectDetector.CanBeReordered(argumentExpression, translated) Then - Dim name = UniquifyVariableName("liftedArg") - - _liftedState.Statements.Insert( - liftedStatementsPosition, - GenerateDeclaration(name, argumentExpression)) - - liftedStatementsPosition += 1 - - _liftedState.VariableNames.Add(name) - - translatedList(lastLiftedArgumentPosition) = SF.IdentifierName(name) - End If - lastLiftedArgumentPosition += 1 - End While - End If - - translatedList(i) = translated - Next - - Return translatedList - End Function - - Private Function PushNewStackFrame() As StackFrame - Dim previousFrame = _stack.Peek() - Dim newFrame As New StackFrame( - New Dictionary(Of ParameterExpression, String)(previousFrame.Variables), - New HashSet(Of String)(previousFrame.VariableNames, StringComparer.OrdinalIgnoreCase)) - - _stack.Push(newFrame) - - Return newFrame - End Function - - Private Function LookupVariableName(parameter As ParameterExpression) As String - Dim name As String = Nothing - - Return If(_stack.Peek().Variables.TryGetValue(parameter, name), - name, - _liftedState.Variables(parameter)) - End Function - - Private Function UniquifyVariableName(name As String) As String - Dim isUnnamed = name Is Nothing - name = If(name, "unnamed") - - Dim parameterNames = _stack.Peek().VariableNames - - If parameterNames.Contains(name) OrElse _liftedState.VariableNames.Contains(name) Then - Dim baseName = name - Dim j = If(isUnnamed, _unnamedParameterCounter, 0) - _unnamedParameterCounter += 1 - While parameterNames.Contains(name) OrElse _liftedState.VariableNames.Contains(name) - name = baseName & j - j += 1 - End While - End If - - Return name - End Function - - Private Shared Function GenerateDeclaration(variableIdentifier As String, initializer As ExpressionSyntax) As LocalDeclarationStatementSyntax - - Return SF.LocalDeclarationStatement( - New SyntaxTokenList(SF.Token(SyntaxKind.DimKeyword)), - SF.SingletonSeparatedList( - SF.VariableDeclarator( - SF.SingletonSeparatedList(SF.ModifiedIdentifier(variableIdentifier)), - Nothing, - SF.EqualsValue(initializer)))) - End Function - - Private Function ChangeContext(newContext As ExpressionContext) As ContextChanger - Return New ContextChanger(Me, newContext) - End Function - - Private Structure ContextChanger - Implements IDisposable - - Private ReadOnly _translator As LinqToVisualBasicSyntaxTranslator - Private ReadOnly _oldContext As ExpressionContext - - Public Sub New(translator As LinqToVisualBasicSyntaxTranslator, newContext As ExpressionContext) - _translator = translator - _oldContext = translator._context - translator._context = newContext - End Sub - - Public Sub Dispose() Implements IDisposable.Dispose - _translator._context = _oldContext - End Sub - End Structure - - Private Enum ExpressionContext - Expression - Statement - ExpressionLambda - End Enum - - Private NotInheritable Class SideEffectDetectionSyntaxWalker - Inherits SyntaxWalker - - Private _mayHaveSideEffects As Boolean - - ''' - ''' Returns whether the two provided nodes can be re-ordered without the reversed evaluation order having any effect. - ''' For example, two literal expressions can be safely ordered, while two invocations cannot. - ''' - Public Function CanBeReordered(first As SyntaxNode, second As SyntaxNode) As Boolean - Return TypeOf first Is LiteralExpressionSyntax OrElse (Not MayHaveSideEffects(first) AndAlso Not MayHaveSideEffects(second)) - End Function - - Public Function MayHaveSideEffects(node As SyntaxNode) As Boolean - _mayHaveSideEffects = False - - Visit(node) - - Return _mayHaveSideEffects - End Function - - Public Function MayHaveSideEffects(nodes As IList(Of SyntaxNode)) As Boolean - _mayHaveSideEffects = False - - Dim i = 0 - While Not _mayHaveSideEffects AndAlso i < nodes.Count - Dim node = nodes(i) - Visit(node) - i += 1 - End While - - Return _mayHaveSideEffects - End Function - - Public Overrides Sub Visit(node As SyntaxNode) - _mayHaveSideEffects = _mayHaveSideEffects OrElse MayHaveSideEffectsCore(node) - - MyBase.Visit(node) - End Sub - - Private Shared Function MayHaveSideEffectsCore(node As SyntaxNode) As Boolean - - ' TODO: we can exempt most binary and unary expressions as well, e.g. i + 5, but not anything involving assignment - - Select Case True - Case TypeOf node Is IdentifierNameSyntax, - TypeOf node Is LiteralExpressionSyntax, - TypeOf node Is EmptyStatementSyntax - Return False - Case Else - Return True - End Select - End Function - End Class - - Protected Class GeneratedSyntaxNodes - Private _Nodes As List(Of SyntaxNode) - - Sub New() - End Sub - - Sub New(sn As SyntaxNode) - _Nodes = New List(Of SyntaxNode)({sn}) - End Sub - - Sub New(nodes As IEnumerable(Of SyntaxNode)) - _Nodes = New List(Of SyntaxNode)(nodes) - End Sub - - Public Overridable Property Node As SyntaxNode - Get - If _Nodes Is Nothing OrElse _Nodes.Count = 0 Then Return Nothing - DebugAssert(Count = 1, "GeneratedSyntaxNodes.Count <> 1") - Return _Nodes.Last() - End Get - Set - _Nodes = New List(Of SyntaxNode)({Value}) - End Set - End Property - - Public Overridable Property Nodes As List(Of SyntaxNode) - Get - If _Nodes Is Nothing OrElse _Nodes.Count = 0 Then Return Nothing - Return _Nodes - End Get - Set - _Nodes = Value - End Set - End Property - - Public ReadOnly Property IsASingleExpression() As Boolean - Get - If Count <> 1 Then Return False - Return TypeOf _Nodes.First Is ExpressionSyntax - End Get - End Property - - Public ReadOnly Property Count() As Integer - Get - Return _Nodes.Count - End Get - End Property - - Public Function GetExpression() As ExpressionSyntax - Return TryCast(Node, ExpressionSyntax) - End Function - End Class - - Private Function ResultAsStatementSyntaxList(result As GeneratedSyntaxNodes) As SyntaxList(Of StatementSyntax) - If result.Count = 0 Then Return SF.List(Of StatementSyntax) - - If result.Count > 1 Then - Return SF.List(result.Nodes.Select(Function(x) CastAsStatementSyntax(x))) - End If - - Return SF.List({CastAsStatementSyntax(result.Nodes.First())}) - End Function - - Private Function CastAsStatementSyntax(s As SyntaxNode) As StatementSyntax - - Dim ss = TryCast(s, StatementSyntax) - If ss IsNot Nothing Then - Return ss - End If - - Dim es = TryCast(s, ExpressionSyntax) - If es IsNot Nothing Then - Select Case es.Kind() - Case SyntaxKind.InvocationExpression - Return SF.ExpressionStatement(es) - Case Else - Return DirectCast(_g.LocalDeclarationStatement(UniquifyVariableName(Nothing), es), LocalDeclarationStatementSyntax) - End Select - End If - - Throw New InvalidCastException($"Cannot convert a {s.GetType()} to a StatementSyntax.") - End Function - - Private Shared Function IsReferenceEqualitySemantics(left As Expression, right As Expression) As Boolean - If left.NodeType <> ExpressionType.Convert OrElse left.Type IsNot GetType(Object) Then - Return False - End If - - If right.NodeType <> ExpressionType.Convert OrElse right.Type IsNot GetType(Object) Then - Return False - End If - - Return True - End Function - End Class -End Namespace diff --git a/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/CosmosVisualBasicRuntimeAnnotationCodeGenerator.vb b/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/CosmosVisualBasicRuntimeAnnotationCodeGenerator.vb deleted file mode 100644 index b932e8a..0000000 --- a/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/CosmosVisualBasicRuntimeAnnotationCodeGenerator.vb +++ /dev/null @@ -1,49 +0,0 @@ -Imports Microsoft.EntityFrameworkCore.Cosmos.Metadata.Internal -Imports Microsoft.EntityFrameworkCore.Metadata - -Namespace Design.AnnotationCodeGeneratorProvider - - ''' - ''' This is an internal API that supports the Entity Framework Core infrastructure and not subject to - ''' the same compatibility standards as public APIs. It may be changed or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution and knowing that - ''' doing so can result in application failures when updating to a new Entity Framework Core release. - ''' - Public Class CosmosVisualBasicRuntimeAnnotationCodeGenerator - Inherits VisualBasicRuntimeAnnotationCodeGenerator - - ''' - ''' This is an internal API that supports the Entity Framework Core infrastructure and not subject to - ''' the same compatibility standards as public APIs. It may be changed or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution and knowing that - ''' doing so can result in application failures when updating to a new Entity Framework Core release. - ''' - Public Sub New(vbHelper As IVisualBasicHelper) - MyBase.New(vbHelper) - End Sub - - ''' - Public Overrides Sub Generate(model As IModel, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - Dim annotations = parameters.Annotations - If Not parameters.IsRuntime Then - annotations.Remove(CosmosAnnotationNames.Throughput) - End If - - MyBase.Generate(model, parameters) - End Sub - - ''' - Public Overrides Sub Generate(entityType As IEntityType, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - If Not parameters.IsRuntime Then - With parameters.Annotations - .Remove(CosmosAnnotationNames.AnalyticalStoreTimeToLive) - .Remove(CosmosAnnotationNames.DefaultTimeToLive) - .Remove(CosmosAnnotationNames.Throughput) - End With - End If - - MyBase.Generate(entityType, parameters) - End Sub - End Class -End Namespace diff --git a/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/CosmosVisualBasicServices.vb b/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/CosmosVisualBasicServices.vb deleted file mode 100644 index 6460347..0000000 --- a/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/CosmosVisualBasicServices.vb +++ /dev/null @@ -1,13 +0,0 @@ -Imports Microsoft.EntityFrameworkCore.Design -Imports Microsoft.Extensions.DependencyInjection - -Namespace Design.AnnotationCodeGeneratorProvider - - Public Class CosmosVisualBasicServices - Implements IDesignTimeServices - - Public Sub ConfigureDesignTimeServices(services As IServiceCollection) Implements IDesignTimeServices.ConfigureDesignTimeServices - services.AddSingleton(Of IVisualBasicRuntimeAnnotationCodeGenerator, CosmosVisualBasicRuntimeAnnotationCodeGenerator) - End Sub - End Class -End Namespace diff --git a/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/InMemoryVisualBasicRuntimeAnnotationCodeGenerator.vb b/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/InMemoryVisualBasicRuntimeAnnotationCodeGenerator.vb deleted file mode 100644 index b8c28b1..0000000 --- a/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/InMemoryVisualBasicRuntimeAnnotationCodeGenerator.vb +++ /dev/null @@ -1,21 +0,0 @@ -Namespace Design.AnnotationCodeGeneratorProvider - - ''' - ''' This is an internal API that supports the Entity Framework Core infrastructure and not subject to - ''' the same compatibility standards as public APIs. It may be changed or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution and knowing that - ''' doing so can result in application failures when updating to a new Entity Framework Core release. - ''' - Public Class InMemoryVisualBasicRuntimeAnnotationCodeGenerator - Inherits VisualBasicRuntimeAnnotationCodeGenerator - ''' - ''' This is an internal API that supports the Entity Framework Core infrastructure and not subject to - ''' the same compatibility standards as public APIs. It may be changed or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution and knowing that - ''' doing so can result in application failures when updating to a new Entity Framework Core release. - ''' - Public Sub New(vbHelper As IVisualBasicHelper) - MyBase.New(vbHelper) - End Sub - End Class -End Namespace diff --git a/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/InMemoryVisualBasicServices.vb b/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/InMemoryVisualBasicServices.vb deleted file mode 100644 index f198f16..0000000 --- a/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/InMemoryVisualBasicServices.vb +++ /dev/null @@ -1,13 +0,0 @@ -Imports Microsoft.EntityFrameworkCore.Design -Imports Microsoft.Extensions.DependencyInjection - -Namespace Design.AnnotationCodeGeneratorProvider - - Public Class InMemoryVisualBasicServices - Implements IDesignTimeServices - - Public Sub ConfigureDesignTimeServices(services As IServiceCollection) Implements IDesignTimeServices.ConfigureDesignTimeServices - services.AddSingleton(Of IVisualBasicRuntimeAnnotationCodeGenerator, InMemoryVisualBasicRuntimeAnnotationCodeGenerator) - End Sub - End Class -End Namespace diff --git a/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/RelationalVisualBasicRuntimeAnnotationCodeGenerator.vb b/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/RelationalVisualBasicRuntimeAnnotationCodeGenerator.vb deleted file mode 100644 index a3d264d..0000000 --- a/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/RelationalVisualBasicRuntimeAnnotationCodeGenerator.vb +++ /dev/null @@ -1,2557 +0,0 @@ -Imports System.Reflection -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Diagnostics -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Metadata.Internal -Imports Microsoft.EntityFrameworkCore.Migrations -Imports Microsoft.EntityFrameworkCore.Storage - -Namespace Design.AnnotationCodeGeneratorProvider - - ''' - ''' Base class to be used by relational database providers when implementing an - ''' - Public Class RelationalVisualBasicRuntimeAnnotationCodeGenerator - Inherits VisualBasicRuntimeAnnotationCodeGenerator - - ''' - ''' Initializes a New instance of this class. - ''' - ''' The Visual Basic helper. - Public Sub New(vbHelper As IVisualBasicHelper) - MyBase.New(vbHelper) - End Sub - - ''' - Public Overrides Sub Generate(model As IModel, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim annotations = parameters.Annotations - If parameters.IsRuntime Then - annotations.Remove(RelationalAnnotationNames.ModelDependencies) - - Dim relationalModel As RelationalModel = Nothing - If annotations.TryGetAndRemove(RelationalAnnotationNames.RelationalModel, - relationalModel) Then - - GenerateSimpleAnnotation(RelationalAnnotationNames.RelationalModel, "CreateRelationalModel()", parameters) - - Dim MethodBuilder As New IndentedStringBuilder() - Create( - relationalModel, - parameters.Cloner. - WithMainBuilder(parameters.MethodBuilder). - WithMethodBuilder(MethodBuilder). - WithScopeVariables(New HashSet(Of String)). - Clone) - - Dim methods = MethodBuilder.ToString() - If Not String.IsNullOrEmpty(methods) Then - parameters. - MethodBuilder. - AppendLine(). - AppendLines(methods) - End If - End If - Else - annotations.Remove(RelationalAnnotationNames.Collation) - - Dim functions As SortedDictionary(Of String, IDbFunction) = Nothing - - If TryGetAndRemove(annotations, RelationalAnnotationNames.DbFunctions, functions) Then - parameters.Namespaces.Add(GetType(SortedDictionary(Of,)).Namespace) - parameters.Namespaces.Add(GetType(BindingFlags).Namespace) - Dim functionsVariable = VBCode.Identifier("functions", parameters.ScopeVariables, capitalize:=False) - parameters. - MainBuilder. - Append("Dim "). - Append(functionsVariable). - AppendLine(" As New SortedDictionary(Of String, IDbFunction)()") - - For Each func In functions.Values - Create(func, functionsVariable, parameters) - Next - - GenerateSimpleAnnotation(RelationalAnnotationNames.DbFunctions, functionsVariable, parameters) - End If - - Dim sequences As SortedDictionary(Of (String, String), ISequence) = Nothing - - If TryGetAndRemove(annotations, RelationalAnnotationNames.Sequences, sequences) Then - parameters.Namespaces.Add(GetType(SortedDictionary(Of,)).Namespace) - Dim sequencesVariable = VBCode.Identifier("sequences", parameters.ScopeVariables, capitalize:=False) - Dim mainBuilder = parameters.MainBuilder - - mainBuilder. - Append("Dim "). - Append(sequencesVariable). - AppendLine(" As New SortedDictionary(Of (String, String), ISequence)()") - - For Each sequencePair In sequences - Create(sequencePair.Value, sequencesVariable, parameters) - Next - - GenerateSimpleAnnotation(RelationalAnnotationNames.Sequences, sequencesVariable, parameters) - End If - End If - - MyBase.Generate(model, parameters) - End Sub - - Private Overloads Sub Create(model As IRelationalModel, - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim mainBuilder = parameters.MainBuilder - mainBuilder.AppendLine("Private Function CreateRelationalModel() As IRelationalModel") - - Using mainBuilder.Indent() - parameters.Namespaces.Add(GetType(RelationalModel).Namespace) - parameters.Namespaces.Add(GetType(Microsoft.EntityFrameworkCore.RelationalModelExtensions).Namespace) - Dim relationalModelVariable = VBCode.Identifier("relationalModel", parameters.ScopeVariables, capitalize:=False) - - mainBuilder.AppendLine($"Dim {relationalModelVariable} As New RelationalModel({parameters.TargetName})") - - Dim metadataVariables = New Dictionary(Of IAnnotatable, String)() - - Dim relationalModelParameters = parameters.Cloner. - WithTargetName(relationalModelVariable). - Clone - - AddNamespace(GetType(List(Of TableMapping)), parameters.Namespaces) - - For Each entityType In model.Model.GetEntityTypes() - CreateMappings(entityType, declaringVariable:=Nothing, metadataVariables, relationalModelParameters) - Next - - For Each table In model.Tables - For Each foreignKey In table.ForeignKeyConstraints - Create(foreignKey, metadataVariables, parameters.Cloner.WithTargetName(metadataVariables(table)).Clone()) - Next - Next - - For Each dbFunction In model.Model.GetDbFunctions() - If Not dbFunction.IsScalar Then Continue For - GetOrCreate(dbFunction.StoreFunction, metadataVariables, relationalModelParameters) - Next - - CreateAnnotations( - model, - AddressOf Generate, - relationalModelParameters) - - mainBuilder. - AppendLine($"Return {relationalModelVariable}.MakeReadOnly()") - End Using - - mainBuilder. - AppendLine("End Function") - End Sub - - Private Sub CreateMappings(typeBase As ITypeBase, - declaringVariable As String, - metadataVariables As Dictionary(Of IAnnotatable, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim mainBuilder = parameters.MainBuilder - - Dim typeBaseVariable = VBCode.Identifier(typeBase.ShortName(), parameters.ScopeVariables, capitalize:=False) - metadataVariables.Add(typeBase, typeBaseVariable) - If TypeOf typeBase Is IComplexType Then - Dim complexType = DirectCast(typeBase, IComplexType) - - mainBuilder. - AppendLine(). - Append($"Dim {typeBaseVariable} = "). - AppendLine($"{declaringVariable}.FindComplexProperty({VBCode.Literal(complexType.ComplexProperty.Name)}).ComplexType") - Else - mainBuilder. - AppendLine(). - AppendLine($"Dim {typeBaseVariable} = FindEntityType({VBCode.Literal(typeBase.Name)})") - End If - - ' All the mappings below are added in a way that preserves the order - For Each mapping In typeBase.GetDefaultMappings() - Dim tableMappingsVariable = VBCode.Identifier("defaultTableMappings", parameters.ScopeVariables, capitalize:=False) - mainBuilder. - AppendLine(). - AppendLine($"Dim {tableMappingsVariable} As New List(Of TableMappingBase(Of ColumnMappingBase))()"). - Append($"{typeBaseVariable}.SetRuntimeAnnotation("). - AppendLine($"{VBCode.Literal(RelationalAnnotationNames.DefaultMappings)}, {tableMappingsVariable})") - Create(mapping, tableMappingsVariable, metadataVariables, parameters) - Next - - If typeBase.GetTableMappings().Any() Then - Dim tableMappingsVariable = VBCode.Identifier("tableMappings", parameters.ScopeVariables, capitalize:=False) - mainBuilder. - AppendLine(). - AppendLine($"Dim {tableMappingsVariable} As New List(Of TableMapping)()"). - Append($"{typeBaseVariable}.SetRuntimeAnnotation("). - AppendLine($"{VBCode.Literal(RelationalAnnotationNames.TableMappings)}, {tableMappingsVariable})") - For Each mapping In typeBase.GetTableMappings() - Create(mapping, tableMappingsVariable, metadataVariables, parameters) - Next - End If - - If typeBase.GetViewMappings().Any() Then - Dim viewMappingsVariable = VBCode.Identifier("viewMappings", parameters.ScopeVariables, capitalize:=False) - mainBuilder. - AppendLine(). - AppendLine($"Dim {viewMappingsVariable} As New List(Of ViewMapping)()"). - Append($"{typeBaseVariable}.SetRuntimeAnnotation("). - AppendLine($"{VBCode.Literal(RelationalAnnotationNames.ViewMappings)}, {viewMappingsVariable})") - For Each mapping In typeBase.GetViewMappings() - Create(mapping, viewMappingsVariable, metadataVariables, parameters) - Next - End If - - If typeBase.GetSqlQueryMappings().Any() Then - Dim sqlQueryMappingsVariable = VBCode.Identifier("sqlQueryMappings", parameters.ScopeVariables, capitalize:=False) - mainBuilder. - AppendLine(). - AppendLine($"Dim {sqlQueryMappingsVariable} As New List(Of SqlQueryMapping)()"). - Append($"{typeBaseVariable}.SetRuntimeAnnotation("). - AppendLine($"{VBCode.Literal(RelationalAnnotationNames.SqlQueryMappings)}, {sqlQueryMappingsVariable})") - For Each mapping In typeBase.GetSqlQueryMappings() - Create(mapping, sqlQueryMappingsVariable, metadataVariables, parameters) - Next - End If - - If typeBase.GetFunctionMappings().Any() Then - Dim functionMappingsVariable = VBCode.Identifier("functionMappings", parameters.ScopeVariables, capitalize:=False) - mainBuilder. - AppendLine(). - AppendLine($"Dim {functionMappingsVariable} As New List(Of FunctionMapping)()"). - Append($"{typeBaseVariable}.SetRuntimeAnnotation("). - AppendLine($"{VBCode.Literal(RelationalAnnotationNames.FunctionMappings)}, {functionMappingsVariable})") - For Each mapping In typeBase.GetFunctionMappings() - Create(mapping, functionMappingsVariable, metadataVariables, parameters) - Next - End If - - If typeBase.GetDeleteStoredProcedureMappings().Any() Then - Dim deleteSprocMappingsVariable = VBCode.Identifier("deleteSprocMappings", parameters.ScopeVariables, capitalize:=False) - mainBuilder. - AppendLine(). - AppendLine($"Dim {deleteSprocMappingsVariable} As New List(Of StoredProcedureMapping)()"). - Append($"{typeBaseVariable}.SetRuntimeAnnotation("). - AppendLine( - $"{VBCode.Literal(RelationalAnnotationNames.DeleteStoredProcedureMappings)}, {deleteSprocMappingsVariable})") - For Each mapping In typeBase.GetDeleteStoredProcedureMappings() - Create( - mapping, - deleteSprocMappingsVariable, - StoreObjectType.DeleteStoredProcedure, - metadataVariables, - parameters) - Next - End If - - If typeBase.GetInsertStoredProcedureMappings().Any() Then - Dim insertSprocMappingsVariable = VBCode.Identifier("insertSprocMappings", parameters.ScopeVariables, capitalize:=False) - mainBuilder. - AppendLine(). - AppendLine($"Dim {insertSprocMappingsVariable} As New List(Of StoredProcedureMapping)()"). - Append($"{typeBaseVariable}.SetRuntimeAnnotation("). - AppendLine( - $"{VBCode.Literal(RelationalAnnotationNames.InsertStoredProcedureMappings)}, {insertSprocMappingsVariable})") - For Each mapping In typeBase.GetInsertStoredProcedureMappings() - Create( - mapping, - insertSprocMappingsVariable, - StoreObjectType.InsertStoredProcedure, - metadataVariables, - parameters) - Next - End If - - If typeBase.GetUpdateStoredProcedureMappings().Any() Then - Dim updateSprocMappingsVariable = VBCode.Identifier("updateSprocMappings", parameters.ScopeVariables, capitalize:=False) - mainBuilder. - AppendLine(). - AppendLine($"Dim {updateSprocMappingsVariable} As New List(Of StoredProcedureMapping)()"). - Append($"{typeBaseVariable}.SetRuntimeAnnotation("). - AppendLine( - $"{VBCode.Literal(RelationalAnnotationNames.UpdateStoredProcedureMappings)}, {updateSprocMappingsVariable})") - For Each mapping In typeBase.GetUpdateStoredProcedureMappings() - Create( - mapping, - updateSprocMappingsVariable, - StoreObjectType.UpdateStoredProcedure, - metadataVariables, - parameters) - Next - End If - - For Each complexProperty In typeBase.GetDeclaredComplexProperties() - CreateMappings(complexProperty.ComplexType, typeBaseVariable, metadataVariables, parameters) - Next - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The relational model to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(model As IRelationalModel, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Function GetOrCreate(table As ITableBase, - metadataVariables As Dictionary(Of IAnnotatable, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) As String - - Dim tableVariable As String = Nothing - If metadataVariables.TryGetValue(table, tableVariable) Then - Return tableVariable - End If - - Dim code = VBCode - tableVariable = code.Identifier(table.Name & "TableBase", parameters.ScopeVariables, capitalize:=False) - metadataVariables.Add(table, tableVariable) - Dim mainBuilder = parameters.MainBuilder - - mainBuilder. - Append($"Dim {tableVariable} As New TableBase({code.Literal(table.Name)}, {code.Literal(table.Schema)}, "). - AppendLine($"{parameters.TargetName})") - - Dim tableParameters = parameters.Cloner. - WithTargetName(tableVariable). - Clone - - For Each column In table.Columns - Create(column, metadataVariables, tableParameters) - Next - - CreateAnnotations( - table, - AddressOf Generate, - tableParameters) - - mainBuilder. - AppendLine($"{parameters.TargetName}.DefaultTables.Add({code.Literal(table.Name)}, {tableVariable})") - - Return tableVariable - End Function - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The table to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(table As ITableBase, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Function GetOrCreate(table As ITable, - metadataVariables As Dictionary(Of IAnnotatable, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) As String - - Dim tableVariable As String = Nothing - If metadataVariables.TryGetValue(table, tableVariable) Then - Return tableVariable - End If - - Dim code = VBCode - - tableVariable = code.Identifier(table.Name & "Table", parameters.ScopeVariables, capitalize:=False) - metadataVariables.Add(table, tableVariable) - - Dim mainBuilder = parameters.MainBuilder - - mainBuilder. - Append($"Dim {tableVariable} As New Table({code.Literal(table.Name)}, {code.Literal(table.Schema)}, "). - AppendLine($"{parameters.TargetName})") - - Dim tableParameters = parameters.Cloner. - WithTargetName(tableVariable). - Clone - - For Each column In table.Columns - Create(column, metadataVariables, tableParameters) - Next - - For Each uniqueConstraint In table.UniqueConstraints - Create(uniqueConstraint, uniqueConstraint.Columns.Select(Function(c) metadataVariables(c)), tableParameters) - Next - - For Each index In table.Indexes - Create(index, index.Columns.Select(Function(c) metadataVariables(c)), tableParameters) - Next - - For Each trigger In table.Triggers - Dim entityTypeVariable = metadataVariables(trigger.EntityType) - - Dim triggerName = trigger.GetDatabaseName(StoreObjectIdentifier.Table(table.Name, table.Schema)) - - mainBuilder. - Append($"{tableVariable}.Triggers.Add({code.Literal(triggerName)}, "). - AppendLine($"{entityTypeVariable}.FindDeclaredTrigger({code.Literal(trigger.ModelName)}))") - Next - - CreateAnnotations( - table, - AddressOf Generate, - tableParameters) - - mainBuilder. - Append($"{parameters.TargetName}.Tables.Add(("). - AppendLine($"{code.Literal(table.Name)}, {code.Literal(table.Schema)}), {tableVariable})") - - Return tableVariable - End Function - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The table to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(table As ITable, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Function GetOrCreate(view As IView, - metadataVariables As Dictionary(Of IAnnotatable, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) As String - - Dim viewVariable As String = Nothing - If metadataVariables.TryGetValue(view, viewVariable) Then - Return viewVariable - End If - - Dim code = VBCode - - viewVariable = code.Identifier(view.Name & "View", parameters.ScopeVariables, capitalize:=False) - metadataVariables.Add(view, viewVariable) - Dim mainBuilder = parameters.MainBuilder - - mainBuilder. - Append($"Dim {viewVariable} As New View({code.Literal(view.Name)}, {code.Literal(view.Schema)}, "). - AppendLine($"{parameters.TargetName})") - - Dim viewParameters = parameters.Cloner. - WithTargetName(viewVariable). - Clone - - For Each column In view.Columns - Create(column, metadataVariables, viewParameters) - Next - - CreateAnnotations( - view, - AddressOf Generate, - viewParameters) - - mainBuilder. - Append($"{parameters.TargetName}.Views.Add(("). - AppendLine($"{code.Literal(view.Name)}, {code.Literal(view.Schema)}), {viewVariable})") - - Return viewVariable - End Function - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The view to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(view As IView, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Function GetOrCreate(sqlQuery As ISqlQuery, - metadataVariables As Dictionary(Of IAnnotatable, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) As String - - Dim sqlQueryVariable As String = Nothing - If metadataVariables.TryGetValue(sqlQuery, sqlQueryVariable) Then - Return sqlQueryVariable - End If - - sqlQueryVariable = VBCode.Identifier(sqlQuery.Name & "SqlQuery", parameters.ScopeVariables, capitalize:=False) - metadataVariables.Add(sqlQuery, sqlQueryVariable) - - Dim mainBuilder = parameters.MainBuilder - mainBuilder. - Append($"Dim {sqlQueryVariable} As New SqlQuery({VBCode.Literal(sqlQuery.Name)}, {parameters.TargetName}, "). - AppendLine($"{VBCode.Literal(sqlQuery.Sql)})") - - Dim sqlQueryParameters = parameters.Cloner. - WithTargetName(sqlQueryVariable). - Clone - - For Each column In sqlQuery.Columns - Create(column, metadataVariables, sqlQueryParameters) - Next - - CreateAnnotations( - sqlQuery, - AddressOf Generate, - sqlQueryParameters) - - mainBuilder. - Append($"{parameters.TargetName}.Queries.Add("). - AppendLine($"{VBCode.Literal(sqlQuery.Name)}, {sqlQueryVariable})") - - Return sqlQueryVariable - End Function - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The SQL query to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(sqlQuery As ISqlQuery, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Function GetOrCreate([function] As IStoreFunction, - metadataVariables As Dictionary(Of IAnnotatable, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) As String - - Dim functionVariable As String = Nothing - If metadataVariables.TryGetValue([function], functionVariable) Then - Return functionVariable - End If - - Dim mainDbFunctionVariable = GetOrCreate([function].DbFunctions.First(), metadataVariables, parameters) - functionVariable = VBCode.Identifier([function].Name & "Function", parameters.ScopeVariables, capitalize:=False) - metadataVariables.Add([function], functionVariable) - - Dim mainBuilder = parameters.MainBuilder - - mainBuilder. - AppendLine($"Dim {functionVariable} As New StoreFunction({mainDbFunctionVariable}, {parameters.TargetName})") - - Dim functionParameters = parameters.Cloner. - WithTargetName(functionVariable). - Clone - - For Each dbFunction In [function].DbFunctions.Skip(1) - - Dim dbFunctionVariable = GetOrCreate(dbFunction, metadataVariables, parameters) - - mainBuilder. - AppendLine($"{dbFunctionVariable}.StoreFunction = {functionVariable}"). - AppendLine($"{functionVariable}.DbFunctions.Add({VBCode.Literal(dbFunction.ModelName)}, {dbFunctionVariable})") - Next - - For Each parameter In [function].Parameters - - Dim parameterVariable = VBCode.Identifier(parameter.Name & "FunctionParameter", parameters.ScopeVariables, capitalize:=False) - metadataVariables.Add(parameter, parameterVariable) - mainBuilder.AppendLine($"Dim {parameterVariable} = {functionVariable}.FindParameter({VBCode.Literal(parameter.Name)})") - - CreateAnnotations( - parameter, - AddressOf Generate, - parameters.Cloner. - WithTargetName(parameterVariable). - Clone) - Next - - For Each column In [function].Columns - Create(column, metadataVariables, functionParameters) - Next - - CreateAnnotations( - [function], - AddressOf Generate, - functionParameters) - - mainBuilder. - AppendLine($"{parameters.TargetName}.Functions.Add("). - IncrementIndent(). - Append($"({VBCode.Literal([function].Name)}, {VBCode.Literal([function].Schema)}, "). - AppendLine($"{VBCode.Literal([function].DbFunctions.First().Parameters.Select(Function(p) p.StoreType).ToArray())}),"). - AppendLine($"{functionVariable})"). - DecrementIndent() - - Return functionVariable - End Function - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The function to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate([function] As IStoreFunction, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Function GetOrCreate([function] As IDbFunction, - metadataVariables As Dictionary(Of IAnnotatable, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) As String - - Dim functionVariable As String = Nothing - If metadataVariables.TryGetValue([function], functionVariable) Then - Return functionVariable - End If - - Dim code = VBCode - functionVariable = code.Identifier([function].Name, parameters.ScopeVariables, capitalize:=False) - metadataVariables.Add([function], functionVariable) - - Dim mainBuilder = parameters.MainBuilder - mainBuilder.AppendLine($"Dim {functionVariable} = DirectCast(Me.FindDbFunction({code.Literal([function].ModelName)}), IRuntimeDbFunction)") - - Return functionVariable - End Function - - Private Function GetOrCreate(storeStoredProcedure As IStoreStoredProcedure, - metadataVariables As Dictionary(Of IAnnotatable, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) As String - - Dim storedProcedureVariable As String = Nothing - If metadataVariables.TryGetValue(storeStoredProcedure, storedProcedureVariable) Then - Return storedProcedureVariable - End If - - Dim code = VBCode - storedProcedureVariable = code.Identifier(storeStoredProcedure.Name & "StoreSproc", parameters.ScopeVariables, capitalize:=False) - metadataVariables.Add(storeStoredProcedure, storedProcedureVariable) - - Dim mainBuilder = parameters.MainBuilder - mainBuilder. - Append($"Dim {storedProcedureVariable} As New StoreStoredProcedure("). - Append($"{code.Literal(storeStoredProcedure.Name)}, {code.Literal(storeStoredProcedure.Schema)}"). - AppendLine($", {parameters.TargetName})") - - Dim sprocParameters = parameters.Cloner. - WithTargetName(storedProcedureVariable). - Clone - - Dim returnValue = storeStoredProcedure.ReturnValue - - If returnValue IsNot Nothing Then - mainBuilder. - Append($"{storedProcedureVariable}.ReturnValue = New StoreStoredProcedureReturnValue("). - AppendLine($""""", {code.Literal(returnValue.StoreType)}, {storedProcedureVariable})") - End If - - For Each parameter In storeStoredProcedure.Parameters - Create(parameter, metadataVariables, sprocParameters) - Next - - For Each column In storeStoredProcedure.ResultColumns - Create(column, metadataVariables, sprocParameters) - Next - - For Each storedProcedure In storeStoredProcedure.StoredProcedures - mainBuilder. - Append($"{storedProcedureVariable}.AddStoredProcedure("). - Append(CreateFindSnippet(storedProcedure, metadataVariables)). - AppendLine(")"c) - Next - - CreateAnnotations( - storeStoredProcedure, - AddressOf Generate, - sprocParameters) - - mainBuilder. - Append($"{parameters.TargetName}.StoredProcedures.Add("). - AppendLine( - $"({code.Literal(storeStoredProcedure.Name)}, {code.Literal(storeStoredProcedure.Schema)}), {storedProcedureVariable})") - - Return storedProcedureVariable - End Function - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The stored procedure to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(storedProcedure As IStoreStoredProcedure, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Function CreateFindSnippet(storedProcedure As IStoredProcedure, - metadataVariables As Dictionary(Of IAnnotatable, String)) As String - - Dim storedProcedureVariable As String = Nothing - If metadataVariables.TryGetValue(storedProcedure, storedProcedureVariable) Then - Return storedProcedureVariable - End If - - Dim entityTypeVariable = metadataVariables(storedProcedure.EntityType) - - Dim StoreObjectType = storedProcedure.GetStoreIdentifier().StoreObjectType - Dim methodName As String - Select Case StoreObjectType - Case StoreObjectType.InsertStoredProcedure : methodName = "GetInsertStoredProcedure" - Case StoreObjectType.DeleteStoredProcedure : methodName = "GetDeleteStoredProcedure" - Case StoreObjectType.UpdateStoredProcedure : methodName = "GetUpdateStoredProcedure" - Case Else : Throw New Exception("Unexpected stored procedure type: " & StoreObjectType) - End Select - - Return $"DirectCast({entityTypeVariable}.{methodName}(), IRuntimeStoredProcedure)" - End Function - - Private Overloads Sub Create(column As IColumnBase, - metadataVariables As Dictionary(Of IAnnotatable, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim code = VBCode - - Dim columnVariable = code.Identifier(column.Name & "ColumnBase", parameters.ScopeVariables, capitalize:=False) - metadataVariables.Add(column, columnVariable) - Dim mainBuilder = parameters.MainBuilder - Dim columnType = If(TypeOf column Is JsonColumnBase, "JsonColumnBase", "ColumnBase(Of ColumnMappingBase)") - - mainBuilder. - Append($"Dim {columnVariable} As New {columnType}("). - Append($"{code.Literal(column.Name)}, {code.Literal(column.StoreType)}, {parameters.TargetName})") - - GenerateIsNullableInitializer(column.IsNullable, mainBuilder, code). - AppendLine(). - AppendLine($"{parameters.TargetName}.Columns.Add({code.Literal(column.Name)}, {columnVariable})") - - CreateAnnotations( - column, - AddressOf Generate, - parameters.Cloner. - WithTargetName(columnVariable). - Clone) - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The column to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(column As IColumnBase, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Overloads Sub Create(column As IColumn, - metadataVariables As Dictionary(Of IAnnotatable, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim code = VBCode - - Dim columnVariable = code.Identifier(column.Name & "Column", parameters.ScopeVariables, capitalize:=False) - metadataVariables.Add(column, columnVariable) - - Dim mainBuilder = parameters.MainBuilder - Dim columnType = If(TypeOf column Is JsonColumn, "JsonColumn", "Column") - - mainBuilder. - Append($"Dim {columnVariable} As New {columnType}("). - Append($"{code.Literal(column.Name)}, {code.Literal(column.StoreType)}, {parameters.TargetName})") - - GenerateIsNullableInitializer(column.IsNullable, mainBuilder, code). - AppendLine(). - AppendLine($"{parameters.TargetName}.Columns.Add({code.Literal(column.Name)}, {columnVariable})") - - CreateAnnotations( - column, - AddressOf Generate, - parameters.Cloner. - WithTargetName(columnVariable). - Clone) - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The column to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(column As IColumn, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Overloads Sub Create(column As IViewColumn, - metadataVariables As Dictionary(Of IAnnotatable, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim code = VBCode - Dim columnVariable = code.Identifier(column.Name & "ViewColumn", parameters.ScopeVariables, capitalize:=False) - metadataVariables.Add(column, columnVariable) - Dim mainBuilder = parameters.MainBuilder - - Dim columnType = If(TypeOf column Is JsonViewColumn, "JsonViewColumn", "ViewColumn") - mainBuilder. - Append($"Dim {columnVariable} As New {columnType}("). - Append($"{code.Literal(column.Name)}, {code.Literal(column.StoreType)}, {parameters.TargetName})") - - GenerateIsNullableInitializer(column.IsNullable, mainBuilder, code). - AppendLine(). - AppendLine($"{parameters.TargetName}.Columns.Add({code.Literal(column.Name)}, {columnVariable})") - - CreateAnnotations( - column, - AddressOf Generate, - parameters.Cloner. - WithTargetName(columnVariable). - Clone) - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The column to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(column As IViewColumn, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Overloads Sub Create(column As ISqlQueryColumn, - metadataVariables As Dictionary(Of IAnnotatable, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim code = VBCode - - Dim columnVariable = code.Identifier(column.Name & "SqlQueryColumn", parameters.ScopeVariables, capitalize:=False) - metadataVariables.Add(column, columnVariable) - - Dim mainBuilder = parameters.MainBuilder - - mainBuilder. - Append($"Dim {columnVariable} As New SqlQueryColumn("). - Append($"{code.Literal(column.Name)}, {code.Literal(column.StoreType)}, {parameters.TargetName})") - - GenerateIsNullableInitializer(column.IsNullable, mainBuilder, code). - AppendLine(). - AppendLine($"{parameters.TargetName}.Columns.Add({code.Literal(column.Name)}, {columnVariable})") - - CreateAnnotations( - column, - AddressOf Generate, - parameters.Cloner. - WithTargetName(columnVariable). - Clone) - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The column to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(column As ISqlQueryColumn, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Overloads Sub Create(column As IFunctionColumn, - metadataVariables As Dictionary(Of IAnnotatable, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim code = VBCode - Dim columnVariable = code.Identifier(column.Name & "FunctionColumn", parameters.ScopeVariables, capitalize:=False) - metadataVariables.Add(column, columnVariable) - - Dim mainBuilder = parameters.MainBuilder - mainBuilder. - Append($"Dim {columnVariable} As New FunctionColumn("). - Append($"{code.Literal(column.Name)}, {code.Literal(column.StoreType)}, {parameters.TargetName})") - - GenerateIsNullableInitializer(column.IsNullable, mainBuilder, code). - AppendLine(). - AppendLine($"{parameters.TargetName}.Columns.Add({code.Literal(column.Name)}, {columnVariable})") - - CreateAnnotations( - column, - AddressOf Generate, - parameters.Cloner. - WithTargetName(columnVariable). - Clone) - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The column to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(column As IFunctionColumn, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The parameter to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(parameter As IStoreFunctionParameter, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Overloads Sub Create(column As IStoreStoredProcedureResultColumn, - metadataVariables As Dictionary(Of IAnnotatable, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim code = VBCode - Dim columnVariable = code.Identifier(column.Name & "FunctionColumn", parameters.ScopeVariables, capitalize:=False) - metadataVariables.Add(column, columnVariable) - - Dim mainBuilder = parameters.MainBuilder - mainBuilder. - Append($"Dim {columnVariable} As New StoreStoredProcedureResultColumn({code.Literal(column.Name)}, "). - Append($"{code.Literal(column.StoreType)}, {code.Literal(column.Position)}, {parameters.TargetName})") - - GenerateIsNullableInitializer(column.IsNullable, mainBuilder, code). - AppendLine(). - AppendLine($"{parameters.TargetName}.AddResultColumn({columnVariable})") - - CreateAnnotations( - column, - AddressOf Generate, - parameters.Cloner. - WithTargetName(columnVariable). - Clone) - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The column to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(column As IStoreStoredProcedureResultColumn, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Overloads Sub Create(parameter As IStoreStoredProcedureParameter, - metadataVariables As Dictionary(Of IAnnotatable, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim code = VBCode - Dim parameterVariable = code.Identifier(parameter.Name & "Parameter", parameters.ScopeVariables, capitalize:=False) - metadataVariables.Add(parameter, parameterVariable) - - Dim mainBuilder = parameters.MainBuilder - mainBuilder. - Append($"Dim {parameterVariable} As New StoreStoredProcedureParameter({code.Literal(parameter.Name)}, "). - Append($"{code.Literal(parameter.StoreType)}, {code.Literal(parameter.Position)}, {parameters.TargetName}"). - Append($", {code.Literal(parameter.Direction, fullName:=True)})") - - GenerateIsNullableInitializer(parameter.IsNullable, mainBuilder, code). - AppendLine(). - AppendLine($"{parameters.TargetName}.AddParameter({parameterVariable})") - - CreateAnnotations( - parameter, - AddressOf Generate, - parameters.Cloner. - WithTargetName(parameterVariable). - Clone) - End Sub - - Private Shared Function GenerateIsNullableInitializer(isNullable As Boolean, - mainBuilder As IndentedStringBuilder, - code As IVisualBasicHelper) As IndentedStringBuilder - - If isNullable Then - mainBuilder. - AppendLine(" With {"). - IncrementIndent(). - AppendLine($".IsNullable = {code.Literal(isNullable)}"). - DecrementIndent(). - Append("}"c) - End If - - Return mainBuilder - End Function - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The parameter to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(parameter As IStoreStoredProcedureParameter, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Overloads Sub Create(uniqueConstraint As IUniqueConstraint, - columns As IEnumerable(Of String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim code = VBCode - Dim uniqueConstraintVariable = code.Identifier(uniqueConstraint.Name, parameters.ScopeVariables, capitalize:=False) - - Dim mainBuilder = parameters.MainBuilder - mainBuilder. - Append("Dim ").Append(uniqueConstraintVariable). - Append(" As New "). - Append("UniqueConstraint"). - Append("("c). - Append(code.Literal(uniqueConstraint.Name)). - Append(", "). - Append(parameters.TargetName). - Append(", "). - Append("{"c). - AppendJoin(columns). - AppendLine("})") - - If uniqueConstraint.GetIsPrimaryKey() Then - mainBuilder. - Append(parameters.TargetName). - Append(".PrimaryKey = "). - AppendLine(uniqueConstraintVariable) - End If - - CreateAnnotations( - uniqueConstraint, - AddressOf Generate, - parameters.Cloner. - WithTargetName(uniqueConstraintVariable). - Clone) - - For Each mappedForeignKey In uniqueConstraint.MappedKeys - Dim keyVariable = code.Identifier(uniqueConstraintVariable & "Uc", parameters.ScopeVariables, capitalize:=False) - - mainBuilder. - AppendLine($"Dim {keyVariable} = RelationalModel.GetKey(Me,"). - IncrementIndent(). - AppendLine($"{code.Literal(mappedForeignKey.DeclaringEntityType.Name)},"). - AppendLine($"{code.Literal(mappedForeignKey.Properties.Select(Function(p) p.Name).ToArray())})"). - DecrementIndent() - - mainBuilder.AppendLine($"{uniqueConstraintVariable}.MappedKeys.Add({keyVariable})") - mainBuilder.AppendLine($"RelationalModel.GetOrCreateUniqueConstraints({keyVariable}).Add({uniqueConstraintVariable})") - Next - - mainBuilder. - Append($"{parameters.TargetName}.UniqueConstraints.Add({code.Literal(uniqueConstraint.Name)}, "). - AppendLine($"{uniqueConstraintVariable})") - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The unique constraint to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(uniqueConstraint As IUniqueConstraint, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Overloads Sub Create(index As ITableIndex, - columns As IEnumerable(Of String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim code = VBCode - Dim indexVariable = code.Identifier(index.Name, parameters.ScopeVariables, capitalize:=False) - - Dim mainBuilder = parameters.MainBuilder - mainBuilder. - Append("Dim ").Append(indexVariable).Append(" As New ").Append("TableIndex").AppendLine("("c). - Append(code.Literal(index.Name)).Append(", "). - Append(parameters.TargetName).Append(", "). - Append("{"c).AppendJoin(columns).Append("}, "). - Append(code.Literal(index.IsUnique)).AppendLine(")"c) - - CreateAnnotations( - index, - AddressOf Generate, - parameters.Cloner. - WithTargetName(indexVariable). - Clone) - - For Each mappedIndex In index.MappedIndexes - Dim tableIndexVariable = code.Identifier(indexVariable & "Ix", parameters.ScopeVariables, capitalize:=False) - - mainBuilder. - AppendLine($"Dim {tableIndexVariable} = RelationalModel.GetIndex(Me,"). - IncrementIndent(). - AppendLine($"{code.Literal(mappedIndex.DeclaringEntityType.Name)},"). - AppendLine( - $"{If(mappedIndex.Name Is Nothing, - code.Literal(mappedIndex.Properties.Select(Function(p) p.Name).ToArray()), - code.Literal(mappedIndex.Name))})"). - DecrementIndent() - - mainBuilder. - AppendLine($"{indexVariable}.MappedIndexes.Add({tableIndexVariable})"). - AppendLine($"RelationalModel.GetOrCreateTableIndexes({tableIndexVariable}).Add({indexVariable})") - Next - - mainBuilder. - AppendLine($"{parameters.TargetName}.Indexes.Add({code.Literal(index.Name)}, {indexVariable})") - End Sub - - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The unique constraint to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(index As ITableIndex, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Overloads Sub Create(foreignKey As IForeignKeyConstraint, - metadataVariables As Dictionary(Of IAnnotatable, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim code = VBCode - Dim principalTableVariable = metadataVariables(foreignKey.PrincipalTable) - Dim foreignKeyConstraintVariable = code.Identifier(foreignKey.Name, parameters.ScopeVariables, capitalize:=False) - - AddNamespace(GetType(ReferentialAction), parameters.Namespaces) - - Dim mainBuilder = parameters.MainBuilder - mainBuilder. - AppendLine($"Dim {foreignKeyConstraintVariable} As New ForeignKeyConstraint("). - IncrementIndent(). - AppendLine($"{code.Literal(foreignKey.Name)}, {parameters.TargetName}, {principalTableVariable},"). - Append("{"c).AppendJoin(foreignKey.Columns.Select(Function(c) metadataVariables(c))). - AppendLine("},"). - Append($"{principalTableVariable}.FindUniqueConstraint({code.Literal(foreignKey.PrincipalUniqueConstraint.Name)}), "). - Append(code.Literal(DirectCast(foreignKey.OnDeleteAction, [Enum]))). - AppendLine(")"c). - DecrementIndent() - - CreateAnnotations( - foreignKey, - AddressOf Generate, - parameters.Cloner. - WithTargetName(foreignKeyConstraintVariable). - Clone) - - For Each mappedForeignKey In foreignKey.MappedForeignKeys - - Dim foreignKeyVariable = code.Identifier(foreignKeyConstraintVariable & "Fk", parameters.ScopeVariables, capitalize:=False) - - mainBuilder. - AppendLine($"Dim {foreignKeyVariable} = RelationalModel.GetForeignKey(Me,").IncrementIndent(). - AppendLine($"{code.Literal(mappedForeignKey.DeclaringEntityType.Name)},"). - AppendLine($"{code.Literal(mappedForeignKey.Properties.Select(Function(p) p.Name).ToArray())},"). - AppendLine($"{code.Literal(mappedForeignKey.PrincipalEntityType.Name)},"). - AppendLine($"{code.Literal(mappedForeignKey.PrincipalKey.Properties.Select(Function(p) p.Name).ToArray())})"). - DecrementIndent() - - mainBuilder. - AppendLine($"{foreignKeyConstraintVariable}.MappedForeignKeys.Add({foreignKeyVariable})"). - AppendLine( - $"RelationalModel.GetOrCreateForeignKeyConstraints({foreignKeyVariable}).Add({foreignKeyConstraintVariable})") - Next - - mainBuilder. - AppendLine($"{metadataVariables(foreignKey.Table)}.ForeignKeyConstraints.Add({foreignKeyConstraintVariable})"). - AppendLine($"{principalTableVariable}.ReferencingForeignKeyConstraints.Add({foreignKeyConstraintVariable})") - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The foreign key to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(foreignKey As IForeignKeyConstraint, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Overloads Sub Create(tableMapping As ITableMappingBase, - tableMappingsVariable As String, - metadataVariables As Dictionary(Of IAnnotatable, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim code = VBCode - Dim mainBuilder = parameters.MainBuilder - Dim typeBase = tableMapping.TypeBase - Dim typeBaseVariable = metadataVariables(typeBase) - - Dim table = tableMapping.Table - Dim tableVariable = GetOrCreate(table, metadataVariables, parameters) - Dim tableMappingVariable = code.Identifier(table.Name & "MappingBase", parameters.ScopeVariables, capitalize:=False) - - GenerateAddMapping( - tableMapping, - tableVariable, - typeBaseVariable, - tableMappingsVariable, - tableMappingVariable, - "TableMappingBase(Of ColumnMappingBase)", - parameters) - - CreateAnnotations( - tableMapping, - AddressOf Generate, - parameters.Cloner. - WithTargetName(tableMappingVariable). - Clone) - - For Each columnMapping In tableMapping.ColumnMappings - mainBuilder. - Append("RelationalModel.CreateColumnMapping("). - Append($"DirectCast({metadataVariables(columnMapping.Column)}, ColumnBase(Of ColumnMappingBase)), "). - Append($"{typeBaseVariable}.FindProperty({code.Literal(columnMapping.Property.Name)}), "). - Append(tableMappingVariable).AppendLine(")"c) - Next - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The table mapping to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(tableMapping As ITableMappingBase, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Overloads Sub Create(tableMapping As ITableMapping, - tableMappingsVariable As String, - metadataVariables As Dictionary(Of IAnnotatable, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim code = VBCode - Dim mainBuilder = parameters.MainBuilder - Dim typeBase = tableMapping.TypeBase - Dim typeBaseVariable = metadataVariables(typeBase) - - Dim table = tableMapping.Table - Dim tableVariable = GetOrCreate(table, metadataVariables, parameters) - Dim tableMappingVariable = code.Identifier(table.Name & "TableMapping", parameters.ScopeVariables, capitalize:=False) - metadataVariables.Add(tableMapping, tableMappingVariable) - - GenerateAddMapping( - tableMapping, - tableVariable, - typeBaseVariable, - tableMappingsVariable, - tableMappingVariable, - "TableMapping", - parameters) - - CreateAnnotations( - tableMapping, - AddressOf Generate, - parameters.Cloner. - WithTargetName(tableMappingVariable). - Clone) - - For Each columnMapping In tableMapping.ColumnMappings - mainBuilder. - Append($"RelationalModel.CreateColumnMapping({metadataVariables(columnMapping.Column)}, "). - Append($"{typeBaseVariable}.FindProperty({code.Literal(columnMapping.Property.Name)}), "). - Append(tableMappingVariable).AppendLine(")"c) - Next - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The table mapping to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(tableMapping As ITableMapping, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Overloads Sub Create(viewMapping As IViewMapping, - viewMappingsVariable As String, - metadataVariables As Dictionary(Of IAnnotatable, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim code = VBCode - Dim mainBuilder = parameters.MainBuilder - Dim typeBase = viewMapping.TypeBase - Dim typeBaseVariable = metadataVariables(typeBase) - - Dim view = viewMapping.View - Dim viewVariable = GetOrCreate(view, metadataVariables, parameters) - Dim viewMappingVariable = code.Identifier(view.Name & "ViewMapping", parameters.ScopeVariables, capitalize:=False) - - GenerateAddMapping( - viewMapping, - viewVariable, - typeBaseVariable, - viewMappingsVariable, - viewMappingVariable, - "ViewMapping", - parameters) - - CreateAnnotations( - viewMapping, - AddressOf Generate, - parameters.Cloner. - WithTargetName(viewMappingVariable). - Clone) - - For Each columnMapping In viewMapping.ColumnMappings - mainBuilder. - Append($"RelationalModel.CreateViewColumnMapping({metadataVariables(columnMapping.Column)}, "). - Append($"{typeBaseVariable}.FindProperty({code.Literal(columnMapping.Property.Name)}), "). - Append(viewMappingVariable).AppendLine(")"c) - Next - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The view mapping to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(viewMapping As IViewMapping, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Overloads Sub Create(sqlQueryMapping As ISqlQueryMapping, - sqlQueryMappingsVariable As String, - metadataVariables As Dictionary(Of IAnnotatable, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim code = VBCode - Dim mainBuilder = parameters.MainBuilder - Dim typeBase = sqlQueryMapping.TypeBase - Dim typeBaseVariable = metadataVariables(typeBase) - - Dim sqlQuery = sqlQueryMapping.SqlQuery - Dim sqlQueryVariable = GetOrCreate(sqlQuery, metadataVariables, parameters) - Dim sqlQueryMappingVariable = code.Identifier(sqlQuery.Name & "SqlQueryMapping", parameters.ScopeVariables, capitalize:=False) - - GenerateAddMapping( - sqlQueryMapping, - sqlQueryVariable, - typeBaseVariable, - sqlQueryMappingsVariable, - sqlQueryMappingVariable, - "SqlQueryMapping", - parameters) - - If sqlQueryMapping.IsDefaultSqlQueryMapping Then - mainBuilder. - AppendLine($"{sqlQueryMappingVariable}.IsDefaultSqlQueryMapping = {code.Literal(True)}") - End If - - CreateAnnotations( - sqlQueryMapping, - AddressOf Generate, - parameters.Cloner. - WithTargetName(sqlQueryMappingVariable). - Clone) - - For Each columnMapping In sqlQueryMapping.ColumnMappings - mainBuilder. - Append($"RelationalModel.CreateSqlQueryColumnMapping({metadataVariables(columnMapping.Column)}, "). - Append($"{typeBaseVariable}.FindProperty({code.Literal(columnMapping.Property.Name)}), "). - Append(sqlQueryMappingVariable). - AppendLine(")"c) - Next - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The SQL query mapping to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(sqlQueryMapping As ISqlQueryMapping, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Overloads Sub Create(functionMapping As IFunctionMapping, - functionMappingsVariable As String, - metadataVariables As Dictionary(Of IAnnotatable, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim code = VBCode - Dim mainBuilder = parameters.MainBuilder - Dim typeBase = functionMapping.TypeBase - Dim typeBaseVariable = metadataVariables(typeBase) - - Dim storeFunction = functionMapping.StoreFunction - Dim functionVariable = GetOrCreate(storeFunction, metadataVariables, parameters) - Dim dbFunctionVariable = metadataVariables(functionMapping.DbFunction) - Dim functionMappingVariable = code.Identifier(storeFunction.Name & "FunctionMapping", parameters.ScopeVariables, capitalize:=False) - - GenerateAddMapping( - functionMapping, - functionVariable, - typeBaseVariable, - functionMappingsVariable, - functionMappingVariable, - "FunctionMapping", - parameters, - $"{dbFunctionVariable}, ") - - If functionMapping.IsDefaultFunctionMapping Then - mainBuilder. - AppendLine($"{functionMappingVariable}.IsDefaultFunctionMapping = {code.Literal(True)}") - End If - - CreateAnnotations( - functionMapping, - AddressOf Generate, - parameters.Cloner. - WithTargetName(functionMappingVariable). - Clone) - - For Each columnMapping In functionMapping.ColumnMappings - mainBuilder. - Append($"RelationalModel.CreateFunctionColumnMapping({metadataVariables(columnMapping.Column)}, "). - Append($"{typeBaseVariable}.FindProperty({code.Literal(columnMapping.Property.Name)}), "). - Append(functionMappingVariable).AppendLine(")"c) - Next - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The function mapping to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(functionMapping As IFunctionMapping, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Overloads Sub Create(sprocMapping As IStoredProcedureMapping, - sprocMappingsVariable As String, - storeObjectType As StoreObjectType, - metadataVariables As Dictionary(Of IAnnotatable, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim code = VBCode - Dim mainBuilder = parameters.MainBuilder - Dim typeBase = sprocMapping.TypeBase - Dim typeBaseVariable = metadataVariables(typeBase) - - Dim storeSproc = sprocMapping.StoreStoredProcedure - Dim storeSprocVariable = GetOrCreate(storeSproc, metadataVariables, parameters) - - Dim sprocMappingName As String - Select Case storeObjectType - Case StoreObjectType.InsertStoredProcedure : sprocMappingName = "InsertStoredProcedureMapping" - Case StoreObjectType.DeleteStoredProcedure : sprocMappingName = "DeleteStoredProcedureMapping" - Case StoreObjectType.UpdateStoredProcedure : sprocMappingName = "UpdateStoredProcedureMapping" - Case Else : Throw New Exception("Unexpected stored procedure type: " & storeObjectType) - End Select - - Dim sprocSnippet = CreateFindSnippet(sprocMapping.StoredProcedure, metadataVariables) - Dim sprocVariable = code.Identifier(storeSproc.Name & sprocMappingName(0) & "Sproc", parameters.ScopeVariables, capitalize:=False) - mainBuilder. - AppendLine($"Dim {sprocVariable} = {CreateFindSnippet(sprocMapping.StoredProcedure, metadataVariables)}") - - Dim sprocMappingVariable = code.Identifier(storeSproc.Name & "SprocMapping", parameters.ScopeVariables, capitalize:=False) - Dim tableMappingVariable = If(sprocMapping.TableMapping IsNot Nothing, metadataVariables(sprocMapping.TableMapping), Nothing) - - GenerateAddMapping( - sprocMapping, - storeSprocVariable, - typeBaseVariable, - sprocMappingsVariable, - sprocMappingVariable, - "StoredProcedureMapping", - parameters, - $"{sprocSnippet}, {If(tableMappingVariable, "Nothing")}, ") - - If tableMappingVariable IsNot Nothing Then - mainBuilder. - AppendLine($"{tableMappingVariable}.{sprocMappingName} = {sprocMappingVariable}") - End If - - CreateAnnotations( - sprocMapping, - AddressOf Generate, - parameters.Cloner. - WithTargetName(sprocMappingVariable). - Clone) - - For Each parameterMapping In sprocMapping.ParameterMappings - mainBuilder. - Append($"RelationalModel.CreateStoredProcedureParameterMapping({metadataVariables(parameterMapping.StoreParameter)}, "). - Append($"{sprocVariable}.FindParameter({code.Literal(parameterMapping.Parameter.Name)}), "). - Append($"{typeBaseVariable}.FindProperty({code.Literal(parameterMapping.Property.Name)}), "). - Append(sprocMappingVariable).AppendLine(")"c) - Next - - For Each columnMapping In sprocMapping.ResultColumnMappings - mainBuilder. - Append($"RelationalModel.CreateStoredProcedureResultColumnMapping({metadataVariables(columnMapping.StoreResultColumn)}, "). - Append($"{sprocVariable}.FindResultColumn({code.Literal(columnMapping.ResultColumn.Name)}), "). - Append($"{typeBaseVariable}.FindProperty({code.Literal(columnMapping.Property.Name)}), "). - Append(sprocMappingVariable).AppendLine(")"c) - Next - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The stored procedure mapping to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(sprocMapping As IStoredProcedureMapping, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Sub GenerateAddMapping(tableMapping As ITableMappingBase, - tableVariable As String, - entityTypeVariable As String, - tableMappingsVariable As String, - tableMappingVariable As String, - mappingType As String, - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters, - Optional additionalParameter As String = Nothing) - - Dim code = VBCode - Dim mainBuilder = parameters.MainBuilder - Dim typeBase = tableMapping.TypeBase - - mainBuilder. - Append($"Dim {tableMappingVariable} As New {mappingType}({entityTypeVariable}, "). - Append($"{tableVariable}, {If(additionalParameter, "")}{code.Literal(tableMapping.IncludesDerivedTypes)}") - - If tableMapping.IsSharedTablePrincipal.HasValue OrElse - tableMapping.IsSplitEntityTypePrincipal.HasValue Then - - mainBuilder. - Append(")"c). - AppendLine(" With {"). - IncrementIndent() - - Dim AddComma = False - - If tableMapping.IsSharedTablePrincipal.HasValue Then - mainBuilder. - Append(".IsSharedTablePrincipal = "). - Append(code.Literal(tableMapping.IsSharedTablePrincipal)) - AddComma = True - End If - - If tableMapping.IsSplitEntityTypePrincipal.HasValue Then - If AddComma Then mainBuilder.AppendLine(","c) - - mainBuilder. - Append(".IsSplitEntityTypePrincipal = "). - Append(code.Literal(tableMapping.IsSplitEntityTypePrincipal)) - End If - - mainBuilder. - AppendLine(). - DecrementIndent(). - AppendLine("}"c) - Else - mainBuilder.AppendLine(")"c) - End If - - Dim table = tableMapping.Table - Dim isOptional = table.IsOptional(typeBase) - - mainBuilder. - AppendLine($"{tableVariable}.AddTypeMapping({tableMappingVariable}, {code.Literal(isOptional)})"). - AppendLine($"{tableMappingsVariable}.Add({tableMappingVariable})") - - If TypeOf typeBase Is IEntityType Then - Dim entityType = DirectCast(typeBase, IEntityType) - For Each internalForeignKey In table.GetRowInternalForeignKeys(entityType) - mainBuilder. - Append(tableVariable).Append($".AddRowInternalForeignKey({entityTypeVariable}, "). - AppendLine("RelationalModel.GetForeignKey(Me,"). - IncrementIndent(). - AppendLine($"{code.Literal(internalForeignKey.DeclaringEntityType.Name)},"). - AppendLine($"{code.Literal(internalForeignKey.Properties.Select(Function(p) p.Name).ToArray())},"). - AppendLine($"{code.Literal(internalForeignKey.PrincipalEntityType.Name)},"). - AppendLine($"{code.Literal(internalForeignKey.PrincipalKey.Properties.Select(Function(p) p.Name).ToArray())}))"). - DecrementIndent() - Next - End If - End Sub - - Private Overloads Sub Create([function] As IDbFunction, - functionsVariable As String, - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - If [function].Translation IsNot Nothing Then - Throw New InvalidOperationException(RelationalStrings.CompiledModelFunctionTranslation([function].Name)) - End If - - AddNamespace([function].ReturnType, parameters.Namespaces) - - Dim code = VBCode - - Dim functionVariable = code.Identifier( - If([function].MethodInfo?.Name, [function].Name), parameters.ScopeVariables, capitalize:=False) - - Dim mainBuilder = parameters.MainBuilder - mainBuilder. - Append("Dim ").Append(functionVariable).AppendLine(" As New RuntimeDbFunction(").IncrementIndent(). - Append(code.Literal([function].ModelName)).AppendLine(","c). - Append(parameters.TargetName).AppendLine(","c). - Append(code.Literal([function].ReturnType)).AppendLine(","c). - Append(code.Literal([function].Name)) - - If [function].Schema IsNot Nothing Then - mainBuilder. - AppendLine(","c). - Append("schema:="). - Append(code.Literal([function].Schema)) - End If - - If [function].StoreType IsNot Nothing Then - mainBuilder. - AppendLine(","c). - Append("storeType:="). - Append(code.Literal([function].StoreType)) - End If - - If [function].MethodInfo IsNot Nothing Then - Dim method = [function].MethodInfo - AddNamespace(method.DeclaringType, parameters.Namespaces) - - mainBuilder. - AppendLine(","c). - AppendLine($"methodInfo:={code.Literal(method.DeclaringType)}.GetMethod(").IncrementIndent(). - Append(code.Literal(method.Name)).AppendLine(","c). - Append(If(method.IsPublic, "BindingFlags.Public", "BindingFlags.NonPublic")). - Append(If(method.IsStatic, " Or BindingFlags.Static", " Or BindingFlags.Instance")). - AppendLine(" Or BindingFlags.DeclaredOnly,"). - AppendLine("Nothing,"). - Append("{"c).Append(String.Join(", ", method.GetParameters().Select(Function(p) code.Literal(p.ParameterType)))).AppendLine("},"). - Append("Nothing)").DecrementIndent() - End If - - If [function].IsScalar Then - mainBuilder. - AppendLine(","c). - Append("scalar:="). - Append(code.Literal([function].IsScalar)) - End If - - If [function].IsAggregate Then - mainBuilder. - AppendLine(","c). - Append("aggregate:="). - Append(code.Literal([function].IsAggregate)) - End If - - If [function].IsNullable Then - mainBuilder.AppendLine(","c).Append("nullable:=").Append(code.Literal([function].IsNullable)) - End If - - If [function].IsBuiltIn Then - mainBuilder. - AppendLine(","c). - Append("builtIn:="). - Append(code.Literal([function].IsBuiltIn)) - End If - - mainBuilder. - AppendLine(")"c). - DecrementIndent(). - AppendLine() - - parameters = parameters.Cloner. - WithTargetName(functionVariable). - Clone() - - For Each parameter In [function].Parameters - Create(parameter, parameters) - Next - - If [function].TypeMapping IsNot Nothing Then - mainBuilder.Append(functionVariable).Append(".TypeMapping = ") - Create( - [function].TypeMapping, - parameters. - Cloner. - WithTargetName(functionVariable). - Clone) - mainBuilder.AppendLine() - End If - - CreateAnnotations( - [function], - AddressOf Generate, - parameters) - - mainBuilder. - Append(functionsVariable). - Append("("c). - Append(code.Literal([function].ModelName)). - Append(") = "). - AppendLine(functionVariable). - AppendLine() - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The function to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate([Function] As IDbFunction, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Overloads Sub Create(parameter As IDbFunctionParameter, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - AddNamespace(parameter.ClrType, parameters.Namespaces) - - Dim code = VBCode - Dim mainBuilder = parameters.MainBuilder - Dim parameterVariable = code.Identifier(parameter.Name, parameters.ScopeVariables, capitalize:=False) - mainBuilder. - Append("Dim "). - Append(parameterVariable). - Append(" = "). - Append(parameters.TargetName). - AppendLine(".AddParameter("). - IncrementIndent(). - Append(code.Literal(parameter.Name)). - AppendLine(","c). - Append(code.Literal(parameter.ClrType)). - AppendLine(","c). - Append(code.Literal(parameter.PropagatesNullability)). - AppendLine(","c). - Append(code.Literal(parameter.StoreType)). - AppendLine(")"c). - DecrementIndent() - - mainBuilder.Append(parameterVariable).Append(".TypeMapping = ") - Create( - parameter.TypeMapping, - parameters. - Cloner. - WithTargetName(parameterVariable). - Clone) - - mainBuilder.AppendLine() - - CreateAnnotations( - parameter, - AddressOf Generate, - parameters.Cloner. - WithTargetName(parameterVariable). - Clone()) - - mainBuilder.AppendLine() - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The function parameter to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(functionParameter As IDbFunctionParameter, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Overloads Sub Create(aSequence As ISequence, sequencesVariable As String, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - Dim code = VBCode - Dim sequenceVariable = code.Identifier(aSequence.Name, parameters.ScopeVariables, capitalize:=False) - Dim mainBuilder = parameters.MainBuilder - - mainBuilder. - Append("Dim "). - Append(sequenceVariable). - AppendLine(" As New RuntimeSequence("). - IncrementIndent(). - Append(code.Literal(aSequence.Name)). - AppendLine(","c). - Append(parameters.TargetName). - AppendLine(","c). - Append(code.Literal(aSequence.Type)) - - If aSequence.Schema IsNot Nothing Then - mainBuilder. - AppendLine(","c). - Append("schema:="). - Append(code.Literal(aSequence.Schema)) - End If - - If aSequence.StartValue <> Sequence.DefaultStartValue Then - mainBuilder. - AppendLine(","c). - Append("startValue:="). - Append(code.Literal(aSequence.StartValue)) - End If - - If aSequence.IncrementBy <> Sequence.DefaultIncrementBy Then - mainBuilder. - AppendLine(","c). - Append("incrementBy:="). - Append(code.Literal(aSequence.IncrementBy)) - End If - - If aSequence.IsCyclic Then - mainBuilder. - AppendLine(","c). - Append("cyclic:="). - Append(code.Literal(aSequence.IsCyclic)) - End If - - If aSequence.MinValue IsNot Nothing Then - mainBuilder. - AppendLine(","c). - Append("minValue:="). - Append(code.Literal(aSequence.MinValue)) - End If - - If aSequence.MaxValue IsNot Nothing Then - mainBuilder. - AppendLine(","c). - Append("maxValue:="). - Append(code.Literal(aSequence.MaxValue)) - End If - - If aSequence.ModelSchema Is Nothing AndAlso aSequence.Schema IsNot Nothing Then - mainBuilder. - AppendLine(","c). - Append("modelSchemaIsNull:="). - Append(code.Literal(True)) - End If - - mainBuilder. - AppendLine(")"c). - DecrementIndent(). - AppendLine() - - CreateAnnotations( - aSequence, - AddressOf Generate, - parameters.Cloner. - WithTargetName(sequenceVariable). - Clone()) - - mainBuilder. - Append(sequencesVariable). - Append("((").Append(code.Literal(aSequence.Name)).Append(", "). - Append(code.Literal(aSequence.ModelSchema)).Append(")) = "). - AppendLine(sequenceVariable). - AppendLine() - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The sequence to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(sequence As ISequence, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - ''' - Public Overrides Sub Generate(entityType As IEntityType, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - Dim annotations = parameters.Annotations - - If parameters.IsRuntime Then - annotations.Remove(RelationalAnnotationNames.TableMappings) - annotations.Remove(RelationalAnnotationNames.ViewMappings) - annotations.Remove(RelationalAnnotationNames.SqlQueryMappings) - annotations.Remove(RelationalAnnotationNames.FunctionMappings) - annotations.Remove(RelationalAnnotationNames.InsertStoredProcedureMappings) - annotations.Remove(RelationalAnnotationNames.DeleteStoredProcedureMappings) - annotations.Remove(RelationalAnnotationNames.UpdateStoredProcedureMappings) - annotations.Remove(RelationalAnnotationNames.DefaultMappings) - Else - annotations.Remove(RelationalAnnotationNames.CheckConstraints) - annotations.Remove(RelationalAnnotationNames.Comment) - annotations.Remove(RelationalAnnotationNames.IsTableExcludedFromMigrations) - - 'These need to be set explicitly to prevent default values from being generated - annotations(RelationalAnnotationNames.TableName) = entityType.GetTableName() - annotations(RelationalAnnotationNames.Schema) = entityType.GetSchema() - annotations(RelationalAnnotationNames.ViewName) = entityType.GetViewName() - annotations(RelationalAnnotationNames.ViewSchema) = entityType.GetViewSchema() - annotations(RelationalAnnotationNames.SqlQuery) = entityType.GetSqlQuery() - annotations(RelationalAnnotationNames.FunctionName) = entityType.GetFunctionName() - - Dim fragments As IReadOnlyStoreObjectDictionary(Of IEntityTypeMappingFragment) = Nothing - - If annotations.TryGetAndRemove(RelationalAnnotationNames.MappingFragments, - fragments) Then - - AddNamespace(GetType(StoreObjectDictionary(Of RuntimeEntityTypeMappingFragment)), parameters.Namespaces) - AddNamespace(GetType(StoreObjectIdentifier), parameters.Namespaces) - - Dim fragmentsVariable = VBCode.Identifier("fragments", parameters.ScopeVariables, capitalize:=False) - - parameters. - MainBuilder. - Append("Dim ").Append(fragmentsVariable).AppendLine(" As New StoreObjectDictionary(Of RuntimeEntityTypeMappingFragment)()") - - For Each fragment In fragments.GetValues() - Create(fragment, fragmentsVariable, parameters) - Next - - GenerateSimpleAnnotation(RelationalAnnotationNames.MappingFragments, fragmentsVariable, parameters) - End If - - Dim insertStoredProcedure As StoredProcedure = Nothing - If annotations.TryGetAndRemove( - RelationalAnnotationNames.InsertStoredProcedure, insertStoredProcedure) Then - - Dim sprocVariable = VBCode.Identifier("insertSproc", parameters.ScopeVariables, capitalize:=False) - - Create(insertStoredProcedure, sprocVariable, parameters) - - GenerateSimpleAnnotation(RelationalAnnotationNames.InsertStoredProcedure, sprocVariable, parameters) - parameters.MainBuilder.AppendLine() - End If - - Dim deleteStoredProcedure As StoredProcedure = Nothing - If annotations.TryGetAndRemove( - RelationalAnnotationNames.DeleteStoredProcedure, deleteStoredProcedure) Then - - Dim sprocVariable = VBCode.Identifier("deleteSproc", parameters.ScopeVariables, capitalize:=False) - - Create(deleteStoredProcedure, sprocVariable, parameters) - - GenerateSimpleAnnotation(RelationalAnnotationNames.DeleteStoredProcedure, sprocVariable, parameters) - parameters.MainBuilder.AppendLine() - End If - - Dim updateStoredProcedure As StoredProcedure = Nothing - If annotations.TryGetAndRemove( - RelationalAnnotationNames.UpdateStoredProcedure, updateStoredProcedure) Then - Dim sprocVariable = VBCode.Identifier("updateSproc", parameters.ScopeVariables, capitalize:=False) - - Create(updateStoredProcedure, sprocVariable, parameters) - - GenerateSimpleAnnotation(RelationalAnnotationNames.UpdateStoredProcedure, sprocVariable, parameters) - parameters.MainBuilder.AppendLine() - End If - End If - - MyBase.Generate(entityType, parameters) - End Sub - - ''' - Public Overrides Sub Generate(complexType As IComplexType, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - Dim annotations = parameters.Annotations - If parameters.IsRuntime Then - annotations.Remove(RelationalAnnotationNames.TableMappings) - annotations.Remove(RelationalAnnotationNames.ViewMappings) - annotations.Remove(RelationalAnnotationNames.SqlQueryMappings) - annotations.Remove(RelationalAnnotationNames.FunctionMappings) - annotations.Remove(RelationalAnnotationNames.InsertStoredProcedureMappings) - annotations.Remove(RelationalAnnotationNames.DeleteStoredProcedureMappings) - annotations.Remove(RelationalAnnotationNames.UpdateStoredProcedureMappings) - annotations.Remove(RelationalAnnotationNames.DefaultMappings) - Else - ' These need to be set explicitly to prevent default values from being generated - annotations(RelationalAnnotationNames.TableName) = complexType.GetTableName() - annotations(RelationalAnnotationNames.Schema) = complexType.GetSchema() - annotations(RelationalAnnotationNames.ViewName) = complexType.GetViewName() - annotations(RelationalAnnotationNames.ViewSchema) = complexType.GetViewSchema() - annotations(RelationalAnnotationNames.SqlQuery) = complexType.GetSqlQuery() - annotations(RelationalAnnotationNames.FunctionName) = complexType.GetFunctionName() - End If - - MyBase.Generate(complexType, parameters) - End Sub - - Private Overloads Sub Create(fragment As IEntityTypeMappingFragment, - fragmentsVariable As String, - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim storeObject = fragment.StoreObject - Dim code = VBCode - Dim overrideVariable = code.Identifier(storeObject.Name & "Fragment", parameters.ScopeVariables, capitalize:=False) - Dim mainBuilder = parameters.MainBuilder - - mainBuilder. - Append("Dim "). - Append(overrideVariable). - AppendLine(" As New RuntimeEntityTypeMappingFragment("). - IncrementIndent(). - Append(parameters.TargetName). - AppendLine(","c) - - AppendLiteral(storeObject, mainBuilder, code) - - mainBuilder. - AppendLine(","c). - Append(code.Literal(fragment.IsTableExcludedFromMigrations)). - AppendLine(")"c). - DecrementIndent() - - CreateAnnotations( - fragment, - AddressOf Generate, - parameters.Cloner. - WithTargetName(overrideVariable). - Clone) - - ' Using reflection because VB currently doesn't seem to be able to call a method that has - ' an 'in' parameter if it's virtual. - mainBuilder. - Append(fragmentsVariable). - Append($".GetType().GetMethod(""Add"").Invoke({fragmentsVariable}, {{") - - AppendLiteral(storeObject, mainBuilder, code) - - mainBuilder. - Append(", "). - Append(overrideVariable).AppendLine("})") - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The fragment to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(fragment As IEntityTypeMappingFragment, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Overloads Sub Create(storedProcedure As IStoredProcedure, sprocVariable As String, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - AddNamespace(GetType(RuntimeStoredProcedure), parameters.Namespaces) - - Dim code = VBCode - Dim mainBuilder = parameters.MainBuilder - - mainBuilder. - Append("Dim ").Append(sprocVariable).AppendLine(" As New RuntimeStoredProcedure("). - IncrementIndent(). - Append(parameters.TargetName).AppendLine(","c). - Append(code.Literal(storedProcedure.Name)).AppendLine(","c). - Append(code.Literal(storedProcedure.Schema)).AppendLine(","c). - Append(code.Literal(storedProcedure.IsRowsAffectedReturned)). - AppendLine(")"c). - DecrementIndent(). - AppendLine() - - parameters = parameters.Cloner. - WithTargetName(sprocVariable). - Clone - - For Each parameter In storedProcedure.Parameters - Create(parameter, parameters) - Next - - For Each resultColumn In storedProcedure.ResultColumns - Create(resultColumn, parameters) - Next - - CreateAnnotations( - storedProcedure, - AddressOf Generate, - parameters) - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The stored procedure to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(storedProcedure As IStoredProcedure, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Overloads Sub Create(parameter As IStoredProcedureParameter, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim code = VBCode - Dim mainBuilder = parameters.MainBuilder - Dim parameterVariable = code.Identifier(If(parameter.PropertyName, parameter.Name), parameters.ScopeVariables, capitalize:=False) - - mainBuilder. - Append("Dim ").Append(parameterVariable).Append(" = "). - Append(parameters.TargetName).AppendLine(".AddParameter(").IncrementIndent(). - Append(code.Literal(parameter.Name)).Append(", "). - Append(code.Literal(DirectCast(parameter.Direction, [Enum]), fullName:=True)).Append(", "). - Append(code.Literal(parameter.ForRowsAffected)).Append(", "). - Append(code.Literal(parameter.PropertyName)).Append(", "). - Append(code.Literal(parameter.ForOriginalValue)). - AppendLine(")"c).DecrementIndent() - - CreateAnnotations( - parameter, - AddressOf Generate, - parameters.Cloner. - WithTargetName(parameterVariable). - Clone) - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The stored procedure to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(storedProcedure As IStoredProcedureParameter, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - Private Overloads Sub Create(resultColumn As IStoredProcedureResultColumn, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim code = VBCode - Dim mainBuilder = parameters.MainBuilder - Dim resultColumnVariable = code.Identifier(resultColumn.Name, parameters.ScopeVariables, capitalize:=False) - - mainBuilder. - Append("Dim ").Append(resultColumnVariable).Append(" = "). - Append(parameters.TargetName).AppendLine(".AddResultColumn(").IncrementIndent(). - Append(code.Literal(resultColumn.Name)).Append(", "). - Append(code.Literal(resultColumn.ForRowsAffected)).Append(", "). - Append(code.Literal(resultColumn.PropertyName)). - AppendLine(")"c).DecrementIndent() - - CreateAnnotations( - resultColumn, - AddressOf Generate, - parameters.Cloner. - WithTargetName(resultColumnVariable). - Clone) - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The stored procedure to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(storedProcedure As IStoredProcedureResultColumn, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The check constraint to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate(constraint As ICheckConstraint, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - '' - Public Overrides Sub Generate([Property] As IProperty, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim annotations = parameters.Annotations - If parameters.IsRuntime Then - annotations.Remove(RelationalAnnotationNames.TableColumnMappings) - annotations.Remove(RelationalAnnotationNames.ViewColumnMappings) - annotations.Remove(RelationalAnnotationNames.SqlQueryColumnMappings) - annotations.Remove(RelationalAnnotationNames.FunctionColumnMappings) - annotations.Remove(RelationalAnnotationNames.InsertStoredProcedureParameterMappings) - annotations.Remove(RelationalAnnotationNames.InsertStoredProcedureResultColumnMappings) - annotations.Remove(RelationalAnnotationNames.DeleteStoredProcedureParameterMappings) - annotations.Remove(RelationalAnnotationNames.UpdateStoredProcedureParameterMappings) - annotations.Remove(RelationalAnnotationNames.UpdateStoredProcedureResultColumnMappings) - annotations.Remove(RelationalAnnotationNames.DefaultColumnMappings) - Else - annotations.Remove(RelationalAnnotationNames.ColumnOrder) - annotations.Remove(RelationalAnnotationNames.Comment) - annotations.Remove(RelationalAnnotationNames.Collation) - - Dim tableOverrides As IReadOnlyStoreObjectDictionary(Of IRelationalPropertyOverrides) = Nothing - - If TryGetAndRemove(annotations, RelationalAnnotationNames.RelationalOverrides, tableOverrides) Then - AddNamespace(GetType(StoreObjectDictionary(Of RuntimeRelationalPropertyOverrides)), parameters.Namespaces) - AddNamespace(GetType(StoreObjectIdentifier), parameters.Namespaces) - - Dim overridesVariable = VBCode.Identifier("overrides", parameters.ScopeVariables, capitalize:=False) - parameters.MainBuilder. - AppendLine(). - Append("Dim "). - Append(overridesVariable). - AppendLine(" As New StoreObjectDictionary(Of RuntimeRelationalPropertyOverrides)()") - - For Each [overrides] In tableOverrides.GetValues() - Create([overrides], overridesVariable, parameters) - Next - - GenerateSimpleAnnotation(RelationalAnnotationNames.RelationalOverrides, overridesVariable, parameters) - parameters.MainBuilder.AppendLine() - End If - End If - - MyBase.Generate([Property], parameters) - End Sub - - Private Overloads Sub Create([overrides] As IRelationalPropertyOverrides, - overridesVariable As String, - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim storeObject = [overrides].StoreObject - - Dim code = VBCode - - Dim overrideVariable = - code.Identifier(parameters.TargetName & Capitalize(storeObject.Name), parameters.ScopeVariables, capitalize:=False) - - Dim mainBuilder = parameters.MainBuilder - - mainBuilder. - Append("Dim "). - Append(overrideVariable). - AppendLine(" As New RuntimeRelationalPropertyOverrides("). - IncrementIndent(). - Append(parameters.TargetName).AppendLine(","c) - - AppendLiteral(storeObject, mainBuilder, code) - - mainBuilder. - AppendLine(","c). - Append(code.Literal([overrides].IsColumnNameOverridden)). - AppendLine(","c). - Append(code.Literal([overrides].ColumnName)). - AppendLine(")"c). - DecrementIndent() - - CreateAnnotations( - [overrides], AddressOf Generate, - parameters.Cloner. - WithTargetName(overrideVariable). - Clone()) - - - ' Using reflection because VB currently doesn't seem to be able to call a method that has - ' an 'in' parameter if it's virtual. - mainBuilder. - Append(overridesVariable). - Append($".GetType().GetMethod(""Add"").Invoke({overridesVariable}, {{") - - AppendLiteral(storeObject, mainBuilder, code) - - mainBuilder. - Append(", "). - Append(overrideVariable). - AppendLines("})") - End Sub - - ''' - ''' Generates code to create the given annotations. - ''' - ''' The property overrides to which the annotations are applied. - ''' Additional parameters used during code generation. - Public Overridable Overloads Sub Generate([Overrides] As IRelationalPropertyOverrides, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - GenerateSimpleAnnotations(parameters) - End Sub - - ''' - Public Overrides Sub Generate(key As IKey, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - If parameters.IsRuntime Then - parameters.Annotations.Remove(RelationalAnnotationNames.UniqueConstraintMappings) - End If - - MyBase.Generate(key, parameters) - End Sub - - ''' - Public Overrides Sub Generate(foreignKey As IForeignKey, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - If parameters.IsRuntime Then - parameters.Annotations.Remove(RelationalAnnotationNames.ForeignKeyMappings) - End If - - MyBase.Generate(foreignKey, parameters) - End Sub - - ''' - Public Overrides Sub Generate(index As IIndex, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - Dim annotations = parameters.Annotations - If parameters.IsRuntime Then - annotations.Remove(RelationalAnnotationNames.TableIndexMappings) - Else - annotations.Remove(RelationalAnnotationNames.Filter) - End If - - MyBase.Generate(index, parameters) - End Sub - - ''' - Public Overrides Function Create( - typeMapping As CoreTypeMapping, - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters, - Optional valueComparer As ValueComparer = Nothing, - Optional keyValueComparer As ValueComparer = Nothing, - Optional providerValueComparer As ValueComparer = Nothing) As Boolean - - Dim relationalTypeMapping = TryCast(typeMapping, RelationalTypeMapping) - If relationalTypeMapping Is Nothing Then - Return MyBase.Create(typeMapping, parameters, valueComparer, keyValueComparer, providerValueComparer) - End If - - Dim mainBuilder = parameters.MainBuilder - Dim code = VBCode - - If IsSpatial(relationalTypeMapping) Then - ' Spatial mappings are Not supported in the compiled model - mainBuilder.Append(code.UnknownLiteral(Nothing)) - Return False - End If - - Dim defaultInstance = DirectCast(CreateDefaultTypeMapping(relationalTypeMapping, parameters), RelationalTypeMapping) - If defaultInstance Is Nothing Then - Return True - End If - - parameters.Namespaces.Add(GetType(Type).Namespace) - parameters.Namespaces.Add(GetType(BindingFlags).Namespace) - - Dim cloneMethod = GetCloneMethod(typeMapping.GetType(), { - "comparer", - "keyComparer", - "providerValueComparer", - "mappingInfo", - "converter", - "clrType", - "storeTypePostfix", - "jsonValueReaderWriter", - "elementMapping" - }) - - parameters.Namespaces.Add(cloneMethod.DeclaringType.Namespace) - - mainBuilder. - AppendLine($"DirectCast(GetType({code.Reference(cloneMethod.DeclaringType)})."). - IncrementIndent(). - AppendLine($"GetMethod(""Clone"", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)."). - AppendLine($"Invoke({code.Reference(typeMapping.GetType())}.Default, {{"). - IncrementIndent() - - Dim first = True - For Each p In cloneMethod.GetParameters() - If first Then - first = False - Else - mainBuilder.AppendLine(","c) - End If - - Select Case p.Name - Case "comparer" - Create(If(valueComparer, relationalTypeMapping.Comparer), parameters, code) - - Case "keyComparer" - Create(If(keyValueComparer, relationalTypeMapping.KeyComparer), parameters, code) - - Case "providerValueComparer" - Create(If(providerValueComparer, relationalTypeMapping.ProviderValueComparer), parameters, code) - - Case "mappingInfo" - Dim storeTypeDifferent = relationalTypeMapping.StoreType <> defaultInstance.StoreType - - Dim sizeDifferent = relationalTypeMapping.Size.HasValue AndAlso - (Not defaultInstance.Size.HasValue OrElse relationalTypeMapping.Size.Value <> defaultInstance.Size.Value) - - Dim precisionDifferent = relationalTypeMapping.Precision.HasValue AndAlso - (Not defaultInstance.Precision.HasValue OrElse relationalTypeMapping.Precision.Value <> defaultInstance.Precision.Value) - - Dim scaleDifferent = relationalTypeMapping.Scale.HasValue AndAlso - (Not defaultInstance.Scale.HasValue OrElse relationalTypeMapping.Scale.Value <> defaultInstance.Scale.Value) - - Dim dbTypeDifferent = relationalTypeMapping.DbType.HasValue AndAlso - (Not defaultInstance.DbType.HasValue OrElse relationalTypeMapping.DbType.Value <> defaultInstance.DbType.Value) - - Dim isUnicodeDifferent = relationalTypeMapping.IsUnicode <> defaultInstance.IsUnicode - - Dim isFixedLengthDifferent = relationalTypeMapping.IsFixedLength <> defaultInstance.IsFixedLength - - If storeTypeDifferent OrElse - sizeDifferent OrElse - precisionDifferent OrElse - scaleDifferent OrElse - dbTypeDifferent OrElse - isUnicodeDifferent OrElse - isFixedLengthDifferent Then - - AddNamespace(GetType(RelationalTypeMappingInfo), parameters.Namespaces) - mainBuilder. - AppendLine("New RelationalTypeMappingInfo("). - IncrementIndent() - - Dim firstParameter = True - If storeTypeDifferent Then - GenerateArgument( - "storeTypeName", code.Literal(relationalTypeMapping.StoreType), mainBuilder, firstParameter) - End If - - If sizeDifferent Then - GenerateArgument( - "size", code.Literal(relationalTypeMapping.Size), mainBuilder, firstParameter) - End If - - If isUnicodeDifferent Then - GenerateArgument( - "unicode", code.Literal(relationalTypeMapping.IsUnicode), mainBuilder, firstParameter) - End If - - If isFixedLengthDifferent Then - GenerateArgument( - "fixedLength", code.Literal(relationalTypeMapping.IsFixedLength), mainBuilder, firstParameter) - End If - - If precisionDifferent Then - GenerateArgument( - "precision", code.Literal(relationalTypeMapping.Precision), mainBuilder, firstParameter) - End If - - If scaleDifferent Then - GenerateArgument( - "scale", code.Literal(relationalTypeMapping.Scale), mainBuilder, firstParameter) - End If - - If dbTypeDifferent Then - GenerateArgument( - "dbType", code.Literal(relationalTypeMapping.DbType.Value, fullName:=True), mainBuilder, firstParameter) - End If - - mainBuilder. - Append(")"c). - DecrementIndent() - Else - mainBuilder.Append("Type.Missing") - End If - - Case "converter" - If relationalTypeMapping.Converter IsNot Nothing AndAlso - relationalTypeMapping.Converter IsNot defaultInstance.Converter Then - - Create(relationalTypeMapping.Converter, parameters, code) - Else - mainBuilder.Append("Type.Missing") - End If - - Case "clrType" - Dim typeDifferent = relationalTypeMapping.Converter Is Nothing AndAlso - relationalTypeMapping.ClrType <> defaultInstance.ClrType - - If typeDifferent Then - mainBuilder. - Append(code.Literal(relationalTypeMapping.ClrType)) - Else - mainBuilder.Append("Type.Missing") - End If - - Case "storeTypePostfix" - Dim storeTypePostfixDifferent = relationalTypeMapping.StoreTypePostfix <> defaultInstance.StoreTypePostfix - - If storeTypePostfixDifferent Then - mainBuilder. - Append(code.Literal(DirectCast(relationalTypeMapping.StoreTypePostfix, [Enum]))) - Else - mainBuilder.Append("Type.Missing") - End If - - Case "jsonValueReaderWriter" - If relationalTypeMapping.JsonValueReaderWriter IsNot Nothing AndAlso - relationalTypeMapping.JsonValueReaderWriter IsNot defaultInstance.JsonValueReaderWriter Then - - CreateJsonValueReaderWriter(relationalTypeMapping.JsonValueReaderWriter, parameters, code) - Else - mainBuilder.Append("Type.Missing") - End If - - Case "elementMapping" - If relationalTypeMapping.ElementTypeMapping IsNot Nothing AndAlso - relationalTypeMapping.ElementTypeMapping IsNot defaultInstance.ElementTypeMapping Then - - Create(relationalTypeMapping.ElementTypeMapping, parameters) - Else - mainBuilder.Append("Type.Missing") - End If - - Case Else - mainBuilder.Append("Type.Missing") - End Select - Next - - mainBuilder. - Append("}), CoreTypeMapping)"). - DecrementIndent(). - DecrementIndent() - - Return True - End Function - - Private Shared Sub GenerateArgument(name As String, value As String, builder As IndentedStringBuilder, ByRef firstArgument As Boolean) - If Not firstArgument Then - builder.AppendLine(","c) - End If - - firstArgument = False - builder.Append($"{name}:={value}") - End Sub - - Private Shared Function IsSpatial(relationalTypeMapping As RelationalTypeMapping) As Boolean - Dim elementTypeMapping = TryCast(relationalTypeMapping.ElementTypeMapping, RelationalTypeMapping) - - Return IsSpatialType(relationalTypeMapping.GetType()) OrElse - (elementTypeMapping IsNot Nothing AndAlso IsSpatialType(elementTypeMapping.GetType())) - End Function - - Private Shared Function IsSpatialType(relationalTypeMappingType As Type) As Boolean - Return (relationalTypeMappingType.IsGenericType AndAlso - relationalTypeMappingType.GetGenericTypeDefinition() = GetType(RelationalGeometryTypeMapping(Of ,))) OrElse - (relationalTypeMappingType.BaseType <> GetType(Object) AndAlso IsSpatialType(relationalTypeMappingType.BaseType)) - End Function - - Private Shared Sub CreateAnnotations(Of TAnnotatable As IAnnotatable)( - Annotatable As TAnnotatable, - process As Action(Of TAnnotatable, VisualBasicRuntimeAnnotationCodeGeneratorParameters), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - process( - Annotatable, - parameters. - Cloner. - WithAnnotations(Annotatable. - GetAnnotations(). - ToDictionary(Function(a) a.Name, Function(a) a.Value)). - WithIsRuntime(False). - Clone()) - - process( - Annotatable, - parameters. - Cloner. - WithAnnotations(Annotatable. - GetRuntimeAnnotations(). - ToDictionary(Function(a) a.Name, Function(a) a.Value)). - WithIsRuntime(True). - Clone()) - End Sub - - Private Shared Function Capitalize(str As String) As String - Select Case str.Length - Case 0 : Return str - Case 1 : Return Char.ToUpperInvariant(str(0)).ToString() - Case Else - If Char.IsUpper(str(0)) Then - Return str - End If - - Return Char.ToUpperInvariant(str(0)) & str.Substring(1) - End Select - End Function - - Private Shared Sub AppendLiteral(storeObject As StoreObjectIdentifier, builder As IndentedStringBuilder, code As IVisualBasicHelper) - - builder.Append("StoreObjectIdentifier.") - - Select Case storeObject.StoreObjectType - Case StoreObjectType.Table - builder. - Append("Table("). - Append(code.Literal(storeObject.Name)). - Append(", "). - Append(code.Literal(storeObject.Schema)). - Append(")"c) - - Case StoreObjectType.View - builder. - Append("View("). - Append(code.Literal(storeObject.Name)). - Append(", "). - Append(code.Literal(storeObject.Schema)). - Append(")"c) - - Case StoreObjectType.SqlQuery - builder. - Append("SqlQuery("). - Append(code.Literal(storeObject.Name)). - Append(")"c) - - Case StoreObjectType.Function - builder. - Append("DbFunction("). - Append(code.Literal(storeObject.Name)). - Append(")"c) - - Case StoreObjectType.InsertStoredProcedure - builder. - Append("InsertStoredProcedure("). - Append(code.Literal(storeObject.Name)). - Append(", "). - Append(code.Literal(storeObject.Schema)). - Append(")"c) - - Case StoreObjectType.DeleteStoredProcedure - builder. - Append("DeleteStoredProcedure("). - Append(code.Literal(storeObject.Name)). - Append(", "). - Append(code.Literal(storeObject.Schema)). - Append(")"c) - - Case StoreObjectType.UpdateStoredProcedure - builder. - Append("UpdateStoredProcedure("). - Append(code.Literal(storeObject.Name)). - Append(", "). - Append(code.Literal(storeObject.Schema)). - Append(")"c) - - Case Else - DebugAssert(True, "Unexpected StoreObjectType: " & storeObject.StoreObjectType) - End Select - End Sub - End Class -End Namespace diff --git a/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/SqlServerVisualBasicRuntimeAnnotationCodeGenerator.vb b/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/SqlServerVisualBasicRuntimeAnnotationCodeGenerator.vb deleted file mode 100644 index be5c534..0000000 --- a/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/SqlServerVisualBasicRuntimeAnnotationCodeGenerator.vb +++ /dev/null @@ -1,184 +0,0 @@ -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.SqlServer.Metadata.Internal - -Namespace Design.AnnotationCodeGeneratorProvider - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Public Class SqlServerVisualBasicRuntimeAnnotationCodeGenerator - Inherits RelationalVisualBasicRuntimeAnnotationCodeGenerator - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Public Sub New(vbHelper As IVisualBasicHelper) - MyBase.New(vbHelper) - End Sub - - ''' - Public Overrides Sub Generate(model As IModel, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - If Not parameters.IsRuntime Then - With parameters.Annotations - .Remove(SqlServerAnnotationNames.IdentityIncrement) - .Remove(SqlServerAnnotationNames.IdentitySeed) - .Remove(SqlServerAnnotationNames.MaxDatabaseSize) - .Remove(SqlServerAnnotationNames.PerformanceLevelSql) - .Remove(SqlServerAnnotationNames.ServiceTierSql) - End With - End If - - MyBase.Generate(model, parameters) - End Sub - - ''' - Public Overrides Sub Generate(model As IRelationalModel, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - If Not parameters.IsRuntime Then - With parameters.Annotations - .Remove(SqlServerAnnotationNames.MemoryOptimized) - .Remove(SqlServerAnnotationNames.EditionOptions) - End With - End If - - MyBase.Generate(model, parameters) - End Sub - - ''' - Public Overrides Sub Generate([Property] As IProperty, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - If Not parameters.IsRuntime Then - With parameters.Annotations - .Remove(SqlServerAnnotationNames.IdentityIncrement) - .Remove(SqlServerAnnotationNames.IdentitySeed) - .Remove(SqlServerAnnotationNames.Sparse) - - If Not .ContainsKey(SqlServerAnnotationNames.ValueGenerationStrategy) Then - .Item(SqlServerAnnotationNames.ValueGenerationStrategy) = [Property].GetValueGenerationStrategy() - End If - End With - End If - - MyBase.Generate([Property], parameters) - End Sub - - ''' - Public Overrides Sub Generate(column As IColumn, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - If Not parameters.IsRuntime Then - With parameters.Annotations - .Remove(SqlServerAnnotationNames.Identity) - .Remove(SqlServerAnnotationNames.Sparse) - .Remove(SqlServerAnnotationNames.IsTemporal) - .Remove(SqlServerAnnotationNames.TemporalHistoryTableName) - .Remove(SqlServerAnnotationNames.TemporalHistoryTableSchema) - .Remove(SqlServerAnnotationNames.TemporalPeriodStartColumnName) - .Remove(SqlServerAnnotationNames.TemporalPeriodEndColumnName) - End With - End If - - MyBase.Generate(column, parameters) - End Sub - - ''' - Public Overrides Sub Generate(index As IIndex, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - If Not parameters.IsRuntime Then - With parameters.Annotations - .Remove(SqlServerAnnotationNames.Clustered) - .Remove(SqlServerAnnotationNames.CreatedOnline) - .Remove(SqlServerAnnotationNames.Include) - .Remove(SqlServerAnnotationNames.FillFactor) - .Remove(SqlServerAnnotationNames.SortInTempDb) - .Remove(SqlServerAnnotationNames.DataCompression) - End With - End If - - MyBase.Generate(index, parameters) - End Sub - - ''' - Public Overrides Sub Generate(index As ITableIndex, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - If Not parameters.IsRuntime Then - With parameters.Annotations - .Remove(SqlServerAnnotationNames.Clustered) - .Remove(SqlServerAnnotationNames.CreatedOnline) - .Remove(SqlServerAnnotationNames.Include) - .Remove(SqlServerAnnotationNames.FillFactor) - .Remove(SqlServerAnnotationNames.SortInTempDb) - .Remove(SqlServerAnnotationNames.DataCompression) - End With - End If - - MyBase.Generate(index, parameters) - End Sub - - ''' - Public Overrides Sub Generate(aKey As IKey, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - If Not parameters.IsRuntime Then - With parameters.Annotations - .Remove(SqlServerAnnotationNames.Clustered) - End With - End If - - MyBase.Generate(aKey, parameters) - End Sub - - ''' - Public Overrides Sub Generate(uniqueConstraint As IUniqueConstraint, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - If Not parameters.IsRuntime Then - With parameters.Annotations - .Remove(SqlServerAnnotationNames.Clustered) - End With - End If - - MyBase.Generate(uniqueConstraint, parameters) - End Sub - - ''' - Public Overrides Sub Generate(entityType As IEntityType, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - If Not parameters.IsRuntime Then - With parameters.Annotations - .Remove(SqlServerAnnotationNames.TemporalHistoryTableName) - .Remove(SqlServerAnnotationNames.TemporalHistoryTableSchema) - .Remove(SqlServerAnnotationNames.TemporalPeriodEndPropertyName) - .Remove(SqlServerAnnotationNames.TemporalPeriodStartPropertyName) - End With - End If - - MyBase.Generate(entityType, parameters) - End Sub - - ''' - Public Overrides Sub Generate(table As ITable, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - If Not parameters.IsRuntime Then - With parameters.Annotations - .Remove(SqlServerAnnotationNames.MemoryOptimized) - .Remove(SqlServerAnnotationNames.TemporalHistoryTableName) - .Remove(SqlServerAnnotationNames.TemporalHistoryTableSchema) - .Remove(SqlServerAnnotationNames.TemporalPeriodEndColumnName) - .Remove(SqlServerAnnotationNames.TemporalPeriodStartColumnName) - End With - End If - - MyBase.Generate(table, parameters) - End Sub - - ''' - Public Overrides Sub Generate([overrides] As IRelationalPropertyOverrides, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - If Not parameters.IsRuntime Then - With parameters.Annotations - .Remove(SqlServerAnnotationNames.IdentityIncrement) - .Remove(SqlServerAnnotationNames.IdentitySeed) - End With - End If - - MyBase.Generate([overrides], parameters) - End Sub - End Class -End Namespace diff --git a/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/SqlServerVisualBasicServices.vb b/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/SqlServerVisualBasicServices.vb deleted file mode 100644 index c6ff48d..0000000 --- a/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/SqlServerVisualBasicServices.vb +++ /dev/null @@ -1,13 +0,0 @@ -Imports Microsoft.EntityFrameworkCore.Design -Imports Microsoft.Extensions.DependencyInjection - -Namespace Design.AnnotationCodeGeneratorProvider - - Public Class SqlServerVisualBasicServices - Implements IDesignTimeServices - - Public Sub ConfigureDesignTimeServices(services As IServiceCollection) Implements IDesignTimeServices.ConfigureDesignTimeServices - services.AddSingleton(Of IVisualBasicRuntimeAnnotationCodeGenerator, SqlServerVisualBasicRuntimeAnnotationCodeGenerator) - End Sub - End Class -End Namespace diff --git a/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/SqliteVisualBasicRuntimeAnnotationCodeGenerator.vb b/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/SqliteVisualBasicRuntimeAnnotationCodeGenerator.vb deleted file mode 100644 index 1c2edcd..0000000 --- a/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/SqliteVisualBasicRuntimeAnnotationCodeGenerator.vb +++ /dev/null @@ -1,56 +0,0 @@ -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Sqlite.Metadata.Internal - -Namespace Design.AnnotationCodeGeneratorProvider - - ''' - ''' This is an internal API that supports the Entity Framework Core infrastructure and not subject to - ''' the same compatibility standards as public APIs. It may be changed or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution and knowing that - ''' doing so can result in application failures when updating to a new Entity Framework Core release. - ''' - Public Class SqliteVisualBasicRuntimeAnnotationCodeGenerator - Inherits RelationalVisualBasicRuntimeAnnotationCodeGenerator - - ''' - ''' This is an internal API that supports the Entity Framework Core infrastructure and not subject to - ''' the same compatibility standards as public APIs. It may be changed or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution and knowing that - ''' doing so can result in application failures when updating to a new Entity Framework Core release. - ''' - Public Sub New(vbHelper As IVisualBasicHelper) - MyBase.New(vbHelper) - End Sub - - ''' - Public Overrides Sub Generate(model As IRelationalModel, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - Dim annotations = parameters.Annotations - If Not parameters.IsRuntime Then - annotations.Remove(SqliteAnnotationNames.InitSpatialMetaData) - End If - - MyBase.Generate(model, parameters) - End Sub - - ''' - Public Overrides Sub Generate([property] As IProperty, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - Dim annotations = parameters.Annotations - If Not parameters.IsRuntime Then - annotations.Remove(SqliteAnnotationNames.Srid) - End If - - MyBase.Generate([property], parameters) - End Sub - - ''' - Public Overrides Sub Generate(column As IColumn, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - Dim annotations = parameters.Annotations - If Not parameters.IsRuntime Then - annotations.Remove(SqliteAnnotationNames.Autoincrement) - annotations.Remove(SqliteAnnotationNames.Srid) - End If - - MyBase.Generate(column, parameters) - End Sub - End Class -End Namespace diff --git a/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/SqliteVisualBasicServices.vb b/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/SqliteVisualBasicServices.vb deleted file mode 100644 index 17241e4..0000000 --- a/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/SqliteVisualBasicServices.vb +++ /dev/null @@ -1,13 +0,0 @@ -Imports Microsoft.EntityFrameworkCore.Design -Imports Microsoft.Extensions.DependencyInjection - -Namespace Design.AnnotationCodeGeneratorProvider - - Public Class SqliteVisualBasicServices - Implements IDesignTimeServices - - Public Sub ConfigureDesignTimeServices(services As IServiceCollection) Implements IDesignTimeServices.ConfigureDesignTimeServices - services.AddSingleton(Of IVisualBasicRuntimeAnnotationCodeGenerator, SqliteVisualBasicRuntimeAnnotationCodeGenerator) - End Sub - End Class -End Namespace diff --git a/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/VisualBasicDesignTimeProviderServicesAttribute.vb b/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/VisualBasicDesignTimeProviderServicesAttribute.vb deleted file mode 100644 index 3ca4dae..0000000 --- a/EFCore.VisualBasic/Design/RuntimeAnnotationCodeGenerator/VisualBasicDesignTimeProviderServicesAttribute.vb +++ /dev/null @@ -1,19 +0,0 @@ -Namespace Design.AnnotationCodeGeneratorProvider - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards As public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - - Public Class VisualBasicDesignTimeProviderServicesAttribute - Inherits Attribute - - Public ReadOnly Property ProviderName As String - - Sub New(providerName As String) - Me.ProviderName = NotNull(providerName, NameOf(providerName)) - End Sub - End Class -End Namespace diff --git a/EFCore.VisualBasic/Design/VisualBasicRuntimeAnnotationCodeGenerator.vb b/EFCore.VisualBasic/Design/VisualBasicRuntimeAnnotationCodeGenerator.vb deleted file mode 100644 index 7924c53..0000000 --- a/EFCore.VisualBasic/Design/VisualBasicRuntimeAnnotationCodeGenerator.vb +++ /dev/null @@ -1,655 +0,0 @@ -Imports System.Reflection -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Metadata.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion - -Namespace Design - ''' - ''' Base class to be used by database providers when implementing an - ''' - Public Class VisualBasicRuntimeAnnotationCodeGenerator - Implements IVisualBasicRuntimeAnnotationCodeGenerator - - ''' - ''' Initializes a new instance of this class. - ''' - ''' The Visual Basic helper. - Public Sub New(vbHelper As IVisualBasicHelper) - VBCode = NotNull(vbHelper, NameOf(vbHelper)) - End Sub - - ''' - ''' The Visual Basic helper. - ''' - Protected VBCode As IVisualBasicHelper - - ''' - Public Overridable Sub Generate(model As IModel, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) _ - Implements IVisualBasicRuntimeAnnotationCodeGenerator.Generate - - With parameters.Annotations - If Not parameters.IsRuntime Then - For Each annotation In parameters.Annotations - If CoreAnnotationNames.AllNames.Contains(annotation.Key) AndAlso - annotation.Key <> CoreAnnotationNames.ProductVersion AndAlso - annotation.Key <> CoreAnnotationNames.FullChangeTrackingNotificationsRequired Then - - .Remove(annotation.Key) - End If - Next - Else - .Remove(CoreAnnotationNames.ModelDependencies) - .Remove(CoreAnnotationNames.ReadOnlyModel) - End If - End With - - GenerateSimpleAnnotations(parameters) - End Sub - - ''' - Public Overridable Sub Generate(entityType As IEntityType, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) _ - Implements IVisualBasicRuntimeAnnotationCodeGenerator.Generate - - Dim annotations = parameters.Annotations - - If Not parameters.IsRuntime Then - For Each annotation In annotations - If CoreAnnotationNames.AllNames.Contains(annotation.Key) AndAlso - annotation.Key <> CoreAnnotationNames.DiscriminatorMappingComplete Then - - annotations.Remove(annotation.Key) - End If - Next - End If - - GenerateSimpleAnnotations(parameters) - End Sub - - ''' - Public Overridable Sub Generate(complexProperty As IComplexProperty, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) _ - Implements IVisualBasicRuntimeAnnotationCodeGenerator.Generate - - Dim annotations = parameters.Annotations - - If Not parameters.IsRuntime Then - For Each annotation In annotations - If CoreAnnotationNames.AllNames.Contains(annotation.Key) AndAlso - annotation.Key <> CoreAnnotationNames.DiscriminatorMappingComplete Then - - annotations.Remove(annotation.Key) - End If - Next - End If - - GenerateSimpleAnnotations(parameters) - End Sub - - ''' - Public Overridable Sub Generate(complexType As IComplexType, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) _ - Implements IVisualBasicRuntimeAnnotationCodeGenerator.Generate - - Dim annotations = parameters.Annotations - If Not parameters.IsRuntime Then - For Each annotation In annotations - If CoreAnnotationNames.AllNames.Contains(annotation.Key) AndAlso - annotation.Key <> CoreAnnotationNames.DiscriminatorMappingComplete Then - - annotations.Remove(annotation.Key) - End If - Next - End If - - GenerateSimpleAnnotations(parameters) - End Sub - - ''' - Public Overridable Sub Generate(prop As IProperty, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) _ - Implements IVisualBasicRuntimeAnnotationCodeGenerator.Generate - - If Not parameters.IsRuntime Then - For Each annotation In parameters.Annotations - If CoreAnnotationNames.AllNames.Contains(annotation.Key) Then - parameters.Annotations.Remove(annotation.Key) - End If - Next - End If - - GenerateSimpleAnnotations(parameters) - End Sub - - ''' - Public Overridable Sub Generate(prop As IServiceProperty, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) _ - Implements IVisualBasicRuntimeAnnotationCodeGenerator.Generate - - If Not parameters.IsRuntime Then - For Each annotation In parameters.Annotations - If CoreAnnotationNames.AllNames.Contains(annotation.Key) Then - parameters.Annotations.Remove(annotation.Key) - End If - Next - End If - - GenerateSimpleAnnotations(parameters) - End Sub - - ''' - Public Overridable Sub Generate(key As IKey, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) _ - Implements IVisualBasicRuntimeAnnotationCodeGenerator.Generate - - If Not parameters.IsRuntime Then - For Each annotation In parameters.Annotations - If CoreAnnotationNames.AllNames.Contains(annotation.Key) Then - parameters.Annotations.Remove(annotation.Key) - End If - Next - End If - - GenerateSimpleAnnotations(parameters) - End Sub - - ''' - Public Overridable Sub Generate(foreignKey As IForeignKey, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) _ - Implements IVisualBasicRuntimeAnnotationCodeGenerator.Generate - - If Not parameters.IsRuntime Then - For Each annotation In parameters.Annotations - If CoreAnnotationNames.AllNames.Contains(annotation.Key) Then - parameters.Annotations.Remove(annotation.Key) - End If - Next - End If - - GenerateSimpleAnnotations(parameters) - End Sub - - ''' - Public Overridable Sub Generate(navigation As INavigation, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) _ - Implements IVisualBasicRuntimeAnnotationCodeGenerator.Generate - - If Not parameters.IsRuntime Then - For Each annotation In parameters.Annotations - If CoreAnnotationNames.AllNames.Contains(annotation.Key) Then - parameters.Annotations.Remove(annotation.Key) - End If - Next - End If - - GenerateSimpleAnnotations(parameters) - End Sub - - ''' - Public Overridable Sub Generate(navigation As ISkipNavigation, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) _ - Implements IVisualBasicRuntimeAnnotationCodeGenerator.Generate - - If Not parameters.IsRuntime Then - For Each annotation In parameters.Annotations - If CoreAnnotationNames.AllNames.Contains(annotation.Key) Then - parameters.Annotations.Remove(annotation.Key) - End If - Next - End If - - GenerateSimpleAnnotations(parameters) - End Sub - - ''' - Public Overridable Sub Generate(index As IIndex, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) _ - Implements IVisualBasicRuntimeAnnotationCodeGenerator.Generate - - If Not parameters.IsRuntime Then - For Each annotation In parameters.Annotations - If CoreAnnotationNames.AllNames.Contains(annotation.Key) Then - parameters.Annotations.Remove(annotation.Key) - End If - Next - End If - - GenerateSimpleAnnotations(parameters) - End Sub - - ''' - Public Overridable Sub Generate(trigger As ITrigger, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) _ - Implements IVisualBasicRuntimeAnnotationCodeGenerator.Generate - - If Not parameters.IsRuntime Then - Dim annotations = parameters.Annotations - For Each annotation In annotations - Dim Key = annotation.Key - - If CoreAnnotationNames.AllNames.Contains(Key) Then - annotations.Remove(Key) - End If - Next - End If - - GenerateSimpleAnnotations(parameters) - End Sub - - ''' - Public Overridable Sub Generate(typeConfiguration As ITypeMappingConfiguration, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) _ - Implements IVisualBasicRuntimeAnnotationCodeGenerator.Generate - - If Not parameters.IsRuntime Then - For Each annotation In parameters.Annotations - If CoreAnnotationNames.AllNames.Contains(annotation.Key) Then - parameters.Annotations.Remove(annotation.Key) - End If - Next - End If - - GenerateSimpleAnnotations(parameters) - End Sub - - ''' - ''' Generates code to create the given annotations using literals. - ''' - ''' Parameters used during code generation. - Protected Overridable Sub GenerateSimpleAnnotations(parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - For Each Annotation In parameters.Annotations.OrderBy(Function(a) a.Key) - - If Annotation.Value IsNot Nothing Then - AddNamespace(If(TryCast(Annotation.Value, Type), Annotation.Value.GetType()), parameters.Namespaces) - End If - - GenerateSimpleAnnotation(Annotation.Key, VBCode.UnknownLiteral(Annotation.Value), parameters) - Next - End Sub - - ''' - ''' Generates code to create the given annotation. - ''' - ''' The annotation name. - ''' The annotation value as a literal. - ''' Additional parameters used during code generation. - Protected Overridable Sub GenerateSimpleAnnotation(annotationName As String, - valueString As String, - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - If parameters.TargetName <> "Me" Then - parameters.MainBuilder. - Append(parameters.TargetName). - Append("."c) - End If - - parameters.MainBuilder. - Append(If(parameters.IsRuntime, "AddRuntimeAnnotation(", "AddAnnotation(")). - Append(VBCode.Literal(annotationName)). - Append(", "). - Append(valueString). - AppendLine(")"c) - End Sub - - ''' - ''' Adds the namespaces for the given type. - ''' - ''' A type. - ''' The set of namespaces to add to. - Public Shared Sub AddNamespace(type As Type, namespaces As ISet(Of String)) - - If type.IsNested Then - AddNamespace(type.DeclaringType, namespaces) - ElseIf Not String.IsNullOrEmpty(type.Namespace) Then - namespaces.Add(type.Namespace) - End If - - If type.IsGenericType Then - For Each argument As Type In type.GenericTypeArguments - AddNamespace(argument, namespaces) - Next - End If - - If type.IsArray Then - AddNamespace(type.GetSequenceType(), namespaces) - End If - End Sub - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Public Shared Sub Create(converter As ValueConverter, - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters, - codeHelper As IVisualBasicHelper) - - Dim mainBuilder = parameters.MainBuilder - Dim constructor = converter.GetType().GetDeclaredConstructor({GetType(JsonValueReaderWriter)}) - Dim jsonReaderWriterProperty = converter.GetType().GetProperty(NameOf(CollectionToJsonStringConverter(Of Object).JsonReaderWriter)) - - If constructor Is Nothing OrElse jsonReaderWriterProperty Is Nothing Then - AddNamespace(GetType(ValueConverter(Of ,)), parameters.Namespaces) - AddNamespace(converter.ModelClrType, parameters.Namespaces) - AddNamespace(converter.ProviderClrType, parameters.Namespaces) - - mainBuilder. - Append("New ValueConverter(Of "). - Append(codeHelper.Reference(converter.ModelClrType)). - Append(", "). - Append(codeHelper. - Reference(converter.ProviderClrType)). - AppendLine(")("). - IncrementIndent(). - Append(codeHelper.Expression(converter.ConvertToProviderExpression, parameters.Namespaces)). - AppendLine(","c). - Append(codeHelper.Expression(converter.ConvertFromProviderExpression, parameters.Namespaces)) - - If converter.ConvertsNulls Then - mainBuilder. - AppendLine(","c). - Append("convertsNulls:=True") - End If - - mainBuilder. - Append(")"c). - DecrementIndent() - Else - AddNamespace(converter.GetType(), parameters.Namespaces) - - mainBuilder. - Append("New "). - Append(codeHelper.Reference(converter.GetType())). - Append("("c) - - CreateJsonValueReaderWriter(DirectCast(jsonReaderWriterProperty.GetValue(converter), JsonValueReaderWriter), parameters, codeHelper) - - mainBuilder. - Append(")"c) - End If - End Sub - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Public Shared Sub Create(comparer As ValueComparer, - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters, - codeHelper As IVisualBasicHelper) - - Dim mainBuilder = parameters.MainBuilder - Dim constructor = comparer.GetType().GetDeclaredConstructor({GetType(ValueComparer)}) - Dim elementComparerProperty = comparer.GetType().GetProperty(NameOf(ListComparer(Of Object).ElementComparer)) - - If constructor Is Nothing OrElse elementComparerProperty Is Nothing Then - AddNamespace(GetType(ValueComparer()), parameters.Namespaces) - AddNamespace(comparer.Type, parameters.Namespaces) - - mainBuilder. - Append("New ValueComparer(Of "). - Append(codeHelper.Reference(comparer.Type)). - AppendLine(")("). - IncrementIndent(). - AppendLines(codeHelper.Expression(comparer.EqualsExpression, parameters.Namespaces), skipFinalNewline:=True). - AppendLine(","c). - AppendLines(codeHelper.Expression(comparer.HashCodeExpression, parameters.Namespaces), skipFinalNewline:=True). - AppendLine(","c). - AppendLines(codeHelper.Expression(comparer.SnapshotExpression, parameters.Namespaces), skipFinalNewline:=True). - Append(")"c). - DecrementIndent() - Else - AddNamespace(comparer.GetType(), parameters.Namespaces) - - mainBuilder. - Append("New "). - Append(codeHelper.Reference(comparer.GetType())).Append("("c) - - Create(DirectCast(elementComparerProperty.GetValue(comparer), ValueComparer), parameters, codeHelper) - - mainBuilder. - Append(")"c) - End If - End Sub - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Public Shared Sub CreateJsonValueReaderWriter(jsonValueReaderWriter As JsonValueReaderWriter, - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters, - codeHelper As IVisualBasicHelper) - - Dim mainBuilder = parameters.MainBuilder - Dim jsonValueReaderWriterType = jsonValueReaderWriter.GetType() - - Dim jsonConvertedValueReaderWriter = TryCast(jsonValueReaderWriter, IJsonConvertedValueReaderWriter) - If jsonConvertedValueReaderWriter IsNot Nothing Then - AddNamespace(jsonValueReaderWriterType, parameters.Namespaces) - - mainBuilder. - Append("New "). - Append(codeHelper.Reference(jsonValueReaderWriterType)). - AppendLine("("c). - IncrementIndent() - - CreateJsonValueReaderWriter(jsonConvertedValueReaderWriter.InnerReaderWriter, parameters, codeHelper) - mainBuilder.AppendLine(","c) - Create(jsonConvertedValueReaderWriter.Converter, parameters, codeHelper) - - mainBuilder. - Append(")"c). - DecrementIndent() - - Exit Sub - End If - - Dim compositeJsonValueReaderWriter = TryCast(jsonValueReaderWriter, ICompositeJsonValueReaderWriter) - If compositeJsonValueReaderWriter IsNot Nothing Then - AddNamespace(jsonValueReaderWriterType, parameters.Namespaces) - - mainBuilder. - Append("New "). - Append(codeHelper.Reference(jsonValueReaderWriterType)). - AppendLine("("c). - IncrementIndent() - - CreateJsonValueReaderWriter(compositeJsonValueReaderWriter.InnerReaderWriter, parameters, codeHelper) - - mainBuilder. - Append(")"c). - DecrementIndent() - Exit Sub - End If - - CreateJsonValueReaderWriter(jsonValueReaderWriterType, parameters, codeHelper) - End Sub - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Public Shared Sub CreateJsonValueReaderWriter(jsonValueReaderWriterType As Type, - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters, - codeHelper As IVisualBasicHelper) - - Dim mainBuilder = parameters.MainBuilder - AddNamespace(jsonValueReaderWriterType, parameters.Namespaces) - - Dim instanceProperty = jsonValueReaderWriterType.GetProperty("Instance") - - If instanceProperty IsNot Nothing AndAlso - instanceProperty.IsStatic() AndAlso - instanceProperty.GetMethod?.IsPublic = True AndAlso - jsonValueReaderWriterType.IsAssignableFrom(instanceProperty.PropertyType) AndAlso - jsonValueReaderWriterType.IsPublic Then - - mainBuilder. - Append(codeHelper.Reference(jsonValueReaderWriterType)). - Append(".Instance") - Else - mainBuilder. - Append("New "). - Append(codeHelper.Reference(jsonValueReaderWriterType)). - Append("()") - End If - End Sub - - ''' - Public Overridable Function Create(typeMapping As CoreTypeMapping, - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters, - Optional valueComparer As ValueComparer = Nothing, - Optional keyValueComparer As ValueComparer = Nothing, - Optional providerValueComparer As ValueComparer = Nothing) As Boolean _ - Implements IVisualBasicRuntimeAnnotationCodeGenerator.Create - - Dim mainBuilder = parameters.MainBuilder - Dim code = VBCode - Dim defaultInstance = CreateDefaultTypeMapping(typeMapping, parameters) - - If defaultInstance Is Nothing Then - Return True - End If - - parameters.Namespaces.Add(GetType(Type).Namespace) - parameters.Namespaces.Add(GetType(BindingFlags).Namespace) - - Dim cloneMethod = GetCloneMethod(typeMapping.GetType(), { - "comparer", - "keyComparer", - "providerValueComparer", - "converter", - "clrType", - "jsonValueReaderWriter", - "elementMapping" - }) - - parameters.Namespaces.Add(cloneMethod.DeclaringType.Namespace) - - mainBuilder. - AppendLine($"DirectCast(GetType({code.Reference(cloneMethod.DeclaringType)})."). - IncrementIndent(). - AppendLine($"GetMethod(""Clone"", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)."). - AppendLine($"Invoke({code.Reference(typeMapping.GetType())}.Default, {{"). - IncrementIndent() - - Dim first = True - For Each p In cloneMethod.GetParameters() - If first Then - first = False - Else - mainBuilder.AppendLine(","c) - End If - - Select Case p.Name - Case "comparer" - Create(If(valueComparer, typeMapping.Comparer), parameters, code) - - Case "keyComparer" - Create(If(keyValueComparer, typeMapping.KeyComparer), parameters, code) - - Case "providerValueComparer" - Create(If(providerValueComparer, typeMapping.ProviderValueComparer), parameters, code) - - Case "converter" - If typeMapping.Converter IsNot Nothing AndAlso - typeMapping.Converter IsNot defaultInstance.Converter Then - Create(typeMapping.Converter, parameters, code) - Else - mainBuilder.Append("Type.Missing") - End If - - Case "clrType" - If typeMapping.Converter Is Nothing AndAlso - typeMapping.ClrType <> defaultInstance.ClrType Then - - mainBuilder.Append(code.Literal(typeMapping.ClrType)) - Else - mainBuilder.Append("Type.Missing") - End If - - Case "jsonValueReaderWriter" - If typeMapping.JsonValueReaderWriter IsNot Nothing AndAlso - typeMapping.JsonValueReaderWriter IsNot defaultInstance.JsonValueReaderWriter Then - - CreateJsonValueReaderWriter(typeMapping.JsonValueReaderWriter, parameters, code) - Else - mainBuilder.Append("Type.Missing") - End If - - Case "elementMapping" - If typeMapping.ElementTypeMapping IsNot Nothing AndAlso - typeMapping.ElementTypeMapping IsNot defaultInstance.ElementTypeMapping Then - - Create(typeMapping.ElementTypeMapping, parameters) - Else - mainBuilder.Append("Type.Missing") - End If - - Case Else - mainBuilder.Append("Type.Missing") - End Select - Next - - mainBuilder. - Append("}), CoreTypeMapping)"). - DecrementIndent(). - DecrementIndent() - - Return True - End Function - - Protected Function GetCloneMethod(t As Type, requiredParameters As IEnumerable(Of String)) As MethodInfo - Dim methodsFound = - From m In t.GetMethods(BindingFlags.Public Or BindingFlags.Instance) - Let params = m.GetParameters() - Where m.Name = "Clone" AndAlso - requiredParameters.All(Function(rp) params.Any(Function(p) p.Name = rp)) - Order By params.Length() - Select m - - Return methodsFound.First - End Function - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Protected Overridable Function CreateDefaultTypeMapping( - typeMapping As CoreTypeMapping, - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) As CoreTypeMapping - - Dim typeMappingType = typeMapping.GetType() - Dim mainBuilder = parameters.MainBuilder - Dim defaultProperty = typeMappingType.GetProperty("Default") - - If defaultProperty Is Nothing OrElse - Not defaultProperty.IsStatic() OrElse - defaultProperty.GetMethod?.IsPublic <> True OrElse - Not typeMappingType.IsAssignableFrom(defaultProperty.PropertyType) OrElse - Not typeMappingType.IsPublic Then - - Throw New InvalidOperationException( - VBDesignStrings.CompiledModelIncompatibleTypeMapping(typeMappingType.ShortDisplayName())) - End If - - AddNamespace(typeMappingType, parameters.Namespaces) - - Dim defaultInstance = DirectCast(defaultProperty.GetValue(Nothing), CoreTypeMapping) - If typeMapping Is defaultInstance Then - mainBuilder.Append($"{VBCode.Reference(typeMapping.GetType())}.Default") - Return Nothing - Else - Return defaultInstance - End If - End Function - - Protected Shared Function TryGetAndRemove(Of TKey, TValue, TReturn)(source As IDictionary(Of TKey, TValue), - key As TKey, - ByRef annotationValue As TReturn) As Boolean - - Return source.TryGetAndRemove(key, annotationValue) - End Function - End Class -End Namespace diff --git a/EFCore.VisualBasic/Design/VisualBasicRuntimeAnnotationCodeGeneratorParameters.vb b/EFCore.VisualBasic/Design/VisualBasicRuntimeAnnotationCodeGeneratorParameters.vb deleted file mode 100644 index 3f3a6f2..0000000 --- a/EFCore.VisualBasic/Design/VisualBasicRuntimeAnnotationCodeGeneratorParameters.vb +++ /dev/null @@ -1,164 +0,0 @@ -Imports Microsoft.EntityFrameworkCore.Infrastructure - -Namespace Design - - ''' - ''' The parameter object for a - ''' - Public Class VisualBasicRuntimeAnnotationCodeGeneratorParameters - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards as public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - ''' - ''' Do Not call this constructor directly from either provider Or application code as it may change - ''' as New dependencies are added. Instead, use this type in your constructor so that an instance - ''' will be created And injected automatically by the dependency injection container. To create - ''' an instance with some dependent services replaced, first resolve the object from the dependency - ''' injection container, then replace selected services using the 'With...' methods. Do not call - ''' the constructor at any point in this process. - ''' - - Public Sub New(targetName As String, - className As String, - mainBuilder As IndentedStringBuilder, - methodBuilder As IndentedStringBuilder, - namespaces As ISet(Of String), - scopeVariables As ISet(Of String), - Optional annotations As IDictionary(Of String, Object) = Nothing, - Optional isRuntime As Boolean = False) - - Me.TargetName = targetName - Me.ClassName = className - Me.MainBuilder = mainBuilder - Me.MethodBuilder = methodBuilder - Me.Namespaces = namespaces - Me.ScopeVariables = scopeVariables - Me.Annotations = annotations - Me.IsRuntime = isRuntime - End Sub - - ''' - ''' The set of annotations from which to generate fluent API calls. - ''' - Public ReadOnly Property Annotations As IDictionary(Of String, Object) - - ''' - ''' The name of the target variable. - ''' - Public ReadOnly Property TargetName As String - - ''' - ''' The name of the current class. - ''' - Public ReadOnly Property ClassName As String - - ''' - ''' The builder for the code building the metadata item. - ''' - Public ReadOnly Property MainBuilder As IndentedStringBuilder - - ''' - ''' The builder that could be used to add members to the current class. - ''' - Public ReadOnly Property MethodBuilder As IndentedStringBuilder - - ''' - ''' A collection of namespaces for generation. - ''' - Public ReadOnly Property Namespaces As ISet(Of String) - - ''' - ''' A collection of variable names in the current scope. - ''' - Public ReadOnly Property ScopeVariables As ISet(Of String) - - ''' - ''' Indicates whether the given annotations are runtime annotations. - ''' - Public ReadOnly Property IsRuntime As Boolean - - - Public Function Cloner() As VisualBasicRuntimeAnnotationCodeGeneratorParametersCloner - Return New VisualBasicRuntimeAnnotationCodeGeneratorParametersCloner(Me) - End Function - - Public Class VisualBasicRuntimeAnnotationCodeGeneratorParametersCloner - Private _Annotations As IDictionary(Of String, Object) - Private _TargetName As String - Private _ClassName As String - Private _MainBuilder As IndentedStringBuilder - Private _MethodBuilder As IndentedStringBuilder - Private _Namespaces As ISet(Of String) - Private _ScopeVariables As ISet(Of String) - Private _IsRuntime As Boolean - - Friend Sub New(parametersToClone As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - Me._Annotations = parametersToClone.Annotations - Me._TargetName = parametersToClone.TargetName - Me._ClassName = parametersToClone.ClassName - Me._MainBuilder = parametersToClone.MainBuilder - Me._MethodBuilder = parametersToClone.MethodBuilder - Me._Namespaces = parametersToClone.Namespaces - Me._ScopeVariables = parametersToClone.ScopeVariables - Me._IsRuntime = parametersToClone.IsRuntime - End Sub - - Public Function WithTargetName(targetName As String) As VisualBasicRuntimeAnnotationCodeGeneratorParametersCloner - _TargetName = targetName - Return Me - End Function - - Public Function WithClassName(className As String) As VisualBasicRuntimeAnnotationCodeGeneratorParametersCloner - _ClassName = className - Return Me - End Function - - Public Function WithMainBuilder(mainBuilder As IndentedStringBuilder) As VisualBasicRuntimeAnnotationCodeGeneratorParametersCloner - _MainBuilder = mainBuilder - Return Me - End Function - - Public Function WithMethodBuilder(methodBuilder As IndentedStringBuilder) As VisualBasicRuntimeAnnotationCodeGeneratorParametersCloner - _MethodBuilder = methodBuilder - Return Me - End Function - - Public Function WithNamespaces(namespaces As ISet(Of String)) As VisualBasicRuntimeAnnotationCodeGeneratorParametersCloner - _Namespaces = namespaces - Return Me - End Function - - Public Function WithScopeVariables(scopeVariables As ISet(Of String)) As VisualBasicRuntimeAnnotationCodeGeneratorParametersCloner - _ScopeVariables = scopeVariables - Return Me - End Function - - Public Function WithAnnotations(annotations As IDictionary(Of String, Object)) As VisualBasicRuntimeAnnotationCodeGeneratorParametersCloner - _Annotations = annotations - Return Me - End Function - - Public Function WithIsRuntime(isRuntime As Boolean) As VisualBasicRuntimeAnnotationCodeGeneratorParametersCloner - _IsRuntime = isRuntime - Return Me - End Function - - Public Function Clone() As VisualBasicRuntimeAnnotationCodeGeneratorParameters - Return New VisualBasicRuntimeAnnotationCodeGeneratorParameters( - targetName:=_TargetName, - className:=_ClassName, - mainBuilder:=_MainBuilder, - methodBuilder:=_MethodBuilder, - namespaces:=_Namespaces, - scopeVariables:=_ScopeVariables, - annotations:=_Annotations, - isRuntime:=_IsRuntime - ) - End Function - End Class - End Class -End Namespace diff --git a/EFCore.VisualBasic/Scaffolding/Internal/VisualBasicRuntimeModelCodeGenerator.vb b/EFCore.VisualBasic/Scaffolding/Internal/VisualBasicRuntimeModelCodeGenerator.vb deleted file mode 100644 index a66415a..0000000 --- a/EFCore.VisualBasic/Scaffolding/Internal/VisualBasicRuntimeModelCodeGenerator.vb +++ /dev/null @@ -1,1753 +0,0 @@ -Imports System.Reflection -Imports System.Text -Imports EntityFrameworkCore.VisualBasic.Design -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.Design -Imports Microsoft.EntityFrameworkCore.Diagnostics -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Internal -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Metadata.Builders -Imports Microsoft.EntityFrameworkCore.Metadata.Internal -Imports Microsoft.EntityFrameworkCore.Scaffolding - -Namespace Scaffolding.Internal - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards As public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Public Class VisualBasicRuntimeModelCodeGenerator - Implements ICompiledModelCodeGenerator - - Private ReadOnly _code As IVisualBasicHelper - Private ReadOnly _annotationCodeGenerator As IVisualBasicRuntimeAnnotationCodeGenerator - - Private Const FileExtension = ".vb" - Private Const ModelSuffix = "Model" - Private Const ModelBuilderSuffix = "ModelBuilder" - Private Const EntityTypeSuffix = "EntityType" - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards As public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Public Sub New(annotationCodeGenerator As IVisualBasicRuntimeAnnotationCodeGenerator, - vbHelper As IVisualBasicHelper) - - _annotationCodeGenerator = NotNull(annotationCodeGenerator, NameOf(annotationCodeGenerator)) - _code = NotNull(vbHelper, NameOf(vbHelper)) - End Sub - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards As public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Public Overridable ReadOnly Property Language As String Implements ILanguageBasedService.Language - Get - Return "VB" - End Get - End Property - - ''' - ''' This Is an internal API that supports the Entity Framework Core infrastructure And Not subject to - ''' the same compatibility standards As public APIs. It may be changed Or removed without notice in - ''' any release. You should only use it directly in your code with extreme caution And knowing that - ''' doing so can result in application failures when updating to a New Entity Framework Core release. - ''' - Public Overridable Function GenerateModel(model As IModel, - options As CompiledModelCodeGenerationOptions) As IReadOnlyCollection(Of ScaffoldedFile) _ - Implements ICompiledModelCodeGenerator.GenerateModel - - NotNull(model, NameOf(model)) - NotNull(options, NameOf(options)) - - Dim scaffoldedFiles As New List(Of ScaffoldedFile) - Dim modelCode = CreateModel(options.ModelNamespace, options.ContextType) - Dim modelFileName = options.ContextType.ShortDisplayName() & ModelSuffix & FileExtension - - scaffoldedFiles.Add(New ScaffoldedFile With { - .Path = modelFileName, - .Code = modelCode}) - - Dim entityTypeIds As New Dictionary(Of IEntityType, (Variable As String, [Class] As String)) - Dim modelBuilderCode = CreateModelBuilder(model, options.ModelNamespace, options.ContextType, entityTypeIds) - Dim modelBuilderFileName = options.ContextType.ShortDisplayName() & ModelBuilderSuffix & FileExtension - - scaffoldedFiles.Add(New ScaffoldedFile With { - .Path = modelBuilderFileName, - .Code = modelBuilderCode}) - - For Each entityTypeId In entityTypeIds - Dim entityType = entityTypeId.Key - Dim namePair = entityTypeId.Value - - Dim generatedCode = GenerateEntityType(entityType, options.ModelNamespace, namePair.Class) - - Dim entityTypeFileName = namePair.Class & FileExtension - scaffoldedFiles.Add( - New ScaffoldedFile With { - .Path = entityTypeFileName, - .Code = generatedCode}) - Next - - Return scaffoldedFiles - End Function - - Private Shared Function GenerateHeader(namespaces As SortedSet(Of String), currentNamespace As String) As String - - For i = 0 To currentNamespace.Length - 1 - If currentNamespace(i) <> "."c Then - Continue For - End If - namespaces.Remove(currentNamespace.Substring(0, i)) - Next - - namespaces.Remove(currentNamespace) - - Dim builder = New StringBuilder() - builder.AppendLine("' ") - - For Each [Namespace] In namespaces - builder. - Append("Imports "). - AppendLine([Namespace]) - Next - - builder.AppendLine() - - Return builder.ToString() - End Function - - Private Function CreateModel([namespace] As String, - contextType As Type) As String - - Dim mainBuilder = New IndentedStringBuilder() - Dim namespaces = New SortedSet(Of String)(New NamespaceComparer()) From { - GetType(RuntimeModel).Namespace, - GetType(DbContextAttribute).Namespace, - "Microsoft.VisualBasic" - } - - AddNamespace(contextType, namespaces) - - If Not String.IsNullOrEmpty([namespace]) Then - mainBuilder. - Append("Namespace "). - AppendLine(_code.Namespace([namespace])) - - mainBuilder.Indent() - End If - - Dim className = _code.Identifier(contextType.ShortDisplayName()) & ModelSuffix - mainBuilder.Append(""). - Append("Public Partial Class "). - AppendLine(className) - - Using mainBuilder.Indent() - mainBuilder. - Append("Inherits ").AppendLine(NameOf(RuntimeModel)). - AppendLine(). - AppendLine("Private Shared ReadOnly _useOldBehavior31751 As Boolean"). - AppendLine(). - Append("Private Shared ").Append("_Instance As ").AppendLine(className). - AppendLine("Public Shared ReadOnly Property Instance As IModel"). - IncrementIndent. - AppendLine("Get"). - IncrementIndent. - AppendLine("Return _Instance"). - DecrementIndent. - AppendLine("End Get"). - DecrementIndent. - AppendLine("End Property"). - AppendLine(). - AppendLine("Shared Sub New()"). - IncrementIndent(). - AppendLine("Dim enabled31751 As Boolean"). - AppendLine("_useOldBehavior31751 = System.AppContext.TryGetSwitch(""Microsoft.EntityFrameworkCore.Issue31751"", enabled31751) AndAlso enabled31751"). - AppendLine(). - AppendLines( -$"Dim model As New {className}() -If _useOldBehavior31751 Then - model.Initialize() -Else - Dim thread = New System.Threading.Thread(Sub() model.Initialize(), 10 * 1024 * 1024) - thread.Start() - thread.Join() -End If - -model.Customize() -_Instance = model"). - DecrementIndent(). - AppendLine("End Sub"). - AppendLine(). - AppendLine("Partial Private Sub Initialize()"). - AppendLine("End Sub"). - AppendLine(). - AppendLine("Partial Private Sub Customize()"). - AppendLine("End Sub") - End Using - - mainBuilder. - AppendLine("End Class") - - If Not String.IsNullOrEmpty([namespace]) Then - mainBuilder.DecrementIndent() - mainBuilder.AppendLine("End Namespace") - End If - - Return GenerateHeader(namespaces, [namespace]) & mainBuilder.ToString() - End Function - - Private Function CreateModelBuilder(model As IModel, - [namespace] As String, - contextType As Type, - entityTypeIds As Dictionary(Of IEntityType, (Variable As String, [Class] As String))) As String - - Dim mainBuilder = New IndentedStringBuilder() - Dim methodBuilder = New IndentedStringBuilder() - Dim namespaces = New SortedSet(Of String)(New NamespaceComparer()) From { - GetType(RuntimeModel).Namespace, - GetType(DbContextAttribute).Namespace, - "Microsoft.VisualBasic" - } - - If Not String.IsNullOrEmpty([namespace]) Then - mainBuilder. - Append("Namespace "). - AppendLine(_code.Namespace([namespace])) - - mainBuilder.Indent() - End If - - Dim className = _code.Identifier(contextType.ShortDisplayName()) & ModelSuffix - mainBuilder. - Append("Public Partial Class "). - AppendLine(className). - AppendLine() - - Using mainBuilder.Indent() - mainBuilder. - AppendLine("Private Sub Initialize()") - - Using mainBuilder.Indent() - Dim entityTypes = model.GetEntityTypesInHierarchicalOrder() - Dim variables As New HashSet(Of String) - - Dim anyEntityTypes = False - For Each entityType As IEntityType In entityTypes - anyEntityTypes = True - Dim variableName = _code.Identifier(entityType.ShortName(), variables, capitalize:=False) - - Dim firstChar = If(variableName(0) = "["c, variableName(1), variableName(0)) - Dim entityClassName = "" - - If firstChar = "_"c Then - entityClassName = EntityTypeSuffix & variableName.Substring(1) - Else - Dim NewName = variableName - If NewName(0) = "["c Then - NewName = NewName.Substring(1, NewName.Length - 2) - End If - entityClassName = Char.ToUpperInvariant(firstChar) & NewName.Substring(1) & EntityTypeSuffix - End If - - entityTypeIds(entityType) = (variableName, entityClassName) - - mainBuilder. - Append("Dim "). - Append(variableName). - Append(" = "). - Append(entityClassName). - Append(".Create(Me") - - If entityType.BaseType IsNot Nothing Then - mainBuilder. - Append(", "). - Append(entityTypeIds(entityType.BaseType).Variable) - End If - - mainBuilder. - AppendLine(")"c) - Next - - If anyEntityTypes Then - mainBuilder.AppendLine() - End If - - Dim anyForeignKeys = False - For Each entityTypeId In entityTypeIds - - Dim entityType = entityTypeId.Key - Dim namePair = entityTypeId.Value - - Dim variableName = namePair.Variable - Dim entityClassName = namePair.Class - - Dim foreignKeyNumber = 1 - - For Each foreignKey As IForeignKey In entityType.GetDeclaredForeignKeys() - anyForeignKeys = True - Dim principalVariable = entityTypeIds(foreignKey.PrincipalEntityType).Variable - - mainBuilder. - Append(entityClassName). - Append(".CreateForeignKey"). - Append(foreignKeyNumber.ToString()). - Append("("c). - Append(variableName). - Append(", "). - Append(principalVariable). - AppendLine(")"c) - - foreignKeyNumber += 1 - Next - Next - - If anyForeignKeys Then - mainBuilder. - AppendLine() - End If - - Dim anySkipNavigations = False - For Each entityTypeId In entityTypeIds - - Dim entityType = entityTypeId.Key - Dim namePair = entityTypeId.Value - - Dim variableName = namePair.Variable - Dim entityClassName = namePair.Class - - Dim navigationNumber = 1 - - For Each navigation As ISkipNavigation In entityType.GetDeclaredSkipNavigations() - anySkipNavigations = True - Dim targetVariable = entityTypeIds(navigation.TargetEntityType).Variable - Dim joinVariable = entityTypeIds(navigation.JoinEntityType).Variable - - mainBuilder. - Append(entityClassName). - Append(".CreateSkipNavigation"). - Append(navigationNumber.ToString()). - Append("("c). - Append(variableName). - Append(", "). - Append(targetVariable). - Append(", "). - Append(joinVariable). - AppendLine(")"c) - - navigationNumber += 1 - Next - Next - - If anySkipNavigations Then - mainBuilder.AppendLine() - End If - - For Each entityTypeId In entityTypeIds - - Dim entityType = entityTypeId.Key - Dim namePair = entityTypeId.Value - - Dim variableName = namePair.Variable - Dim entityClassName = namePair.Class - - mainBuilder. - Append(entityClassName). - Append(".CreateAnnotations"). - Append("("c). - Append(variableName). - AppendLine(")"c) - Next - - If anyEntityTypes Then - mainBuilder.AppendLine() - End If - - Dim parameters As New VisualBasicRuntimeAnnotationCodeGeneratorParameters( - "Me", - className, - mainBuilder, - methodBuilder, - namespaces, - variables) - - For Each typeConfiguration In model.GetTypeMappingConfigurations() - Create(typeConfiguration, parameters) - Next - - CreateAnnotations(model, AddressOf _annotationCodeGenerator.Generate, parameters) - - End Using - - mainBuilder. - AppendLine("End Sub") - - Dim methods = methodBuilder.ToString() - If Not String.IsNullOrEmpty(methods) Then - mainBuilder. - AppendLine(). - AppendLines(methods) - End If - End Using - - mainBuilder. - AppendLine("End Class") - - If Not String.IsNullOrEmpty([namespace]) Then - mainBuilder.DecrementIndent() - mainBuilder.AppendLine("End Namespace") - End If - - Return GenerateHeader(namespaces, [namespace]) & mainBuilder.ToString - End Function - - Private Sub Create(typeConfiguration As ITypeMappingConfiguration, - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim variableName = _code.Identifier("typeConfig", parameters.ScopeVariables, capitalize:=False) - - Dim mainBuilder = parameters.MainBuilder - mainBuilder.Append("Dim ").Append(variableName).Append(" = ").Append(parameters.TargetName).AppendLine(".AddTypeMappingConfiguration("). - IncrementIndent(). - Append(_code.Literal(typeConfiguration.ClrType)) - - AddNamespace(typeConfiguration.ClrType, parameters.Namespaces) - - If typeConfiguration.GetMaxLength().HasValue Then - mainBuilder.AppendLine(","c). - Append("maxLength:="). - Append(_code.Literal(typeConfiguration.GetMaxLength())) - End If - - If typeConfiguration.IsUnicode().HasValue Then - mainBuilder.AppendLine(","c). - Append("unicode:="). - Append(_code.Literal(typeConfiguration.IsUnicode())) - End If - - If typeConfiguration.GetPrecision().HasValue Then - mainBuilder.AppendLine(","c). - Append("precision:="). - Append(_code.Literal(typeConfiguration.GetPrecision())) - End If - - If typeConfiguration.GetScale().HasValue Then - mainBuilder.AppendLine(","c). - Append("scale:="). - Append(_code.Literal(typeConfiguration.GetScale())) - End If - - Dim providerClrType = typeConfiguration.GetProviderClrType() - If providerClrType IsNot Nothing Then - AddNamespace(providerClrType, parameters.Namespaces) - - mainBuilder.AppendLine(","c). - Append("providerPropertyType:="). - Append(_code.Literal(providerClrType)) - End If - - Dim valueConverterType = CType(typeConfiguration(CoreAnnotationNames.ValueConverterType), Type) - If valueConverterType IsNot Nothing Then - AddNamespace(valueConverterType, parameters.Namespaces) - - mainBuilder.AppendLine(","c). - Append("valueConverter:=New "). - Append(_code.Reference(valueConverterType)). - Append("()") - End If - - mainBuilder. - AppendLine(")"c). - DecrementIndent() - - CreateAnnotations( - typeConfiguration, - AddressOf _annotationCodeGenerator.Generate, - parameters.Cloner. - WithTargetName(variableName). - Clone()) - - mainBuilder.AppendLine() - End Sub - - Private Function GenerateEntityType(entityType As IEntityType, [namespace] As String, className As String) As String - Dim mainBuilder As New IndentedStringBuilder() - Dim methodBuilder As New IndentedStringBuilder() - Dim namespaces As New SortedSet(Of String)(New NamespaceComparer()) From { - GetType(BindingFlags).Namespace, - GetType(MethodInfo).Namespace, - GetType(RuntimeEntityType).Namespace, - "Microsoft.VisualBasic" - } - - If Not String.IsNullOrEmpty([namespace]) Then - mainBuilder. - Append("Namespace "). - AppendLine(_code.Namespace([namespace])) - - mainBuilder.Indent() - End If - - mainBuilder. - Append("Friend Partial Class "). - AppendLine(className). - AppendLine() - - Using mainBuilder.Indent() - CreateEntityType(entityType, mainBuilder, methodBuilder, namespaces, className) - - For Each complexProperty In entityType.GetDeclaredComplexProperties() - CreateComplexProperty(complexProperty, mainBuilder, methodBuilder, namespaces, className) - Next - - Dim foreignKeyNumber = 1 - For Each foreignKey As IForeignKey In entityType.GetDeclaredForeignKeys() - CreateForeignKey(foreignKey, foreignKeyNumber, mainBuilder, methodBuilder, namespaces, className) - foreignKeyNumber += 1 - Next - - Dim navigationNumber = 1 - For Each navigation As ISkipNavigation In entityType.GetDeclaredSkipNavigations() - CreateSkipNavigation(navigation, navigationNumber, mainBuilder, methodBuilder, namespaces, className) - navigationNumber += 1 - Next - - CreateAnnotations(entityType, - mainBuilder, - methodBuilder, - namespaces, - className) - End Using - - mainBuilder.AppendLine("End Class") - - If Not String.IsNullOrEmpty([namespace]) Then - mainBuilder.DecrementIndent() - mainBuilder.AppendLine("End Namespace") - End If - - Return GenerateHeader(namespaces, [namespace]) & mainBuilder.ToString() & methodBuilder.ToString() - End Function - - Private Sub CreateEntityType(entityType As IEntityType, - mainBuilder As IndentedStringBuilder, - methodBuilder As IndentedStringBuilder, - namespaces As SortedSet(Of String), - className As String) - - mainBuilder. - Append("Public Shared Function Create"). - Append("(model As RuntimeModel, "). - AppendLine("Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType") - - Using mainBuilder.Indent() - - Const entityTypeVariable = "entityType" - Dim variables = New HashSet(Of String) From { - "model", - "baseEntityType", - entityTypeVariable - } - - Dim parameters = New VisualBasicRuntimeAnnotationCodeGeneratorParameters( - entityTypeVariable, - className, - mainBuilder, - methodBuilder, - namespaces, - variables) - - Create(entityType, parameters) - - Dim propertyVariables As New Dictionary(Of IProperty, String) - For Each prop In entityType.GetDeclaredProperties() - Create(prop, propertyVariables, parameters) - Next - - For Each prop In entityType.GetDeclaredServiceProperties() - Create(prop, parameters) - Next - - For Each complexProperty In entityType.GetDeclaredComplexProperties() - mainBuilder. - Append(_code.Identifier(complexProperty.Name, capitalize:=True)). - Append("ComplexProperty"). - Append(".Create"). - Append("("c). - Append(entityTypeVariable). - AppendLine(")"c) - Next - - For Each aKey In entityType.GetDeclaredKeys() - Create(aKey, propertyVariables, parameters) - Next - - For Each index In entityType.GetDeclaredIndexes() - Create(index, propertyVariables, parameters) - Next - - For Each trigger In entityType.GetDeclaredTriggers() - Create(trigger, parameters) - Next - - mainBuilder. - Append("Return "). - AppendLine(entityTypeVariable) - End Using - - mainBuilder. - AppendLine("End Function") - End Sub - - Private Sub Create(entityType As IEntityType, - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim runTimeEntityType = TryCast(entityType, IRuntimeEntityType) - - If (runTimeEntityType.ConstructorBinding IsNot Nothing AndAlso - ((runTimeEntityType?.GetConstructorBindingConfigurationSource()).OverridesStrictly(ConfigurationSource.Convention) OrElse - TypeOf runTimeEntityType.ConstructorBinding Is FactoryMethodBinding)) OrElse - (runTimeEntityType?.ServiceOnlyConstructorBinding IsNot Nothing AndAlso - (runTimeEntityType.GetServiceOnlyConstructorBindingConfigurationSource().OverridesStrictly(ConfigurationSource.Convention) OrElse - TypeOf runTimeEntityType.ServiceOnlyConstructorBinding Is FactoryMethodBinding)) Then - - Throw New InvalidOperationException(DesignStrings.CompiledModelConstructorBinding( - runTimeEntityType.ShortName(), "Customize()", parameters.ClassName)) - End If - - If runTimeEntityType.GetQueryFilter() IsNot Nothing Then - Throw New InvalidOperationException(DesignStrings.CompiledModelQueryFilter(runTimeEntityType.ShortName())) - End If - -#Disable Warning BC40000 ' Type or member is obsolete - If runTimeEntityType.GetDefiningQuery() IsNot Nothing Then - Throw New InvalidOperationException(DesignStrings.CompiledModelDefiningQuery(runTimeEntityType.ShortName())) - End If -#Enable Warning BC40000 ' Type or member is obsolete - - AddNamespace(runTimeEntityType.ClrType, parameters.Namespaces) - - Dim mainBuilder = parameters.MainBuilder - - mainBuilder. - Append("Dim "). - Append(parameters.TargetName). - AppendLine(" = model.AddEntityType("). - IncrementIndent(). - Append(_code.Literal(runTimeEntityType.Name)). - AppendLine(","c). - Append(_code.Literal(runTimeEntityType.ClrType)). - AppendLine(","c). - Append("baseEntityType") - - If runTimeEntityType.HasSharedClrType Then - mainBuilder. - AppendLine(","c). - Append("sharedClrType:="). - Append(_code.Literal(runTimeEntityType.HasSharedClrType)) - End If - - Dim discriminatorProperty = runTimeEntityType.GetDiscriminatorPropertyName() - - If discriminatorProperty IsNot Nothing Then - mainBuilder. - AppendLine(","c). - Append("discriminatorProperty:="). - Append(_code.Literal(discriminatorProperty)) - End If - - Dim changeTrackingStrat As ChangeTrackingStrategy = runTimeEntityType.GetChangeTrackingStrategy() - - If changeTrackingStrat <> ChangeTrackingStrategy.Snapshot Then - parameters.Namespaces.Add(GetType(ChangeTrackingStrategy).Namespace) - - mainBuilder. - AppendLine(","c). - Append("changeTrackingStrategy:="). - Append(_code.Literal(CType(changeTrackingStrat, [Enum]))) - End If - - Dim indexerPropertyInfo = runTimeEntityType.FindIndexerPropertyInfo() - - If indexerPropertyInfo IsNot Nothing Then - mainBuilder. - AppendLine(","c). - Append("indexerPropertyInfo:=RuntimeEntityType.FindIndexerProperty("). - Append(_code.Literal(runTimeEntityType.ClrType)). - Append(")"c) - End If - - If runTimeEntityType.IsPropertyBag Then - mainBuilder. - AppendLine(","c). - Append("propertyBag:="). - Append(_code.Literal(True)) - End If - - Dim discriminatorValue = entityType.GetDiscriminatorValue() - If discriminatorValue IsNot Nothing Then - AddNamespace(discriminatorValue.GetType(), parameters.Namespaces) - - mainBuilder. - AppendLine(","c). - Append("discriminatorValue:="). - Append(_code.UnknownLiteral(discriminatorValue)) - End If - - mainBuilder. - AppendLine(")"c). - AppendLine(). - DecrementIndent() - End Sub - - Private Sub Create([property] As IProperty, - propertyVariables As Dictionary(Of IProperty, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim variableName = _code.Identifier([property].Name, parameters.ScopeVariables, capitalize:=False) - propertyVariables([property]) = variableName - - Create([property], variableName, propertyVariables, parameters) - - CreateAnnotations([property], - AddressOf _annotationCodeGenerator.Generate, - parameters.Cloner. - WithTargetName(variableName). - Clone) - - parameters.MainBuilder.AppendLine() - End Sub - - Private Sub Create([property] As IProperty, - variableName As String, - propertyVariables As Dictionary(Of IProperty, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim valueGeneratorFactoryType = TryCast([property](CoreAnnotationNames.ValueGeneratorFactoryType), Type) - - If valueGeneratorFactoryType Is Nothing AndAlso - [property].GetValueGeneratorFactory() IsNot Nothing Then - Throw New InvalidOperationException( - DesignStrings.CompiledModelValueGenerator( - [property].DeclaringType.ShortName(), [property].Name, NameOf(PropertyBuilder.HasValueGeneratorFactory))) - End If - - Dim mainBuilder = parameters.MainBuilder - - mainBuilder. - Append("Dim "). - Append(variableName). - Append(" = "). - Append(parameters.TargetName). - AppendLine(".AddProperty("). - IncrementIndent(). - Append(_code.Literal([property].Name)) - - PropertyBaseParameters([property], parameters) - - If [property].IsNullable Then - mainBuilder. - AppendLine(","c). - Append("nullable:="). - Append(_code.Literal(True)) - End If - - If [property].IsConcurrencyToken Then - mainBuilder. - AppendLine(","c). - Append("concurrencyToken:="). - Append(_code.Literal(True)) - End If - - If [property].ValueGenerated <> ValueGenerated.Never Then - mainBuilder. - AppendLine(","c). - Append("valueGenerated:="). - Append(_code.Literal(CType([property].ValueGenerated, [Enum]))) - End If - - If [property].GetBeforeSaveBehavior() <> PropertySaveBehavior.Save Then - mainBuilder. - AppendLine(","c). - Append("beforeSaveBehavior:="). - Append(_code.Literal(CType([property].GetBeforeSaveBehavior(), [Enum]))) - End If - - If [property].GetAfterSaveBehavior() <> PropertySaveBehavior.Save Then - mainBuilder. - AppendLine(","c). - Append("afterSaveBehavior:="). - Append(_code.Literal(CType([property].GetAfterSaveBehavior(), [Enum]))) - End If - - If [property].GetMaxLength().HasValue Then - mainBuilder. - AppendLine(","c). - Append("maxLength:="). - Append(_code.Literal([property].GetMaxLength())) - End If - - If [property].IsUnicode().HasValue Then - mainBuilder. - AppendLine(","c). - Append("unicode:="). - Append(_code.Literal([property].IsUnicode())) - End If - - If [property].GetPrecision().HasValue Then - mainBuilder. - AppendLine(","c). - Append("precision:="). - Append(_code.Literal([property].GetPrecision())) - End If - - If [property].GetScale().HasValue Then - mainBuilder. - AppendLine(","c). - Append("scale:="). - Append(_code.Literal([property].GetScale())) - End If - - Dim providerClrType = [property].GetProviderClrType() - - If providerClrType IsNot Nothing Then - AddNamespace(providerClrType, parameters.Namespaces) - - mainBuilder. - AppendLine(","c). - Append("providerPropertyType:="). - Append(_code.Literal(providerClrType)) - End If - - If valueGeneratorFactoryType IsNot Nothing Then - AddNamespace(valueGeneratorFactoryType, parameters.Namespaces) - - mainBuilder. - AppendLine(","c). - Append("valueGeneratorFactory:=AddressOf New "). - Append(_code.Reference(valueGeneratorFactoryType)). - Append("().Create") - End If - - Dim valueConverterType = GetValueConverterType([property]) - If valueConverterType IsNot Nothing Then - AddNamespace(valueConverterType, parameters.Namespaces) - - mainBuilder. - AppendLine(","c). - Append("valueConverter:=New "). - Append(_code.Reference(valueConverterType)). - Append("()") - End If - - Dim valueComparerType = DirectCast([property](CoreAnnotationNames.ValueComparerType), Type) - If valueComparerType IsNot Nothing Then - AddNamespace(valueComparerType, parameters.Namespaces) - - mainBuilder. - AppendLine(","c). - Append("valueComparer:=New "). - Append(_code.Reference(valueComparerType)). - Append("()") - End If - - Dim providerValueComparerType = DirectCast([property](CoreAnnotationNames.ProviderValueComparerType), Type) - If providerValueComparerType IsNot Nothing Then - AddNamespace(providerValueComparerType, parameters.Namespaces) - - mainBuilder. - AppendLine(","c). - Append("providerValueComparer:=New "). - Append(_code.Reference(providerValueComparerType)). - Append("()") - End If - - Dim sentinel = [property].Sentinel - Dim converter = [property].FindTypeMapping()?.Converter - If sentinel IsNot Nothing AndAlso - converter Is Nothing Then - mainBuilder. - AppendLine(","c). - Append("sentinel:="). - Append(_code.UnknownLiteral(sentinel)) - End If - - Dim jsonValueReaderWriterType = CType([property](CoreAnnotationNames.JsonValueReaderWriterType), Type) - If jsonValueReaderWriterType IsNot Nothing Then - mainBuilder. - AppendLine(","c). - Append("jsonValueReaderWriter:=") - - VisualBasicRuntimeAnnotationCodeGenerator.CreateJsonValueReaderWriter(jsonValueReaderWriterType, parameters, _code) - End If - - mainBuilder. - AppendLine(")"c). - DecrementIndent() - - mainBuilder. - Append(variableName). - Append(".TypeMapping = ") - - _annotationCodeGenerator.Create( - [property].GetTypeMapping(), - [property], - parameters. - Cloner. - WithTargetName(variableName). - Clone()) - - mainBuilder.AppendLine() - - If sentinel IsNot Nothing AndAlso - converter IsNot Nothing Then - mainBuilder. - Append(variableName).Append(".SetSentinelFromProviderValue("). - Append(_code.UnknownLiteral(If(converter?.ConvertToProvider(sentinel), sentinel))). - AppendLine(")") - End If - End Sub - - Private Shared Function GetValueConverterType([property] As IProperty) As Type - Dim annotation = [property].FindAnnotation(CoreAnnotationNames.ValueConverterType) - - If annotation IsNot Nothing Then - Return DirectCast(annotation.Value, Type) - End If - - If Not Metadata.Internal.[Property].UseOldBehavior32422 Then - Return DirectCast([property], [Property]). - GetConversion(throwOnProviderClrTypeConflict:=False, throwOnValueConverterConflict:=False). - ValueConverterType - End If - - Dim principalProperty = [property] - - Dim i = 0 - While i < ForeignKey.LongestFkChainAllowedLength - Dim nextProperty As IProperty = Nothing - For Each foreignKey In principalProperty.GetContainingForeignKeys() - For propertyIndex = 0 To foreignKey.Properties.Count - 1 - If principalProperty Is foreignKey.Properties(propertyIndex) Then - Dim newPrincipalProperty = foreignKey.PrincipalKey.Properties(propertyIndex) - If newPrincipalProperty Is [property] OrElse - newPrincipalProperty Is principalProperty Then - - Exit For - End If - - annotation = newPrincipalProperty.FindAnnotation(CoreAnnotationNames.ValueConverterType) - If annotation IsNot Nothing Then - Return DirectCast(annotation.Value, Type) - End If - - nextProperty = newPrincipalProperty - End If - Next - Next - - If nextProperty Is Nothing Then - Exit While - End If - - principalProperty = nextProperty - i += 1 - End While - - If i = ForeignKey.LongestFkChainAllowedLength Then - Throw New InvalidOperationException( - CoreStrings.RelationshipCycle( - [property].DeclaringType.DisplayName(), [property].Name, "ValueConverterType")) - Else - Return Nothing - End If - End Function - - Private Sub PropertyBaseParameters(prop As IPropertyBase, - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters, - Optional skipType As Boolean = False) - - Dim mainBuilder = parameters.MainBuilder - - If Not skipType Then - AddNamespace(prop.ClrType, parameters.Namespaces) - mainBuilder. - AppendLine(","c). - Append(_code.Literal(prop.ClrType)) - End If - - Dim propertyInfo = prop.PropertyInfo - - If propertyInfo IsNot Nothing Then - - AddNamespace(propertyInfo.DeclaringType, parameters.Namespaces) - - mainBuilder. - AppendLine(","c). - Append("propertyInfo:=") - - If prop.IsIndexerProperty() Then - mainBuilder. - Append(parameters.TargetName). - Append(".FindIndexerPropertyInfo()") - Else - mainBuilder. - Append(_code.Literal(propertyInfo.DeclaringType)). - Append(".GetProperty("). - Append(_code.Literal(propertyInfo.Name)). - Append(", "). - Append(If(propertyInfo.GetAccessors().Length <> 0, "BindingFlags.Public", "BindingFlags.NonPublic")). - Append(If(propertyInfo.IsStatic(), " Or BindingFlags.Static", " Or BindingFlags.Instance")). - Append(" Or BindingFlags.DeclaredOnly)") - End If - End If - - Dim fieldInfo = prop.FieldInfo - - If fieldInfo IsNot Nothing Then - - AddNamespace(fieldInfo.DeclaringType, parameters.Namespaces) - - mainBuilder. - AppendLine(","c). - Append("fieldInfo:="). - Append(_code.Literal(fieldInfo.DeclaringType)). - Append(".GetField("). - Append(_code.Literal(fieldInfo.Name)). - Append(", "). - Append(If(fieldInfo.IsPublic, "BindingFlags.Public", "BindingFlags.NonPublic")). - Append(If(fieldInfo.IsStatic, " Or BindingFlags.Static", " Or BindingFlags.Instance")). - Append(" Or BindingFlags.DeclaredOnly)") - End If - - Dim propertyAccessMode = prop.GetPropertyAccessMode() - - If propertyAccessMode <> Model.DefaultPropertyAccessMode Then - parameters.Namespaces.Add(GetType(PropertyAccessMode).Namespace) - - mainBuilder. - AppendLine(","c). - Append("propertyAccessMode:="). - Append(_code.Literal(CType(propertyAccessMode, [Enum]))) - End If - End Sub - - Private Sub FindProperties(entityTypeVariable As String, - properties As IEnumerable(Of IProperty), - mainBuilder As IndentedStringBuilder, - Optional propertyVariables As Dictionary(Of IProperty, String) = Nothing) - - mainBuilder.Append("{"c) - - Dim first = True - - For Each prop In properties - If first Then - first = False - Else - mainBuilder. - Append(", ") - End If - - Dim propertyVariable As String = Nothing - - If propertyVariables IsNot Nothing AndAlso - propertyVariables.TryGetValue(prop, propertyVariable) Then - - mainBuilder. - Append(propertyVariable) - Else - mainBuilder. - Append(entityTypeVariable). - Append(".FindProperty("). - Append(_code.Literal(prop.Name)). - Append(")"c) - End If - Next - - mainBuilder.Append("}"c) - End Sub - - Private Sub Create([property] As IServiceProperty, - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim variableName = _code.Identifier([property].Name, parameters.ScopeVariables, capitalize:=False) - - Dim mainBuilder = parameters.MainBuilder - - mainBuilder. - Append("Dim "). - Append(variableName). - Append(" = "). - Append(parameters.TargetName). - AppendLine(".AddServiceProperty("). - IncrementIndent(). - Append(_code.Literal([property].Name)) - - PropertyBaseParameters([property], parameters, skipType:=True) - - AddNamespace([property].ClrType, parameters.Namespaces) - mainBuilder. - AppendLine(","c). - Append("serviceType:=GetType(" & _code.Reference([property].ClrType) & ")") - - mainBuilder. - AppendLine(")"c). - DecrementIndent() - - CreateAnnotations([property], - AddressOf _annotationCodeGenerator.Generate, - parameters.Cloner. - WithTargetName(variableName). - Clone()) - - mainBuilder. - AppendLine() - End Sub - - Private Sub Create(key As IKey, - propertyVariables As Dictionary(Of IProperty, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim variableName = _code.Identifier("key", parameters.ScopeVariables) - Dim mainBuilder = parameters.MainBuilder - - mainBuilder. - Append("Dim "). - Append(variableName). - Append(" = "). - Append(parameters.TargetName). - AppendLine(".AddKey("). - IncrementIndent() - - FindProperties(parameters.TargetName, key.Properties, mainBuilder, propertyVariables) - - mainBuilder. - AppendLine(")"c). - DecrementIndent() - - If key.IsPrimaryKey() Then - mainBuilder. - Append(parameters.TargetName). - Append(".SetPrimaryKey("). - Append(variableName). - AppendLine(")"c) - End If - - CreateAnnotations(key, - AddressOf _annotationCodeGenerator.Generate, - parameters.Cloner. - WithTargetName(variableName). - Clone()) - - mainBuilder. - AppendLine() - End Sub - - Private Sub Create(index As IIndex, - propertyVariables As Dictionary(Of IProperty, String), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim variableName = _code.Identifier(If(index.Name, "index"), parameters.ScopeVariables, capitalize:=False) - - Dim mainBuilder = parameters.MainBuilder - mainBuilder. - Append("Dim "). - Append(variableName). - Append(" = "). - Append(parameters.TargetName). - AppendLine(".AddIndex("). - IncrementIndent() - - FindProperties(parameters.TargetName, index.Properties, mainBuilder, propertyVariables) - - If index.Name IsNot Nothing Then - mainBuilder. - AppendLine(","c). - Append("name:="). - Append(_code.Literal(index.Name)) - End If - - If index.IsUnique Then - mainBuilder. - AppendLine(","c). - Append("unique:="). - Append(_code.Literal(True)) - End If - - mainBuilder. - AppendLine(")"c). - DecrementIndent() - - CreateAnnotations(index, - AddressOf _annotationCodeGenerator.Generate, - parameters.Cloner. - WithTargetName(variableName). - Clone()) - - mainBuilder. - AppendLine() - End Sub - - Private Sub CreateComplexProperty(complexProperty As IComplexProperty, - mainBuilder As IndentedStringBuilder, - methodBuilder As IndentedStringBuilder, - namespaces As SortedSet(Of String), - topClassName As String) - - mainBuilder. - AppendLine(). - Append("Private Class "). - Append(_code.Identifier(complexProperty.Name, capitalize:=True)). - AppendLine("ComplexProperty") - - Dim complexType = complexProperty.ComplexType - Using mainBuilder.Indent() - Dim declaringTypeVariable = "declaringType" - mainBuilder. - Append("Public Shared Function Create("). - Append(declaringTypeVariable). - Append(" As "). - Append(If(TypeOf complexProperty.DeclaringType Is IEntityType, "RuntimeEntityType", "RuntimeComplexType")). - AppendLine(") As RuntimeComplexProperty") - - Using mainBuilder.Indent() - Const complexPropertyVariable = "complexProperty" - Const complexTypeVariable = "complexType" - - Dim variables As New HashSet(Of String) From { - declaringTypeVariable, - complexPropertyVariable, - complexTypeVariable - } - - mainBuilder. - Append("Dim "). - Append(complexPropertyVariable). - Append(" = "). - Append(declaringTypeVariable). - Append(".AddComplexProperty("). - IncrementIndent(). - Append(_code.Literal(complexProperty.Name)). - AppendLine(","c). - Append(_code.Literal(complexProperty.ClrType)). - AppendLine(","c). - Append(_code.Literal(complexType.Name)). - AppendLine(","c). - Append(_code.Literal(complexType.ClrType)) - - AddNamespace(complexProperty.ClrType, namespaces) - AddNamespace(complexType.ClrType, namespaces) - - Dim parameters As New VisualBasicRuntimeAnnotationCodeGeneratorParameters( - declaringTypeVariable, - topClassName, - mainBuilder, - methodBuilder, - namespaces, - variables) - - PropertyBaseParameters(complexProperty, parameters, skipType:=True) - - If complexProperty.IsNullable Then - mainBuilder. - AppendLine(","c). - Append("nullable:="). - Append(_code.Literal(True)) - End If - - If complexProperty.IsCollection Then - mainBuilder. - AppendLine(","c). - Append("collection:="). - Append(_code.Literal(True)) - End If - - Dim changeTrackingStrategy = complexType.GetChangeTrackingStrategy() - If changeTrackingStrategy <> ChangeTrackingStrategy.Snapshot Then - namespaces.Add(GetType(ChangeTrackingStrategy).Namespace) - - mainBuilder.AppendLine(","c). - Append("changeTrackingStrategy:="). - Append(_code.Literal(DirectCast(changeTrackingStrategy, [Enum]))) - End If - - Dim indexerPropertyInfo = complexType.FindIndexerPropertyInfo() - If indexerPropertyInfo IsNot Nothing Then - mainBuilder. - AppendLine(","c). - Append("indexerPropertyInfo:=RuntimeEntityType.FindIndexerProperty("). - Append(_code.Literal(complexType.ClrType)). - Append(")"c) - End If - - If complexType.IsPropertyBag Then - mainBuilder.AppendLine(","c). - Append("propertyBag:="). - Append(_code.Literal(True)) - End If - - mainBuilder. - AppendLine(")"c). - AppendLine(). - DecrementIndent() - - mainBuilder. - Append("Dim ").Append(complexTypeVariable).Append(" = "). - Append(complexPropertyVariable).AppendLine(".ComplexType") - - Dim complexTypeParameters = parameters.Cloner.WithTargetName(complexTypeVariable).Clone - Dim propertyVariables As New Dictionary(Of IProperty, String)() - - For Each [property] In complexType.GetProperties() - Create([property], propertyVariables, complexTypeParameters) - Next - - For Each nestedComplexProperty In complexType.GetComplexProperties() - mainBuilder. - Append(_code.Identifier(nestedComplexProperty.Name, capitalize:=True)). - Append("ComplexProperty"). - Append(".Create"). - Append("("c). - Append(complexTypeVariable). - AppendLine(")"c) - Next - - CreateAnnotations( - complexType, - AddressOf _annotationCodeGenerator.Generate, - complexTypeParameters) - - CreateAnnotations( - complexProperty, - AddressOf _annotationCodeGenerator.Generate, - parameters.Cloner.WithTargetName(complexPropertyVariable).Clone()) - - mainBuilder. - Append("Return "). - AppendLine(complexPropertyVariable) - End Using - - mainBuilder.AppendLine("End Function") - End Using - - Using mainBuilder.Indent() - For Each nestedComplexProperty In complexType.GetComplexProperties() - CreateComplexProperty(nestedComplexProperty, mainBuilder, methodBuilder, namespaces, topClassName) - Next - End Using - - mainBuilder.AppendLine("End Class") - End Sub - - Private Sub CreateForeignKey(aforeignKey As IForeignKey, - foreignKeyNumber As Integer, - mainBuilder As IndentedStringBuilder, - methodBuilder As IndentedStringBuilder, - namespaces As SortedSet(Of String), - className As String) - - Const declaringEntityType = "declaringEntityType" - Const principalEntityType = "principalEntityType" - - mainBuilder. - AppendLine(). - Append("Public Shared Function CreateForeignKey"). - Append(foreignKeyNumber.ToString()). - Append("("c). - Append(declaringEntityType). - Append(" As RuntimeEntityType"). - Append(", "). - Append(principalEntityType). - Append(" As RuntimeEntityType"). - AppendLine(") As RuntimeForeignKey") - - Using mainBuilder.Indent() - Const foreignKeyVariable = "runtimeForeignKey" - - Dim variables = New HashSet(Of String) From { - declaringEntityType, - principalEntityType, - foreignKeyVariable - } - - mainBuilder. - Append("Dim "). - Append(foreignKeyVariable).Append(" = "). - Append(declaringEntityType). - Append(".AddForeignKey("). - IncrementIndent() - - FindProperties(declaringEntityType, aforeignKey.Properties, mainBuilder) - - mainBuilder. - AppendLine(","c). - Append(principalEntityType). - Append(".FindKey(") - - FindProperties(principalEntityType, aforeignKey.PrincipalKey.Properties, mainBuilder) - mainBuilder.Append(")"c) - - mainBuilder. - AppendLine(","c). - Append(principalEntityType) - - If aforeignKey.DeleteBehavior <> ForeignKey.DefaultDeleteBehavior Then - namespaces.Add(GetType(DeleteBehavior).Namespace) - - mainBuilder. - AppendLine(","c). - Append("deleteBehavior:="). - Append(_code.Literal(CType(aforeignKey.DeleteBehavior, [Enum]))) - End If - - If aforeignKey.IsUnique Then - mainBuilder. - AppendLine(","c). - Append("unique:="). - Append(_code.Literal(True)) - End If - - If aforeignKey.IsRequired Then - mainBuilder. - AppendLine(","c). - Append("required:="). - Append(_code.Literal(True)) - End If - - If aforeignKey.IsRequiredDependent Then - mainBuilder. - AppendLine(","c). - Append("requiredDependent:="). - Append(_code.Literal(True)) - End If - - If aforeignKey.IsOwnership Then - mainBuilder. - AppendLine(","c). - Append("ownership:="). - Append(_code.Literal(True)) - End If - - mainBuilder. - AppendLine(")"c). - AppendLine(). - DecrementIndent() - - Dim parameters = New VisualBasicRuntimeAnnotationCodeGeneratorParameters( - foreignKeyVariable, - className, - mainBuilder, - methodBuilder, - namespaces, - variables) - - Dim navigation = aforeignKey.DependentToPrincipal - - If navigation IsNot Nothing Then - Create(navigation, - foreignKeyVariable, - parameters.Cloner. - WithTargetName(declaringEntityType). - Clone()) - End If - - navigation = aforeignKey.PrincipalToDependent - If navigation IsNot Nothing Then - Create(navigation, - foreignKeyVariable, - parameters.Cloner. - WithTargetName(principalEntityType). - Clone()) - End If - - CreateAnnotations(aforeignKey, - AddressOf _annotationCodeGenerator.Generate, - parameters) - - mainBuilder. - Append("Return "). - AppendLine(foreignKeyVariable) - End Using - - mainBuilder. - AppendLine("End Function") - End Sub - - Private Sub Create(navigation As INavigation, - foreignKeyVariable As String, - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim mainBuilder = parameters.MainBuilder - Dim navigationVariable = _code.Identifier(navigation.Name, parameters.ScopeVariables, capitalize:=False) - - mainBuilder. - Append("Dim "). - Append(navigationVariable). - Append(" = "). - Append(parameters.TargetName). - Append(".AddNavigation("). - IncrementIndent(). - Append(_code.Literal(navigation.Name)). - AppendLine(","c). - Append(foreignKeyVariable). - AppendLine(","c). - Append("onDependent:="). - Append(_code.Literal(navigation.IsOnDependent)) - - PropertyBaseParameters(navigation, parameters) - - If navigation.IsEagerLoaded Then - mainBuilder. - AppendLine(","c). - Append("eagerLoaded:="). - Append(_code.Literal(True)) - End If - - If Not navigation.LazyLoadingEnabled Then - mainBuilder. - AppendLine(","c). - Append("lazyLoadingEnabled:="). - Append(_code.Literal(False)) - End If - - mainBuilder. - AppendLine(")"c). - AppendLine(). - DecrementIndent() - - CreateAnnotations(navigation, - AddressOf _annotationCodeGenerator.Generate, - parameters.Cloner. - WithTargetName(navigationVariable). - Clone()) - End Sub - - Private Sub CreateSkipNavigation(navigation As ISkipNavigation, - navigationNumber As Integer, - mainBuilder As IndentedStringBuilder, - methodBuilder As IndentedStringBuilder, - namespaces As SortedSet(Of String), - className As String) - - Const declaringEntityType = "declaringEntityType" - Const targetEntityType = "targetEntityType" - Const joinEntityType = "joinEntityType" - - mainBuilder. - AppendLine(). - Append("Public Shared Function CreateSkipNavigation"). - Append(navigationNumber.ToString()). - Append("("c).Append(declaringEntityType).Append(" As RuntimeEntityType"). - Append(", ").Append(targetEntityType).Append(" As RuntimeEntityType"). - Append(", ").Append(joinEntityType).Append(" As RuntimeEntityType"). - Append(")"c). - AppendLine(" As RuntimeSkipNavigation") - - Using mainBuilder.Indent() - - Const navigationVariable = "skipNavigation" - Dim variables = New HashSet(Of String) From { - declaringEntityType, - targetEntityType, - joinEntityType, - navigationVariable - } - - Dim parameters = New VisualBasicRuntimeAnnotationCodeGeneratorParameters( - targetName:=navigationVariable, - className, - mainBuilder, - methodBuilder, - namespaces, - scopeVariables:=variables) - - mainBuilder. - Append("Dim ").Append(navigationVariable). - Append(" = "). - Append(declaringEntityType). - AppendLine(".AddSkipNavigation("). - IncrementIndent(). - Append(_code.Literal(navigation.Name)). - AppendLine(","c). - Append(targetEntityType). - AppendLine(","c). - Append(joinEntityType). - AppendLine(".FindForeignKey(") - - Using mainBuilder.Indent() - FindProperties(joinEntityType, navigation.ForeignKey.Properties, mainBuilder) - - mainBuilder. - AppendLine(","c). - Append(declaringEntityType). - Append(".FindKey(") - - FindProperties(declaringEntityType, navigation.ForeignKey.PrincipalKey.Properties, mainBuilder) - mainBuilder.Append(")"c) - - mainBuilder. - AppendLine(","c). - Append(declaringEntityType). - Append(")"c) - End Using - - mainBuilder. - AppendLine(","c). - Append(_code.Literal(navigation.IsCollection)).AppendLine(","c). - Append(_code.Literal(navigation.IsOnDependent)) - - PropertyBaseParameters(navigation, parameters.Cloner. - WithTargetName(declaringEntityType). - Clone()) - - If navigation.IsEagerLoaded Then - mainBuilder. - AppendLine(","c). - Append("eagerLoaded:="). - Append(_code.Literal(True)) - End If - - If Not navigation.LazyLoadingEnabled Then - mainBuilder. - AppendLine(","c). - Append("lazyLoadingEnabled:="). - Append(_code.Literal(False)) - End If - - mainBuilder. - AppendLine(")"c). - DecrementIndent() - - mainBuilder.AppendLine() - - variables.Add("inverse") - - mainBuilder. - Append("Dim inverse = ").Append(targetEntityType).Append(".FindSkipNavigation("). - Append(_code.Literal(navigation.Inverse.Name)).AppendLine(")"c). - AppendLine("If inverse IsNot Nothing Then") - - Using mainBuilder.Indent() - mainBuilder. - Append(navigationVariable). - AppendLine(".Inverse = inverse"). - Append("inverse.Inverse = ").AppendLine(navigationVariable) - End Using - - mainBuilder. - AppendLine("End If"). - AppendLine() - - CreateAnnotations(navigation, - AddressOf _annotationCodeGenerator.Generate, - parameters) - - mainBuilder. - Append("Return "). - AppendLine(navigationVariable) - End Using - - mainBuilder. - AppendLine("End Function") - End Sub - - Private Sub Create(trigger As ITrigger, parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - Dim triggerVariable = _code.Identifier(trigger.ModelName, parameters.ScopeVariables, capitalize:=False) - - Dim mainBuilder = parameters.MainBuilder - mainBuilder. - Append("Dim ").Append(triggerVariable).Append(" = ").Append(parameters.TargetName).AppendLine(".AddTrigger("). - IncrementIndent(). - Append(_code.Literal(trigger.ModelName)). - AppendLine(")"c). - DecrementIndent() - - CreateAnnotations( - trigger, - AddressOf _annotationCodeGenerator.Generate, - parameters.Cloner. - WithTargetName(triggerVariable). - Clone) - - mainBuilder.AppendLine() - End Sub - - Private Sub CreateAnnotations(entityType As IEntityType, - mainBuilder As IndentedStringBuilder, - methodBuilder As IndentedStringBuilder, - namespaces As SortedSet(Of String), - className As String) - - mainBuilder. - AppendLine(). - Append("Public Shared Sub CreateAnnotations"). - AppendLine("(entityType As RuntimeEntityType)") - - Using mainBuilder.Indent() - - Const entityTypeVariable = "entityType" - Dim variables = New HashSet(Of String) From { - entityTypeVariable - } - - CreateAnnotations( - entityType, - AddressOf _annotationCodeGenerator.Generate, - New VisualBasicRuntimeAnnotationCodeGeneratorParameters( - entityTypeVariable, - className, - mainBuilder, - methodBuilder, - namespaces, - variables)) - - mainBuilder. - AppendLine(). - AppendLine("Customize(entityType)") - End Using - - mainBuilder. - AppendLine("End Sub"). - AppendLine(). - AppendLine("Shared Partial Private Sub Customize(entityType As RuntimeEntityType)"). - AppendLine("End Sub") - End Sub - - Private Shared Sub CreateAnnotations(Of TAnnotatable As IAnnotatable)( - annotatable As TAnnotatable, - process As Action(Of TAnnotatable, VisualBasicRuntimeAnnotationCodeGeneratorParameters), - parameters As VisualBasicRuntimeAnnotationCodeGeneratorParameters) - - process( - annotatable, - parameters. - Cloner. - WithAnnotations(annotatable.GetAnnotations().ToDictionary(Function(a) a.Name, Function(a) a.Value)). - WithIsRuntime(False). - Clone()) - - process( - annotatable, - parameters. - Cloner. - WithAnnotations(annotatable.GetRuntimeAnnotations().ToDictionary(Function(a) a.Name, Function(a) a.Value)). - WithIsRuntime(True). - Clone()) - End Sub - - Private Shared Sub AddNamespace(type As Type, namespaces As ISet(Of String)) - VisualBasicRuntimeAnnotationCodeGenerator.AddNamespace(type, namespaces) - End Sub - End Class -End Namespace diff --git a/Sandbox/Module1.vb b/Sandbox/Module1.vb index a4742f8..a453dea 100644 --- a/Sandbox/Module1.vb +++ b/Sandbox/Module1.vb @@ -24,11 +24,6 @@ Module Module1 'Scaffold-DbContext 'Data Source=northwind.db' Microsoft.EntityFrameworkCore.Sqlite -OutputDir Scaffolding\Northwind -ContextDir Scaffolding\Northwind\Context -DataAnnotations ' - '------------------------------------- - 'Compiled Models - '------------------------------------- - 'Optimize-DbContext -Project Sandbox -Context northwindContext -OutputDir MyCompiledModels -Namespace MyCompiledModels - Using dbContext As New SchoolContext() dbContext.Students.Add( New Student With { diff --git a/Test/EFCore.VisualBasic.Test/Design/Query/LinqToVisualBasicTranslatorTest.vb b/Test/EFCore.VisualBasic.Test/Design/Query/LinqToVisualBasicTranslatorTest.vb deleted file mode 100644 index 2274e4d..0000000 --- a/Test/EFCore.VisualBasic.Test/Design/Query/LinqToVisualBasicTranslatorTest.vb +++ /dev/null @@ -1,1781 +0,0 @@ -Imports System.Linq.Expressions -Imports System.Reflection -Imports System.Runtime.CompilerServices -Imports EntityFrameworkCore.VisualBasic.Design.Internal -Imports EntityFrameworkCore.VisualBasic.Design.Query.Internal -Imports Microsoft.CodeAnalysis -Imports Microsoft.EntityFrameworkCore.Query -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.TestUtilities -Imports Xunit -Imports Xunit.Abstractions -Imports Xunit.Sdk -Imports Assert = Xunit.Assert -Imports E = System.Linq.Expressions.Expression - -Namespace Design.Query - Public Class LinqToVisualBasicTranslatorTest - - Private ReadOnly _testOutputHelper As ITestOutputHelper - - Public Sub New(TestOutputHelper As ITestOutputHelper) - _testOutputHelper = TestOutputHelper - _outputExpressionTrees = True - End Sub - - - - - - - - - - - - - - - - - Public Sub Constant_values(constantValue As Object, literalRepresentation As String) - AssertExpression( - E.Constant(constantValue), - literalRepresentation) - End Sub - - - Public Sub Constant_decimal() - AssertExpression(E.Constant(1.5D), "1.5D") - End Sub - - - Public Sub Constant_nothing() - AssertExpression(E.Constant(Nothing, GetType(String)), "Nothing") - End Sub - - - Public Sub Constant_throws_on_unsupported_type() - Assert.Throws(Of NotSupportedException)(Sub() AssertExpression(E.Constant(CType(Nothing, DateTime)), "")) - End Sub - - - Public Sub [Enum]() - AssertExpression(E.Constant(SomeEnum.One), "SomeEnum.One") - End Sub - - - Public Sub Enum_with_multiple_values() - AssertExpression(E.Constant(SomeEnum.One Or SomeEnum.Two), "SomeEnum.One Or SomeEnum.Two") - End Sub - - - Public Sub Enum_with_unknown_value() - AssertExpression(E.Constant(CType(1000, SomeEnum)), "CType(1000L, LinqToVisualBasicTranslatorTest.SomeEnum)") - End Sub - - - - - - - - - - - ")> - =")> - - - - - - >")> - Public Sub Binary_numeric(expressionType As ExpressionType, op As String) - AssertExpression( - E.MakeBinary(expressionType, E.Constant(2), E.Constant(3)), - $"2 {op} 3") - End Sub - - - Public Sub Binary_Equal_value_type() - AssertExpression( - E.Equal(E.Constant(2), E.Constant(3)), - "2 = 3") - End Sub - - - Public Sub Binary_Equal_reference_type() - AssertExpression( - E.Equal(E.Parameter(GetType(String), "s1"), E.Parameter(GetType(String), "s2")), - "s1 = s2") - End Sub - - - Public Sub Binary_Equal_nullable_type_and_nothing() - AssertExpression( - E.Equal(E.Parameter(GetType(Integer?), "i"), E.Constant(Nothing, GetType(Integer?))), - "i Is Nothing") - End Sub - - - Public Sub Binary_ReferenceEqual() - AssertExpression( - E.ReferenceEqual(E.Parameter(GetType(Blog), "b1"), E.Parameter(GetType(Blog), "b2")), - "b1 Is b2") - End Sub - - - Public Sub Binary_Equal_with_reference_equality_semantics() - AssertExpression( - E.Equal(E.Convert(E.Parameter(GetType(Blog), "b1"), GetType(Object)), - E.Convert(E.Parameter(GetType(Blog), "b2"), GetType(Object))), - "CType(b1, Object) Is CType(b2, Object)") - End Sub - - - Public Sub Binary_NotEqual_value_type() - AssertExpression( - E.NotEqual(E.Constant(2), E.Constant(3)), - "2 <> 3") - End Sub - - - Public Sub Binary_NotEqual_reference_type() - AssertExpression( - E.NotEqual(E.Parameter(GetType(String), "s1"), E.Parameter(GetType(String), "s2")), - "s1 <> s2") - End Sub - - - Public Sub Binary_NotEqual_nullable_type_and_nothing() - AssertExpression( - E.NotEqual(E.Parameter(GetType(Integer?), "i"), E.Constant(Nothing, GetType(Integer?))), - "i IsNot Nothing") - End Sub - - - Public Sub Binary_ReferenceNotEqual() - AssertExpression( - E.ReferenceNotEqual(E.Parameter(GetType(Blog), "b1"), E.Parameter(GetType(Blog), "b2")), - "b1 IsNot b2") - End Sub - - - Public Sub Binary_ArrayIndex() - AssertExpression( - E.ArrayIndex(E.Parameter(GetType(Integer()), "i"), E.Constant(2)), - "i(2)") - End Sub - - - Public Sub Binary_Power() - AssertExpression( - E.Power(E.Constant(2.0), E.Constant(3.0)), - "2R ^ 3R") - End Sub - - - Public Sub Binary_Coalesce() - AssertExpression( - E.Coalesce(E.Parameter(GetType(Double?), "d"), E.Constant(3.0)), - "If(d, 3R)") - End Sub - - - - - - - - Public Sub Binary_boolean(expressionType As ExpressionType, op As String) - AssertExpression( - E.MakeBinary(expressionType, E.Constant(True), E.Constant(False)), - $"True {op} False") - End Sub - - - - >=")> - Public Sub Binary_Assign_numeric(expressionType As ExpressionType, op As String) - AssertStatement( - E.MakeBinary(expressionType, E.Variable(GetType(Integer), "x"), E.Constant(3)), - $"x {op} 3") - End Sub - - - Public Sub Binary_PowerAssign() - AssertStatement( - E.PowerAssign(E.Variable(GetType(Double), "x"), E.Constant(3.0)), - $"x ^= 3R") - End Sub - - - - - - Public Sub Binary_transformed_Assign_numeric(expressionType As ExpressionType, result As String) - AssertStatement( - E.MakeBinary(expressionType, E.Variable(GetType(Integer), "l"), E.Constant(3)), - result) - End Sub - - - - Public Sub Binary_VB_string_comparaison(expression As E, expected As String) - AssertExpression( - expression, - expected) - End Sub - - Private Shared Iterator Function VB_string_comparaison_operators() As IEnumerable(Of Object()) - Yield {DirectCast(Function(s$) "hello" = s, Expression(Of Func(Of String, Boolean))).Body, """hello"" = s"} - Yield {DirectCast(Function(s$) s <> "hello", Expression(Of Func(Of String, Boolean))).Body, "s <> ""hello"""} - Yield {DirectCast(Function(s$) s <= "hello", Expression(Of Func(Of String, Boolean))).Body, "s <= ""hello"""} - Yield {DirectCast(Function(s$) s > "hello", Expression(Of Func(Of String, Boolean))).Body, "s > ""hello"""} - End Function - - - - - - - - - - Public Sub Unary_expression_int(expressionType As ExpressionType, expected As String) - AssertExpression( - E.MakeUnary(expressionType, E.Parameter(GetType(Integer), "i"), GetType(Integer)), - expected) - End Sub - - - - - - Public Sub Unary_expression_bool(expressionType As ExpressionType, expected As String) - AssertExpression( - E.MakeUnary(expressionType, E.Parameter(GetType(Boolean), "b"), GetType(Boolean)), - expected) - End Sub - - - - - - - Public Sub Not_supported_Unary_statement(expressionType As ExpressionType) - Dim i = E.Parameter(GetType(Integer), "i") - - Assert.Throws(Of NotSupportedException)( - Sub() AssertStatement( - E.Block( - variables:={i}, - E.MakeUnary(expressionType, i, GetType(Integer))), "") - ) - End Sub - - - Public Sub Unary_ArrayLength() - AssertExpression( - E.ArrayLength(E.Parameter(GetType(Integer()), "i")), - "i.Length") - End Sub - - - Public Sub Unary_Convert() - AssertExpression( - E.Convert( - E.Parameter(GetType(Object), "i"), - GetType(String)), - "CType(i, String)") - End Sub - - - - Public Sub Unary_Convert_with_VB_type_conversion_functions(expression As E, expected As String) - AssertExpression( - expression, - expected) - End Sub - - Private Shared Iterator Function VB_type_conversion_functions() As IEnumerable(Of Object()) - Yield {DirectCast(Function(o As Object) CBool(o), Expression(Of Func(Of Object, Boolean))).Body, "CBool(o)"} - Yield {DirectCast(Function(o As Object) CByte(o), Expression(Of Func(Of Object, Byte))).Body, "CByte(o)"} - Yield {DirectCast(Function(o As Object) CChar(o), Expression(Of Func(Of Object, Char))).Body, "CChar(o)"} - Yield {DirectCast(Function(o As Object) CDate(o), Expression(Of Func(Of Object, Date))).Body, "CDate(o)"} - Yield {DirectCast(Function(o As Object) CDbl(o), Expression(Of Func(Of Object, Double))).Body, "CDbl(o)"} - Yield {DirectCast(Function(o As Object) CDec(o), Expression(Of Func(Of Object, Decimal))).Body, "CDec(o)"} - Yield {DirectCast(Function(o As Object) CInt(o), Expression(Of Func(Of Object, Integer))).Body, "CInt(o)"} - Yield {DirectCast(Function(o As Object) CLng(o), Expression(Of Func(Of Object, Long))).Body, "CLng(o)"} - Yield {DirectCast(Function(o As Object) CSByte(o), Expression(Of Func(Of Object, SByte))).Body, "CSByte(o)"} - Yield {DirectCast(Function(o As Object) CShort(o), Expression(Of Func(Of Object, Short))).Body, "CShort(o)"} - Yield {DirectCast(Function(o As Object) CSng(o), Expression(Of Func(Of Object, Single))).Body, "CSng(o)"} - Yield {DirectCast(Function(o As Object) CStr(o), Expression(Of Func(Of Object, String))).Body, "CStr(o)"} - Yield {DirectCast(Function(o As Object) CUInt(o), Expression(Of Func(Of Object, UInteger))).Body, "CUInt(o)"} - Yield {DirectCast(Function(o As Object) CULng(o), Expression(Of Func(Of Object, ULong))).Body, "CULng(o)"} - Yield {DirectCast(Function(o As Object) CUShort(o), Expression(Of Func(Of Object, UShort))).Body, "CUShort(o)"} - End Function - - - Public Sub Unary_Convert_char_to_integer() - AssertExpression( - E.Convert( - E.Parameter(GetType(Char), "c"), - GetType(Integer)), - "Strings.AscW(c)") - End Sub - - - Public Sub Unary_Convert_integer_to_char() - AssertExpression( - E.Convert( - E.Parameter(GetType(Integer), "i"), - GetType(Char)), - "Strings.ChrW(i)") - End Sub - - - Public Sub Unary_Throw() - AssertStatement( - E.Throw(E.[New](GetType(Exception))), - "Throw New Exception()") - End Sub - - - Public Sub Unary_Unbox() - AssertExpression( - E.Unbox(E.Parameter(GetType(Object), "i"), GetType(Integer)), - "i") - End Sub - - - Public Sub Unary_Quote() - Dim expr As Expression(Of Func(Of String, Integer)) = Function(s) s.Length - AssertExpression( - E.Quote(expr), - "Function(s As String) s.Length") - End Sub - - - Public Sub Unary_TypeAs_with_reference_type() - AssertExpression( - E.TypeAs(E.Parameter(GetType(Object), "i"), GetType(String)), - "TryCast(i, String)") - End Sub - - - Public Sub Unary_TypeAs_with_nullable_type() - AssertExpression( - E.TypeAs(E.Parameter(GetType(Object), "i"), GetType(Integer?)), - "If(TypeOf i Is Integer, CType(i, Integer), New Nullable(Of Integer))") - End Sub - - - Public Sub Instance_property() - AssertExpression( - E.Property( - E.Constant("hello"), - GetType(String).GetProperty(NameOf(String.Length))), - """hello"".Length") - End Sub - - - Public Sub Static_property() - AssertExpression( - E.Property( - Nothing, - GetType(DateTime).GetProperty(NameOf(DateTime.Now))), - "DateTime.Now") - End Sub - - - Public Sub Private_instance_field_read() - AssertExpression( - E.Field(E.Parameter(GetType(Blog), "blog"), "_privateField"), - "GetType(LinqToVisualBasicTranslatorTest.Blog).GetField(""_privateField"", BindingFlags.Instance Or BindingFlags.NonPublic).GetValue(blog)") - End Sub - - - Public Sub Private_instance_field_write() - AssertStatement( - E.Assign( - E.Field(E.Parameter(GetType(Blog), "blog"), "_privateField"), - E.Constant(8)), - "GetType(LinqToVisualBasicTranslatorTest.Blog).GetField(""_privateField"", BindingFlags.Instance Or BindingFlags.NonPublic).SetValue(blog, 8)") - End Sub - - - Public Sub Internal_instance_field_read() - AssertExpression( - E.Field(E.Parameter(GetType(Blog), "blog"), "InternalField"), - "blog.InternalField") - End Sub - - - Public Sub [Not]() - AssertExpression( - E.Not(E.Constant(True)), - "Not(True)") - End Sub - - - Public Sub MemberInit_with_MemberAssignment() - AssertExpression( - E.MemberInit( - E.[New]( - GetType(Blog).GetConstructor({GetType(String)}), - E.Constant("foo")), - E.Bind(GetType(Blog).GetProperty(NameOf(Blog.PublicProperty)), E.Constant(8)), - E.Bind(GetType(Blog).GetField(NameOf(Blog.PublicField)), E.Constant(9))), - "New LinqToVisualBasicTranslatorTest.Blog(""foo"") With {.PublicProperty = 8, .PublicField = 9}") - End Sub - - - Public Sub MemberInit_with_MemberListBinding() - AssertExpression( - E.MemberInit( - E.[New]( - GetType(Blog).GetConstructor({GetType(String)}), - E.Constant("foo")), - E.ListBind(GetType(Blog).GetProperty(NameOf(Blog.ListOfInts)), - E.ElementInit(GetType(List(Of Integer)).GetMethod(NameOf(List(Of Integer).Add)), E.Constant(8)), - E.ElementInit(GetType(List(Of Integer)).GetMethod(NameOf(List(Of Integer).Add)), E.Constant(9)))), - "New LinqToVisualBasicTranslatorTest.Blog(""foo"") With {.ListOfInts = New List(Of Integer) From {8, 9}}") - End Sub - - - Public Sub MemberInit_with_MemberMemberBinding() - AssertExpression( - E.MemberInit( - E.[New]( - GetType(Blog).GetConstructor({GetType(String)}), - E.Constant("foo")), - E.MemberBind(GetType(Blog).GetProperty(NameOf(Blog.Details)), - E.Bind(GetType(BlogDetails).GetProperty(NameOf(BlogDetails.Foo)), E.Constant(5)), - E.ListBind(GetType(BlogDetails).GetProperty(NameOf(BlogDetails.ListOfInts)), - E.ElementInit(GetType(List(Of Integer)).GetMethod(NameOf(List(Of Integer).Add)), E.Constant(8)), - E.ElementInit(GetType(List(Of Integer)).GetMethod(NameOf(List(Of Integer).Add)), E.Constant(9))))), - "New LinqToVisualBasicTranslatorTest.Blog(""foo"") With {.Details = New LinqToVisualBasicTranslatorTest.BlogDetails With {.Foo = 5, .ListOfInts = New List(Of Integer) From {8, 9}}}") - End Sub - - - Public Sub Method_call_instance() - - Dim blogExpr = E.Parameter(GetType(Blog), "blog") - - AssertStatement( - E.Block( - variables:={blogExpr}, - E.Assign(blogExpr, E.[New](Blog.Constructor)), - E.Call( - blogExpr, - GetType(Blog).GetMethod(NameOf(Blog.SomeInstanceMethod)))), -"Dim blog As LinqToVisualBasicTranslatorTest.Blog = New LinqToVisualBasicTranslatorTest.Blog() -blog.SomeInstanceMethod()") - End Sub - - - Public Sub Method_call_static() - AssertExpression( - E.Call(ReturnsIntWithParamMethod, E.Constant(8)), - "LinqToVisualBasicTranslatorTest.ReturnsIntWithParam(8)") - End Sub - - - Public Sub Method_call_static_on_nested_type() - AssertExpression( - E.Call(GetType(Blog).GetMethod(NameOf(Blog.Static_method_on_nested_type))), - "LinqToVisualBasicTranslatorTest.Blog.Static_method_on_nested_type()") - End Sub - - - Public Sub Method_call_extension() - Dim blog = E.Parameter(GetType(LinqExpressionToRoslynTranslatorExtensionType), "someType") - - AssertStatement( - E.Block( - variables:={blog}, - E.Assign(blog, E.[New](LinqExpressionToRoslynTranslatorExtensionType.Constructor)), - E.Call(LinqExpressionToRoslynTranslatorExtensions.SomeExtensionMethod, blog)), -"Dim someType As LinqExpressionToRoslynTranslatorExtensionType = New LinqExpressionToRoslynTranslatorExtensionType() -someType.SomeExtension()") - End Sub - - - Public Sub Method_call_extension_with_null_this() - AssertExpression( - E.Call( - LinqExpressionToRoslynTranslatorExtensions.SomeExtensionMethod, - E.Constant(Nothing, GetType(LinqExpressionToRoslynTranslatorExtensionType))), - "LinqExpressionToRoslynTranslatorExtensions.SomeExtension(Nothing)") - End Sub - - - Public Sub Method_call_generic() - Dim blogExpr = E.Parameter(GetType(Blog), "blog") - - AssertStatement( - E.Block( - variables:={blogExpr}, - E.Assign(blogExpr, E.[New](Blog.Constructor)), - E.Call( - GenericMethod.MakeGenericMethod(GetType(Blog)), - blogExpr)), -"Dim blog As LinqToVisualBasicTranslatorTest.Blog = New LinqToVisualBasicTranslatorTest.Blog() -LinqToVisualBasicTranslatorTest.GenericMethodImplementation(blog)") - End Sub - - - Public Sub Method_call_namespace_is_collected() - Dim translator = CreateTranslator().Item1 - Dim namespaces As New HashSet(Of String)() - translator.TranslateExpression(E.Call(FooMethod), namespaces) - Assert.Collection(namespaces, - Sub(ns) Assert.Equal(GetType(LinqToVisualBasicTranslatorTest).Namespace, ns)) - End Sub - - - Public Sub Instantiation() - AssertExpression( - E.[New]( - GetType(Blog).GetConstructor({GetType(String)}), - E.Constant("foo")), - "New LinqToVisualBasicTranslatorTest.Blog(""foo"")") - End Sub - - - Public Sub Lambda_with_expression_body() - AssertExpression( - E.Lambda(Of Func(Of Boolean))(E.Constant(True)), - "Function() True") - End Sub - - - Public Sub Lambda_with_block_body() - Dim i = E.Parameter(GetType(Integer), "i") - - AssertExpression( - E.Lambda(Of Func(Of Integer))( - E.Block( - variables:={i}, - E.Assign(i, E.Constant(8)), - i)), -"Function() As Integer - Dim i As Integer = 8 - Return i -End Function") - End Sub - - - Public Sub Lambda_procedure_single_line() - - AssertExpression( - E.Lambda(Of Action)( - E.Call(FooMethod)), - "Sub() LinqToVisualBasicTranslatorTest.Foo()") - End Sub - - - Public Sub Lambda_procedure_with_block_body() - Dim i = E.Parameter(GetType(Integer), "i") - - AssertExpression( - E.Lambda(Of Action)( - E.Block( - variables:={i}, - E.Assign(i, E.Constant(8)), - i)), -"Sub() - Dim i As Integer = 8 -End Sub") - End Sub - - - Public Sub Lambda_with_no_parameters() - AssertExpression( - E.Lambda(Of Func(Of Boolean))(E.Constant(True)), - "Function() True") - End Sub - - - Public Sub Lambda_with_one_parameter() - Dim i = E.Parameter(GetType(Integer), "i") - - AssertExpression( - E.Lambda(Of Func(Of Integer, Boolean))(E.Constant(True), i), - "Function(i As Integer) True") - End Sub - - - Public Sub Lambda_with_two_parameters() - Dim i = E.Parameter(GetType(Integer), "i") - Dim j = E.Parameter(GetType(Integer), "j") - - AssertExpression( - E.Lambda(Of Func(Of Integer, Integer, Integer))(E.Add(i, j), i, j), - "Function(i As Integer, j As Integer) i + j") - End Sub - - - Public Sub Lambda_parameter_names_are_made_unique() - Dim i = E.Parameter(GetType(Integer), "i") - Dim i0 = E.Parameter(GetType(Integer), "i") - Dim j = E.Parameter(GetType(Integer), "j") - - AssertStatement( - E.Block( - variables:={i}, - E.Lambda(Of Func(Of Integer, Integer, Integer))(E.Add(E.Add(i, j), i0), i0, j)), -"Dim i As Integer -Dim unnamed = Function(i0 As Integer, j As Integer) i + j + i0") - End Sub - - - Public Sub Invocation_with_literal_argument() - Dim expr As Expression(Of Func(Of Integer, Boolean)) = Function(f) f > 5 - - AssertExpression( - E.AndAlso( - E.Constant(True), - E.Invoke(expr, E.Constant(8))), - "True AndAlso 8 > 5") - End Sub - - - Public Sub Invocation_with_argument_that_has_side_effects() - Dim i = E.Parameter(GetType(Integer), "i") - Dim expr As Expression(Of Func(Of Integer, Integer)) = Function(f) f + f - - AssertStatement( - E.Block( - variables:={i}, - E.Assign( - i, - E.Add( - E.Constant(5), - E.Invoke(expr, E.Call(FooMethod))))), -"Dim f = LinqToVisualBasicTranslatorTest.Foo() -Dim i As Integer = 5 + f + f") - End Sub - - - Public Sub Conditional_expression() - AssertExpression( - E.Condition(E.Constant(True), E.Constant(1), E.Constant(2)), - "If(True, 1, 2)") - End Sub - - - Public Sub Conditional_without_false_value_fails() - Assert.Throws(Of NotSupportedException)( - Sub() AssertExpression( - E.IfThen(E.Constant(True), E.Constant(8)), - "If(True, 8, )")) - End Sub - - - Public Sub Conditional_statement() - AssertStatement( - E.Block( - E.Condition(E.Constant(True), E.Call(FooMethod), E.Call(BarMethod)), - E.Constant(8)), -"If True Then - LinqToVisualBasicTranslatorTest.Foo() -Else - LinqToVisualBasicTranslatorTest.Bar() -End If") - End Sub - - - Public Sub IfThen_statement() - - Dim parameter = E.Parameter(GetType(Integer), "i") - Dim block = E.Block( - variables:={parameter}, - expressions:={E.Assign(parameter, E.Constant(8))}) - - AssertStatement( - E.Block(E.IfThen(E.Constant(True), block)), -"If True Then - Dim i As Integer = 8 -End If") - End Sub - - - Public Sub IfThenElse_statement() - Dim parameter1 = E.Parameter(GetType(Integer), "i") - Dim block1 = E.Block( - variables:={parameter1}, - expressions:={E.Assign(parameter1, E.Constant(8))}) - - Dim parameter2 = E.Parameter(GetType(Integer), "j") - Dim block2 = E.Block( - variables:={parameter2}, - expressions:={E.Assign(parameter2, E.Constant(9))}) - - AssertStatement( - E.Block(E.IfThenElse(E.Constant(True), block1, block2)), -"If True Then - Dim i As Integer = 8 -Else - Dim j As Integer = 9 -End If") - End Sub - - - Public Sub IfThenElse_nested() - - Dim Variable = E.Parameter(GetType(Integer), "i") - - AssertStatement( - E.Block( - variables:={Variable}, - expressions:={E.IfThenElse( - E.Constant(True), - E.Block(E.Assign(Variable, E.Constant(1))), - E.IfThenElse( - E.Constant(False), - E.Block(E.Assign(Variable, E.Constant(2))), - E.IfThenElse( - E.Constant(False), - E.Block(E.Assign(Variable, E.Constant(3))), - E.Block({E.Assign(Variable, E.Constant(4)), - E.Add(E.Constant(5), E.Constant(6))}))))}), -"Dim i As Integer -If True Then - i = 1 -ElseIf False - i = 2 -ElseIf False - i = 3 -Else - i = 4 - Dim unnamed = 5 + 6 -End If") - End Sub - - - Public Sub Conditional_expression_with_block_in_lambda() - AssertExpression( - E.Lambda(Of Func(Of Integer))( - E.Condition( - E.Constant(True), - E.Block( - E.Call(FooMethod), - E.Constant(8)), - E.Constant(9))), -"Function() As Integer - If True Then - LinqToVisualBasicTranslatorTest.Foo() - Return 8 - Else - Return 9 - End If -End Function") - End Sub - - - Public Sub IfThen_with_block_inside_expression_block_with_lifted_statements() - Dim i = E.Parameter(GetType(Integer), "i") - - AssertStatement( - E.Block( - variables:={i}, - E.Assign( - i, E.Block( ' We're in expression context. Do anything that will get lifted. - E.Call(FooMethod), ' Statement condition - E.IfThen( - E.Constant(True), - E.Block( - E.Call(BarMethod), - E.Call(BazMethod))), ' Last expression (to make the block above evaluate as statement - E.Constant(8)))), -"LinqToVisualBasicTranslatorTest.Foo() -If True Then - LinqToVisualBasicTranslatorTest.Bar() - LinqToVisualBasicTranslatorTest.Baz() -End If -Dim i As Integer = 8") - End Sub - - - Public Sub Switch_expression() - AssertExpression( - E.Switch( - E.Constant(8), - E.Constant(0), - E.SwitchCase(E.Constant(-9), E.Constant(9)), - E.SwitchCase(E.Constant(-10), E.Constant(10))), - "If(8 = 9, -9, If(8 = 10, -10, 0))") - End Sub - - - Public Sub Switch_expression_nested() - Dim i = E.Parameter(GetType(Integer), "i") - Dim j = E.Parameter(GetType(Integer), "j") - Dim k = E.Parameter(GetType(Integer), "k") - - AssertStatement( - E.Block( - variables:={i, j, k}, - E.Assign(j, E.Constant(8)), - E.Assign( - i, - E.Switch( - j, - defaultBody:=E.Constant(0), - E.SwitchCase(E.Constant(1), E.Constant(100)), - E.SwitchCase( - E.Switch( - k, - defaultBody:=E.Constant(0), - E.SwitchCase(E.Constant(2), E.Constant(200)), - E.SwitchCase(E.Constant(3), E.Constant(300))), - E.Constant(200))))), -"Dim k As Integer -Dim j As Integer = 8 -Dim i As Integer = If(j = 100, 1, If(j = 200, If(k = 200, 2, If(k = 300, 3, 0)), 0))") - End Sub - - - Public Sub Switch_expression_with_reference_equality() - AssertExpression( - E.Switch( - E.Parameter(GetType(Blog), "blog1"), - E.Constant(0), - E.SwitchCase(E.Constant(2), E.Parameter(GetType(Blog), "blog2")), - E.SwitchCase(E.Constant(3), E.Parameter(GetType(Blog), "blog3"))), - "If(blog1 Is blog2, 2, If(blog1 Is blog3, 3, 0))") - End Sub - - - Public Sub Switch_statement_with_reference_equality() - AssertStatement( - E.Switch( - E.Convert(E.Parameter(GetType(Blog), "blog1"), GetType(Object)), - E.Constant(0), - E.SwitchCase(E.Constant(1), E.Convert(E.Parameter(GetType(Blog), "blog2"), GetType(Object))), - E.SwitchCase(E.Constant(2), E.Convert(E.Parameter(GetType(Blog), "blog3"), GetType(Object)))), -"If CType(blog1, Object) Is CType(blog2, Object) Then - Dim unnamed = 1 -ElseIf CType(blog1, Object) Is CType(blog3, Object) - Dim unnamed = 2 -Else - Dim unnamed = 0 -End If") - End Sub - - - Public Sub Switch_statement_without_default() - Dim parameter = E.Parameter(GetType(Integer), "i") - - AssertStatement( - E.Block( - variables:={parameter}, - expressions:={E.Switch( - E.Constant(7), - E.SwitchCase(E.Block(GetType(Void), E.Assign(parameter, E.Constant(9))), E.Constant(-9)), - E.SwitchCase(E.Block(GetType(Void), E.Assign(parameter, E.Constant(10))), E.Constant(-10)))}), -"Dim i As Integer -Select 7 - Case -9 - i = 9 - Case -10 - i = 10 -End Select") - End Sub - - - Public Sub Switch_statement_with_default() - Dim parameter = E.Parameter(GetType(Integer), "i") - - AssertStatement( - E.Block( - variables:={parameter}, - expressions:={E.Switch( - E.Constant(7), - E.Assign(parameter, E.Constant(0)), - E.SwitchCase(E.Assign(parameter, E.Constant(9)), E.Constant(-9)), - E.SwitchCase(E.Assign(parameter, E.Constant(10)), E.Constant(-10)))}), -"Dim i As Integer -Select 7 - Case -9 - i = 9 - Case -10 - i = 10 - Case Else - i = 0 -End Select") - End Sub - - - Public Sub Switch_statement_with_multiple_labels() - - Dim parameter = E.Parameter(GetType(Integer), "i") - - AssertStatement( - E.Block( - variables:={parameter}, - expressions:={E.Switch( - E.Constant(7), - E.Assign(parameter, E.Constant(0)), - E.SwitchCase(E.Assign(parameter, E.Constant(9)), E.Constant(-9), E.Constant(-8)), - E.SwitchCase(E.Assign(parameter, E.Constant(10)), E.Constant(-10)))}), -"Dim i As Integer -Select 7 - Case -9, -8 - i = 9 - Case -10 - i = 10 - Case Else - i = 0 -End Select") - End Sub - - - Public Sub Variable_assignment_uses_Dim() - Dim i = E.Parameter(GetType(Integer), "i") - - AssertStatement( - E.Block( - variables:={i}, - E.Assign(i, E.Constant(8))), -"Dim i As Integer = 8") - End Sub - - - Public Sub Variable_assignment_to_nothing() - Dim s = E.Parameter(GetType(String), "s") - - AssertStatement( - E.Block( - variables:={s}, - E.Assign(s, E.Constant(Nothing, GetType(String)))), - "Dim s As String = Nothing") - End Sub - - - Public Sub Variables_with_same_name_in_sibling_blocks_do_get_renamed() - Dim i1 = E.Parameter(GetType(Integer), "i") - Dim i2 = E.Parameter(GetType(Integer), "i") - - AssertStatement( - E.Block( - E.Block( - variables:={i1}, - E.Assign(i1, E.Constant(8)), - E.Call(ReturnsIntWithParamMethod, i1)), - E.Block( - variables:={i2}, - E.Assign(i2, E.Constant(8)), - E.Call(ReturnsIntWithParamMethod, i2))), -"Dim i As Integer = 8 -LinqToVisualBasicTranslatorTest.ReturnsIntWithParam(i) -Dim i As Integer = 8 -LinqToVisualBasicTranslatorTest.ReturnsIntWithParam(i)") - End Sub - - - Public Sub Variable_with_same_name_in_child_block_gets_renamed() - - Dim i1 = E.Parameter(GetType(Integer), "i") - Dim i2 = E.Parameter(GetType(Integer), "i") - - AssertStatement( - E.Block( - variables:={i1}, - E.Assign(i1, E.Constant(8)), - E.Call(ReturnsIntWithParamMethod, i1), - E.Block( - variables:={i2}, - E.Assign(i2, E.Constant(8)), - E.Call(ReturnsIntWithParamMethod, i2), - E.Call(ReturnsIntWithParamMethod, i1))), -"Dim i As Integer = 8 -LinqToVisualBasicTranslatorTest.ReturnsIntWithParam(i) -Dim i0 As Integer = 8 -LinqToVisualBasicTranslatorTest.ReturnsIntWithParam(i0) -LinqToVisualBasicTranslatorTest.ReturnsIntWithParam(i)") - End Sub - - - Public Sub Variable_with_same_name_in_lambda_get_renamed() - - Dim i1 = E.Parameter(GetType(Integer), "i") - Dim i2 = E.Parameter(GetType(Integer), "i") - Dim f = E.Parameter(GetType(Func(Of Integer, Boolean)), "f") - - AssertStatement( - E.Block( - variables:={i1}, - E.Assign(i1, E.Constant(8)), - E.Assign( - f, E.Lambda(Of Func(Of Integer, Boolean))( - E.Equal(i2, E.Constant(5)), - i2))), -"Dim i As Integer = 8 -f = Function(i0 As Integer) i0 = 5") - End Sub - - - Public Sub Same_parameter_instance_is_used_twice_in_nested_lambdas() - Dim f1 = E.Parameter(GetType(Func(Of Integer, Boolean)), "f1") - Dim f2 = E.Parameter(GetType(Func(Of Integer, Boolean)), "f2") - Dim i = E.Parameter(GetType(Integer), "i") - - AssertStatement( - E.Assign( - f1, - E.Lambda(Of Func(Of Integer, Boolean))( - E.Block( - E.Assign( - f2, - E.Lambda(Of Func(Of Integer, Boolean))( - E.Equal(i, E.Constant(5)), - i)), - E.Constant(True)), - i)), -"f1 = Function(i As Integer) As Boolean - f2 = Function(i0 As Integer) i0 = 5 - Return True -End Function") - End Sub - - - Public Sub Block_with_non_standalone_expression_as_statement() - AssertStatement( - E.Block(E.Add(E.Constant(1), E.Constant(2))), - "Dim unnamed = 1 + 2") - End Sub - - - Public Sub Lift_block_in_assignment_context() - Dim i = E.Parameter(GetType(Integer), "i") - Dim j = E.Parameter(GetType(Integer), "j") - - AssertStatement( - E.Block( - variables:={i}, - E.Assign(i, E.Block( - variables:={j}, - E.Assign(j, E.Call(FooMethod)), - E.Call(ReturnsIntWithParamMethod, j)))), -"Dim j As Integer = LinqToVisualBasicTranslatorTest.Foo() -Dim i As Integer = LinqToVisualBasicTranslatorTest.ReturnsIntWithParam(j)") - End Sub - - - Public Sub Lift_block_in_method_call_context() - AssertStatement( - E.Block( - E.Call( - ReturnsIntWithParamMethod, - E.Block( - E.Call(FooMethod), - E.Call(BarMethod)))), -"LinqToVisualBasicTranslatorTest.Foo() -LinqToVisualBasicTranslatorTest.ReturnsIntWithParam(LinqToVisualBasicTranslatorTest.Bar())") - End Sub - - - Public Sub Lift_nested_block() - Dim i = E.Parameter(GetType(Integer), "i") - Dim j = E.Parameter(GetType(Integer), "j") - - AssertStatement( - E.Block(variables:={i}, - E.Assign( - i, - E.Block( - variables:={j}, - E.Assign(j, E.Call(FooMethod)), - E.Block( - E.Call(BarMethod), - E.Call(ReturnsIntWithParamMethod, j))))), -"Dim j As Integer = LinqToVisualBasicTranslatorTest.Foo() -LinqToVisualBasicTranslatorTest.Bar() -Dim i As Integer = LinqToVisualBasicTranslatorTest.ReturnsIntWithParam(j)") - End Sub - - - Public Sub Binary_lifts_left_side_if_right_is_lifted() - - Dim i = E.Parameter(GetType(Integer), "i") - - AssertStatement( - E.Block( - variables:={i}, - E.Assign(i, - E.Add( - E.Call(FooMethod), - E.Block( - E.Call(BarMethod), - E.Call(BazMethod))))), -"Dim lifted = LinqToVisualBasicTranslatorTest.Foo() -LinqToVisualBasicTranslatorTest.Bar() -Dim i As Integer = lifted + LinqToVisualBasicTranslatorTest.Baz()") - End Sub - - - Public Sub Binary_does_not_lift_left_side_if_it_has_no_side_effects() - Dim i = E.Parameter(GetType(Integer), "i") - - AssertStatement( - E.Block( - variables:={i}, - E.Assign(i, - E.Add( - E.Constant(5), - E.Block( - E.Call(BarMethod), - E.Call(BazMethod))))), -"LinqToVisualBasicTranslatorTest.Bar() -Dim i As Integer = 5 + LinqToVisualBasicTranslatorTest.Baz()") - End Sub - - - Public Sub Method_lifts_earlier_args_if_later_arg_is_lifted() - Dim i = E.Parameter(GetType(Integer), "i") - - AssertStatement( - E.Block( - variables:={i}, - E.Assign(i, - E.Call( - GetType(LinqToVisualBasicTranslatorTest).GetMethod(NameOf(MethodWithSixParams)), - E.Call(FooMethod), - E.Constant(5), - E.Block(E.Call(BarMethod), E.Call(BazMethod)), - E.Call(FooMethod), - E.Block(E.Call(BazMethod), E.Call(BarMethod)), - E.Call(FooMethod)))), -"Dim liftedArg = LinqToVisualBasicTranslatorTest.Foo() -LinqToVisualBasicTranslatorTest.Bar() -Dim liftedArg0 = LinqToVisualBasicTranslatorTest.Baz() -Dim liftedArg1 = LinqToVisualBasicTranslatorTest.Foo() -LinqToVisualBasicTranslatorTest.Baz() -Dim i As Integer = LinqToVisualBasicTranslatorTest.MethodWithSixParams(liftedArg, 5, liftedArg0, liftedArg1, LinqToVisualBasicTranslatorTest.Bar(), LinqToVisualBasicTranslatorTest.Foo())") - End Sub - - - Public Sub New_lifts_earlier_args_if_later_arg_is_lifted() - Dim b = E.Parameter(GetType(Blog), "b") - - AssertStatement( - E.Block( - variables:={b}, - E.Assign(b, - E.[New]( - GetType(Blog).GetConstructor({GetType(Integer), GetType(Integer)}), - E.Call(FooMethod), - E.Block( - E.Call(BarMethod), - E.Call(BazMethod))))), -"Dim liftedArg = LinqToVisualBasicTranslatorTest.Foo() -LinqToVisualBasicTranslatorTest.Bar() -Dim b As LinqToVisualBasicTranslatorTest.Blog = New LinqToVisualBasicTranslatorTest.Blog(liftedArg, LinqToVisualBasicTranslatorTest.Baz())") - End Sub - - - Public Sub Index_lifts_earlier_args_if_later_arg_is_lifted() - ' TODO: Implement - End Sub - - - Public Sub New_array() - AssertExpression( - E.NewArrayInit(GetType(Integer)), - "New Integer() {}") - End Sub - - - Public Sub New_array_with_bounds() - AssertExpression( - E.NewArrayBounds(GetType(Integer), E.Constant(3)), - "New Integer(3 - 1) {}") - End Sub - - - Public Sub New_array_with_initializers() - AssertExpression( - E.NewArrayInit(GetType(Integer), E.Constant(3), E.Constant(4)), - "New Integer() {3, 4}") - End Sub - - - Public Sub New_array_lifts_earlier_args_if_later_arg_is_lifted() - Dim a = E.Parameter(GetType(Integer()), "a") - - AssertStatement( - E.Block( - variables:={a}, - E.Assign(a, - E.NewArrayInit( - GetType(Integer), - E.Call(FooMethod), - E.Block( - E.Call(BarMethod), - E.Call(BazMethod))))), -"Dim liftedArg = LinqToVisualBasicTranslatorTest.Foo() -LinqToVisualBasicTranslatorTest.Bar() -Dim a As Integer() = New Integer() {liftedArg, LinqToVisualBasicTranslatorTest.Baz()}") - End Sub - - - Public Sub Lift_variable_in_expression_block() - - Dim i = E.Parameter(GetType(Integer), "i") - Dim j = E.Parameter(GetType(Integer), "j") - - AssertStatement( - E.Block( - variables:={i}, - E.Assign(i, E.Block( - variables:={j}, - E.Block( - E.Call(FooMethod), - E.Assign(j, E.Constant(8)), - E.Constant(9))))), -"Dim j As Integer -LinqToVisualBasicTranslatorTest.Foo() -j = 8 -Dim i As Integer = 9") - End Sub - - - Public Sub Lift_block_in_lambda_body_expression() - AssertExpression( - E.Lambda(Of Func(Of Integer))( - E.Call( - ReturnsIntWithParamMethod, - E.Block( - E.Call(FooMethod), - E.Call(BarMethod))), - Array.Empty(Of ParameterExpression)()), -"Function() As Integer - LinqToVisualBasicTranslatorTest.Foo() - Return LinqToVisualBasicTranslatorTest.ReturnsIntWithParam(LinqToVisualBasicTranslatorTest.Bar()) -End Function") - End Sub - - - Public Sub Do_not_lift_block_in_lambda_body() - AssertExpression( - E.Lambda(Of Func(Of Integer))( - E.Block(E.Block(E.Constant(8))), - Array.Empty(Of ParameterExpression)()), - "Function() Return 8") - End Sub - - - Public Sub Simplify_block_with_single_expression() - AssertStatement( - E.Assign(E.Parameter(GetType(Integer), "i"), E.Block(E.Constant(8))), - "i = 8") - End Sub - - - Public Sub Cannot_lift_out_of_expression_context() - Assert.Throws(Of NotSupportedException)( - Sub() AssertExpression( - E.Assign( - E.Parameter(GetType(Integer), "i"), - E.Block( - E.Call(FooMethod), - E.Constant(8))), - "")) - End Sub - - - Public Sub Lift_switch_expression() - - Dim i = E.Parameter(GetType(Integer), "i") - Dim j = E.Parameter(GetType(Integer), "j") - Dim k = E.Parameter(GetType(Integer), "k") - - AssertStatement( - E.Block( - variables:={i, j}, - E.Assign(j, E.Constant(8)), - E.Assign( - i, - E.Switch( - j, - defaultBody:=E.Block(E.Constant(0)), - E.SwitchCase( - E.Block( - E.Block( - E.Assign(k, E.Call(FooMethod)), - E.Call(ReturnsIntWithParamMethod, k))), - E.Constant(8)), - E.SwitchCase(E.Constant(2), E.Constant(9))))), -"Dim i As Integer -Dim j As Integer = 8 -Select j - Case 8 - k = LinqToVisualBasicTranslatorTest.Foo() - i = LinqToVisualBasicTranslatorTest.ReturnsIntWithParam(k) - Case 9 - i = 2 - Case Else - i = 0 -End Select") - End Sub - - - Public Sub Lift_nested_switch_expression() - Dim i = E.Parameter(GetType(Integer), "i") - Dim j = E.Parameter(GetType(Integer), "j") - Dim k = E.Parameter(GetType(Integer), "k") - Dim l = E.Parameter(GetType(Integer), "l") - - AssertStatement( - E.Block( - variables:={i, j, k}, - E.Assign(j, E.Constant(8)), - E.Assign( - i, - E.Switch( - j, - defaultBody:=E.Constant(0), - E.SwitchCase(E.Constant(1), E.Constant(100)), - E.SwitchCase( - E.Switch( - k, - defaultBody:=E.Constant(0), - E.SwitchCase( - E.Block( - variables:={l}, - E.Assign(l, E.Call(FooMethod)), - E.Call(ReturnsIntWithParamMethod, l)), - E.Constant(200)), - E.SwitchCase(E.Constant(3), E.Constant(300))), - E.Constant(200))))), -"Dim i As Integer -Dim k As Integer -Dim j As Integer = 8 -Select j - Case 100 - i = 1 - Case 200 - Select k - Case 200 - Dim l As Integer = LinqToVisualBasicTranslatorTest.Foo() - i = LinqToVisualBasicTranslatorTest.ReturnsIntWithParam(l) - Case 300 - i = 3 - Case Else - i = 0 - End Select - - Case Else - i = 0 -End Select") - End Sub - - - Public Sub ListInit_node() - AssertExpression( - E.ListInit( - E.[New](GetType(List(Of Integer))), - GetType(List(Of Integer)).GetMethod(NameOf(List(Of Integer).Add)), - E.Constant(8), - E.Constant(9)), - "New List(Of Integer)() From {8, 9}") - End Sub - - - Public Sub TypeEqual_node() - AssertExpression( - E.TypeEqual(E.Parameter(GetType(Object), "p"), GetType(Integer)), - "p.GetType() = GetType(Integer)") - End Sub - - - Public Sub TypeIs_node() - AssertExpression( - E.TypeIs(E.Parameter(GetType(Object), "p"), GetType(Integer)), - "TypeOf p Is Integer") - End Sub - - - Public Sub Goto_with_named_label() - Dim labelTarget = E.Label("label1") - - AssertStatement( - E.Block( - E.Goto(labelTarget), - E.Label(labelTarget), - E.Call(FooMethod)), -"GoTo label1 -label1: -LinqToVisualBasicTranslatorTest.Foo()") - End Sub - - - Public Sub Goto_with_label_on_last_line() - Dim labelTarget = E.Label("label1") - - AssertStatement( - E.Block( - E.Goto(labelTarget), - E.Label(labelTarget)), -"GoTo label1 -label1:") - End Sub - - - Public Sub Goto_outside_label() - - Dim labelTarget = E.Label() - - AssertStatement( - E.Block( - E.IfThen( - E.Constant(True), - E.Block( - E.Call(FooMethod), - E.Goto(labelTarget))), - E.Label(labelTarget)), -"If True Then - LinqToVisualBasicTranslatorTest.Foo() - GoTo unnamedLabel -End If -unnamedLabel:") - End Sub - - - Public Sub Goto_with_unnamed_labels_in_sibling_blocks() - Dim labelTarget1 = E.Label() - Dim labelTarget2 = E.Label() - - AssertStatement( - E.Block( - E.Block( - E.Goto(labelTarget1), - E.Label(labelTarget1)), - E.Block( - E.Goto(labelTarget2), - E.Label(labelTarget2))), -"GoTo unnamedLabel -unnamedLabel: -GoTo unnamedLabel0 -unnamedLabel0:") - End Sub - - - Public Sub Loop_statement_infinite() - AssertStatement( - E.Loop(E.Call(FooMethod)), -"While True - LinqToVisualBasicTranslatorTest.Foo() -End While") - End Sub - - - Public Sub Loop_statement_with_break_and_continue() - Dim i = E.Parameter(GetType(Integer), "i") - Dim breakLabel = E.Label() - Dim continueLabel = E.Label() - - AssertStatement( - E.Block( - variables:={i}, - E.Assign(i, E.Constant(0)), - E.Loop( - E.Block( - E.IfThen( - E.Equal(i, E.Constant(100)), - E.Break(breakLabel)), - E.IfThen( - E.Equal(E.Modulo(i, E.Constant(2)), E.Constant(0)), - E.Continue(continueLabel)), - E.AddAssign(i, E.Constant(1, GetType(Integer)))), - breakLabel, - continueLabel)), -"Dim i As Integer = 0 -While True -unnamedLabel0: - If i = 100 Then - GoTo unnamedLabel - End If - - If i Mod 2 = 0 Then - GoTo unnamedLabel0 - End If - - i += 1 -End While -unnamedLabel:") - End Sub - - - Public Sub Try_catch_statement() - Dim expr = E.Parameter(GetType(InvalidOperationException), "e") - - AssertStatement( - E.TryCatch( - E.Call(FooMethod), - E.Catch(expr, E.Call(BarMethod)), - E.Catch(expr, E.Call(BazMethod))), -"Try - LinqToVisualBasicTranslatorTest.Foo() -Catch e As InvalidOperationException - LinqToVisualBasicTranslatorTest.Bar() -Catch e As InvalidOperationException - LinqToVisualBasicTranslatorTest.Baz() -End Try") - End Sub - - - Public Sub Try_finally_statement() - AssertStatement( - E.TryFinally( - E.Call(FooMethod), - E.Call(BarMethod)), -"Try - LinqToVisualBasicTranslatorTest.Foo() -Finally - LinqToVisualBasicTranslatorTest.Bar() -End Try") - End Sub - - - Public Sub Try_catch_finally_statement() - - Dim expr = E.Parameter(GetType(InvalidOperationException), "e") - - AssertStatement( - E.TryCatchFinally( - E.Call(FooMethod), - E.Block( - E.Call(BarMethod), - E.Call(BazMethod)), - E.Catch(expr, E.Call(BarMethod)), - E.Catch( - expr, - E.Call(BazMethod), - E.Equal( - E.Property(expr, NameOf(Exception.Message)), - E.Constant("foo")))), -"Try - LinqToVisualBasicTranslatorTest.Foo() -Catch e As InvalidOperationException - LinqToVisualBasicTranslatorTest.Bar() -Catch e As InvalidOperationException When e.Message = ""foo"" - LinqToVisualBasicTranslatorTest.Baz() -Finally - LinqToVisualBasicTranslatorTest.Bar() - LinqToVisualBasicTranslatorTest.Baz() -End Try") - End Sub - - - Public Sub Try_catch_statement_with_filter() - Dim expr = E.Parameter(GetType(InvalidOperationException), "e") - - AssertStatement( - E.TryCatch( - E.Call(FooMethod), - E.Catch( - expr, - E.Call(BarMethod), - E.Equal( - E.Property(expr, NameOf(Exception.Message)), - E.Constant("foo")))), -"Try - LinqToVisualBasicTranslatorTest.Foo() -Catch e As InvalidOperationException When e.Message = ""foo"" - LinqToVisualBasicTranslatorTest.Bar() -End Try") - End Sub - - - Public Sub Try_catch_statement_without_exception_reference() - AssertStatement( - E.TryCatch( - E.Call(FooMethod), - E.Catch( - GetType(InvalidOperationException), - E.Call(BarMethod))), -"Try - LinqToVisualBasicTranslatorTest.Foo() -Catch unnamed As InvalidOperationException - LinqToVisualBasicTranslatorTest.Bar() -End Try") - End Sub - - - Public Sub Try_fault_statement() - AssertStatement( - E.TryFault( - E.Call(FooMethod), - E.Call(BarMethod)), -"Try - LinqToVisualBasicTranslatorTest.Foo() -Catch - LinqToVisualBasicTranslatorTest.Bar() -End Try") - End Sub - - 'TODO Try/Catch expressions - - Private Sub AssertStatement(expression As Expression, expected As String) - AssertCore(expression, isStatement:=True, expected) - End Sub - - Private Sub AssertExpression(expression As Expression, expected As String) - AssertCore(expression, isStatement:=False, expected) - End Sub - - Private Sub AssertCore(expression As Expression, isStatement As Boolean, expected As String) - Dim typeMappingSource As New SqlServerTypeMappingSource( - TestServiceFactory.Instance.Create(Of TypeMappingSourceDependencies)(), - New RelationalTypeMappingSourceDependencies(Array.Empty(Of IRelationalTypeMappingSourcePlugin)())) - - Dim translator = New VisualBasicHelper(typeMappingSource) - Dim namespaces = New HashSet(Of String)() - Dim actual = If(isStatement, - translator.Statement(expression, namespaces), - translator.Expression(expression, namespaces)) - - If _outputExpressionTrees Then - _testOutputHelper.WriteLine("---- Input LINQ expression tree:") - _testOutputHelper.WriteLine(_expressionPrinter.PrintExpression(expression)) - End If - - ' TODO Actually compile the output VB code To make sure it's valid. - - Try - Assert.Equal(expected, actual.TrimEnd({vbCr(0), vbLf(0)}), ignoreLineEndingDifferences:=True) - - If _outputExpressionTrees Then - _testOutputHelper.WriteLine("---- Output Roslyn syntax tree:") - _testOutputHelper.WriteLine(actual) - End If - Catch ex As EqualException - _testOutputHelper.WriteLine("---- Output Roslyn syntax tree:") - _testOutputHelper.WriteLine(actual) - - Throw - End Try - End Sub - - Private Function CreateTranslator() As (LinqToVisualBasicSyntaxTranslator, AdhocWorkspace) - Dim workspace As New AdhocWorkspace() - Dim syntaxGenerator = Editing.SyntaxGenerator.GetGenerator(workspace, LanguageNames.VisualBasic) - Return (New LinqToVisualBasicSyntaxTranslator(syntaxGenerator), workspace) - End Function - - Private Shared ReadOnly ReturnsIntWithParamMethod As MethodInfo = - GetType(LinqToVisualBasicTranslatorTest).GetMethod(NameOf(ReturnsIntWithParam)) - - Public Shared Function ReturnsIntWithParam(i As Integer) As Integer - Return i + 1 - End Function - - Private Shared ReadOnly GenericMethod As MethodInfo = - GetType(LinqToVisualBasicTranslatorTest).GetMethods().Single(Function(m) m.Name = NameOf(GenericMethodImplementation)) - - Public Shared Function GenericMethodImplementation(Of T)(value As T) As Integer - Return 0 - End Function - - Private Shared ReadOnly FooMethod As MethodInfo = - GetType(LinqToVisualBasicTranslatorTest).GetMethod(NameOf(Foo)) - - Public Shared Function Foo() As Integer - Return 1 - End Function - - Private Shared ReadOnly BarMethod As MethodInfo = - GetType(LinqToVisualBasicTranslatorTest).GetMethod(NameOf(Bar)) - - Public Shared Function Bar() As Integer - Return 1 - End Function - - Private Shared ReadOnly BazMethod As MethodInfo = - GetType(LinqToVisualBasicTranslatorTest).GetMethod(NameOf(Baz)) - - Public Shared Function Baz() As Integer - Return 1 - End Function - - Public Shared Function MethodWithSixParams(a%, b%, c%, d%, e%, f%) As Integer - Return a + b + c + d + e + f - End Function - - Private Class Blog - - Public PublicField As Integer - Public Property PublicProperty As Integer - - Friend InternalField As Integer - Friend Property InternalProperty As Integer - - Private _privateField As Integer - Private Property PrivateProperty As Integer - - Public Property ListOfInts As New List(Of Integer) - Public Property Details As New BlogDetails - - Public Sub New() : End Sub - Public Sub New(name As String) : End Sub - Public Sub New(foo As Integer, bar As Integer) : End Sub - - Public Function SomeInstanceMethod() As Integer - Return 3 - End Function - - Public Shared ReadOnly Constructor As ConstructorInfo = - GetType(Blog).GetConstructor(Array.Empty(Of Type)()) - - Public Shared Function Static_method_on_nested_type() As Integer - Return 3 - End Function - End Class - - Public Class BlogDetails - Public Property Foo As Integer - Public Property ListOfInts As New List(Of Integer) - End Class - - - Public Enum SomeEnum - One = 1 - Two = 2 - End Enum - - Private ReadOnly _expressionPrinter As New ExpressionPrinter - Private ReadOnly _outputExpressionTrees As Boolean - End Class - - Friend Class LinqExpressionToRoslynTranslatorExtensionType - - Public Shared ReadOnly Constructor As ConstructorInfo = - GetType(LinqExpressionToRoslynTranslatorExtensionType).GetConstructor(Array.Empty(Of Type)()) - End Class - - Friend Module LinqExpressionToRoslynTranslatorExtensions - Public ReadOnly SomeExtensionMethod As MethodInfo = - GetType(LinqExpressionToRoslynTranslatorExtensions).GetMethod( - NameOf(SomeExtension), {GetType(LinqExpressionToRoslynTranslatorExtensionType)}) - - - Public Function SomeExtension(someType As LinqExpressionToRoslynTranslatorExtensionType) As Integer - Return 3 - End Function - End Module -End Namespace diff --git a/Test/EFCore.VisualBasic.Test/EFCore.VisualBasic.Test.vbproj b/Test/EFCore.VisualBasic.Test/EFCore.VisualBasic.Test.vbproj index 50a689a..be99464 100644 --- a/Test/EFCore.VisualBasic.Test/EFCore.VisualBasic.Test.vbproj +++ b/Test/EFCore.VisualBasic.Test/EFCore.VisualBasic.Test.vbproj @@ -25,7 +25,7 @@ - + all diff --git a/Test/EFCore.VisualBasic.Test/Scaffolding/Internal/VisualBasicRuntimeModelCodeGeneratorTest.vb b/Test/EFCore.VisualBasic.Test/Scaffolding/Internal/VisualBasicRuntimeModelCodeGeneratorTest.vb deleted file mode 100644 index ad4a7cf..0000000 --- a/Test/EFCore.VisualBasic.Test/Scaffolding/Internal/VisualBasicRuntimeModelCodeGeneratorTest.vb +++ /dev/null @@ -1,63575 +0,0 @@ -Imports System.ComponentModel -Imports System.ComponentModel.DataAnnotations.Schema -Imports System.Data -Imports System.Linq.Expressions -Imports System.Net -Imports System.Net.NetworkInformation -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Design -Imports EntityFrameworkCore.VisualBasic.Design.AnnotationCodeGeneratorProvider -Imports EntityFrameworkCore.VisualBasic.Design.Internal -Imports EntityFrameworkCore.VisualBasic.Migrations.Design.VisualBasicMigrationsGeneratorTests -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.ChangeTracking.Internal -Imports Microsoft.EntityFrameworkCore.Cosmos.ValueGeneration.Internal -Imports Microsoft.EntityFrameworkCore.Design -Imports Microsoft.EntityFrameworkCore.Diagnostics -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.InMemory.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Internal -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Metadata.Builders -Imports Microsoft.EntityFrameworkCore.Metadata.Internal -Imports Microsoft.EntityFrameworkCore.Query.SqlExpressions -Imports Microsoft.EntityFrameworkCore.Scaffolding -Imports Microsoft.EntityFrameworkCore.Sqlite.Design.Internal -Imports Microsoft.EntityFrameworkCore.SqlServer.Design.Internal -Imports Microsoft.EntityFrameworkCore.SqlServer.Metadata.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion -Imports Microsoft.EntityFrameworkCore.ValueGeneration.Internal -Imports Microsoft.Extensions.DependencyInjection -Imports NetTopologySuite -Imports NetTopologySuite.Geometries -Imports Newtonsoft.Json.Linq -Imports Xunit - -Namespace Global - Public Class GlobalNamespaceContext - Inherits ContextBase - - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - MyBase.OnModelCreating(modelBuilder) - - modelBuilder.Entity("1", - Sub(e) - e.Property(Of Integer)("Id") - e.HasKey("Id") - End Sub) - End Sub - End Class -End Namespace - -Namespace Scaffolding.Internal - Public Class VisualBasicRuntimeModelCodeGeneratorTest - - - Public Sub Self_referential_property() - Test(New TestModel.Internal.SelfReferentialDbContext(), - CreateCompiledModelCodeGenerationOptions(), - assertModel:=Sub(Model) - Assert.Single(Model.GetEntityTypes()) - Assert.Same(Model, Model.FindRuntimeAnnotationValue("ReadOnlyModel")) - End Sub - ) - End Sub - - - Public Sub Empty_model() - - Dim rm1 As String = - -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - - Public Partial Class EmptyContextModel - Inherits RuntimeModel - - Private Shared ReadOnly _useOldBehavior31751 As Boolean - - Private Shared _Instance As EmptyContextModel - Public Shared ReadOnly Property Instance As IModel - Get - Return _Instance - End Get - End Property - - Shared Sub New() - Dim enabled31751 As Boolean - _useOldBehavior31751 = System.AppContext.TryGetSwitch("Microsoft.EntityFrameworkCore.Issue31751", enabled31751) AndAlso enabled31751 - - Dim model As New EmptyContextModel() - If _useOldBehavior31751 Then - model.Initialize() - Else - Dim thread = New System.Threading.Thread(Sub() model.Initialize(), 10 * 1024 * 1024) - thread.Start() - thread.Join() - End If - - model.Customize() - _Instance = model - End Sub - - Partial Private Sub Initialize() - End Sub - - Partial Private Sub Customize() - End Sub - End Class -End Namespace -]]>.Value - - Dim rm2 As String = - -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Public Partial Class EmptyContextModel - - Private Sub Initialize() - End Sub - End Class -End Namespace -]]>.Value - - Test(New EmptyContext(), - CreateCompiledModelCodeGenerationOptions(), - Sub(code) - Assert. - Collection(code, - Sub(c) AssertFileContents("EmptyContextModel.vb", rm1, c), - Sub(c) AssertFileContents("EmptyContextModelBuilder.vb", rm2, c)) - End Sub, - Sub(Model) - Assert.Empty(Model.GetEntityTypes()) - Assert.Same(Model, Model.FindRuntimeAnnotationValue("ReadOnlyModel")) - End Sub) - End Sub - - Public Class EmptyContext - Inherits ContextBase - End Class - - - Public Sub Global_Namespace_works() - Test(New GlobalNamespaceContext(), - New CompiledModelCodeGenerationOptions With { - .Language = "VB", - .ModelNamespace = String.Empty - }, - Sub(code) - Assert.All(code, Sub(f) Assert.DoesNotContain("Namespace ", f.Code)) - End Sub, - Sub(Model) - Assert.NotNull(Model.FindEntityType("1")) - End Sub) - End Sub - - - Public Sub Throws_for_constructor_binding() - Test( - New ConstructorBindingContext(), - CreateCompiledModelCodeGenerationOptions(), - expectedExceptionMessage:=DesignStrings.CompiledModelConstructorBinding("Lazy", "Customize()", "LazyEntityType")) - End Sub - - Public Class ConstructorBindingContext - Inherits ContextBase - - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - MyBase.OnModelCreating(modelBuilder) - - modelBuilder.Entity( - "Lazy", Sub(e) - e.Property(Of Integer)("Id") - e.HasKey("Id") - DirectCast(e.Metadata, EntityType).ConstructorBinding = New ConstructorBinding( - GetType(Object).GetConstructor(Type.EmptyTypes), - Array.Empty(Of ParameterBinding)()) - End Sub) - End Sub - - Protected Overrides Sub OnConfiguring(options As DbContextOptionsBuilder) - MyBase.OnConfiguring(options.UseLazyLoadingProxies()) - End Sub - End Class - - - Public Sub Manual_lazy_loading() - Test( - New LazyLoadingContext(), - CreateCompiledModelCodeGenerationOptions(), - assertModel:= - Sub(Model) - Dim lazyConstructorEntity = Model.FindEntityType(GetType(LazyConstructorEntity)) - Dim lazyParameterBinding = lazyConstructorEntity.ConstructorBinding.ParameterBindings.Single() - Assert.Equal(GetType(ILazyLoader), lazyParameterBinding.ParameterType) - - Dim lazyPropertyEntity = Model.FindEntityType(GetType(LazyPropertyEntity)) - Dim lazyServiceProperty = lazyPropertyEntity.GetServiceProperties().Single() - Assert.Equal(GetType(ILazyLoader), lazyServiceProperty.ClrType) - - Dim lazyPropertyDelegateEntity = Model.FindEntityType(GetType(LazyPropertyDelegateEntity)) - Assert.Equal(2, lazyPropertyDelegateEntity.GetServiceProperties().Count()) - Assert.Contains(lazyPropertyDelegateEntity.GetServiceProperties(), Function(p) p.ClrType = GetType(ILazyLoader)) - Assert.Contains(lazyPropertyDelegateEntity.GetServiceProperties(), Function(p) p.ClrType = GetType(Action(Of Object, String))) - End Sub) - End Sub - - Public Class LazyLoadingContext - Inherits ContextBase - - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - MyBase.OnModelCreating(modelBuilder) - - modelBuilder.Entity(Of LazyConstructorEntity)() - - modelBuilder.Entity(Of LazyPropertyDelegateEntity)( - Sub(b) - Dim ServiceProperty = DirectCast(b.Metadata.AddServiceProperty( - GetType(LazyPropertyDelegateEntity).GetAnyProperty("LoaderState"), - GetType(ILazyLoader)), - ServiceProperty) - - ServiceProperty.SetParameterBinding( - New DependencyInjectionParameterBinding(GetType(Object), GetType(ILazyLoader), ServiceProperty), - ConfigurationSource.Explicit) - End Sub) - End Sub - End Class - - Public Class LazyConstructorEntity - Private ReadOnly _loader As ILazyLoader - - Public Sub New(loader As ILazyLoader) - _loader = loader - End Sub - - Public Property Id As Integer - - Public Property LazyPropertyEntity As LazyPropertyEntity - Public Property LazyPropertyDelegateEntity As LazyPropertyDelegateEntity - End Class - - Public Class LazyPropertyEntity - Public Property Loader As ILazyLoader - Public Property Id As Integer - Public Property LazyConstructorEntityId As Integer - - Public Property LazyConstructorEntity As LazyConstructorEntity - End Class - - Public Class LazyPropertyDelegateEntity - Public Property LoaderState As Object - Private Property LazyLoader As Action(Of Object, String) - - Public Property Id As Integer - Public Property LazyConstructorEntityId As Integer - - Public Property LazyConstructorEntity As LazyConstructorEntity - End Class - - - Public Sub Lazy_loading_proxies() - Test( - New LazyLoadingProxiesContext(), - CreateCompiledModelCodeGenerationOptions(), - assertModel:= - Sub(Model) - Assert.Equal( - GetType(ILazyLoader), Model.FindEntityType(GetType(LazyProxiesEntity1)).GetServiceProperties().Single().ClrType) - Assert.Equal( - GetType(ILazyLoader), Model.FindEntityType(GetType(LazyProxiesEntity1)).GetServiceProperties().Single().ClrType) - End Sub) - End Sub - - Public Class LazyLoadingProxiesContext - Inherits ContextBase - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - MyBase.OnModelCreating(modelBuilder) - - modelBuilder.Entity(Of LazyProxiesEntity1)() - End Sub - - Protected Overrides Sub OnConfiguring(options As DbContextOptionsBuilder) - MyBase.OnConfiguring(options.UseLazyLoadingProxies()) - End Sub - End Class - - Public Class LazyProxiesEntity1 - Public Property Id As Integer - - Public Overridable Property ReferenceNavigation As LazyProxiesEntity2 - End Class - - Public Class LazyProxiesEntity2 - Public Property Loader As ILazyLoader - - Public Property Id As Integer - Public Overridable Property CollectionNavigation As ICollection(Of LazyProxiesEntity1) - End Class - - - Public Sub Throws_for_query_filter() - Test(New QueryFilterContext(), - CreateCompiledModelCodeGenerationOptions(), - expectedExceptionMessage:=DesignStrings.CompiledModelQueryFilter("QueryFilter")) - End Sub - - Public Class QueryFilterContext - Inherits ContextBase - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - MyBase.OnModelCreating(modelBuilder) - - modelBuilder.Entity( - "QueryFilter", Sub(e) - e.Property(Of Integer)("Id") - e.HasKey("Id") - e.HasQueryFilter(DirectCast(Function(x) x IsNot Nothing, Expression(Of Func(Of Dictionary(Of String, Object), Boolean)))) - End Sub) - End Sub - End Class - - - Public Sub Throws_for_defining_query() - Test( - New DefiningQueryContext(), - CreateCompiledModelCodeGenerationOptions(), - expectedExceptionMessage:=DesignStrings.CompiledModelDefiningQuery("object")) - End Sub - - Public Class DefiningQueryContext - Inherits ContextBase - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - MyBase.OnModelCreating(modelBuilder) - - Dim expr As Expression(Of Func(Of IQueryable(Of Object))) = - Function() DirectCast([Set](Of Object)(), IQueryable(Of Object)) - - modelBuilder.Entity(Of Object)(Sub(e) - e.Property(Of Integer)("Id") - e.HasKey("Id") - e.Metadata.SetInMemoryQuery(expr) - End Sub) - End Sub - End Class - - - Public Sub Throws_for_value_generator() - Test( - New ValueGeneratorContext(), - CreateCompiledModelCodeGenerationOptions(), - expectedExceptionMessage:=DesignStrings.CompiledModelValueGenerator( - "MyEntity", "Id", NameOf(PropertyBuilder.HasValueGeneratorFactory))) - End Sub - - Public Class ValueGeneratorContext - Inherits ContextBase - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - MyBase.OnModelCreating(modelBuilder) - - modelBuilder.Entity( - "MyEntity", Sub(e) - e.Property(Of Integer)("Id"). - HasValueGenerator(Function(p, en) Nothing) - e.HasKey("Id") - End Sub) - End Sub - End Class - - - Public Sub Custom_value_converter() - - Dim rm1 = - -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - - Public Partial Class ValueConverterContextModel - Inherits RuntimeModel - - Private Shared ReadOnly _useOldBehavior31751 As Boolean - - Private Shared _Instance As ValueConverterContextModel - Public Shared ReadOnly Property Instance As IModel - Get - Return _Instance - End Get - End Property - - Shared Sub New() - Dim enabled31751 As Boolean - _useOldBehavior31751 = System.AppContext.TryGetSwitch("Microsoft.EntityFrameworkCore.Issue31751", enabled31751) AndAlso enabled31751 - - Dim model As New ValueConverterContextModel() - If _useOldBehavior31751 Then - model.Initialize() - Else - Dim thread = New System.Threading.Thread(Sub() model.Initialize(), 10 * 1024 * 1024) - thread.Start() - thread.Join() - End If - - model.Customize() - _Instance = model - End Sub - - Partial Private Sub Initialize() - End Sub - - Partial Private Sub Customize() - End Sub - End Class -End Namespace -]]>.Value - - Dim rm2 = -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Public Partial Class ValueConverterContextModel - - Private Sub Initialize() - Dim myEntity = MyEntityEntityType.Create(Me) - - MyEntityEntityType.CreateAnnotations(myEntity) - - End Sub - End Class -End Namespace -]]>.Value - - Dim e1 = -Imports System -Imports System.Collections.Generic -Imports System.Reflection -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.InMemory.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class MyEntityEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "MyEntity", - GetType(Dictionary(Of String, Object)), - baseEntityType, - sharedClrType:=True, - indexerPropertyInfo:=RuntimeEntityType.FindIndexerProperty(GetType(Dictionary(Of String, Object))), - propertyBag:=True) - - Dim id = entityType.AddProperty( - "Id", - GetType(Integer), - propertyInfo:=entityType.FindIndexerPropertyInfo(), - valueGenerated:=ValueGenerated.OnAdd, - afterSaveBehavior:=PropertySaveBehavior.Throw) - id.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(InMemoryTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of Integer, Integer)( - Function(i As Integer) i, - Function(i As Integer) i), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Integer, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of Integer, Integer)( - Function(i As Integer) i, - Function(i As Integer) i))}), CoreTypeMapping) - - Dim key = entityType.AddKey( - {id}) - entityType.SetPrimaryKey(key) - - Return entityType - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Test(New ValueConverterContext(), - CreateCompiledModelCodeGenerationOptions(), - Sub(code) - Assert. - Collection(code, - Sub(c) AssertFileContents("ValueConverterContextModel.vb", rm1, c), - Sub(c) AssertFileContents("ValueConverterContextModelBuilder.vb", rm2, c), - Sub(c) AssertFileContents("MyEntityEntityType.vb", e1, c)) - End Sub, - Sub(model) - Dim EntityType = model.GetEntityTypes().Single() - - Dim Converter = EntityType.FindProperty("Id").GetTypeMapping().Converter - Assert.Equal(1, Converter.ConvertToProvider(1)) - End Sub) - End Sub - - Public Class ValueConverterContext - Inherits ContextBase - - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - MyBase.OnModelCreating(modelBuilder) - - modelBuilder.Entity( - "MyEntity", Sub(e) - e.Property(Of Integer)("Id").HasConversion(Function(i) i, Function(i) i) - e.HasKey("Id") - End Sub) - End Sub - End Class - - - Public Sub Custom_value_comparer() - - Dim rm1 = - -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - - Public Partial Class ValueComparerContextModel - Inherits RuntimeModel - - Private Shared ReadOnly _useOldBehavior31751 As Boolean - - Private Shared _Instance As ValueComparerContextModel - Public Shared ReadOnly Property Instance As IModel - Get - Return _Instance - End Get - End Property - - Shared Sub New() - Dim enabled31751 As Boolean - _useOldBehavior31751 = System.AppContext.TryGetSwitch("Microsoft.EntityFrameworkCore.Issue31751", enabled31751) AndAlso enabled31751 - - Dim model As New ValueComparerContextModel() - If _useOldBehavior31751 Then - model.Initialize() - Else - Dim thread = New System.Threading.Thread(Sub() model.Initialize(), 10 * 1024 * 1024) - thread.Start() - thread.Join() - End If - - model.Customize() - _Instance = model - End Sub - - Partial Private Sub Initialize() - End Sub - - Partial Private Sub Customize() - End Sub - End Class -End Namespace -]]>.Value - - Dim rm2 = - -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Public Partial Class ValueComparerContextModel - - Private Sub Initialize() - Dim myEntity = MyEntityEntityType.Create(Me) - - MyEntityEntityType.CreateAnnotations(myEntity) - - End Sub - End Class -End Namespace -]]>.Value - - Dim e1 = - -Imports System -Imports System.Collections.Generic -Imports System.Reflection -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.InMemory.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class MyEntityEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "MyEntity", - GetType(Dictionary(Of String, Object)), - baseEntityType, - sharedClrType:=True, - indexerPropertyInfo:=RuntimeEntityType.FindIndexerProperty(GetType(Dictionary(Of String, Object))), - propertyBag:=True) - - Dim id = entityType.AddProperty( - "Id", - GetType(Integer), - propertyInfo:=entityType.FindIndexerPropertyInfo(), - valueGenerated:=ValueGenerated.OnAdd, - afterSaveBehavior:=PropertySaveBehavior.Throw, - providerPropertyType:=GetType(Integer)) - id.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(InMemoryTypeMapping.Default, { - Type.Missing, - GetType(Integer), - Type.Missing, - New ValueComparer(Of Integer)( - Function(l As Integer, r As Integer) False, - Function(v As Integer) 0, - Function(v As Integer) 1), - New ValueComparer(Of Integer)( - Function(l As Integer, r As Integer) False, - Function(v As Integer) 0, - Function(v As Integer) 1), - New ValueComparer(Of Integer)( - Function(l As Integer, r As Integer) False, - Function(v As Integer) 0, - Function(v As Integer) 1), - Type.Missing, - JsonInt32ReaderWriter.Instance}), CoreTypeMapping) - - Dim key = entityType.AddKey( - {id}) - entityType.SetPrimaryKey(key) - - Return entityType - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - - Test(New ValueComparerContext(), - CreateCompiledModelCodeGenerationOptions(), - Sub(code) - Assert. - Collection(code, - Sub(c) AssertFileContents("ValueComparerContextModel.vb", rm1, c), - Sub(c) AssertFileContents("ValueComparerContextModelBuilder.vb", rm2, c), - Sub(c) AssertFileContents("MyEntityEntityType.vb", e1, c)) - End Sub, - Sub(model) - Dim entityType = model.GetEntityTypes().Single() - - Dim lambda = TryCast(entityType.FindProperty("Id").GetValueComparer().SnapshotExpression, Expression(Of Func(Of Integer, Integer))) - Dim constant = TryCast(lambda?.Body, ConstantExpression) - Assert.True(lambda IsNot Nothing AndAlso constant IsNot Nothing AndAlso CInt(constant.Value) = 1) - End Sub) - End Sub - - Public Class ValueComparerContext - Inherits ContextBase - - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - - MyBase.OnModelCreating(modelBuilder) - - modelBuilder.Entity( - "MyEntity", Sub(e) - e.Property(Of Integer)("Id"). - HasConversion(GetType(Integer), New FakeValueComparer()) - e.HasKey("Id") - End Sub) - End Sub - End Class - - Private Class FakeValueComparer - Inherits ValueComparer(Of Integer) - - Public Sub New() - MyBase.New(Function(l, r) False, Function(v) 0, Function(v) 1) - End Sub - - Public Overrides ReadOnly Property Type As Type = GetType(Integer) - - Public Overrides Function Equals(left As Object, right As Object) As Boolean - Throw New NotImplementedException() - End Function - - Public Overrides Function GetHashCode(instance As Object) As Integer - Throw New NotImplementedException() - End Function - - Public Overrides Function Snapshot(instance As Object) As Object - Throw New NotImplementedException() - End Function - End Class - - - Public Sub Custom_provider_value_comparer() - - Dim rm1 = - -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - - Public Partial Class ProviderValueComparerContextModel - Inherits RuntimeModel - - Private Shared ReadOnly _useOldBehavior31751 As Boolean - - Private Shared _Instance As ProviderValueComparerContextModel - Public Shared ReadOnly Property Instance As IModel - Get - Return _Instance - End Get - End Property - - Shared Sub New() - Dim enabled31751 As Boolean - _useOldBehavior31751 = System.AppContext.TryGetSwitch("Microsoft.EntityFrameworkCore.Issue31751", enabled31751) AndAlso enabled31751 - - Dim model As New ProviderValueComparerContextModel() - If _useOldBehavior31751 Then - model.Initialize() - Else - Dim thread = New System.Threading.Thread(Sub() model.Initialize(), 10 * 1024 * 1024) - thread.Start() - thread.Join() - End If - - model.Customize() - _Instance = model - End Sub - - Partial Private Sub Initialize() - End Sub - - Partial Private Sub Customize() - End Sub - End Class -End Namespace -]]>.Value - - Dim rm2 = - -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Public Partial Class ProviderValueComparerContextModel - - Private Sub Initialize() - Dim myEntity = MyEntityEntityType.Create(Me) - - MyEntityEntityType.CreateAnnotations(myEntity) - - End Sub - End Class -End Namespace -]]>.Value - - Dim e1 = - -Imports System -Imports System.Collections.Generic -Imports System.Reflection -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.InMemory.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class MyEntityEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "MyEntity", - GetType(Dictionary(Of String, Object)), - baseEntityType, - sharedClrType:=True, - indexerPropertyInfo:=RuntimeEntityType.FindIndexerProperty(GetType(Dictionary(Of String, Object))), - propertyBag:=True) - - Dim id = entityType.AddProperty( - "Id", - GetType(Integer), - propertyInfo:=entityType.FindIndexerPropertyInfo(), - valueGenerated:=ValueGenerated.OnAdd, - afterSaveBehavior:=PropertySaveBehavior.Throw, - providerPropertyType:=GetType(Integer)) - id.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(InMemoryTypeMapping.Default, { - Type.Missing, - GetType(Integer), - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(l As Integer, r As Integer) False, - Function(v As Integer) 0, - Function(v As Integer) 1), - Type.Missing, - JsonInt32ReaderWriter.Instance}), CoreTypeMapping) - - Dim key = entityType.AddKey( - {id}) - entityType.SetPrimaryKey(key) - - Return entityType - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Test( - New ProviderValueComparerContext, - CreateCompiledModelCodeGenerationOptions(), - Sub(code) - Assert. - Collection(code, - Sub(c) AssertFileContents("ProviderValueComparerContextModel.vb", rm1, c), - Sub(c) AssertFileContents("ProviderValueComparerContextModelBuilder.vb", rm2, c), - Sub(c) AssertFileContents("MyEntityEntityType.vb", e1, c)) - End Sub, - Sub(model) - Dim entityType = model.GetEntityTypes().Single() - - Dim lambda = TryCast(entityType.FindProperty("Id").GetProviderValueComparer().SnapshotExpression, Expression(Of Func(Of Integer, Integer))) - Dim constant = TryCast(lambda?.Body, ConstantExpression) - - Assert.True(lambda IsNot Nothing AndAlso constant IsNot Nothing AndAlso CInt(constant.Value) = 1) - End Sub) - End Sub - - Public Class ProviderValueComparerContext - Inherits ContextBase - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - MyBase.OnModelCreating(modelBuilder) - - modelBuilder.Entity( - "MyEntity", - Sub(e) - e.Property(Of Integer)("Id").HasConversion(GetType(Integer), Nothing, New FakeValueComparer()) - e.HasKey("Id") - End Sub) - End Sub - End Class - - - Public Sub Custom_type_mapping() - - Dim rm1 = - -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - - Public Partial Class TypeMappingContextModel - Inherits RuntimeModel - - Private Shared ReadOnly _useOldBehavior31751 As Boolean - - Private Shared _Instance As TypeMappingContextModel - Public Shared ReadOnly Property Instance As IModel - Get - Return _Instance - End Get - End Property - - Shared Sub New() - Dim enabled31751 As Boolean - _useOldBehavior31751 = System.AppContext.TryGetSwitch("Microsoft.EntityFrameworkCore.Issue31751", enabled31751) AndAlso enabled31751 - - Dim model As New TypeMappingContextModel() - If _useOldBehavior31751 Then - model.Initialize() - Else - Dim thread = New System.Threading.Thread(Sub() model.Initialize(), 10 * 1024 * 1024) - thread.Start() - thread.Join() - End If - - model.Customize() - _Instance = model - End Sub - - Partial Private Sub Initialize() - End Sub - - Partial Private Sub Customize() - End Sub - End Class -End Namespace -]]>.Value - - Dim rm2 = - -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Public Partial Class TypeMappingContextModel - - Private Sub Initialize() - Dim myEntity = MyEntityEntityType.Create(Me) - - MyEntityEntityType.CreateAnnotations(myEntity) - - End Sub - End Class -End Namespace -]]>.Value - - Dim e1 = - -Imports System -Imports System.Collections.Generic -Imports System.Reflection -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.InMemory.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class MyEntityEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "MyEntity", - GetType(Dictionary(Of String, Object)), - baseEntityType, - sharedClrType:=True, - indexerPropertyInfo:=RuntimeEntityType.FindIndexerProperty(GetType(Dictionary(Of String, Object))), - propertyBag:=True) - - Dim id = entityType.AddProperty( - "Id", - GetType(Integer), - propertyInfo:=entityType.FindIndexerPropertyInfo(), - valueGenerated:=ValueGenerated.OnAdd, - afterSaveBehavior:=PropertySaveBehavior.Throw) - id.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(InMemoryTypeMapping.Default, { - Type.Missing, - GetType(Integer), - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - JsonInt32ReaderWriter.Instance}), CoreTypeMapping) - - Dim key = entityType.AddKey( - {id}) - entityType.SetPrimaryKey(key) - - Return entityType - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Test( - New TypeMappingContext(), - CreateCompiledModelCodeGenerationOptions(), - Sub(code) - Assert. - Collection(code, - Sub(c) AssertFileContents("TypeMappingContextModel.vb", rm1, c), - Sub(c) AssertFileContents("TypeMappingContextModelBuilder.vb", rm2, c), - Sub(c) AssertFileContents("MyEntityEntityType.vb", e1, c)) - End Sub, - Sub(model) - Dim entityType = model.GetEntityTypes().Single() - - Dim typeMapping = entityType.FindProperty("Id").FindTypeMapping() - Assert.IsType(Of InMemoryTypeMapping)(typeMapping) - Assert.IsType(Of JsonInt32ReaderWriter)(typeMapping.JsonValueReaderWriter) - End Sub) - End Sub - - Public Class TypeMappingContext - Inherits ContextBase - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - MyBase.OnModelCreating(modelBuilder) - - modelBuilder.Entity( - "MyEntity", - Sub(e) - e.Property(Of Integer)("Id").Metadata.SetTypeMapping( - New InMemoryTypeMapping(GetType(Integer), jsonValueReaderWriter:=JsonInt32ReaderWriter.Instance)) - e.HasKey("Id") - End Sub) - End Sub - End Class - - - Public Sub Custom_function_type_mapping() - - Dim rm1 = - -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - - Public Partial Class FunctionTypeMappingContextModel - Inherits RuntimeModel - - Private Shared ReadOnly _useOldBehavior31751 As Boolean - - Private Shared _Instance As FunctionTypeMappingContextModel - Public Shared ReadOnly Property Instance As IModel - Get - Return _Instance - End Get - End Property - - Shared Sub New() - Dim enabled31751 As Boolean - _useOldBehavior31751 = System.AppContext.TryGetSwitch("Microsoft.EntityFrameworkCore.Issue31751", enabled31751) AndAlso enabled31751 - - Dim model As New FunctionTypeMappingContextModel() - If _useOldBehavior31751 Then - model.Initialize() - Else - Dim thread = New System.Threading.Thread(Sub() model.Initialize(), 10 * 1024 * 1024) - thread.Start() - thread.Join() - End If - - model.Customize() - _Instance = model - End Sub - - Partial Private Sub Initialize() - End Sub - - Partial Private Sub Customize() - End Sub - End Class -End Namespace -]]>.Value - - Dim rm2 = - -Imports System -Imports System.Collections.Generic -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Metadata.Internal -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Public Partial Class FunctionTypeMappingContextModel - - Private Sub Initialize() - Dim functions As New SortedDictionary(Of String, IDbFunction)() - Dim getSqlFragmentShared As New RuntimeDbFunction( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+FunctionTypeMappingContext.GetSqlFragmentShared(string)", - Me, - GetType(String), - "GetSqlFragmentShared", - schema:="dbo", - storeType:="varchar", - methodInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.FunctionTypeMappingContext).GetMethod( - "GetSqlFragmentShared", - BindingFlags.Public Or BindingFlags.Static Or BindingFlags.DeclaredOnly, - Nothing, - {GetType(String)}, - Nothing), - scalar:=True, - nullable:=True) - - Dim param = getSqlFragmentShared.AddParameter( - "param", - GetType(String), - False, - "nvarchar(max)") - param.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - - getSqlFragmentShared.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(StringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varchar", - dbType:=System.Data.DbType.AnsiString), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - functions("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+FunctionTypeMappingContext.GetSqlFragmentShared(string)") = getSqlFragmentShared - - AddAnnotation("Relational:DbFunctions", functions) - AddAnnotation("Relational:MaxIdentifierLength", 128) - AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.IdentityColumn) - AddRuntimeAnnotation("Relational:RelationalModel", CreateRelationalModel()) - End Sub - - Private Function CreateRelationalModel() As IRelationalModel - Dim relationalModel As New RelationalModel(Me) - Dim getSqlFragmentShared = DirectCast(Me.FindDbFunction("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+FunctionTypeMappingContext.GetSqlFragmentShared(string)"), IRuntimeDbFunction) - Dim getSqlFragmentSharedFunction As New StoreFunction(getSqlFragmentShared, relationalModel) - Dim paramFunctionParameter = getSqlFragmentSharedFunction.FindParameter("param") - relationalModel.Functions.Add( - ("GetSqlFragmentShared", "dbo", {"nvarchar(max)"}), - getSqlFragmentSharedFunction) - Return relationalModel.MakeReadOnly() - End Function - End Class -End Namespace -]]>.Value - - Test( - New FunctionTypeMappingContext(), - CreateCompiledModelCodeGenerationOptions(), - Sub(code) - Assert. - Collection(code, - Sub(c) AssertFileContents("FunctionTypeMappingContextModel.vb", rm1, c), - Sub(c) AssertFileContents("FunctionTypeMappingContextModelBuilder.vb", rm2, c)) - End Sub, - Sub(model) - Dim [function] = model.GetDbFunctions().Single() - - Dim typeMapping = [function].TypeMapping - Assert.IsType(Of StringTypeMapping)(typeMapping) - Assert.Equal("varchar", typeMapping.StoreType) - End Sub) - End Sub - - Public Class FunctionTypeMappingContext - Inherits SqlServerContextBase - - Public Shared Function GetSqlFragmentShared(param As String) As String - Throw New NotImplementedException() - End Function - - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - MyBase.OnModelCreating(modelBuilder) - - modelBuilder. - HasDbFunction(GetType(FunctionTypeMappingContext). - GetMethod(NameOf(GetSqlFragmentShared))). - Metadata.TypeMapping = New StringTypeMapping("varchar", DbType.AnsiString) - End Sub - End Class - - - Public Sub Custom_function_parameter_type_mapping() - - Dim rm1 = - -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - - Public Partial Class FunctionParameterTypeMappingContextModel - Inherits RuntimeModel - - Private Shared ReadOnly _useOldBehavior31751 As Boolean - - Private Shared _Instance As FunctionParameterTypeMappingContextModel - Public Shared ReadOnly Property Instance As IModel - Get - Return _Instance - End Get - End Property - - Shared Sub New() - Dim enabled31751 As Boolean - _useOldBehavior31751 = System.AppContext.TryGetSwitch("Microsoft.EntityFrameworkCore.Issue31751", enabled31751) AndAlso enabled31751 - - Dim model As New FunctionParameterTypeMappingContextModel() - If _useOldBehavior31751 Then - model.Initialize() - Else - Dim thread = New System.Threading.Thread(Sub() model.Initialize(), 10 * 1024 * 1024) - thread.Start() - thread.Join() - End If - - model.Customize() - _Instance = model - End Sub - - Partial Private Sub Initialize() - End Sub - - Partial Private Sub Customize() - End Sub - End Class -End Namespace -]]>.Value - - Dim rm2 = - -Imports System -Imports System.Collections.Generic -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Metadata.Internal -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Public Partial Class FunctionParameterTypeMappingContextModel - - Private Sub Initialize() - Dim functions As New SortedDictionary(Of String, IDbFunction)() - Dim getSqlFragmentShared As New RuntimeDbFunction( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+FunctionParameterTypeMappingContext.GetSqlFragmentShared(string)", - Me, - GetType(String), - "GetSqlFragmentShared", - schema:="dbo", - storeType:="nvarchar(max)", - methodInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.FunctionParameterTypeMappingContext).GetMethod( - "GetSqlFragmentShared", - BindingFlags.Public Or BindingFlags.Static Or BindingFlags.DeclaredOnly, - Nothing, - {GetType(String)}, - Nothing), - scalar:=True, - nullable:=True) - - Dim param = getSqlFragmentShared.AddParameter( - "param", - GetType(String), - False, - "varchar") - param.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(StringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varchar", - dbType:=System.Data.DbType.AnsiString), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - getSqlFragmentShared.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - functions("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+FunctionParameterTypeMappingContext.GetSqlFragmentShared(string)") = getSqlFragmentShared - - AddAnnotation("Relational:DbFunctions", functions) - AddAnnotation("Relational:MaxIdentifierLength", 128) - AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.IdentityColumn) - AddRuntimeAnnotation("Relational:RelationalModel", CreateRelationalModel()) - End Sub - - Private Function CreateRelationalModel() As IRelationalModel - Dim relationalModel As New RelationalModel(Me) - Dim getSqlFragmentShared = DirectCast(Me.FindDbFunction("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+FunctionParameterTypeMappingContext.GetSqlFragmentShared(string)"), IRuntimeDbFunction) - Dim getSqlFragmentSharedFunction As New StoreFunction(getSqlFragmentShared, relationalModel) - Dim paramFunctionParameter = getSqlFragmentSharedFunction.FindParameter("param") - relationalModel.Functions.Add( - ("GetSqlFragmentShared", "dbo", {"varchar"}), - getSqlFragmentSharedFunction) - Return relationalModel.MakeReadOnly() - End Function - End Class -End Namespace -]]>.Value - - Test( - New FunctionParameterTypeMappingContext(), - CreateCompiledModelCodeGenerationOptions(), - Sub(code) - Assert. - Collection(code, - Sub(c) AssertFileContents("FunctionParameterTypeMappingContextModel.vb", rm1, c), - Sub(c) AssertFileContents("FunctionParameterTypeMappingContextModelBuilder.vb", rm2, c)) - End Sub, - Sub(model) - Dim [function] = model.GetDbFunctions().Single() - Dim parameter = [function].Parameters.Single() - - Dim typeMapping = parameter.TypeMapping - Assert.IsType(Of StringTypeMapping)(typeMapping) - Assert.Equal("varchar", typeMapping.StoreType) - End Sub) - End Sub - - Public Class FunctionParameterTypeMappingContext - Inherits SqlServerContextBase - - Public Shared Function GetSqlFragmentShared(param As String) As String - Throw New NotImplementedException() - End Function - - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - MyBase.OnModelCreating(modelBuilder) - - modelBuilder. - HasDbFunction(GetType(FunctionParameterTypeMappingContext). - GetMethod(NameOf(GetSqlFragmentShared))). - HasParameter("param").Metadata.TypeMapping = New StringTypeMapping("varchar", DbType.AnsiString) - End Sub - End Class - - - Public Sub Throws_for_custom_function_translation() - Test( - New FunctionTranslationContext(), - New CompiledModelCodeGenerationOptions(), - expectedExceptionMessage:=RelationalStrings.CompiledModelFunctionTranslation("GetSqlFragmentStatic")) - End Sub - - Public Class FunctionTranslationContext - Inherits SqlServerContextBase - - Public Shared Function GetSqlFragmentStatic() As String - Throw New NotImplementedException() - End Function - - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - MyBase.OnModelCreating(modelBuilder) - - modelBuilder.HasDbFunction(GetType(FunctionTranslationContext).GetMethod(NameOf(GetSqlFragmentStatic))). - HasTranslation(Function(args) New SqlFragmentExpression("NULL")) - End Sub - End Class - - - Public Sub Fully_qualified_model() - - Dim rm1 = - -Imports EntityFrameworkCore.VisualBasic.Scaffolding.TestModel.Internal -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace Internal - - Public Partial Class DbContextModel - Inherits RuntimeModel - - Private Shared ReadOnly _useOldBehavior31751 As Boolean - - Private Shared _Instance As DbContextModel - Public Shared ReadOnly Property Instance As IModel - Get - Return _Instance - End Get - End Property - - Shared Sub New() - Dim enabled31751 As Boolean - _useOldBehavior31751 = System.AppContext.TryGetSwitch("Microsoft.EntityFrameworkCore.Issue31751", enabled31751) AndAlso enabled31751 - - Dim model As New DbContextModel() - If _useOldBehavior31751 Then - model.Initialize() - Else - Dim thread = New System.Threading.Thread(Sub() model.Initialize(), 10 * 1024 * 1024) - thread.Start() - thread.Join() - End If - - model.Customize() - _Instance = model - End Sub - - Partial Private Sub Initialize() - End Sub - - Partial Private Sub Customize() - End Sub - End Class -End Namespace -]]>.Value - - Dim DbContext = - -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace Internal - Public Partial Class DbContextModel - - Private Sub Initialize() - Dim index = IndexEntityType.Create(Me) - Dim internal = InternalEntityType.Create(Me) - Dim identityUser = IdentityUserEntityType.Create(Me) - Dim identityUser0 = IdentityUser0EntityType.Create(Me, identityUser) - - IndexEntityType.CreateAnnotations(index) - InternalEntityType.CreateAnnotations(internal) - IdentityUserEntityType.CreateAnnotations(identityUser) - IdentityUser0EntityType.CreateAnnotations(identityUser0) - - End Sub - End Class -End Namespace -]]>.Value - - Dim e1 = - -Imports System -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.InMemory.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.VisualBasic - -Namespace Internal - Friend Partial Class IndexEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.Index", - GetType(EntityFrameworkCore.VisualBasic.Scaffolding.Internal.Index), - baseEntityType) - - Dim id = entityType.AddProperty( - "Id", - GetType(Guid), - propertyInfo:=GetType(EntityFrameworkCore.VisualBasic.Scaffolding.Internal.Index).GetProperty("Id", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(EntityFrameworkCore.VisualBasic.Scaffolding.Internal.Index).GetField("_Id", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueGenerated:=ValueGenerated.OnAdd, - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=New Guid("00000000-0000-0000-0000-000000000000")) - id.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(InMemoryTypeMapping.Default, { - Type.Missing, - GetType(Guid), - Type.Missing, - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - Type.Missing, - JsonGuidReaderWriter.Instance}), CoreTypeMapping) - - Dim key = entityType.AddKey( - {id}) - entityType.SetPrimaryKey(key) - - Return entityType - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim e2 = - -Imports System -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.InMemory.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.VisualBasic - -Namespace Internal - Friend Partial Class InternalEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.Internal", - GetType(EntityFrameworkCore.VisualBasic.Scaffolding.Internal.Internal), - baseEntityType) - - Dim id = entityType.AddProperty( - "Id", - GetType(Long), - propertyInfo:=GetType(EntityFrameworkCore.VisualBasic.Scaffolding.Internal.Internal).GetProperty("Id", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(EntityFrameworkCore.VisualBasic.Scaffolding.Internal.Internal).GetField("_Id", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueGenerated:=ValueGenerated.OnAdd, - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=0L) - id.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(InMemoryTypeMapping.Default, { - Type.Missing, - GetType(Long), - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - JsonInt64ReaderWriter.Instance}), CoreTypeMapping) - - Dim key = entityType.AddKey( - {id}) - entityType.SetPrimaryKey(key) - - Return entityType - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim e3 = - -Imports System -Imports System.Reflection -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.InMemory.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.EntityFrameworkCore.TestModels.AspNetIdentity -Imports Microsoft.EntityFrameworkCore.ValueGeneration -Imports Microsoft.VisualBasic - -Namespace Internal - Friend Partial Class IdentityUserEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "Microsoft.EntityFrameworkCore.TestModels.AspNetIdentity.IdentityUser", - GetType(IdentityUser), - baseEntityType, - discriminatorProperty:="Discriminator", - discriminatorValue:="IdentityUser") - - Dim id = entityType.AddProperty( - "Id", - GetType(String), - propertyInfo:=GetType(IdentityUser(Of String)).GetProperty("Id", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(IdentityUser(Of String)).GetField("k__BackingField", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - afterSaveBehavior:=PropertySaveBehavior.Throw) - id.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(InMemoryTypeMapping.Default, { - Type.Missing, - GetType(String), - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - JsonStringReaderWriter.Instance}), CoreTypeMapping) - - Dim accessFailedCount = entityType.AddProperty( - "AccessFailedCount", - GetType(Integer), - propertyInfo:=GetType(IdentityUser(Of String)).GetProperty("AccessFailedCount", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(IdentityUser(Of String)).GetField("k__BackingField", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0) - accessFailedCount.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(InMemoryTypeMapping.Default, { - Type.Missing, - GetType(Integer), - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - JsonInt32ReaderWriter.Instance}), CoreTypeMapping) - - Dim concurrencyStamp = entityType.AddProperty( - "ConcurrencyStamp", - GetType(String), - propertyInfo:=GetType(IdentityUser(Of String)).GetProperty("ConcurrencyStamp", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(IdentityUser(Of String)).GetField("k__BackingField", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - concurrencyStamp.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(InMemoryTypeMapping.Default, { - Type.Missing, - GetType(String), - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - JsonStringReaderWriter.Instance}), CoreTypeMapping) - - Dim discriminator = entityType.AddProperty( - "Discriminator", - GetType(String), - afterSaveBehavior:=PropertySaveBehavior.Throw, - valueGeneratorFactory:=AddressOf New DiscriminatorValueGeneratorFactory().Create) - discriminator.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(InMemoryTypeMapping.Default, { - Type.Missing, - GetType(String), - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - JsonStringReaderWriter.Instance}), CoreTypeMapping) - - Dim email = entityType.AddProperty( - "Email", - GetType(String), - propertyInfo:=GetType(IdentityUser(Of String)).GetProperty("Email", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(IdentityUser(Of String)).GetField("k__BackingField", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - email.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(InMemoryTypeMapping.Default, { - Type.Missing, - GetType(String), - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - JsonStringReaderWriter.Instance}), CoreTypeMapping) - - Dim emailConfirmed = entityType.AddProperty( - "EmailConfirmed", - GetType(Boolean), - propertyInfo:=GetType(IdentityUser(Of String)).GetProperty("EmailConfirmed", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(IdentityUser(Of String)).GetField("k__BackingField", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=False) - emailConfirmed.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(InMemoryTypeMapping.Default, { - Type.Missing, - GetType(Boolean), - Type.Missing, - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - Type.Missing, - JsonBoolReaderWriter.Instance}), CoreTypeMapping) - - Dim lockoutEnabled = entityType.AddProperty( - "LockoutEnabled", - GetType(Boolean), - propertyInfo:=GetType(IdentityUser(Of String)).GetProperty("LockoutEnabled", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(IdentityUser(Of String)).GetField("k__BackingField", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=False) - lockoutEnabled.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(InMemoryTypeMapping.Default, { - Type.Missing, - GetType(Boolean), - Type.Missing, - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - Type.Missing, - JsonBoolReaderWriter.Instance}), CoreTypeMapping) - - Dim lockoutEnd = entityType.AddProperty( - "LockoutEnd", - GetType(DateTimeOffset?), - propertyInfo:=GetType(IdentityUser(Of String)).GetProperty("LockoutEnd", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(IdentityUser(Of String)).GetField("k__BackingField", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - lockoutEnd.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(InMemoryTypeMapping.Default, { - Type.Missing, - GetType(DateTimeOffset), - Type.Missing, - New ValueComparer(Of DateTimeOffset?)( - Function(v1 As Nullable(Of DateTimeOffset), v2 As Nullable(Of DateTimeOffset)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateTimeOffset).EqualsExact(CType(v2, DateTimeOffset)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateTimeOffset)) If(v.HasValue, CType(v, DateTimeOffset).GetHashCode(), 0), - Function(v As Nullable(Of DateTimeOffset)) If(v.HasValue, CType(CType(v, DateTimeOffset), Nullable(Of DateTimeOffset)), CType(Nothing, Nullable(Of DateTimeOffset)))), - New ValueComparer(Of DateTimeOffset?)( - Function(v1 As Nullable(Of DateTimeOffset), v2 As Nullable(Of DateTimeOffset)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateTimeOffset).EqualsExact(CType(v2, DateTimeOffset)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateTimeOffset)) If(v.HasValue, CType(v, DateTimeOffset).GetHashCode(), 0), - Function(v As Nullable(Of DateTimeOffset)) If(v.HasValue, CType(CType(v, DateTimeOffset), Nullable(Of DateTimeOffset)), CType(Nothing, Nullable(Of DateTimeOffset)))), - New ValueComparer(Of DateTimeOffset?)( - Function(v1 As Nullable(Of DateTimeOffset), v2 As Nullable(Of DateTimeOffset)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateTimeOffset).EqualsExact(CType(v2, DateTimeOffset)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateTimeOffset)) If(v.HasValue, CType(v, DateTimeOffset).GetHashCode(), 0), - Function(v As Nullable(Of DateTimeOffset)) If(v.HasValue, CType(CType(v, DateTimeOffset), Nullable(Of DateTimeOffset)), CType(Nothing, Nullable(Of DateTimeOffset)))), - Type.Missing, - JsonDateTimeOffsetReaderWriter.Instance}), CoreTypeMapping) - - Dim normalizedEmail = entityType.AddProperty( - "NormalizedEmail", - GetType(String), - propertyInfo:=GetType(IdentityUser(Of String)).GetProperty("NormalizedEmail", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(IdentityUser(Of String)).GetField("k__BackingField", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - normalizedEmail.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(InMemoryTypeMapping.Default, { - Type.Missing, - GetType(String), - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - JsonStringReaderWriter.Instance}), CoreTypeMapping) - - Dim normalizedUserName = entityType.AddProperty( - "NormalizedUserName", - GetType(String), - propertyInfo:=GetType(IdentityUser(Of String)).GetProperty("NormalizedUserName", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(IdentityUser(Of String)).GetField("k__BackingField", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - normalizedUserName.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(InMemoryTypeMapping.Default, { - Type.Missing, - GetType(String), - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - JsonStringReaderWriter.Instance}), CoreTypeMapping) - - Dim passwordHash = entityType.AddProperty( - "PasswordHash", - GetType(String), - propertyInfo:=GetType(IdentityUser(Of String)).GetProperty("PasswordHash", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(IdentityUser(Of String)).GetField("k__BackingField", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - passwordHash.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(InMemoryTypeMapping.Default, { - Type.Missing, - GetType(String), - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - JsonStringReaderWriter.Instance}), CoreTypeMapping) - - Dim phoneNumber = entityType.AddProperty( - "PhoneNumber", - GetType(String), - propertyInfo:=GetType(IdentityUser(Of String)).GetProperty("PhoneNumber", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(IdentityUser(Of String)).GetField("k__BackingField", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - phoneNumber.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(InMemoryTypeMapping.Default, { - Type.Missing, - GetType(String), - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - JsonStringReaderWriter.Instance}), CoreTypeMapping) - - Dim phoneNumberConfirmed = entityType.AddProperty( - "PhoneNumberConfirmed", - GetType(Boolean), - propertyInfo:=GetType(IdentityUser(Of String)).GetProperty("PhoneNumberConfirmed", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(IdentityUser(Of String)).GetField("k__BackingField", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=False) - phoneNumberConfirmed.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(InMemoryTypeMapping.Default, { - Type.Missing, - GetType(Boolean), - Type.Missing, - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - Type.Missing, - JsonBoolReaderWriter.Instance}), CoreTypeMapping) - - Dim securityStamp = entityType.AddProperty( - "SecurityStamp", - GetType(String), - propertyInfo:=GetType(IdentityUser(Of String)).GetProperty("SecurityStamp", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(IdentityUser(Of String)).GetField("k__BackingField", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - securityStamp.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(InMemoryTypeMapping.Default, { - Type.Missing, - GetType(String), - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - JsonStringReaderWriter.Instance}), CoreTypeMapping) - - Dim twoFactorEnabled = entityType.AddProperty( - "TwoFactorEnabled", - GetType(Boolean), - propertyInfo:=GetType(IdentityUser(Of String)).GetProperty("TwoFactorEnabled", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(IdentityUser(Of String)).GetField("k__BackingField", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=False) - twoFactorEnabled.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(InMemoryTypeMapping.Default, { - Type.Missing, - GetType(Boolean), - Type.Missing, - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - Type.Missing, - JsonBoolReaderWriter.Instance}), CoreTypeMapping) - - Dim userName = entityType.AddProperty( - "UserName", - GetType(String), - propertyInfo:=GetType(IdentityUser(Of String)).GetProperty("UserName", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(IdentityUser(Of String)).GetField("k__BackingField", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - userName.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(InMemoryTypeMapping.Default, { - Type.Missing, - GetType(String), - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - JsonStringReaderWriter.Instance}), CoreTypeMapping) - - Dim key = entityType.AddKey( - {id}) - entityType.SetPrimaryKey(key) - - Return entityType - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim e4 = - -Imports System -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace Internal - Friend Partial Class IdentityUser0EntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.IdentityUser", - GetType(IdentityUser), - baseEntityType, - discriminatorProperty:="Discriminator", - discriminatorValue:="DerivedIdentityUser") - - Return entityType - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim CompiledModelCodeGenerationOptions = CreateCompiledModelCodeGenerationOptions() - CompiledModelCodeGenerationOptions.ModelNamespace = "Internal" - - Test( - New TestModel.Internal.DbContext(), - CompiledModelCodeGenerationOptions, - Sub(code) - Assert.Collection( - code, - Sub(c) AssertFileContents("DbContextModel.vb", rm1, c), - Sub(c) AssertFileContents("DbContextModelBuilder.vb", DbContext, c), - Sub(c) AssertFileContents("IndexEntityType.vb", e1, c), - Sub(c) AssertFileContents("InternalEntityType.vb", e2, c), - Sub(c) AssertFileContents("IdentityUserEntityType.vb", e3, c), - Sub(c) AssertFileContents("IdentityUser0EntityType.vb", e4, c)) - End Sub, - Sub(Model) - Assert.Equal(4, Model.GetEntityTypes().Count()) - Assert.Same(Model, Model.FindRuntimeAnnotationValue("ReadOnlyModel")) - End Sub, - additionalDesignTimeServices:=GetType(FullyQualifiedDesignTimeServices)) - End Sub - - Private Class FullyQualifiedDesignTimeServices - Implements IDesignTimeServices - Public Sub ConfigureDesignTimeServices(serviceCollection As IServiceCollection) _ - Implements IDesignTimeServices.ConfigureDesignTimeServices - - serviceCollection.AddSingleton(Of IVisualBasicHelper, FullyQualifiedVisualBasicHelper)() - End Sub - End Class - - Private Class FullyQualifiedVisualBasicHelper - Inherits VisualBasicHelper - - Public Sub New(typeMappingSource As ITypeMappingSource) - MyBase.New(typeMappingSource) - End Sub - - Protected Overrides Function ShouldUseFullName(type As Type) As Boolean - Return MyBase.ShouldUseFullName(type) - End Function - - Protected Overrides Function ShouldUseFullName(shortTypeName As String) As Boolean - Return MyBase.ShouldUseFullName(shortTypeName) OrElse - shortTypeName = NameOf(Index) OrElse - shortTypeName = NameOf(Internal) - End Function - End Class - - - Public Sub BigModel() - - Dim rm1 = - -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - - Public Partial Class BigContextModel - Inherits RuntimeModel - - Private Shared ReadOnly _useOldBehavior31751 As Boolean - - Private Shared _Instance As BigContextModel - Public Shared ReadOnly Property Instance As IModel - Get - Return _Instance - End Get - End Property - - Shared Sub New() - Dim enabled31751 As Boolean - _useOldBehavior31751 = System.AppContext.TryGetSwitch("Microsoft.EntityFrameworkCore.Issue31751", enabled31751) AndAlso enabled31751 - - Dim model As New BigContextModel() - If _useOldBehavior31751 Then - model.Initialize() - Else - Dim thread = New System.Threading.Thread(Sub() model.Initialize(), 10 * 1024 * 1024) - thread.Start() - thread.Join() - End If - - model.Customize() - _Instance = model - End Sub - - Partial Private Sub Initialize() - End Sub - - Partial Private Sub Customize() - End Sub - End Class -End Namespace -]]>.Value - - Dim rm2 = - -Imports System -Imports System.Collections.Generic -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Metadata.Internal -Imports Microsoft.EntityFrameworkCore.Migrations -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Public Partial Class BigContextModel - - Private Sub Initialize() - Dim dependentBase = DependentBaseEntityType.Create(Me) - Dim manyTypes = ManyTypesEntityType.Create(Me) - Dim principalBase = PrincipalBaseEntityType.Create(Me) - Dim ownedType = OwnedTypeEntityType.Create(Me) - Dim ownedType0 = OwnedType0EntityType.Create(Me) - Dim principalBasePrincipalDerivedDependentBasebyte = PrincipalBasePrincipalDerivedDependentBasebyteEntityType.Create(Me) - Dim dependentDerived = DependentDerivedEntityType.Create(Me, dependentBase) - Dim principalDerived = PrincipalDerivedEntityType.Create(Me, principalBase) - - DependentBaseEntityType.CreateForeignKey1(dependentBase, principalBase) - DependentBaseEntityType.CreateForeignKey2(dependentBase, principalDerived) - OwnedTypeEntityType.CreateForeignKey1(ownedType, principalBase) - OwnedTypeEntityType.CreateForeignKey2(ownedType, ownedType) - OwnedType0EntityType.CreateForeignKey1(ownedType0, principalDerived) - PrincipalBasePrincipalDerivedDependentBasebyteEntityType.CreateForeignKey1(principalBasePrincipalDerivedDependentBasebyte, principalDerived) - PrincipalBasePrincipalDerivedDependentBasebyteEntityType.CreateForeignKey2(principalBasePrincipalDerivedDependentBasebyte, principalBase) - PrincipalDerivedEntityType.CreateForeignKey1(principalDerived, principalBase) - - PrincipalBaseEntityType.CreateSkipNavigation1(principalBase, principalDerived, principalBasePrincipalDerivedDependentBasebyte) - PrincipalDerivedEntityType.CreateSkipNavigation1(principalDerived, principalBase, principalBasePrincipalDerivedDependentBasebyte) - - DependentBaseEntityType.CreateAnnotations(dependentBase) - ManyTypesEntityType.CreateAnnotations(manyTypes) - PrincipalBaseEntityType.CreateAnnotations(principalBase) - OwnedTypeEntityType.CreateAnnotations(ownedType) - OwnedType0EntityType.CreateAnnotations(ownedType0) - PrincipalBasePrincipalDerivedDependentBasebyteEntityType.CreateAnnotations(principalBasePrincipalDerivedDependentBasebyte) - DependentDerivedEntityType.CreateAnnotations(dependentDerived) - PrincipalDerivedEntityType.CreateAnnotations(principalDerived) - - AddAnnotation("Relational:MaxIdentifierLength", 128) - AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.IdentityColumn) - AddRuntimeAnnotation("Relational:RelationalModel", CreateRelationalModel()) - End Sub - - Private Function CreateRelationalModel() As IRelationalModel - Dim relationalModel As New RelationalModel(Me) - - Dim dependentBase = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase") - - Dim defaultTableMappings As New List(Of TableMappingBase(Of ColumnMappingBase))() - dependentBase.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", Nothing, relationalModel) - Dim dataColumnBase As New ColumnBase(Of ColumnMappingBase)("Data", "char(20)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("Data", dataColumnBase) - Dim enumDiscriminatorColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumDiscriminator", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("EnumDiscriminator", enumDiscriminatorColumnBase) - Dim idColumnBase As New ColumnBase(Of ColumnMappingBase)("Id", "tinyint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("Id", idColumnBase) - Dim moneyColumnBase As New ColumnBase(Of ColumnMappingBase)("Money", "decimal(9,3)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("Money", moneyColumnBase) - Dim principalAlternateIdColumnBase As New ColumnBase(Of ColumnMappingBase)("PrincipalAlternateId", "uniqueidentifier", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("PrincipalAlternateId", principalAlternateIdColumnBase) - Dim principalIdColumnBase As New ColumnBase(Of ColumnMappingBase)("PrincipalId", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("PrincipalId", principalIdColumnBase) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase As New TableMappingBase(Of ColumnMappingBase)(dependentBase, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase, False) - defaultTableMappings.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalAlternateIdColumnBase, ColumnBase(Of ColumnMappingBase)), dependentBase.FindProperty("PrincipalAlternateId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalIdColumnBase, ColumnBase(Of ColumnMappingBase)), dependentBase.FindProperty("PrincipalId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumDiscriminatorColumnBase, ColumnBase(Of ColumnMappingBase)), dependentBase.FindProperty("EnumDiscriminator"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase, ColumnBase(Of ColumnMappingBase)), dependentBase.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - - Dim tableMappings As New List(Of TableMapping)() - dependentBase.SetRuntimeAnnotation("Relational:TableMappings", tableMappings) - Dim dependentBasebyteTable As New Table("DependentBase", Nothing, relationalModel) - Dim principalIdColumn As New Column("PrincipalId", "bigint", dependentBasebyteTable) - dependentBasebyteTable.Columns.Add("PrincipalId", principalIdColumn) - Dim principalAlternateIdColumn As New Column("PrincipalAlternateId", "uniqueidentifier", dependentBasebyteTable) - dependentBasebyteTable.Columns.Add("PrincipalAlternateId", principalAlternateIdColumn) - Dim dataColumn As New Column("Data", "char(20)", dependentBasebyteTable) With { - .IsNullable = True - } - dependentBasebyteTable.Columns.Add("Data", dataColumn) - Dim enumDiscriminatorColumn As New Column("EnumDiscriminator", "int", dependentBasebyteTable) - dependentBasebyteTable.Columns.Add("EnumDiscriminator", enumDiscriminatorColumn) - Dim idColumn As New Column("Id", "tinyint", dependentBasebyteTable) With { - .IsNullable = True - } - dependentBasebyteTable.Columns.Add("Id", idColumn) - Dim moneyColumn As New Column("Money", "decimal(9,3)", dependentBasebyteTable) With { - .IsNullable = True - } - dependentBasebyteTable.Columns.Add("Money", moneyColumn) - Dim pK_DependentBasebyte As New UniqueConstraint("PK_DependentBase", dependentBasebyteTable, {principalIdColumn, principalAlternateIdColumn}) - dependentBasebyteTable.PrimaryKey = pK_DependentBasebyte - Dim pK_DependentBasebyteUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", - {"PrincipalId", "PrincipalAlternateId"}) - pK_DependentBasebyte.MappedKeys.Add(pK_DependentBasebyteUc) - RelationalModel.GetOrCreateUniqueConstraints(pK_DependentBasebyteUc).Add(pK_DependentBasebyte) - dependentBasebyteTable.UniqueConstraints.Add("PK_DependentBase", pK_DependentBasebyte) - Dim iX_DependentBasebyte_PrincipalId As New TableIndex( - "IX_DependentBase_PrincipalId", dependentBasebyteTable, {principalIdColumn}, True) - Dim iX_DependentBasebyte_PrincipalIdIx = RelationalModel.GetIndex(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", - {"PrincipalId"}) - iX_DependentBasebyte_PrincipalId.MappedIndexes.Add(iX_DependentBasebyte_PrincipalIdIx) - RelationalModel.GetOrCreateTableIndexes(iX_DependentBasebyte_PrincipalIdIx).Add(iX_DependentBasebyte_PrincipalId) - dependentBasebyteTable.Indexes.Add("IX_DependentBase_PrincipalId", iX_DependentBasebyte_PrincipalId) - relationalModel.Tables.Add(("DependentBase", Nothing), dependentBasebyteTable) - Dim dependentBasebyteTableMapping As New TableMapping(dependentBase, dependentBasebyteTable, True) With { - .IsSharedTablePrincipal = True - } - dependentBasebyteTable.AddTypeMapping(dependentBasebyteTableMapping, False) - tableMappings.Add(dependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(principalAlternateIdColumn, dependentBase.FindProperty("PrincipalAlternateId"), dependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(principalIdColumn, dependentBase.FindProperty("PrincipalId"), dependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(enumDiscriminatorColumn, dependentBase.FindProperty("EnumDiscriminator"), dependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(idColumn, dependentBase.FindProperty("Id"), dependentBasebyteTableMapping) - - Dim dependentDerived = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentDerived") - - Dim defaultTableMappings0 As New List(Of TableMappingBase(Of ColumnMappingBase))() - dependentDerived.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings0) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0 As New TableMappingBase(Of ColumnMappingBase)(dependentDerived, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0, False) - defaultTableMappings0.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(principalAlternateIdColumnBase, ColumnBase(Of ColumnMappingBase)), dependentDerived.FindProperty("PrincipalAlternateId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(principalIdColumnBase, ColumnBase(Of ColumnMappingBase)), dependentDerived.FindProperty("PrincipalId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(dataColumnBase, ColumnBase(Of ColumnMappingBase)), dependentDerived.FindProperty("Data"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(enumDiscriminatorColumnBase, ColumnBase(Of ColumnMappingBase)), dependentDerived.FindProperty("EnumDiscriminator"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase, ColumnBase(Of ColumnMappingBase)), dependentDerived.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(moneyColumnBase, ColumnBase(Of ColumnMappingBase)), dependentDerived.FindProperty("Money"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0) - - Dim tableMappings0 As New List(Of TableMapping)() - dependentDerived.SetRuntimeAnnotation("Relational:TableMappings", tableMappings0) - Dim dependentBasebyteTableMapping0 As New TableMapping(dependentDerived, dependentBasebyteTable, True) With { - .IsSharedTablePrincipal = False - } - dependentBasebyteTable.AddTypeMapping(dependentBasebyteTableMapping0, False) - tableMappings0.Add(dependentBasebyteTableMapping0) - RelationalModel.CreateColumnMapping(principalAlternateIdColumn, dependentDerived.FindProperty("PrincipalAlternateId"), dependentBasebyteTableMapping0) - RelationalModel.CreateColumnMapping(principalIdColumn, dependentDerived.FindProperty("PrincipalId"), dependentBasebyteTableMapping0) - RelationalModel.CreateColumnMapping(dataColumn, dependentDerived.FindProperty("Data"), dependentBasebyteTableMapping0) - RelationalModel.CreateColumnMapping(enumDiscriminatorColumn, dependentDerived.FindProperty("EnumDiscriminator"), dependentBasebyteTableMapping0) - RelationalModel.CreateColumnMapping(idColumn, dependentDerived.FindProperty("Id"), dependentBasebyteTableMapping0) - RelationalModel.CreateColumnMapping(moneyColumn, dependentDerived.FindProperty("Money"), dependentBasebyteTableMapping0) - - Dim manyTypes = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+ManyTypes") - - Dim defaultTableMappings1 As New List(Of TableMappingBase(Of ColumnMappingBase))() - manyTypes.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings1) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+ManyTypes", Nothing, relationalModel) - Dim boolColumnBase As New ColumnBase(Of ColumnMappingBase)("Bool", "bit", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Bool", boolColumnBase) - Dim boolArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("BoolArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("BoolArray", boolArrayColumnBase) - Dim boolToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("BoolToStringConverterProperty", "nvarchar(1)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("BoolToStringConverterProperty", boolToStringConverterPropertyColumnBase) - Dim boolToTwoValuesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("BoolToTwoValuesConverterProperty", "tinyint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("BoolToTwoValuesConverterProperty", boolToTwoValuesConverterPropertyColumnBase) - Dim boolToZeroOneConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("BoolToZeroOneConverterProperty", "smallint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("BoolToZeroOneConverterProperty", boolToZeroOneConverterPropertyColumnBase) - Dim bytesColumnBase As New ColumnBase(Of ColumnMappingBase)("Bytes", "varbinary(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Bytes", bytesColumnBase) - Dim bytesArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("BytesArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("BytesArray", bytesArrayColumnBase) - Dim bytesToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("BytesToStringConverterProperty", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("BytesToStringConverterProperty", bytesToStringConverterPropertyColumnBase) - Dim castingConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("CastingConverterProperty", "decimal(18,2)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("CastingConverterProperty", castingConverterPropertyColumnBase) - Dim charColumnBase As New ColumnBase(Of ColumnMappingBase)("Char", "nvarchar(1)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Char", charColumnBase) - Dim charArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("CharArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("CharArray", charArrayColumnBase) - Dim charToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("CharToStringConverterProperty", "nvarchar(1)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("CharToStringConverterProperty", charToStringConverterPropertyColumnBase) - Dim dateOnlyArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("DateOnlyArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateOnlyArray", dateOnlyArrayColumnBase) - Dim dateOnlyToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DateOnlyToStringConverterProperty", "nvarchar(10)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateOnlyToStringConverterProperty", dateOnlyToStringConverterPropertyColumnBase) - Dim dateTimeArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("DateTimeArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateTimeArray", dateTimeArrayColumnBase) - Dim dateTimeOffsetToBinaryConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DateTimeOffsetToBinaryConverterProperty", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateTimeOffsetToBinaryConverterProperty", dateTimeOffsetToBinaryConverterPropertyColumnBase) - Dim dateTimeOffsetToBytesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DateTimeOffsetToBytesConverterProperty", "varbinary(12)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateTimeOffsetToBytesConverterProperty", dateTimeOffsetToBytesConverterPropertyColumnBase) - Dim dateTimeOffsetToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DateTimeOffsetToStringConverterProperty", "nvarchar(48)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateTimeOffsetToStringConverterProperty", dateTimeOffsetToStringConverterPropertyColumnBase) - Dim dateTimeToBinaryConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DateTimeToBinaryConverterProperty", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateTimeToBinaryConverterProperty", dateTimeToBinaryConverterPropertyColumnBase) - Dim dateTimeToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DateTimeToStringConverterProperty", "nvarchar(48)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateTimeToStringConverterProperty", dateTimeToStringConverterPropertyColumnBase) - Dim dateTimeToTicksConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DateTimeToTicksConverterProperty", "datetime2", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateTimeToTicksConverterProperty", dateTimeToTicksConverterPropertyColumnBase) - Dim decimalColumnBase As New ColumnBase(Of ColumnMappingBase)("Decimal", "decimal(18,2)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Decimal", decimalColumnBase) - Dim decimalArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("DecimalArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DecimalArray", decimalArrayColumnBase) - Dim decimalNumberToBytesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DecimalNumberToBytesConverterProperty", "varbinary(16)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DecimalNumberToBytesConverterProperty", decimalNumberToBytesConverterPropertyColumnBase) - Dim decimalNumberToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DecimalNumberToStringConverterProperty", "nvarchar(64)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DecimalNumberToStringConverterProperty", decimalNumberToStringConverterPropertyColumnBase) - Dim doubleColumnBase As New ColumnBase(Of ColumnMappingBase)("Double", "float", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Double", doubleColumnBase) - Dim doubleArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("DoubleArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DoubleArray", doubleArrayColumnBase) - Dim doubleNumberToBytesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DoubleNumberToBytesConverterProperty", "varbinary(8)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DoubleNumberToBytesConverterProperty", doubleNumberToBytesConverterPropertyColumnBase) - Dim doubleNumberToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DoubleNumberToStringConverterProperty", "nvarchar(64)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DoubleNumberToStringConverterProperty", doubleNumberToStringConverterPropertyColumnBase) - Dim enum16ColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum16", "smallint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum16", enum16ColumnBase) - Dim enum16ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum16Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum16Array", enum16ArrayColumnBase) - Dim enum16AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum16AsString", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum16AsString", enum16AsStringColumnBase) - Dim enum16AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum16AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum16AsStringArray", enum16AsStringArrayColumnBase) - Dim enum16AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum16AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum16AsStringCollection", enum16AsStringCollectionColumnBase) - Dim enum16CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum16Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum16Collection", enum16CollectionColumnBase) - Dim enum32ColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum32", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum32", enum32ColumnBase) - Dim enum32ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum32Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum32Array", enum32ArrayColumnBase) - Dim enum32AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum32AsString", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum32AsString", enum32AsStringColumnBase) - Dim enum32AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum32AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum32AsStringArray", enum32AsStringArrayColumnBase) - Dim enum32AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum32AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum32AsStringCollection", enum32AsStringCollectionColumnBase) - Dim enum32CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum32Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum32Collection", enum32CollectionColumnBase) - Dim enum64ColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum64", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum64", enum64ColumnBase) - Dim enum64ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum64Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum64Array", enum64ArrayColumnBase) - Dim enum64AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum64AsString", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum64AsString", enum64AsStringColumnBase) - Dim enum64AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum64AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum64AsStringArray", enum64AsStringArrayColumnBase) - Dim enum64AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum64AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum64AsStringCollection", enum64AsStringCollectionColumnBase) - Dim enum64CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum64Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum64Collection", enum64CollectionColumnBase) - Dim enum8ColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum8", "smallint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum8", enum8ColumnBase) - Dim enum8ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum8Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum8Array", enum8ArrayColumnBase) - Dim enum8AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum8AsString", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum8AsString", enum8AsStringColumnBase) - Dim enum8AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum8AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum8AsStringArray", enum8AsStringArrayColumnBase) - Dim enum8AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum8AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum8AsStringCollection", enum8AsStringCollectionColumnBase) - Dim enum8CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum8Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum8Collection", enum8CollectionColumnBase) - Dim enumToNumberConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumToNumberConverterProperty", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumToNumberConverterProperty", enumToNumberConverterPropertyColumnBase) - Dim enumToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumToStringConverterProperty", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumToStringConverterProperty", enumToStringConverterPropertyColumnBase) - Dim enumU16ColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU16", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU16", enumU16ColumnBase) - Dim enumU16ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU16Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU16Array", enumU16ArrayColumnBase) - Dim enumU16AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU16AsString", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU16AsString", enumU16AsStringColumnBase) - Dim enumU16AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU16AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU16AsStringArray", enumU16AsStringArrayColumnBase) - Dim enumU16AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU16AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU16AsStringCollection", enumU16AsStringCollectionColumnBase) - Dim enumU16CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU16Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU16Collection", enumU16CollectionColumnBase) - Dim enumU32ColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU32", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU32", enumU32ColumnBase) - Dim enumU32ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU32Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU32Array", enumU32ArrayColumnBase) - Dim enumU32AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU32AsString", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU32AsString", enumU32AsStringColumnBase) - Dim enumU32AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU32AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU32AsStringArray", enumU32AsStringArrayColumnBase) - Dim enumU32AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU32AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU32AsStringCollection", enumU32AsStringCollectionColumnBase) - Dim enumU32CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU32Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU32Collection", enumU32CollectionColumnBase) - Dim enumU64ColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU64", "decimal(20,0)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU64", enumU64ColumnBase) - Dim enumU64ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU64Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU64Array", enumU64ArrayColumnBase) - Dim enumU64AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU64AsString", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU64AsString", enumU64AsStringColumnBase) - Dim enumU64AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU64AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU64AsStringArray", enumU64AsStringArrayColumnBase) - Dim enumU64AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU64AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU64AsStringCollection", enumU64AsStringCollectionColumnBase) - Dim enumU64CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU64Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU64Collection", enumU64CollectionColumnBase) - Dim enumU8ColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU8", "tinyint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU8", enumU8ColumnBase) - Dim enumU8ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU8Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU8Array", enumU8ArrayColumnBase) - Dim enumU8AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU8AsString", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU8AsString", enumU8AsStringColumnBase) - Dim enumU8AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU8AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU8AsStringArray", enumU8AsStringArrayColumnBase) - Dim enumU8AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU8AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU8AsStringCollection", enumU8AsStringCollectionColumnBase) - Dim enumU8CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU8Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU8Collection", enumU8CollectionColumnBase) - Dim floatArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("FloatArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("FloatArray", floatArrayColumnBase) - Dim guidColumnBase As New ColumnBase(Of ColumnMappingBase)("Guid", "uniqueidentifier", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Guid", guidColumnBase) - Dim guidArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("GuidArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("GuidArray", guidArrayColumnBase) - Dim guidToBytesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("GuidToBytesConverterProperty", "varbinary(16)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("GuidToBytesConverterProperty", guidToBytesConverterPropertyColumnBase) - Dim guidToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("GuidToStringConverterProperty", "nvarchar(36)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("GuidToStringConverterProperty", guidToStringConverterPropertyColumnBase) - Dim iPAddressArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("IPAddressArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("IPAddressArray", iPAddressArrayColumnBase) - Dim iPAddressToBytesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("IPAddressToBytesConverterProperty", "varbinary(16)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("IPAddressToBytesConverterProperty", iPAddressToBytesConverterPropertyColumnBase) - Dim iPAddressToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("IPAddressToStringConverterProperty", "nvarchar(45)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("IPAddressToStringConverterProperty", iPAddressToStringConverterPropertyColumnBase) - Dim idColumnBase0 As New ColumnBase(Of ColumnMappingBase)("Id", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Id", idColumnBase0) - Dim int16ColumnBase As New ColumnBase(Of ColumnMappingBase)("Int16", "smallint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Int16", int16ColumnBase) - Dim int16ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Int16Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Int16Array", int16ArrayColumnBase) - Dim int32ColumnBase As New ColumnBase(Of ColumnMappingBase)("Int32", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Int32", int32ColumnBase) - Dim int32ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Int32Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Int32Array", int32ArrayColumnBase) - Dim int64ColumnBase As New ColumnBase(Of ColumnMappingBase)("Int64", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Int64", int64ColumnBase) - Dim int64ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Int64Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Int64Array", int64ArrayColumnBase) - Dim int8ColumnBase As New ColumnBase(Of ColumnMappingBase)("Int8", "smallint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Int8", int8ColumnBase) - Dim int8ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Int8Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Int8Array", int8ArrayColumnBase) - Dim intNumberToBytesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("IntNumberToBytesConverterProperty", "varbinary(4)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("IntNumberToBytesConverterProperty", intNumberToBytesConverterPropertyColumnBase) - Dim intNumberToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("IntNumberToStringConverterProperty", "nvarchar(64)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("IntNumberToStringConverterProperty", intNumberToStringConverterPropertyColumnBase) - Dim nullIntToNullStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("NullIntToNullStringConverterProperty", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullIntToNullStringConverterProperty", nullIntToNullStringConverterPropertyColumnBase) - Dim nullableBoolColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableBool", "bit", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableBool", nullableBoolColumnBase) - Dim nullableBoolArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableBoolArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableBoolArray", nullableBoolArrayColumnBase) - Dim nullableBytesColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableBytes", "varbinary(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableBytes", nullableBytesColumnBase) - Dim nullableBytesArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableBytesArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableBytesArray", nullableBytesArrayColumnBase) - Dim nullableCharColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableChar", "nvarchar(1)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableChar", nullableCharColumnBase) - Dim nullableCharArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableCharArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableCharArray", nullableCharArrayColumnBase) - Dim nullableDateOnlyColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableDateOnly", "date", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableDateOnly", nullableDateOnlyColumnBase) - Dim nullableDateOnlyArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableDateOnlyArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableDateOnlyArray", nullableDateOnlyArrayColumnBase) - Dim nullableDateTimeColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableDateTime", "datetime2", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableDateTime", nullableDateTimeColumnBase) - Dim nullableDateTimeArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableDateTimeArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableDateTimeArray", nullableDateTimeArrayColumnBase) - Dim nullableDecimalColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableDecimal", "decimal(18,2)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableDecimal", nullableDecimalColumnBase) - Dim nullableDecimalArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableDecimalArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableDecimalArray", nullableDecimalArrayColumnBase) - Dim nullableDoubleColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableDouble", "float", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableDouble", nullableDoubleColumnBase) - Dim nullableDoubleArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableDoubleArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableDoubleArray", nullableDoubleArrayColumnBase) - Dim nullableEnum16ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum16", "smallint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum16", nullableEnum16ColumnBase) - Dim nullableEnum16ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum16Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum16Array", nullableEnum16ArrayColumnBase) - Dim nullableEnum16AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum16AsString", "smallint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum16AsString", nullableEnum16AsStringColumnBase) - Dim nullableEnum16AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum16AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum16AsStringArray", nullableEnum16AsStringArrayColumnBase) - Dim nullableEnum16AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum16AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum16AsStringCollection", nullableEnum16AsStringCollectionColumnBase) - Dim nullableEnum16CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum16Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum16Collection", nullableEnum16CollectionColumnBase) - Dim nullableEnum32ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum32", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum32", nullableEnum32ColumnBase) - Dim nullableEnum32ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum32Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum32Array", nullableEnum32ArrayColumnBase) - Dim nullableEnum32AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum32AsString", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum32AsString", nullableEnum32AsStringColumnBase) - Dim nullableEnum32AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum32AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum32AsStringArray", nullableEnum32AsStringArrayColumnBase) - Dim nullableEnum32AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum32AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum32AsStringCollection", nullableEnum32AsStringCollectionColumnBase) - Dim nullableEnum32CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum32Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum32Collection", nullableEnum32CollectionColumnBase) - Dim nullableEnum64ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum64", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum64", nullableEnum64ColumnBase) - Dim nullableEnum64ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum64Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum64Array", nullableEnum64ArrayColumnBase) - Dim nullableEnum64AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum64AsString", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum64AsString", nullableEnum64AsStringColumnBase) - Dim nullableEnum64AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum64AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum64AsStringArray", nullableEnum64AsStringArrayColumnBase) - Dim nullableEnum64AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum64AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum64AsStringCollection", nullableEnum64AsStringCollectionColumnBase) - Dim nullableEnum64CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum64Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum64Collection", nullableEnum64CollectionColumnBase) - Dim nullableEnum8ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum8", "smallint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum8", nullableEnum8ColumnBase) - Dim nullableEnum8ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum8Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum8Array", nullableEnum8ArrayColumnBase) - Dim nullableEnum8AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum8AsString", "smallint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum8AsString", nullableEnum8AsStringColumnBase) - Dim nullableEnum8AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum8AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum8AsStringArray", nullableEnum8AsStringArrayColumnBase) - Dim nullableEnum8AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum8AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum8AsStringCollection", nullableEnum8AsStringCollectionColumnBase) - Dim nullableEnum8CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum8Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum8Collection", nullableEnum8CollectionColumnBase) - Dim nullableEnumU16ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU16", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU16", nullableEnumU16ColumnBase) - Dim nullableEnumU16ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU16Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU16Array", nullableEnumU16ArrayColumnBase) - Dim nullableEnumU16AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU16AsString", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU16AsString", nullableEnumU16AsStringColumnBase) - Dim nullableEnumU16AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU16AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU16AsStringArray", nullableEnumU16AsStringArrayColumnBase) - Dim nullableEnumU16AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU16AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU16AsStringCollection", nullableEnumU16AsStringCollectionColumnBase) - Dim nullableEnumU16CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU16Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU16Collection", nullableEnumU16CollectionColumnBase) - Dim nullableEnumU32ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU32", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU32", nullableEnumU32ColumnBase) - Dim nullableEnumU32ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU32Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU32Array", nullableEnumU32ArrayColumnBase) - Dim nullableEnumU32AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU32AsString", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU32AsString", nullableEnumU32AsStringColumnBase) - Dim nullableEnumU32AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU32AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU32AsStringArray", nullableEnumU32AsStringArrayColumnBase) - Dim nullableEnumU32AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU32AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU32AsStringCollection", nullableEnumU32AsStringCollectionColumnBase) - Dim nullableEnumU32CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU32Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU32Collection", nullableEnumU32CollectionColumnBase) - Dim nullableEnumU64ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU64", "decimal(20,0)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU64", nullableEnumU64ColumnBase) - Dim nullableEnumU64ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU64Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU64Array", nullableEnumU64ArrayColumnBase) - Dim nullableEnumU64AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU64AsString", "decimal(20,0)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU64AsString", nullableEnumU64AsStringColumnBase) - Dim nullableEnumU64AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU64AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU64AsStringArray", nullableEnumU64AsStringArrayColumnBase) - Dim nullableEnumU64AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU64AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU64AsStringCollection", nullableEnumU64AsStringCollectionColumnBase) - Dim nullableEnumU64CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU64Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU64Collection", nullableEnumU64CollectionColumnBase) - Dim nullableEnumU8ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU8", "tinyint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU8", nullableEnumU8ColumnBase) - Dim nullableEnumU8ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU8Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU8Array", nullableEnumU8ArrayColumnBase) - Dim nullableEnumU8AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU8AsString", "tinyint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU8AsString", nullableEnumU8AsStringColumnBase) - Dim nullableEnumU8AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU8AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU8AsStringArray", nullableEnumU8AsStringArrayColumnBase) - Dim nullableEnumU8AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU8AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU8AsStringCollection", nullableEnumU8AsStringCollectionColumnBase) - Dim nullableEnumU8CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU8Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU8Collection", nullableEnumU8CollectionColumnBase) - Dim nullableFloatColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableFloat", "real", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableFloat", nullableFloatColumnBase) - Dim nullableFloatArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableFloatArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableFloatArray", nullableFloatArrayColumnBase) - Dim nullableGuidColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableGuid", "uniqueidentifier", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableGuid", nullableGuidColumnBase) - Dim nullableGuidArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableGuidArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableGuidArray", nullableGuidArrayColumnBase) - Dim nullableIPAddressColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableIPAddress", "nvarchar(45)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableIPAddress", nullableIPAddressColumnBase) - Dim nullableIPAddressArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableIPAddressArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableIPAddressArray", nullableIPAddressArrayColumnBase) - Dim nullableInt16ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableInt16", "smallint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableInt16", nullableInt16ColumnBase) - Dim nullableInt16ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableInt16Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableInt16Array", nullableInt16ArrayColumnBase) - Dim nullableInt32ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableInt32", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableInt32", nullableInt32ColumnBase) - Dim nullableInt32ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableInt32Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableInt32Array", nullableInt32ArrayColumnBase) - Dim nullableInt64ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableInt64", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableInt64", nullableInt64ColumnBase) - Dim nullableInt64ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableInt64Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableInt64Array", nullableInt64ArrayColumnBase) - Dim nullableInt8ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableInt8", "smallint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableInt8", nullableInt8ColumnBase) - Dim nullableInt8ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableInt8Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableInt8Array", nullableInt8ArrayColumnBase) - Dim nullablePhysicalAddressColumnBase As New ColumnBase(Of ColumnMappingBase)("NullablePhysicalAddress", "nvarchar(20)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullablePhysicalAddress", nullablePhysicalAddressColumnBase) - Dim nullablePhysicalAddressArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullablePhysicalAddressArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullablePhysicalAddressArray", nullablePhysicalAddressArrayColumnBase) - Dim nullableStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableString", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableString", nullableStringColumnBase) - Dim nullableStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableStringArray", nullableStringArrayColumnBase) - Dim nullableTimeOnlyColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableTimeOnly", "time", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableTimeOnly", nullableTimeOnlyColumnBase) - Dim nullableTimeOnlyArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableTimeOnlyArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableTimeOnlyArray", nullableTimeOnlyArrayColumnBase) - Dim nullableTimeSpanColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableTimeSpan", "time", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableTimeSpan", nullableTimeSpanColumnBase) - Dim nullableTimeSpanArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableTimeSpanArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableTimeSpanArray", nullableTimeSpanArrayColumnBase) - Dim nullableUInt16ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUInt16", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUInt16", nullableUInt16ColumnBase) - Dim nullableUInt16ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUInt16Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUInt16Array", nullableUInt16ArrayColumnBase) - Dim nullableUInt32ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUInt32", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUInt32", nullableUInt32ColumnBase) - Dim nullableUInt32ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUInt32Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUInt32Array", nullableUInt32ArrayColumnBase) - Dim nullableUInt64ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUInt64", "decimal(20,0)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUInt64", nullableUInt64ColumnBase) - Dim nullableUInt64ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUInt64Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUInt64Array", nullableUInt64ArrayColumnBase) - Dim nullableUInt8ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUInt8", "tinyint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUInt8", nullableUInt8ColumnBase) - Dim nullableUInt8ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUInt8Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUInt8Array", nullableUInt8ArrayColumnBase) - Dim nullableUriColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUri", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUri", nullableUriColumnBase) - Dim nullableUriArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUriArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUriArray", nullableUriArrayColumnBase) - Dim physicalAddressArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("PhysicalAddressArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("PhysicalAddressArray", physicalAddressArrayColumnBase) - Dim physicalAddressToBytesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("PhysicalAddressToBytesConverterProperty", "varbinary(8)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("PhysicalAddressToBytesConverterProperty", physicalAddressToBytesConverterPropertyColumnBase) - Dim physicalAddressToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("PhysicalAddressToStringConverterProperty", "nvarchar(20)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("PhysicalAddressToStringConverterProperty", physicalAddressToStringConverterPropertyColumnBase) - Dim stringColumnBase As New ColumnBase(Of ColumnMappingBase)("String", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("String", stringColumnBase) - Dim stringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("StringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringArray", stringArrayColumnBase) - Dim stringToBoolConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToBoolConverterProperty", "bit", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToBoolConverterProperty", stringToBoolConverterPropertyColumnBase) - Dim stringToBytesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToBytesConverterProperty", "varbinary(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToBytesConverterProperty", stringToBytesConverterPropertyColumnBase) - Dim stringToCharConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToCharConverterProperty", "nvarchar(1)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToCharConverterProperty", stringToCharConverterPropertyColumnBase) - Dim stringToDateOnlyConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToDateOnlyConverterProperty", "date", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToDateOnlyConverterProperty", stringToDateOnlyConverterPropertyColumnBase) - Dim stringToDateTimeConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToDateTimeConverterProperty", "datetime2", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToDateTimeConverterProperty", stringToDateTimeConverterPropertyColumnBase) - Dim stringToDateTimeOffsetConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToDateTimeOffsetConverterProperty", "datetimeoffset", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToDateTimeOffsetConverterProperty", stringToDateTimeOffsetConverterPropertyColumnBase) - Dim stringToDecimalNumberConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToDecimalNumberConverterProperty", "decimal(18,2)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToDecimalNumberConverterProperty", stringToDecimalNumberConverterPropertyColumnBase) - Dim stringToDoubleNumberConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToDoubleNumberConverterProperty", "float", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToDoubleNumberConverterProperty", stringToDoubleNumberConverterPropertyColumnBase) - Dim stringToEnumConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToEnumConverterProperty", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToEnumConverterProperty", stringToEnumConverterPropertyColumnBase) - Dim stringToGuidConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToGuidConverterProperty", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToGuidConverterProperty", stringToGuidConverterPropertyColumnBase) - Dim stringToIntNumberConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToIntNumberConverterProperty", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToIntNumberConverterProperty", stringToIntNumberConverterPropertyColumnBase) - Dim stringToTimeOnlyConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToTimeOnlyConverterProperty", "time", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToTimeOnlyConverterProperty", stringToTimeOnlyConverterPropertyColumnBase) - Dim stringToTimeSpanConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToTimeSpanConverterProperty", "time", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToTimeSpanConverterProperty", stringToTimeSpanConverterPropertyColumnBase) - Dim stringToUriConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToUriConverterProperty", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToUriConverterProperty", stringToUriConverterPropertyColumnBase) - Dim timeOnlyArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("TimeOnlyArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("TimeOnlyArray", timeOnlyArrayColumnBase) - Dim timeOnlyToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("TimeOnlyToStringConverterProperty", "nvarchar(48)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("TimeOnlyToStringConverterProperty", timeOnlyToStringConverterPropertyColumnBase) - Dim timeOnlyToTicksConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("TimeOnlyToTicksConverterProperty", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("TimeOnlyToTicksConverterProperty", timeOnlyToTicksConverterPropertyColumnBase) - Dim timeSpanArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("TimeSpanArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("TimeSpanArray", timeSpanArrayColumnBase) - Dim timeSpanToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("TimeSpanToStringConverterProperty", "nvarchar(48)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("TimeSpanToStringConverterProperty", timeSpanToStringConverterPropertyColumnBase) - Dim timeSpanToTicksConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("TimeSpanToTicksConverterProperty", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("TimeSpanToTicksConverterProperty", timeSpanToTicksConverterPropertyColumnBase) - Dim uInt16ColumnBase As New ColumnBase(Of ColumnMappingBase)("UInt16", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UInt16", uInt16ColumnBase) - Dim uInt16ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("UInt16Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UInt16Array", uInt16ArrayColumnBase) - Dim uInt32ColumnBase As New ColumnBase(Of ColumnMappingBase)("UInt32", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UInt32", uInt32ColumnBase) - Dim uInt32ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("UInt32Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UInt32Array", uInt32ArrayColumnBase) - Dim uInt64ColumnBase As New ColumnBase(Of ColumnMappingBase)("UInt64", "decimal(20,0)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UInt64", uInt64ColumnBase) - Dim uInt64ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("UInt64Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UInt64Array", uInt64ArrayColumnBase) - Dim uInt8ColumnBase As New ColumnBase(Of ColumnMappingBase)("UInt8", "tinyint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UInt8", uInt8ColumnBase) - Dim uInt8ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("UInt8Array", "varbinary(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UInt8Array", uInt8ArrayColumnBase) - Dim uriColumnBase As New ColumnBase(Of ColumnMappingBase)("Uri", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Uri", uriColumnBase) - Dim uriArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("UriArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UriArray", uriArrayColumnBase) - Dim uriToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("UriToStringConverterProperty", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UriToStringConverterProperty", uriToStringConverterPropertyColumnBase) - Dim aDateOnlyColumnBase As New ColumnBase(Of ColumnMappingBase)("aDateOnly", "date", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("aDateOnly", aDateOnlyColumnBase) - Dim aDateTimeColumnBase As New ColumnBase(Of ColumnMappingBase)("aDateTime", "datetime2", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("aDateTime", aDateTimeColumnBase) - Dim aFloatColumnBase As New ColumnBase(Of ColumnMappingBase)("aFloat", "real", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("aFloat", aFloatColumnBase) - Dim aPhysicalAddressColumnBase As New ColumnBase(Of ColumnMappingBase)("aPhysicalAddress", "nvarchar(20)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("aPhysicalAddress", aPhysicalAddressColumnBase) - Dim aTimeOnlyColumnBase As New ColumnBase(Of ColumnMappingBase)("aTimeOnly", "time", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("aTimeOnly", aTimeOnlyColumnBase) - Dim aTimeSpanColumnBase As New ColumnBase(Of ColumnMappingBase)("aTimeSpan", "time", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("aTimeSpan", aTimeSpanColumnBase) - Dim anIPAddressColumnBase As New ColumnBase(Of ColumnMappingBase)("anIPAddress", "nvarchar(45)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("anIPAddress", anIPAddressColumnBase) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+ManyTypes", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase As New TableMappingBase(Of ColumnMappingBase)(manyTypes, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase, False) - defaultTableMappings1.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase0, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(boolColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Bool"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(boolArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("BoolArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(boolToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("BoolToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(boolToTwoValuesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("BoolToTwoValuesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(boolToZeroOneConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("BoolToZeroOneConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(bytesColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Bytes"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(bytesArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("BytesArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(bytesToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("BytesToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(castingConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("CastingConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(charColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Char"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(charArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("CharArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(charToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("CharToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateOnlyArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateOnlyArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateOnlyToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateOnlyToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateTimeArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateTimeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateTimeOffsetToBinaryConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateTimeOffsetToBinaryConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateTimeOffsetToBytesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateTimeOffsetToBytesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateTimeOffsetToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateTimeOffsetToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateTimeToBinaryConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateTimeToBinaryConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateTimeToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateTimeToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateTimeToTicksConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateTimeToTicksConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(decimalColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Decimal"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(decimalArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DecimalArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(decimalNumberToBytesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DecimalNumberToBytesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(decimalNumberToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DecimalNumberToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(doubleColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Double"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(doubleArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DoubleArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(doubleNumberToBytesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DoubleNumberToBytesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(doubleNumberToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DoubleNumberToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum16ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum16"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum16ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum16Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum16AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum16AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum16AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum16AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum16AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum16AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum16CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum16Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum32ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum32"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum32ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum32Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum32AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum32AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum32AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum32AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum32AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum32AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum32CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum32Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum64ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum64"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum64ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum64Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum64AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum64AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum64AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum64AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum64AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum64AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum64CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum64Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum8ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum8"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum8ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum8Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum8AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum8AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum8AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum8AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum8AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum8AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum8CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum8Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumToNumberConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumToNumberConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU16ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU16"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU16ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU16Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU16AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU16AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU16AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU16AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU16AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU16AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU16CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU16Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU32ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU32"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU32ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU32Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU32AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU32AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU32AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU32AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU32AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU32AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU32CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU32Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU64ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU64"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU64ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU64Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU64AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU64AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU64AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU64AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU64AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU64AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU64CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU64Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU8ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU8"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU8ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU8Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU8AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU8AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU8AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU8AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU8AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU8AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU8CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU8Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(floatArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("FloatArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(guidColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Guid"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(guidArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("GuidArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(guidToBytesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("GuidToBytesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(guidToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("GuidToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(iPAddressArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("IPAddressArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(iPAddressToBytesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("IPAddressToBytesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(iPAddressToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("IPAddressToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(int16ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Int16"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(int16ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Int16Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(int32ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Int32"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(int32ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Int32Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(int64ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Int64"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(int64ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Int64Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(int8ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Int8"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(int8ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Int8Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(intNumberToBytesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("IntNumberToBytesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(intNumberToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("IntNumberToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullIntToNullStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullIntToNullStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableBoolColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableBool"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableBoolArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableBoolArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableBytesColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableBytes"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableBytesArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableBytesArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableCharColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableChar"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableCharArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableCharArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableDateOnlyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableDateOnly"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableDateOnlyArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableDateOnlyArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableDateTimeColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableDateTime"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableDateTimeArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableDateTimeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableDecimalColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableDecimal"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableDecimalArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableDecimalArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableDoubleColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableDouble"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableDoubleArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableDoubleArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum16ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum16"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum16ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum16Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum16AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum16AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum16AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum16AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum16AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum16AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum16CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum16Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum32ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum32"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum32ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum32Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum32AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum32AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum32AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum32AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum32AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum32AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum32CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum32Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum64ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum64"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum64ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum64Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum64AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum64AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum64AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum64AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum64AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum64AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum64CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum64Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum8ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum8"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum8ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum8Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum8AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum8AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum8AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum8AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum8AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum8AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum8CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum8Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU16ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU16"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU16ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU16Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU16AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU16AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU16AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU16AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU16AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU16AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU16CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU16Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU32ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU32"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU32ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU32Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU32AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU32AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU32AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU32AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU32AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU32AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU32CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU32Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU64ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU64"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU64ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU64Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU64AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU64AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU64AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU64AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU64AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU64AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU64CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU64Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU8ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU8"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU8ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU8Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU8AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU8AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU8AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU8AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU8AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU8AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU8CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU8Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableFloatColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableFloat"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableFloatArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableFloatArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableGuidColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableGuid"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableGuidArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableGuidArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableIPAddressColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableIPAddress"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableIPAddressArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableIPAddressArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableInt16ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableInt16"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableInt16ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableInt16Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableInt32ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableInt32"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableInt32ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableInt32Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableInt64ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableInt64"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableInt64ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableInt64Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableInt8ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableInt8"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableInt8ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableInt8Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullablePhysicalAddressColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullablePhysicalAddress"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullablePhysicalAddressArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullablePhysicalAddressArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableTimeOnlyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableTimeOnly"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableTimeOnlyArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableTimeOnlyArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableTimeSpanColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableTimeSpan"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableTimeSpanArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableTimeSpanArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUInt16ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUInt16"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUInt16ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUInt16Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUInt32ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUInt32"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUInt32ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUInt32Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUInt64ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUInt64"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUInt64ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUInt64Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUInt8ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUInt8"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUInt8ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUInt8Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUriColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUri"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUriArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUriArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(physicalAddressArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("PhysicalAddressArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(physicalAddressToBytesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("PhysicalAddressToBytesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(physicalAddressToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("PhysicalAddressToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("String"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToBoolConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToBoolConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToBytesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToBytesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToCharConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToCharConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToDateOnlyConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToDateOnlyConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToDateTimeConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToDateTimeConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToDateTimeOffsetConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToDateTimeOffsetConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToDecimalNumberConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToDecimalNumberConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToDoubleNumberConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToDoubleNumberConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToEnumConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToEnumConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToGuidConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToGuidConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToIntNumberConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToIntNumberConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToTimeOnlyConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToTimeOnlyConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToTimeSpanConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToTimeSpanConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToUriConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToUriConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(timeOnlyArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("TimeOnlyArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(timeOnlyToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("TimeOnlyToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(timeOnlyToTicksConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("TimeOnlyToTicksConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(timeSpanArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("TimeSpanArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(timeSpanToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("TimeSpanToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(timeSpanToTicksConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("TimeSpanToTicksConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uInt16ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UInt16"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uInt16ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UInt16Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uInt32ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UInt32"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uInt32ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UInt32Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uInt64ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UInt64"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uInt64ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UInt64Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uInt8ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UInt8"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uInt8ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UInt8Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uriColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Uri"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uriArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UriArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uriToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UriToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(aDateOnlyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("aDateOnly"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(aDateTimeColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("aDateTime"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(aFloatColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("aFloat"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(aPhysicalAddressColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("aPhysicalAddress"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(aTimeOnlyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("aTimeOnly"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(aTimeSpanColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("aTimeSpan"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(anIPAddressColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("anIPAddress"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - - Dim tableMappings1 As New List(Of TableMapping)() - manyTypes.SetRuntimeAnnotation("Relational:TableMappings", tableMappings1) - Dim manyTypesTable As New Table("ManyTypes", Nothing, relationalModel) - Dim idColumn0 As New Column("Id", "int", manyTypesTable) - manyTypesTable.Columns.Add("Id", idColumn0) - Dim boolColumn As New Column("Bool", "bit", manyTypesTable) - manyTypesTable.Columns.Add("Bool", boolColumn) - Dim boolArrayColumn As New Column("BoolArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("BoolArray", boolArrayColumn) - Dim boolToStringConverterPropertyColumn As New Column("BoolToStringConverterProperty", "nvarchar(1)", manyTypesTable) - manyTypesTable.Columns.Add("BoolToStringConverterProperty", boolToStringConverterPropertyColumn) - Dim boolToTwoValuesConverterPropertyColumn As New Column("BoolToTwoValuesConverterProperty", "tinyint", manyTypesTable) - manyTypesTable.Columns.Add("BoolToTwoValuesConverterProperty", boolToTwoValuesConverterPropertyColumn) - Dim boolToZeroOneConverterPropertyColumn As New Column("BoolToZeroOneConverterProperty", "smallint", manyTypesTable) - manyTypesTable.Columns.Add("BoolToZeroOneConverterProperty", boolToZeroOneConverterPropertyColumn) - Dim bytesColumn As New Column("Bytes", "varbinary(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Bytes", bytesColumn) - Dim bytesArrayColumn As New Column("BytesArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("BytesArray", bytesArrayColumn) - Dim bytesToStringConverterPropertyColumn As New Column("BytesToStringConverterProperty", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("BytesToStringConverterProperty", bytesToStringConverterPropertyColumn) - Dim castingConverterPropertyColumn As New Column("CastingConverterProperty", "decimal(18,2)", manyTypesTable) - manyTypesTable.Columns.Add("CastingConverterProperty", castingConverterPropertyColumn) - Dim charColumn As New Column("Char", "nvarchar(1)", manyTypesTable) - manyTypesTable.Columns.Add("Char", charColumn) - Dim charArrayColumn As New Column("CharArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("CharArray", charArrayColumn) - Dim charToStringConverterPropertyColumn As New Column("CharToStringConverterProperty", "nvarchar(1)", manyTypesTable) - manyTypesTable.Columns.Add("CharToStringConverterProperty", charToStringConverterPropertyColumn) - Dim dateOnlyArrayColumn As New Column("DateOnlyArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("DateOnlyArray", dateOnlyArrayColumn) - Dim dateOnlyToStringConverterPropertyColumn As New Column("DateOnlyToStringConverterProperty", "nvarchar(10)", manyTypesTable) - manyTypesTable.Columns.Add("DateOnlyToStringConverterProperty", dateOnlyToStringConverterPropertyColumn) - Dim dateTimeArrayColumn As New Column("DateTimeArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("DateTimeArray", dateTimeArrayColumn) - Dim dateTimeOffsetToBinaryConverterPropertyColumn As New Column("DateTimeOffsetToBinaryConverterProperty", "bigint", manyTypesTable) - manyTypesTable.Columns.Add("DateTimeOffsetToBinaryConverterProperty", dateTimeOffsetToBinaryConverterPropertyColumn) - Dim dateTimeOffsetToBytesConverterPropertyColumn As New Column("DateTimeOffsetToBytesConverterProperty", "varbinary(12)", manyTypesTable) - manyTypesTable.Columns.Add("DateTimeOffsetToBytesConverterProperty", dateTimeOffsetToBytesConverterPropertyColumn) - Dim dateTimeOffsetToStringConverterPropertyColumn As New Column("DateTimeOffsetToStringConverterProperty", "nvarchar(48)", manyTypesTable) - manyTypesTable.Columns.Add("DateTimeOffsetToStringConverterProperty", dateTimeOffsetToStringConverterPropertyColumn) - Dim dateTimeToBinaryConverterPropertyColumn As New Column("DateTimeToBinaryConverterProperty", "bigint", manyTypesTable) - manyTypesTable.Columns.Add("DateTimeToBinaryConverterProperty", dateTimeToBinaryConverterPropertyColumn) - Dim dateTimeToStringConverterPropertyColumn As New Column("DateTimeToStringConverterProperty", "nvarchar(48)", manyTypesTable) - manyTypesTable.Columns.Add("DateTimeToStringConverterProperty", dateTimeToStringConverterPropertyColumn) - Dim dateTimeToTicksConverterPropertyColumn As New Column("DateTimeToTicksConverterProperty", "datetime2", manyTypesTable) - manyTypesTable.Columns.Add("DateTimeToTicksConverterProperty", dateTimeToTicksConverterPropertyColumn) - Dim decimalColumn As New Column("Decimal", "decimal(18,2)", manyTypesTable) - manyTypesTable.Columns.Add("Decimal", decimalColumn) - Dim decimalArrayColumn As New Column("DecimalArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("DecimalArray", decimalArrayColumn) - Dim decimalNumberToBytesConverterPropertyColumn As New Column("DecimalNumberToBytesConverterProperty", "varbinary(16)", manyTypesTable) - manyTypesTable.Columns.Add("DecimalNumberToBytesConverterProperty", decimalNumberToBytesConverterPropertyColumn) - Dim decimalNumberToStringConverterPropertyColumn As New Column("DecimalNumberToStringConverterProperty", "nvarchar(64)", manyTypesTable) - manyTypesTable.Columns.Add("DecimalNumberToStringConverterProperty", decimalNumberToStringConverterPropertyColumn) - Dim doubleColumn As New Column("Double", "float", manyTypesTable) - manyTypesTable.Columns.Add("Double", doubleColumn) - Dim doubleArrayColumn As New Column("DoubleArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("DoubleArray", doubleArrayColumn) - Dim doubleNumberToBytesConverterPropertyColumn As New Column("DoubleNumberToBytesConverterProperty", "varbinary(8)", manyTypesTable) - manyTypesTable.Columns.Add("DoubleNumberToBytesConverterProperty", doubleNumberToBytesConverterPropertyColumn) - Dim doubleNumberToStringConverterPropertyColumn As New Column("DoubleNumberToStringConverterProperty", "nvarchar(64)", manyTypesTable) - manyTypesTable.Columns.Add("DoubleNumberToStringConverterProperty", doubleNumberToStringConverterPropertyColumn) - Dim enum16Column As New Column("Enum16", "smallint", manyTypesTable) - manyTypesTable.Columns.Add("Enum16", enum16Column) - Dim enum16ArrayColumn As New Column("Enum16Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum16Array", enum16ArrayColumn) - Dim enum16AsStringColumn As New Column("Enum16AsString", "nvarchar(max)", manyTypesTable) - manyTypesTable.Columns.Add("Enum16AsString", enum16AsStringColumn) - Dim enum16AsStringArrayColumn As New Column("Enum16AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum16AsStringArray", enum16AsStringArrayColumn) - Dim enum16AsStringCollectionColumn As New Column("Enum16AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum16AsStringCollection", enum16AsStringCollectionColumn) - Dim enum16CollectionColumn As New Column("Enum16Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum16Collection", enum16CollectionColumn) - Dim enum32Column As New Column("Enum32", "int", manyTypesTable) - manyTypesTable.Columns.Add("Enum32", enum32Column) - Dim enum32ArrayColumn As New Column("Enum32Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum32Array", enum32ArrayColumn) - Dim enum32AsStringColumn As New Column("Enum32AsString", "nvarchar(max)", manyTypesTable) - manyTypesTable.Columns.Add("Enum32AsString", enum32AsStringColumn) - Dim enum32AsStringArrayColumn As New Column("Enum32AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum32AsStringArray", enum32AsStringArrayColumn) - Dim enum32AsStringCollectionColumn As New Column("Enum32AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum32AsStringCollection", enum32AsStringCollectionColumn) - Dim enum32CollectionColumn As New Column("Enum32Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum32Collection", enum32CollectionColumn) - Dim enum64Column As New Column("Enum64", "bigint", manyTypesTable) - manyTypesTable.Columns.Add("Enum64", enum64Column) - Dim enum64ArrayColumn As New Column("Enum64Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum64Array", enum64ArrayColumn) - Dim enum64AsStringColumn As New Column("Enum64AsString", "nvarchar(max)", manyTypesTable) - manyTypesTable.Columns.Add("Enum64AsString", enum64AsStringColumn) - Dim enum64AsStringArrayColumn As New Column("Enum64AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum64AsStringArray", enum64AsStringArrayColumn) - Dim enum64AsStringCollectionColumn As New Column("Enum64AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum64AsStringCollection", enum64AsStringCollectionColumn) - Dim enum64CollectionColumn As New Column("Enum64Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum64Collection", enum64CollectionColumn) - Dim enum8Column As New Column("Enum8", "smallint", manyTypesTable) - manyTypesTable.Columns.Add("Enum8", enum8Column) - Dim enum8ArrayColumn As New Column("Enum8Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum8Array", enum8ArrayColumn) - Dim enum8AsStringColumn As New Column("Enum8AsString", "nvarchar(max)", manyTypesTable) - manyTypesTable.Columns.Add("Enum8AsString", enum8AsStringColumn) - Dim enum8AsStringArrayColumn As New Column("Enum8AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum8AsStringArray", enum8AsStringArrayColumn) - Dim enum8AsStringCollectionColumn As New Column("Enum8AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum8AsStringCollection", enum8AsStringCollectionColumn) - Dim enum8CollectionColumn As New Column("Enum8Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum8Collection", enum8CollectionColumn) - Dim enumToNumberConverterPropertyColumn As New Column("EnumToNumberConverterProperty", "int", manyTypesTable) - manyTypesTable.Columns.Add("EnumToNumberConverterProperty", enumToNumberConverterPropertyColumn) - Dim enumToStringConverterPropertyColumn As New Column("EnumToStringConverterProperty", "nvarchar(max)", manyTypesTable) - manyTypesTable.Columns.Add("EnumToStringConverterProperty", enumToStringConverterPropertyColumn) - Dim enumU16Column As New Column("EnumU16", "int", manyTypesTable) - manyTypesTable.Columns.Add("EnumU16", enumU16Column) - Dim enumU16ArrayColumn As New Column("EnumU16Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU16Array", enumU16ArrayColumn) - Dim enumU16AsStringColumn As New Column("EnumU16AsString", "nvarchar(max)", manyTypesTable) - manyTypesTable.Columns.Add("EnumU16AsString", enumU16AsStringColumn) - Dim enumU16AsStringArrayColumn As New Column("EnumU16AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU16AsStringArray", enumU16AsStringArrayColumn) - Dim enumU16AsStringCollectionColumn As New Column("EnumU16AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU16AsStringCollection", enumU16AsStringCollectionColumn) - Dim enumU16CollectionColumn As New Column("EnumU16Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU16Collection", enumU16CollectionColumn) - Dim enumU32Column As New Column("EnumU32", "bigint", manyTypesTable) - manyTypesTable.Columns.Add("EnumU32", enumU32Column) - Dim enumU32ArrayColumn As New Column("EnumU32Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU32Array", enumU32ArrayColumn) - Dim enumU32AsStringColumn As New Column("EnumU32AsString", "nvarchar(max)", manyTypesTable) - manyTypesTable.Columns.Add("EnumU32AsString", enumU32AsStringColumn) - Dim enumU32AsStringArrayColumn As New Column("EnumU32AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU32AsStringArray", enumU32AsStringArrayColumn) - Dim enumU32AsStringCollectionColumn As New Column("EnumU32AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU32AsStringCollection", enumU32AsStringCollectionColumn) - Dim enumU32CollectionColumn As New Column("EnumU32Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU32Collection", enumU32CollectionColumn) - Dim enumU64Column As New Column("EnumU64", "decimal(20,0)", manyTypesTable) - manyTypesTable.Columns.Add("EnumU64", enumU64Column) - Dim enumU64ArrayColumn As New Column("EnumU64Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU64Array", enumU64ArrayColumn) - Dim enumU64AsStringColumn As New Column("EnumU64AsString", "nvarchar(max)", manyTypesTable) - manyTypesTable.Columns.Add("EnumU64AsString", enumU64AsStringColumn) - Dim enumU64AsStringArrayColumn As New Column("EnumU64AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU64AsStringArray", enumU64AsStringArrayColumn) - Dim enumU64AsStringCollectionColumn As New Column("EnumU64AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU64AsStringCollection", enumU64AsStringCollectionColumn) - Dim enumU64CollectionColumn As New Column("EnumU64Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU64Collection", enumU64CollectionColumn) - Dim enumU8Column As New Column("EnumU8", "tinyint", manyTypesTable) - manyTypesTable.Columns.Add("EnumU8", enumU8Column) - Dim enumU8ArrayColumn As New Column("EnumU8Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU8Array", enumU8ArrayColumn) - Dim enumU8AsStringColumn As New Column("EnumU8AsString", "nvarchar(max)", manyTypesTable) - manyTypesTable.Columns.Add("EnumU8AsString", enumU8AsStringColumn) - Dim enumU8AsStringArrayColumn As New Column("EnumU8AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU8AsStringArray", enumU8AsStringArrayColumn) - Dim enumU8AsStringCollectionColumn As New Column("EnumU8AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU8AsStringCollection", enumU8AsStringCollectionColumn) - Dim enumU8CollectionColumn As New Column("EnumU8Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU8Collection", enumU8CollectionColumn) - Dim floatArrayColumn As New Column("FloatArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("FloatArray", floatArrayColumn) - Dim guidColumn As New Column("Guid", "uniqueidentifier", manyTypesTable) - manyTypesTable.Columns.Add("Guid", guidColumn) - Dim guidArrayColumn As New Column("GuidArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("GuidArray", guidArrayColumn) - Dim guidToBytesConverterPropertyColumn As New Column("GuidToBytesConverterProperty", "varbinary(16)", manyTypesTable) - manyTypesTable.Columns.Add("GuidToBytesConverterProperty", guidToBytesConverterPropertyColumn) - Dim guidToStringConverterPropertyColumn As New Column("GuidToStringConverterProperty", "nvarchar(36)", manyTypesTable) - manyTypesTable.Columns.Add("GuidToStringConverterProperty", guidToStringConverterPropertyColumn) - Dim iPAddressArrayColumn As New Column("IPAddressArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("IPAddressArray", iPAddressArrayColumn) - Dim iPAddressToBytesConverterPropertyColumn As New Column("IPAddressToBytesConverterProperty", "varbinary(16)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("IPAddressToBytesConverterProperty", iPAddressToBytesConverterPropertyColumn) - Dim iPAddressToStringConverterPropertyColumn As New Column("IPAddressToStringConverterProperty", "nvarchar(45)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("IPAddressToStringConverterProperty", iPAddressToStringConverterPropertyColumn) - Dim int16Column As New Column("Int16", "smallint", manyTypesTable) - manyTypesTable.Columns.Add("Int16", int16Column) - Dim int16ArrayColumn As New Column("Int16Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Int16Array", int16ArrayColumn) - Dim int32Column As New Column("Int32", "int", manyTypesTable) - manyTypesTable.Columns.Add("Int32", int32Column) - Dim int32ArrayColumn As New Column("Int32Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Int32Array", int32ArrayColumn) - Dim int64Column As New Column("Int64", "bigint", manyTypesTable) - manyTypesTable.Columns.Add("Int64", int64Column) - Dim int64ArrayColumn As New Column("Int64Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Int64Array", int64ArrayColumn) - Dim int8Column As New Column("Int8", "smallint", manyTypesTable) - manyTypesTable.Columns.Add("Int8", int8Column) - Dim int8ArrayColumn As New Column("Int8Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Int8Array", int8ArrayColumn) - Dim intNumberToBytesConverterPropertyColumn As New Column("IntNumberToBytesConverterProperty", "varbinary(4)", manyTypesTable) - manyTypesTable.Columns.Add("IntNumberToBytesConverterProperty", intNumberToBytesConverterPropertyColumn) - Dim intNumberToStringConverterPropertyColumn As New Column("IntNumberToStringConverterProperty", "nvarchar(64)", manyTypesTable) - manyTypesTable.Columns.Add("IntNumberToStringConverterProperty", intNumberToStringConverterPropertyColumn) - Dim nullIntToNullStringConverterPropertyColumn As New Column("NullIntToNullStringConverterProperty", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullIntToNullStringConverterProperty", nullIntToNullStringConverterPropertyColumn) - Dim nullableBoolColumn As New Column("NullableBool", "bit", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableBool", nullableBoolColumn) - Dim nullableBoolArrayColumn As New Column("NullableBoolArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableBoolArray", nullableBoolArrayColumn) - Dim nullableBytesColumn As New Column("NullableBytes", "varbinary(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableBytes", nullableBytesColumn) - Dim nullableBytesArrayColumn As New Column("NullableBytesArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableBytesArray", nullableBytesArrayColumn) - Dim nullableCharColumn As New Column("NullableChar", "nvarchar(1)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableChar", nullableCharColumn) - Dim nullableCharArrayColumn As New Column("NullableCharArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableCharArray", nullableCharArrayColumn) - Dim nullableDateOnlyColumn As New Column("NullableDateOnly", "date", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableDateOnly", nullableDateOnlyColumn) - Dim nullableDateOnlyArrayColumn As New Column("NullableDateOnlyArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableDateOnlyArray", nullableDateOnlyArrayColumn) - Dim nullableDateTimeColumn As New Column("NullableDateTime", "datetime2", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableDateTime", nullableDateTimeColumn) - Dim nullableDateTimeArrayColumn As New Column("NullableDateTimeArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableDateTimeArray", nullableDateTimeArrayColumn) - Dim nullableDecimalColumn As New Column("NullableDecimal", "decimal(18,2)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableDecimal", nullableDecimalColumn) - Dim nullableDecimalArrayColumn As New Column("NullableDecimalArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableDecimalArray", nullableDecimalArrayColumn) - Dim nullableDoubleColumn As New Column("NullableDouble", "float", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableDouble", nullableDoubleColumn) - Dim nullableDoubleArrayColumn As New Column("NullableDoubleArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableDoubleArray", nullableDoubleArrayColumn) - Dim nullableEnum16Column As New Column("NullableEnum16", "smallint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum16", nullableEnum16Column) - Dim nullableEnum16ArrayColumn As New Column("NullableEnum16Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum16Array", nullableEnum16ArrayColumn) - Dim nullableEnum16AsStringColumn As New Column("NullableEnum16AsString", "smallint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum16AsString", nullableEnum16AsStringColumn) - Dim nullableEnum16AsStringArrayColumn As New Column("NullableEnum16AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum16AsStringArray", nullableEnum16AsStringArrayColumn) - Dim nullableEnum16AsStringCollectionColumn As New Column("NullableEnum16AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum16AsStringCollection", nullableEnum16AsStringCollectionColumn) - Dim nullableEnum16CollectionColumn As New Column("NullableEnum16Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum16Collection", nullableEnum16CollectionColumn) - Dim nullableEnum32Column As New Column("NullableEnum32", "int", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum32", nullableEnum32Column) - Dim nullableEnum32ArrayColumn As New Column("NullableEnum32Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum32Array", nullableEnum32ArrayColumn) - Dim nullableEnum32AsStringColumn As New Column("NullableEnum32AsString", "int", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum32AsString", nullableEnum32AsStringColumn) - Dim nullableEnum32AsStringArrayColumn As New Column("NullableEnum32AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum32AsStringArray", nullableEnum32AsStringArrayColumn) - Dim nullableEnum32AsStringCollectionColumn As New Column("NullableEnum32AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum32AsStringCollection", nullableEnum32AsStringCollectionColumn) - Dim nullableEnum32CollectionColumn As New Column("NullableEnum32Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum32Collection", nullableEnum32CollectionColumn) - Dim nullableEnum64Column As New Column("NullableEnum64", "bigint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum64", nullableEnum64Column) - Dim nullableEnum64ArrayColumn As New Column("NullableEnum64Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum64Array", nullableEnum64ArrayColumn) - Dim nullableEnum64AsStringColumn As New Column("NullableEnum64AsString", "bigint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum64AsString", nullableEnum64AsStringColumn) - Dim nullableEnum64AsStringArrayColumn As New Column("NullableEnum64AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum64AsStringArray", nullableEnum64AsStringArrayColumn) - Dim nullableEnum64AsStringCollectionColumn As New Column("NullableEnum64AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum64AsStringCollection", nullableEnum64AsStringCollectionColumn) - Dim nullableEnum64CollectionColumn As New Column("NullableEnum64Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum64Collection", nullableEnum64CollectionColumn) - Dim nullableEnum8Column As New Column("NullableEnum8", "smallint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum8", nullableEnum8Column) - Dim nullableEnum8ArrayColumn As New Column("NullableEnum8Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum8Array", nullableEnum8ArrayColumn) - Dim nullableEnum8AsStringColumn As New Column("NullableEnum8AsString", "smallint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum8AsString", nullableEnum8AsStringColumn) - Dim nullableEnum8AsStringArrayColumn As New Column("NullableEnum8AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum8AsStringArray", nullableEnum8AsStringArrayColumn) - Dim nullableEnum8AsStringCollectionColumn As New Column("NullableEnum8AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum8AsStringCollection", nullableEnum8AsStringCollectionColumn) - Dim nullableEnum8CollectionColumn As New Column("NullableEnum8Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum8Collection", nullableEnum8CollectionColumn) - Dim nullableEnumU16Column As New Column("NullableEnumU16", "int", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU16", nullableEnumU16Column) - Dim nullableEnumU16ArrayColumn As New Column("NullableEnumU16Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU16Array", nullableEnumU16ArrayColumn) - Dim nullableEnumU16AsStringColumn As New Column("NullableEnumU16AsString", "int", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU16AsString", nullableEnumU16AsStringColumn) - Dim nullableEnumU16AsStringArrayColumn As New Column("NullableEnumU16AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU16AsStringArray", nullableEnumU16AsStringArrayColumn) - Dim nullableEnumU16AsStringCollectionColumn As New Column("NullableEnumU16AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU16AsStringCollection", nullableEnumU16AsStringCollectionColumn) - Dim nullableEnumU16CollectionColumn As New Column("NullableEnumU16Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU16Collection", nullableEnumU16CollectionColumn) - Dim nullableEnumU32Column As New Column("NullableEnumU32", "bigint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU32", nullableEnumU32Column) - Dim nullableEnumU32ArrayColumn As New Column("NullableEnumU32Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU32Array", nullableEnumU32ArrayColumn) - Dim nullableEnumU32AsStringColumn As New Column("NullableEnumU32AsString", "bigint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU32AsString", nullableEnumU32AsStringColumn) - Dim nullableEnumU32AsStringArrayColumn As New Column("NullableEnumU32AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU32AsStringArray", nullableEnumU32AsStringArrayColumn) - Dim nullableEnumU32AsStringCollectionColumn As New Column("NullableEnumU32AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU32AsStringCollection", nullableEnumU32AsStringCollectionColumn) - Dim nullableEnumU32CollectionColumn As New Column("NullableEnumU32Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU32Collection", nullableEnumU32CollectionColumn) - Dim nullableEnumU64Column As New Column("NullableEnumU64", "decimal(20,0)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU64", nullableEnumU64Column) - Dim nullableEnumU64ArrayColumn As New Column("NullableEnumU64Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU64Array", nullableEnumU64ArrayColumn) - Dim nullableEnumU64AsStringColumn As New Column("NullableEnumU64AsString", "decimal(20,0)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU64AsString", nullableEnumU64AsStringColumn) - Dim nullableEnumU64AsStringArrayColumn As New Column("NullableEnumU64AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU64AsStringArray", nullableEnumU64AsStringArrayColumn) - Dim nullableEnumU64AsStringCollectionColumn As New Column("NullableEnumU64AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU64AsStringCollection", nullableEnumU64AsStringCollectionColumn) - Dim nullableEnumU64CollectionColumn As New Column("NullableEnumU64Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU64Collection", nullableEnumU64CollectionColumn) - Dim nullableEnumU8Column As New Column("NullableEnumU8", "tinyint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU8", nullableEnumU8Column) - Dim nullableEnumU8ArrayColumn As New Column("NullableEnumU8Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU8Array", nullableEnumU8ArrayColumn) - Dim nullableEnumU8AsStringColumn As New Column("NullableEnumU8AsString", "tinyint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU8AsString", nullableEnumU8AsStringColumn) - Dim nullableEnumU8AsStringArrayColumn As New Column("NullableEnumU8AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU8AsStringArray", nullableEnumU8AsStringArrayColumn) - Dim nullableEnumU8AsStringCollectionColumn As New Column("NullableEnumU8AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU8AsStringCollection", nullableEnumU8AsStringCollectionColumn) - Dim nullableEnumU8CollectionColumn As New Column("NullableEnumU8Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU8Collection", nullableEnumU8CollectionColumn) - Dim nullableFloatColumn As New Column("NullableFloat", "real", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableFloat", nullableFloatColumn) - Dim nullableFloatArrayColumn As New Column("NullableFloatArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableFloatArray", nullableFloatArrayColumn) - Dim nullableGuidColumn As New Column("NullableGuid", "uniqueidentifier", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableGuid", nullableGuidColumn) - Dim nullableGuidArrayColumn As New Column("NullableGuidArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableGuidArray", nullableGuidArrayColumn) - Dim nullableIPAddressColumn As New Column("NullableIPAddress", "nvarchar(45)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableIPAddress", nullableIPAddressColumn) - Dim nullableIPAddressArrayColumn As New Column("NullableIPAddressArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableIPAddressArray", nullableIPAddressArrayColumn) - Dim nullableInt16Column As New Column("NullableInt16", "smallint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableInt16", nullableInt16Column) - Dim nullableInt16ArrayColumn As New Column("NullableInt16Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableInt16Array", nullableInt16ArrayColumn) - Dim nullableInt32Column As New Column("NullableInt32", "int", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableInt32", nullableInt32Column) - Dim nullableInt32ArrayColumn As New Column("NullableInt32Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableInt32Array", nullableInt32ArrayColumn) - Dim nullableInt64Column As New Column("NullableInt64", "bigint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableInt64", nullableInt64Column) - Dim nullableInt64ArrayColumn As New Column("NullableInt64Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableInt64Array", nullableInt64ArrayColumn) - Dim nullableInt8Column As New Column("NullableInt8", "smallint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableInt8", nullableInt8Column) - Dim nullableInt8ArrayColumn As New Column("NullableInt8Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableInt8Array", nullableInt8ArrayColumn) - Dim nullablePhysicalAddressColumn As New Column("NullablePhysicalAddress", "nvarchar(20)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullablePhysicalAddress", nullablePhysicalAddressColumn) - Dim nullablePhysicalAddressArrayColumn As New Column("NullablePhysicalAddressArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullablePhysicalAddressArray", nullablePhysicalAddressArrayColumn) - Dim nullableStringColumn As New Column("NullableString", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableString", nullableStringColumn) - Dim nullableStringArrayColumn As New Column("NullableStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableStringArray", nullableStringArrayColumn) - Dim nullableTimeOnlyColumn As New Column("NullableTimeOnly", "time", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableTimeOnly", nullableTimeOnlyColumn) - Dim nullableTimeOnlyArrayColumn As New Column("NullableTimeOnlyArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableTimeOnlyArray", nullableTimeOnlyArrayColumn) - Dim nullableTimeSpanColumn As New Column("NullableTimeSpan", "time", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableTimeSpan", nullableTimeSpanColumn) - Dim nullableTimeSpanArrayColumn As New Column("NullableTimeSpanArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableTimeSpanArray", nullableTimeSpanArrayColumn) - Dim nullableUInt16Column As New Column("NullableUInt16", "int", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUInt16", nullableUInt16Column) - Dim nullableUInt16ArrayColumn As New Column("NullableUInt16Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUInt16Array", nullableUInt16ArrayColumn) - Dim nullableUInt32Column As New Column("NullableUInt32", "bigint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUInt32", nullableUInt32Column) - Dim nullableUInt32ArrayColumn As New Column("NullableUInt32Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUInt32Array", nullableUInt32ArrayColumn) - Dim nullableUInt64Column As New Column("NullableUInt64", "decimal(20,0)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUInt64", nullableUInt64Column) - Dim nullableUInt64ArrayColumn As New Column("NullableUInt64Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUInt64Array", nullableUInt64ArrayColumn) - Dim nullableUInt8Column As New Column("NullableUInt8", "tinyint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUInt8", nullableUInt8Column) - Dim nullableUInt8ArrayColumn As New Column("NullableUInt8Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUInt8Array", nullableUInt8ArrayColumn) - Dim nullableUriColumn As New Column("NullableUri", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUri", nullableUriColumn) - Dim nullableUriArrayColumn As New Column("NullableUriArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUriArray", nullableUriArrayColumn) - Dim physicalAddressArrayColumn As New Column("PhysicalAddressArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("PhysicalAddressArray", physicalAddressArrayColumn) - Dim physicalAddressToBytesConverterPropertyColumn As New Column("PhysicalAddressToBytesConverterProperty", "varbinary(8)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("PhysicalAddressToBytesConverterProperty", physicalAddressToBytesConverterPropertyColumn) - Dim physicalAddressToStringConverterPropertyColumn As New Column("PhysicalAddressToStringConverterProperty", "nvarchar(20)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("PhysicalAddressToStringConverterProperty", physicalAddressToStringConverterPropertyColumn) - Dim stringColumn As New Column("String", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("String", stringColumn) - Dim stringArrayColumn As New Column("StringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringArray", stringArrayColumn) - Dim stringToBoolConverterPropertyColumn As New Column("StringToBoolConverterProperty", "bit", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToBoolConverterProperty", stringToBoolConverterPropertyColumn) - Dim stringToBytesConverterPropertyColumn As New Column("StringToBytesConverterProperty", "varbinary(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToBytesConverterProperty", stringToBytesConverterPropertyColumn) - Dim stringToCharConverterPropertyColumn As New Column("StringToCharConverterProperty", "nvarchar(1)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToCharConverterProperty", stringToCharConverterPropertyColumn) - Dim stringToDateOnlyConverterPropertyColumn As New Column("StringToDateOnlyConverterProperty", "date", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToDateOnlyConverterProperty", stringToDateOnlyConverterPropertyColumn) - Dim stringToDateTimeConverterPropertyColumn As New Column("StringToDateTimeConverterProperty", "datetime2", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToDateTimeConverterProperty", stringToDateTimeConverterPropertyColumn) - Dim stringToDateTimeOffsetConverterPropertyColumn As New Column("StringToDateTimeOffsetConverterProperty", "datetimeoffset", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToDateTimeOffsetConverterProperty", stringToDateTimeOffsetConverterPropertyColumn) - Dim stringToDecimalNumberConverterPropertyColumn As New Column("StringToDecimalNumberConverterProperty", "decimal(18,2)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToDecimalNumberConverterProperty", stringToDecimalNumberConverterPropertyColumn) - Dim stringToDoubleNumberConverterPropertyColumn As New Column("StringToDoubleNumberConverterProperty", "float", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToDoubleNumberConverterProperty", stringToDoubleNumberConverterPropertyColumn) - Dim stringToEnumConverterPropertyColumn As New Column("StringToEnumConverterProperty", "bigint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToEnumConverterProperty", stringToEnumConverterPropertyColumn) - Dim stringToGuidConverterPropertyColumn As New Column("StringToGuidConverterProperty", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToGuidConverterProperty", stringToGuidConverterPropertyColumn) - Dim stringToIntNumberConverterPropertyColumn As New Column("StringToIntNumberConverterProperty", "int", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToIntNumberConverterProperty", stringToIntNumberConverterPropertyColumn) - Dim stringToTimeOnlyConverterPropertyColumn As New Column("StringToTimeOnlyConverterProperty", "time", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToTimeOnlyConverterProperty", stringToTimeOnlyConverterPropertyColumn) - Dim stringToTimeSpanConverterPropertyColumn As New Column("StringToTimeSpanConverterProperty", "time", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToTimeSpanConverterProperty", stringToTimeSpanConverterPropertyColumn) - Dim stringToUriConverterPropertyColumn As New Column("StringToUriConverterProperty", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToUriConverterProperty", stringToUriConverterPropertyColumn) - Dim timeOnlyArrayColumn As New Column("TimeOnlyArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("TimeOnlyArray", timeOnlyArrayColumn) - Dim timeOnlyToStringConverterPropertyColumn As New Column("TimeOnlyToStringConverterProperty", "nvarchar(48)", manyTypesTable) - manyTypesTable.Columns.Add("TimeOnlyToStringConverterProperty", timeOnlyToStringConverterPropertyColumn) - Dim timeOnlyToTicksConverterPropertyColumn As New Column("TimeOnlyToTicksConverterProperty", "bigint", manyTypesTable) - manyTypesTable.Columns.Add("TimeOnlyToTicksConverterProperty", timeOnlyToTicksConverterPropertyColumn) - Dim timeSpanArrayColumn As New Column("TimeSpanArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("TimeSpanArray", timeSpanArrayColumn) - Dim timeSpanToStringConverterPropertyColumn As New Column("TimeSpanToStringConverterProperty", "nvarchar(48)", manyTypesTable) - manyTypesTable.Columns.Add("TimeSpanToStringConverterProperty", timeSpanToStringConverterPropertyColumn) - Dim timeSpanToTicksConverterPropertyColumn As New Column("TimeSpanToTicksConverterProperty", "bigint", manyTypesTable) - manyTypesTable.Columns.Add("TimeSpanToTicksConverterProperty", timeSpanToTicksConverterPropertyColumn) - Dim uInt16Column As New Column("UInt16", "int", manyTypesTable) - manyTypesTable.Columns.Add("UInt16", uInt16Column) - Dim uInt16ArrayColumn As New Column("UInt16Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("UInt16Array", uInt16ArrayColumn) - Dim uInt32Column As New Column("UInt32", "bigint", manyTypesTable) - manyTypesTable.Columns.Add("UInt32", uInt32Column) - Dim uInt32ArrayColumn As New Column("UInt32Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("UInt32Array", uInt32ArrayColumn) - Dim uInt64Column As New Column("UInt64", "decimal(20,0)", manyTypesTable) - manyTypesTable.Columns.Add("UInt64", uInt64Column) - Dim uInt64ArrayColumn As New Column("UInt64Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("UInt64Array", uInt64ArrayColumn) - Dim uInt8Column As New Column("UInt8", "tinyint", manyTypesTable) - manyTypesTable.Columns.Add("UInt8", uInt8Column) - Dim uInt8ArrayColumn As New Column("UInt8Array", "varbinary(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("UInt8Array", uInt8ArrayColumn) - Dim uriColumn As New Column("Uri", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Uri", uriColumn) - Dim uriArrayColumn As New Column("UriArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("UriArray", uriArrayColumn) - Dim uriToStringConverterPropertyColumn As New Column("UriToStringConverterProperty", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("UriToStringConverterProperty", uriToStringConverterPropertyColumn) - Dim aDateOnlyColumn As New Column("aDateOnly", "date", manyTypesTable) - manyTypesTable.Columns.Add("aDateOnly", aDateOnlyColumn) - Dim aDateTimeColumn As New Column("aDateTime", "datetime2", manyTypesTable) - manyTypesTable.Columns.Add("aDateTime", aDateTimeColumn) - Dim aFloatColumn As New Column("aFloat", "real", manyTypesTable) - manyTypesTable.Columns.Add("aFloat", aFloatColumn) - Dim aPhysicalAddressColumn As New Column("aPhysicalAddress", "nvarchar(20)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("aPhysicalAddress", aPhysicalAddressColumn) - Dim aTimeOnlyColumn As New Column("aTimeOnly", "time", manyTypesTable) - manyTypesTable.Columns.Add("aTimeOnly", aTimeOnlyColumn) - Dim aTimeSpanColumn As New Column("aTimeSpan", "time", manyTypesTable) - manyTypesTable.Columns.Add("aTimeSpan", aTimeSpanColumn) - Dim anIPAddressColumn As New Column("anIPAddress", "nvarchar(45)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("anIPAddress", anIPAddressColumn) - Dim pK_ManyTypes As New UniqueConstraint("PK_ManyTypes", manyTypesTable, {idColumn0}) - manyTypesTable.PrimaryKey = pK_ManyTypes - Dim pK_ManyTypesUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+ManyTypes", - {"Id"}) - pK_ManyTypes.MappedKeys.Add(pK_ManyTypesUc) - RelationalModel.GetOrCreateUniqueConstraints(pK_ManyTypesUc).Add(pK_ManyTypes) - manyTypesTable.UniqueConstraints.Add("PK_ManyTypes", pK_ManyTypes) - relationalModel.Tables.Add(("ManyTypes", Nothing), manyTypesTable) - Dim manyTypesTableMapping As New TableMapping(manyTypes, manyTypesTable, True) - manyTypesTable.AddTypeMapping(manyTypesTableMapping, False) - tableMappings1.Add(manyTypesTableMapping) - RelationalModel.CreateColumnMapping(idColumn0, manyTypes.FindProperty("Id"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(boolColumn, manyTypes.FindProperty("Bool"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(boolArrayColumn, manyTypes.FindProperty("BoolArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(boolToStringConverterPropertyColumn, manyTypes.FindProperty("BoolToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(boolToTwoValuesConverterPropertyColumn, manyTypes.FindProperty("BoolToTwoValuesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(boolToZeroOneConverterPropertyColumn, manyTypes.FindProperty("BoolToZeroOneConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(bytesColumn, manyTypes.FindProperty("Bytes"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(bytesArrayColumn, manyTypes.FindProperty("BytesArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(bytesToStringConverterPropertyColumn, manyTypes.FindProperty("BytesToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(castingConverterPropertyColumn, manyTypes.FindProperty("CastingConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(charColumn, manyTypes.FindProperty("Char"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(charArrayColumn, manyTypes.FindProperty("CharArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(charToStringConverterPropertyColumn, manyTypes.FindProperty("CharToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateOnlyArrayColumn, manyTypes.FindProperty("DateOnlyArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateOnlyToStringConverterPropertyColumn, manyTypes.FindProperty("DateOnlyToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateTimeArrayColumn, manyTypes.FindProperty("DateTimeArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateTimeOffsetToBinaryConverterPropertyColumn, manyTypes.FindProperty("DateTimeOffsetToBinaryConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateTimeOffsetToBytesConverterPropertyColumn, manyTypes.FindProperty("DateTimeOffsetToBytesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateTimeOffsetToStringConverterPropertyColumn, manyTypes.FindProperty("DateTimeOffsetToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateTimeToBinaryConverterPropertyColumn, manyTypes.FindProperty("DateTimeToBinaryConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateTimeToStringConverterPropertyColumn, manyTypes.FindProperty("DateTimeToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateTimeToTicksConverterPropertyColumn, manyTypes.FindProperty("DateTimeToTicksConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(decimalColumn, manyTypes.FindProperty("Decimal"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(decimalArrayColumn, manyTypes.FindProperty("DecimalArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(decimalNumberToBytesConverterPropertyColumn, manyTypes.FindProperty("DecimalNumberToBytesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(decimalNumberToStringConverterPropertyColumn, manyTypes.FindProperty("DecimalNumberToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(doubleColumn, manyTypes.FindProperty("Double"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(doubleArrayColumn, manyTypes.FindProperty("DoubleArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(doubleNumberToBytesConverterPropertyColumn, manyTypes.FindProperty("DoubleNumberToBytesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(doubleNumberToStringConverterPropertyColumn, manyTypes.FindProperty("DoubleNumberToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum16Column, manyTypes.FindProperty("Enum16"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum16ArrayColumn, manyTypes.FindProperty("Enum16Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum16AsStringColumn, manyTypes.FindProperty("Enum16AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum16AsStringArrayColumn, manyTypes.FindProperty("Enum16AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum16AsStringCollectionColumn, manyTypes.FindProperty("Enum16AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum16CollectionColumn, manyTypes.FindProperty("Enum16Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum32Column, manyTypes.FindProperty("Enum32"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum32ArrayColumn, manyTypes.FindProperty("Enum32Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum32AsStringColumn, manyTypes.FindProperty("Enum32AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum32AsStringArrayColumn, manyTypes.FindProperty("Enum32AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum32AsStringCollectionColumn, manyTypes.FindProperty("Enum32AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum32CollectionColumn, manyTypes.FindProperty("Enum32Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum64Column, manyTypes.FindProperty("Enum64"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum64ArrayColumn, manyTypes.FindProperty("Enum64Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum64AsStringColumn, manyTypes.FindProperty("Enum64AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum64AsStringArrayColumn, manyTypes.FindProperty("Enum64AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum64AsStringCollectionColumn, manyTypes.FindProperty("Enum64AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum64CollectionColumn, manyTypes.FindProperty("Enum64Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum8Column, manyTypes.FindProperty("Enum8"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum8ArrayColumn, manyTypes.FindProperty("Enum8Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum8AsStringColumn, manyTypes.FindProperty("Enum8AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum8AsStringArrayColumn, manyTypes.FindProperty("Enum8AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum8AsStringCollectionColumn, manyTypes.FindProperty("Enum8AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum8CollectionColumn, manyTypes.FindProperty("Enum8Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumToNumberConverterPropertyColumn, manyTypes.FindProperty("EnumToNumberConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumToStringConverterPropertyColumn, manyTypes.FindProperty("EnumToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU16Column, manyTypes.FindProperty("EnumU16"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU16ArrayColumn, manyTypes.FindProperty("EnumU16Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU16AsStringColumn, manyTypes.FindProperty("EnumU16AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU16AsStringArrayColumn, manyTypes.FindProperty("EnumU16AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU16AsStringCollectionColumn, manyTypes.FindProperty("EnumU16AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU16CollectionColumn, manyTypes.FindProperty("EnumU16Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU32Column, manyTypes.FindProperty("EnumU32"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU32ArrayColumn, manyTypes.FindProperty("EnumU32Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU32AsStringColumn, manyTypes.FindProperty("EnumU32AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU32AsStringArrayColumn, manyTypes.FindProperty("EnumU32AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU32AsStringCollectionColumn, manyTypes.FindProperty("EnumU32AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU32CollectionColumn, manyTypes.FindProperty("EnumU32Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU64Column, manyTypes.FindProperty("EnumU64"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU64ArrayColumn, manyTypes.FindProperty("EnumU64Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU64AsStringColumn, manyTypes.FindProperty("EnumU64AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU64AsStringArrayColumn, manyTypes.FindProperty("EnumU64AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU64AsStringCollectionColumn, manyTypes.FindProperty("EnumU64AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU64CollectionColumn, manyTypes.FindProperty("EnumU64Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU8Column, manyTypes.FindProperty("EnumU8"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU8ArrayColumn, manyTypes.FindProperty("EnumU8Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU8AsStringColumn, manyTypes.FindProperty("EnumU8AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU8AsStringArrayColumn, manyTypes.FindProperty("EnumU8AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU8AsStringCollectionColumn, manyTypes.FindProperty("EnumU8AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU8CollectionColumn, manyTypes.FindProperty("EnumU8Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(floatArrayColumn, manyTypes.FindProperty("FloatArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(guidColumn, manyTypes.FindProperty("Guid"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(guidArrayColumn, manyTypes.FindProperty("GuidArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(guidToBytesConverterPropertyColumn, manyTypes.FindProperty("GuidToBytesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(guidToStringConverterPropertyColumn, manyTypes.FindProperty("GuidToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(iPAddressArrayColumn, manyTypes.FindProperty("IPAddressArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(iPAddressToBytesConverterPropertyColumn, manyTypes.FindProperty("IPAddressToBytesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(iPAddressToStringConverterPropertyColumn, manyTypes.FindProperty("IPAddressToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(int16Column, manyTypes.FindProperty("Int16"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(int16ArrayColumn, manyTypes.FindProperty("Int16Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(int32Column, manyTypes.FindProperty("Int32"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(int32ArrayColumn, manyTypes.FindProperty("Int32Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(int64Column, manyTypes.FindProperty("Int64"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(int64ArrayColumn, manyTypes.FindProperty("Int64Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(int8Column, manyTypes.FindProperty("Int8"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(int8ArrayColumn, manyTypes.FindProperty("Int8Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(intNumberToBytesConverterPropertyColumn, manyTypes.FindProperty("IntNumberToBytesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(intNumberToStringConverterPropertyColumn, manyTypes.FindProperty("IntNumberToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullIntToNullStringConverterPropertyColumn, manyTypes.FindProperty("NullIntToNullStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableBoolColumn, manyTypes.FindProperty("NullableBool"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableBoolArrayColumn, manyTypes.FindProperty("NullableBoolArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableBytesColumn, manyTypes.FindProperty("NullableBytes"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableBytesArrayColumn, manyTypes.FindProperty("NullableBytesArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableCharColumn, manyTypes.FindProperty("NullableChar"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableCharArrayColumn, manyTypes.FindProperty("NullableCharArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableDateOnlyColumn, manyTypes.FindProperty("NullableDateOnly"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableDateOnlyArrayColumn, manyTypes.FindProperty("NullableDateOnlyArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableDateTimeColumn, manyTypes.FindProperty("NullableDateTime"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableDateTimeArrayColumn, manyTypes.FindProperty("NullableDateTimeArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableDecimalColumn, manyTypes.FindProperty("NullableDecimal"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableDecimalArrayColumn, manyTypes.FindProperty("NullableDecimalArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableDoubleColumn, manyTypes.FindProperty("NullableDouble"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableDoubleArrayColumn, manyTypes.FindProperty("NullableDoubleArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum16Column, manyTypes.FindProperty("NullableEnum16"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum16ArrayColumn, manyTypes.FindProperty("NullableEnum16Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum16AsStringColumn, manyTypes.FindProperty("NullableEnum16AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum16AsStringArrayColumn, manyTypes.FindProperty("NullableEnum16AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum16AsStringCollectionColumn, manyTypes.FindProperty("NullableEnum16AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum16CollectionColumn, manyTypes.FindProperty("NullableEnum16Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum32Column, manyTypes.FindProperty("NullableEnum32"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum32ArrayColumn, manyTypes.FindProperty("NullableEnum32Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum32AsStringColumn, manyTypes.FindProperty("NullableEnum32AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum32AsStringArrayColumn, manyTypes.FindProperty("NullableEnum32AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum32AsStringCollectionColumn, manyTypes.FindProperty("NullableEnum32AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum32CollectionColumn, manyTypes.FindProperty("NullableEnum32Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum64Column, manyTypes.FindProperty("NullableEnum64"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum64ArrayColumn, manyTypes.FindProperty("NullableEnum64Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum64AsStringColumn, manyTypes.FindProperty("NullableEnum64AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum64AsStringArrayColumn, manyTypes.FindProperty("NullableEnum64AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum64AsStringCollectionColumn, manyTypes.FindProperty("NullableEnum64AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum64CollectionColumn, manyTypes.FindProperty("NullableEnum64Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum8Column, manyTypes.FindProperty("NullableEnum8"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum8ArrayColumn, manyTypes.FindProperty("NullableEnum8Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum8AsStringColumn, manyTypes.FindProperty("NullableEnum8AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum8AsStringArrayColumn, manyTypes.FindProperty("NullableEnum8AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum8AsStringCollectionColumn, manyTypes.FindProperty("NullableEnum8AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum8CollectionColumn, manyTypes.FindProperty("NullableEnum8Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU16Column, manyTypes.FindProperty("NullableEnumU16"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU16ArrayColumn, manyTypes.FindProperty("NullableEnumU16Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU16AsStringColumn, manyTypes.FindProperty("NullableEnumU16AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU16AsStringArrayColumn, manyTypes.FindProperty("NullableEnumU16AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU16AsStringCollectionColumn, manyTypes.FindProperty("NullableEnumU16AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU16CollectionColumn, manyTypes.FindProperty("NullableEnumU16Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU32Column, manyTypes.FindProperty("NullableEnumU32"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU32ArrayColumn, manyTypes.FindProperty("NullableEnumU32Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU32AsStringColumn, manyTypes.FindProperty("NullableEnumU32AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU32AsStringArrayColumn, manyTypes.FindProperty("NullableEnumU32AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU32AsStringCollectionColumn, manyTypes.FindProperty("NullableEnumU32AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU32CollectionColumn, manyTypes.FindProperty("NullableEnumU32Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU64Column, manyTypes.FindProperty("NullableEnumU64"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU64ArrayColumn, manyTypes.FindProperty("NullableEnumU64Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU64AsStringColumn, manyTypes.FindProperty("NullableEnumU64AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU64AsStringArrayColumn, manyTypes.FindProperty("NullableEnumU64AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU64AsStringCollectionColumn, manyTypes.FindProperty("NullableEnumU64AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU64CollectionColumn, manyTypes.FindProperty("NullableEnumU64Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU8Column, manyTypes.FindProperty("NullableEnumU8"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU8ArrayColumn, manyTypes.FindProperty("NullableEnumU8Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU8AsStringColumn, manyTypes.FindProperty("NullableEnumU8AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU8AsStringArrayColumn, manyTypes.FindProperty("NullableEnumU8AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU8AsStringCollectionColumn, manyTypes.FindProperty("NullableEnumU8AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU8CollectionColumn, manyTypes.FindProperty("NullableEnumU8Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableFloatColumn, manyTypes.FindProperty("NullableFloat"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableFloatArrayColumn, manyTypes.FindProperty("NullableFloatArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableGuidColumn, manyTypes.FindProperty("NullableGuid"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableGuidArrayColumn, manyTypes.FindProperty("NullableGuidArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableIPAddressColumn, manyTypes.FindProperty("NullableIPAddress"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableIPAddressArrayColumn, manyTypes.FindProperty("NullableIPAddressArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableInt16Column, manyTypes.FindProperty("NullableInt16"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableInt16ArrayColumn, manyTypes.FindProperty("NullableInt16Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableInt32Column, manyTypes.FindProperty("NullableInt32"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableInt32ArrayColumn, manyTypes.FindProperty("NullableInt32Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableInt64Column, manyTypes.FindProperty("NullableInt64"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableInt64ArrayColumn, manyTypes.FindProperty("NullableInt64Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableInt8Column, manyTypes.FindProperty("NullableInt8"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableInt8ArrayColumn, manyTypes.FindProperty("NullableInt8Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullablePhysicalAddressColumn, manyTypes.FindProperty("NullablePhysicalAddress"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullablePhysicalAddressArrayColumn, manyTypes.FindProperty("NullablePhysicalAddressArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableStringColumn, manyTypes.FindProperty("NullableString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableStringArrayColumn, manyTypes.FindProperty("NullableStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableTimeOnlyColumn, manyTypes.FindProperty("NullableTimeOnly"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableTimeOnlyArrayColumn, manyTypes.FindProperty("NullableTimeOnlyArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableTimeSpanColumn, manyTypes.FindProperty("NullableTimeSpan"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableTimeSpanArrayColumn, manyTypes.FindProperty("NullableTimeSpanArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUInt16Column, manyTypes.FindProperty("NullableUInt16"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUInt16ArrayColumn, manyTypes.FindProperty("NullableUInt16Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUInt32Column, manyTypes.FindProperty("NullableUInt32"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUInt32ArrayColumn, manyTypes.FindProperty("NullableUInt32Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUInt64Column, manyTypes.FindProperty("NullableUInt64"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUInt64ArrayColumn, manyTypes.FindProperty("NullableUInt64Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUInt8Column, manyTypes.FindProperty("NullableUInt8"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUInt8ArrayColumn, manyTypes.FindProperty("NullableUInt8Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUriColumn, manyTypes.FindProperty("NullableUri"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUriArrayColumn, manyTypes.FindProperty("NullableUriArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(physicalAddressArrayColumn, manyTypes.FindProperty("PhysicalAddressArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(physicalAddressToBytesConverterPropertyColumn, manyTypes.FindProperty("PhysicalAddressToBytesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(physicalAddressToStringConverterPropertyColumn, manyTypes.FindProperty("PhysicalAddressToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringColumn, manyTypes.FindProperty("String"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringArrayColumn, manyTypes.FindProperty("StringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToBoolConverterPropertyColumn, manyTypes.FindProperty("StringToBoolConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToBytesConverterPropertyColumn, manyTypes.FindProperty("StringToBytesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToCharConverterPropertyColumn, manyTypes.FindProperty("StringToCharConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToDateOnlyConverterPropertyColumn, manyTypes.FindProperty("StringToDateOnlyConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToDateTimeConverterPropertyColumn, manyTypes.FindProperty("StringToDateTimeConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToDateTimeOffsetConverterPropertyColumn, manyTypes.FindProperty("StringToDateTimeOffsetConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToDecimalNumberConverterPropertyColumn, manyTypes.FindProperty("StringToDecimalNumberConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToDoubleNumberConverterPropertyColumn, manyTypes.FindProperty("StringToDoubleNumberConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToEnumConverterPropertyColumn, manyTypes.FindProperty("StringToEnumConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToGuidConverterPropertyColumn, manyTypes.FindProperty("StringToGuidConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToIntNumberConverterPropertyColumn, manyTypes.FindProperty("StringToIntNumberConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToTimeOnlyConverterPropertyColumn, manyTypes.FindProperty("StringToTimeOnlyConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToTimeSpanConverterPropertyColumn, manyTypes.FindProperty("StringToTimeSpanConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToUriConverterPropertyColumn, manyTypes.FindProperty("StringToUriConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(timeOnlyArrayColumn, manyTypes.FindProperty("TimeOnlyArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(timeOnlyToStringConverterPropertyColumn, manyTypes.FindProperty("TimeOnlyToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(timeOnlyToTicksConverterPropertyColumn, manyTypes.FindProperty("TimeOnlyToTicksConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(timeSpanArrayColumn, manyTypes.FindProperty("TimeSpanArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(timeSpanToStringConverterPropertyColumn, manyTypes.FindProperty("TimeSpanToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(timeSpanToTicksConverterPropertyColumn, manyTypes.FindProperty("TimeSpanToTicksConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uInt16Column, manyTypes.FindProperty("UInt16"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uInt16ArrayColumn, manyTypes.FindProperty("UInt16Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uInt32Column, manyTypes.FindProperty("UInt32"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uInt32ArrayColumn, manyTypes.FindProperty("UInt32Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uInt64Column, manyTypes.FindProperty("UInt64"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uInt64ArrayColumn, manyTypes.FindProperty("UInt64Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uInt8Column, manyTypes.FindProperty("UInt8"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uInt8ArrayColumn, manyTypes.FindProperty("UInt8Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uriColumn, manyTypes.FindProperty("Uri"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uriArrayColumn, manyTypes.FindProperty("UriArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uriToStringConverterPropertyColumn, manyTypes.FindProperty("UriToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(aDateOnlyColumn, manyTypes.FindProperty("aDateOnly"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(aDateTimeColumn, manyTypes.FindProperty("aDateTime"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(aFloatColumn, manyTypes.FindProperty("aFloat"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(aPhysicalAddressColumn, manyTypes.FindProperty("aPhysicalAddress"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(aTimeOnlyColumn, manyTypes.FindProperty("aTimeOnly"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(aTimeSpanColumn, manyTypes.FindProperty("aTimeSpan"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(anIPAddressColumn, manyTypes.FindProperty("anIPAddress"), manyTypesTableMapping) - - Dim principalBase = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase") - - Dim defaultTableMappings2 As New List(Of TableMappingBase(Of ColumnMappingBase))() - principalBase.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings2) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", Nothing, relationalModel) - Dim alternateIdColumnBase As New ColumnBase(Of ColumnMappingBase)("AlternateId", "uniqueidentifier", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("AlternateId", alternateIdColumnBase) - Dim enum1ColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum1", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("Enum1", enum1ColumnBase) - Dim enum2ColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum2", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("Enum2", enum2ColumnBase) - Dim flagsEnum1ColumnBase As New ColumnBase(Of ColumnMappingBase)("FlagsEnum1", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("FlagsEnum1", flagsEnum1ColumnBase) - Dim flagsEnum2ColumnBase As New ColumnBase(Of ColumnMappingBase)("FlagsEnum2", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("FlagsEnum2", flagsEnum2ColumnBase) - Dim idColumnBase1 As New ColumnBase(Of ColumnMappingBase)("Id", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("Id", idColumnBase1) - Dim pointColumnBase As New ColumnBase(Of ColumnMappingBase)("Point", "geometry", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("Point", pointColumnBase) - Dim refTypeArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("RefTypeArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("RefTypeArray", refTypeArrayColumnBase) - Dim refTypeEnumerableColumnBase As New ColumnBase(Of ColumnMappingBase)("RefTypeEnumerable", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("RefTypeEnumerable", refTypeEnumerableColumnBase) - Dim refTypeIListColumnBase As New ColumnBase(Of ColumnMappingBase)("RefTypeIList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("RefTypeIList", refTypeIListColumnBase) - Dim refTypeListColumnBase As New ColumnBase(Of ColumnMappingBase)("RefTypeList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("RefTypeList", refTypeListColumnBase) - Dim valueTypeArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("ValueTypeArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("ValueTypeArray", valueTypeArrayColumnBase) - Dim valueTypeEnumerableColumnBase As New ColumnBase(Of ColumnMappingBase)("ValueTypeEnumerable", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("ValueTypeEnumerable", valueTypeEnumerableColumnBase) - Dim valueTypeIListColumnBase As New ColumnBase(Of ColumnMappingBase)("ValueTypeIList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("ValueTypeIList", valueTypeIListColumnBase) - Dim valueTypeListColumnBase As New ColumnBase(Of ColumnMappingBase)("ValueTypeList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("ValueTypeList", valueTypeListColumnBase) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase As New TableMappingBase(Of ColumnMappingBase)(principalBase, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase, False) - defaultTableMappings2.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(alternateIdColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("AlternateId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase1, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum1ColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("Enum1"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum2ColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("Enum2"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(flagsEnum1ColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("FlagsEnum1"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(flagsEnum2ColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("FlagsEnum2"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(pointColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("Point"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeArrayColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("RefTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeEnumerableColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("RefTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeIListColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("RefTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeListColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("RefTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeArrayColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("ValueTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeEnumerableColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("ValueTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeIListColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("ValueTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeListColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("ValueTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - - Dim tableMappings2 As New List(Of TableMapping)() - principalBase.SetRuntimeAnnotation("Relational:TableMappings", tableMappings2) - Dim principalBaseTable As New Table("PrincipalBase", "mySchema", relationalModel) - Dim idColumn1 As New Column("Id", "bigint", principalBaseTable) - principalBaseTable.Columns.Add("Id", idColumn1) - Dim alternateIdColumn As New Column("AlternateId", "uniqueidentifier", principalBaseTable) - principalBaseTable.Columns.Add("AlternateId", alternateIdColumn) - Dim enum1Column As New Column("Enum1", "int", principalBaseTable) - principalBaseTable.Columns.Add("Enum1", enum1Column) - Dim enum2Column As New Column("Enum2", "int", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Enum2", enum2Column) - Dim flagsEnum1Column As New Column("FlagsEnum1", "int", principalBaseTable) - principalBaseTable.Columns.Add("FlagsEnum1", flagsEnum1Column) - Dim flagsEnum2Column As New Column("FlagsEnum2", "int", principalBaseTable) - principalBaseTable.Columns.Add("FlagsEnum2", flagsEnum2Column) - Dim owned_NumberColumn As New Column("Owned_Number", "int", principalBaseTable) - principalBaseTable.Columns.Add("Owned_Number", owned_NumberColumn) - Dim owned_RefTypeArrayColumn As New Column("Owned_RefTypeArray", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_RefTypeArray", owned_RefTypeArrayColumn) - Dim owned_RefTypeEnumerableColumn As New Column("Owned_RefTypeEnumerable", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_RefTypeEnumerable", owned_RefTypeEnumerableColumn) - Dim owned_RefTypeIListColumn As New Column("Owned_RefTypeIList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_RefTypeIList", owned_RefTypeIListColumn) - Dim owned_RefTypeListColumn As New Column("Owned_RefTypeList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_RefTypeList", owned_RefTypeListColumn) - Dim owned_ValueTypeArrayColumn As New Column("Owned_ValueTypeArray", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_ValueTypeArray", owned_ValueTypeArrayColumn) - Dim owned_ValueTypeEnumerableColumn As New Column("Owned_ValueTypeEnumerable", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_ValueTypeEnumerable", owned_ValueTypeEnumerableColumn) - Dim owned_ValueTypeIListColumn As New Column("Owned_ValueTypeIList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_ValueTypeIList", owned_ValueTypeIListColumn) - Dim owned_ValueTypeListColumn As New Column("Owned_ValueTypeList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_ValueTypeList", owned_ValueTypeListColumn) - Dim pointColumn As New Column("Point", "geometry", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Point", pointColumn) - Dim refTypeArrayColumn As New Column("RefTypeArray", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("RefTypeArray", refTypeArrayColumn) - Dim refTypeEnumerableColumn As New Column("RefTypeEnumerable", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("RefTypeEnumerable", refTypeEnumerableColumn) - Dim refTypeIListColumn As New Column("RefTypeIList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("RefTypeIList", refTypeIListColumn) - Dim refTypeListColumn As New Column("RefTypeList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("RefTypeList", refTypeListColumn) - Dim valueTypeArrayColumn As New Column("ValueTypeArray", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("ValueTypeArray", valueTypeArrayColumn) - Dim valueTypeEnumerableColumn As New Column("ValueTypeEnumerable", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("ValueTypeEnumerable", valueTypeEnumerableColumn) - Dim valueTypeIListColumn As New Column("ValueTypeIList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("ValueTypeIList", valueTypeIListColumn) - Dim valueTypeListColumn As New Column("ValueTypeList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("ValueTypeList", valueTypeListColumn) - Dim aK_PrincipalBase_Id As New UniqueConstraint("AK_PrincipalBase_Id", principalBaseTable, {idColumn1}) - Dim aK_PrincipalBase_IdUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id"}) - aK_PrincipalBase_Id.MappedKeys.Add(aK_PrincipalBase_IdUc) - RelationalModel.GetOrCreateUniqueConstraints(aK_PrincipalBase_IdUc).Add(aK_PrincipalBase_Id) - principalBaseTable.UniqueConstraints.Add("AK_PrincipalBase_Id", aK_PrincipalBase_Id) - Dim pK As New UniqueConstraint("PK", principalBaseTable, {idColumn1, alternateIdColumn}) - principalBaseTable.PrimaryKey = pK - Dim pKUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id", "AlternateId"}) - pK.MappedKeys.Add(pKUc) - RelationalModel.GetOrCreateUniqueConstraints(pKUc).Add(pK) - Dim pKUc0 = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType", - {"PrincipalBaseId", "PrincipalBaseAlternateId"}) - pK.MappedKeys.Add(pKUc0) - RelationalModel.GetOrCreateUniqueConstraints(pKUc0).Add(pK) - principalBaseTable.UniqueConstraints.Add("PK", pK) - Dim iX_PrincipalBase_AlternateId_Id As New TableIndex( - "IX_PrincipalBase_AlternateId_Id", principalBaseTable, {alternateIdColumn, idColumn1}, False) - Dim iX_PrincipalBase_AlternateId_IdIx = RelationalModel.GetIndex(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"AlternateId", "Id"}) - iX_PrincipalBase_AlternateId_Id.MappedIndexes.Add(iX_PrincipalBase_AlternateId_IdIx) - RelationalModel.GetOrCreateTableIndexes(iX_PrincipalBase_AlternateId_IdIx).Add(iX_PrincipalBase_AlternateId_Id) - principalBaseTable.Indexes.Add("IX_PrincipalBase_AlternateId_Id", iX_PrincipalBase_AlternateId_Id) - relationalModel.Tables.Add(("PrincipalBase", "mySchema"), principalBaseTable) - Dim principalBaseTableMapping As New TableMapping(principalBase, principalBaseTable, True) With { - .IsSharedTablePrincipal = True - } - principalBaseTable.AddTypeMapping(principalBaseTableMapping, False) - tableMappings2.Add(principalBaseTableMapping) - RelationalModel.CreateColumnMapping(alternateIdColumn, principalBase.FindProperty("AlternateId"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(idColumn1, principalBase.FindProperty("Id"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(enum1Column, principalBase.FindProperty("Enum1"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(enum2Column, principalBase.FindProperty("Enum2"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(flagsEnum1Column, principalBase.FindProperty("FlagsEnum1"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(flagsEnum2Column, principalBase.FindProperty("FlagsEnum2"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(pointColumn, principalBase.FindProperty("Point"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(refTypeArrayColumn, principalBase.FindProperty("RefTypeArray"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(refTypeEnumerableColumn, principalBase.FindProperty("RefTypeEnumerable"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(refTypeIListColumn, principalBase.FindProperty("RefTypeIList"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(refTypeListColumn, principalBase.FindProperty("RefTypeList"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(valueTypeArrayColumn, principalBase.FindProperty("ValueTypeArray"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(valueTypeEnumerableColumn, principalBase.FindProperty("ValueTypeEnumerable"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(valueTypeIListColumn, principalBase.FindProperty("ValueTypeIList"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(valueTypeListColumn, principalBase.FindProperty("ValueTypeList"), principalBaseTableMapping) - - Dim ownedType = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType") - - Dim defaultTableMappings3 As New List(Of TableMappingBase(Of ColumnMappingBase))() - ownedType.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings3) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType", Nothing, relationalModel) - Dim detailsColumnBase As New ColumnBase(Of ColumnMappingBase)("Details", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("Details", detailsColumnBase) - Dim numberColumnBase As New ColumnBase(Of ColumnMappingBase)("Number", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("Number", numberColumnBase) - Dim principalBaseAlternateIdColumnBase As New ColumnBase(Of ColumnMappingBase)("PrincipalBaseAlternateId", "uniqueidentifier", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("PrincipalBaseAlternateId", principalBaseAlternateIdColumnBase) - Dim principalBaseIdColumnBase As New ColumnBase(Of ColumnMappingBase)("PrincipalBaseId", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("PrincipalBaseId", principalBaseIdColumnBase) - Dim refTypeArrayColumnBase0 As New ColumnBase(Of ColumnMappingBase)("RefTypeArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("RefTypeArray", refTypeArrayColumnBase0) - Dim refTypeEnumerableColumnBase0 As New ColumnBase(Of ColumnMappingBase)("RefTypeEnumerable", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("RefTypeEnumerable", refTypeEnumerableColumnBase0) - Dim refTypeIListColumnBase0 As New ColumnBase(Of ColumnMappingBase)("RefTypeIList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("RefTypeIList", refTypeIListColumnBase0) - Dim refTypeListColumnBase0 As New ColumnBase(Of ColumnMappingBase)("RefTypeList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("RefTypeList", refTypeListColumnBase0) - Dim valueTypeArrayColumnBase0 As New ColumnBase(Of ColumnMappingBase)("ValueTypeArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("ValueTypeArray", valueTypeArrayColumnBase0) - Dim valueTypeEnumerableColumnBase0 As New ColumnBase(Of ColumnMappingBase)("ValueTypeEnumerable", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("ValueTypeEnumerable", valueTypeEnumerableColumnBase0) - Dim valueTypeIListColumnBase0 As New ColumnBase(Of ColumnMappingBase)("ValueTypeIList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("ValueTypeIList", valueTypeIListColumnBase0) - Dim valueTypeListColumnBase0 As New ColumnBase(Of ColumnMappingBase)("ValueTypeList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("ValueTypeList", valueTypeListColumnBase0) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase As New TableMappingBase(Of ColumnMappingBase)(ownedType, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase, False) - defaultTableMappings3.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalBaseAlternateIdColumnBase, ColumnBase(Of ColumnMappingBase)), ownedType.FindProperty("PrincipalBaseAlternateId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalBaseIdColumnBase, ColumnBase(Of ColumnMappingBase)), ownedType.FindProperty("PrincipalBaseId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(detailsColumnBase, ColumnBase(Of ColumnMappingBase)), ownedType.FindProperty("Details"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(numberColumnBase, ColumnBase(Of ColumnMappingBase)), ownedType.FindProperty("Number"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeArrayColumnBase0, ColumnBase(Of ColumnMappingBase)), ownedType.FindProperty("RefTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeEnumerableColumnBase0, ColumnBase(Of ColumnMappingBase)), ownedType.FindProperty("RefTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeIListColumnBase0, ColumnBase(Of ColumnMappingBase)), ownedType.FindProperty("RefTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeListColumnBase0, ColumnBase(Of ColumnMappingBase)), ownedType.FindProperty("RefTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeArrayColumnBase0, ColumnBase(Of ColumnMappingBase)), ownedType.FindProperty("ValueTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeEnumerableColumnBase0, ColumnBase(Of ColumnMappingBase)), ownedType.FindProperty("ValueTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeIListColumnBase0, ColumnBase(Of ColumnMappingBase)), ownedType.FindProperty("ValueTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeListColumnBase0, ColumnBase(Of ColumnMappingBase)), ownedType.FindProperty("ValueTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - - Dim tableMappings3 As New List(Of TableMapping)() - ownedType.SetRuntimeAnnotation("Relational:TableMappings", tableMappings3) - Dim principalBaseTableMapping0 As New TableMapping(ownedType, principalBaseTable, True) With { - .IsSharedTablePrincipal = False, - .IsSplitEntityTypePrincipal = True - } - principalBaseTable.AddTypeMapping(principalBaseTableMapping0, False) - tableMappings3.Add(principalBaseTableMapping0) - principalBaseTable.AddRowInternalForeignKey(ownedType, RelationalModel.GetForeignKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType", - {"PrincipalBaseId", "PrincipalBaseAlternateId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id", "AlternateId"})) - RelationalModel.CreateColumnMapping(alternateIdColumn, ownedType.FindProperty("PrincipalBaseAlternateId"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(idColumn1, ownedType.FindProperty("PrincipalBaseId"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_NumberColumn, ownedType.FindProperty("Number"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_RefTypeArrayColumn, ownedType.FindProperty("RefTypeArray"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_RefTypeEnumerableColumn, ownedType.FindProperty("RefTypeEnumerable"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_RefTypeIListColumn, ownedType.FindProperty("RefTypeIList"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_RefTypeListColumn, ownedType.FindProperty("RefTypeList"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_ValueTypeArrayColumn, ownedType.FindProperty("ValueTypeArray"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_ValueTypeEnumerableColumn, ownedType.FindProperty("ValueTypeEnumerable"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_ValueTypeIListColumn, ownedType.FindProperty("ValueTypeIList"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_ValueTypeListColumn, ownedType.FindProperty("ValueTypeList"), principalBaseTableMapping0) - Dim detailsTable As New Table("Details", Nothing, relationalModel) - Dim principalBaseIdColumn As New Column("PrincipalBaseId", "bigint", detailsTable) - detailsTable.Columns.Add("PrincipalBaseId", principalBaseIdColumn) - Dim principalBaseAlternateIdColumn As New Column("PrincipalBaseAlternateId", "uniqueidentifier", detailsTable) - detailsTable.Columns.Add("PrincipalBaseAlternateId", principalBaseAlternateIdColumn) - Dim detailsColumn As New Column("Details", "nvarchar(max)", detailsTable) With { - .IsNullable = True - } - detailsTable.Columns.Add("Details", detailsColumn) - Dim pK_Details As New UniqueConstraint("PK_Details", detailsTable, {principalBaseIdColumn, principalBaseAlternateIdColumn}) - detailsTable.PrimaryKey = pK_Details - Dim pK_DetailsUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType", - {"PrincipalBaseId", "PrincipalBaseAlternateId"}) - pK_Details.MappedKeys.Add(pK_DetailsUc) - RelationalModel.GetOrCreateUniqueConstraints(pK_DetailsUc).Add(pK_Details) - detailsTable.UniqueConstraints.Add("PK_Details", pK_Details) - relationalModel.Tables.Add(("Details", Nothing), detailsTable) - Dim detailsTableMapping As New TableMapping(ownedType, detailsTable, True) With { - .IsSplitEntityTypePrincipal = False - } - detailsTable.AddTypeMapping(detailsTableMapping, False) - tableMappings3.Add(detailsTableMapping) - RelationalModel.CreateColumnMapping(principalBaseAlternateIdColumn, ownedType.FindProperty("PrincipalBaseAlternateId"), detailsTableMapping) - RelationalModel.CreateColumnMapping(principalBaseIdColumn, ownedType.FindProperty("PrincipalBaseId"), detailsTableMapping) - RelationalModel.CreateColumnMapping(detailsColumn, ownedType.FindProperty("Details"), detailsTableMapping) - - Dim principalDerived = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>") - - Dim defaultTableMappings4 As New List(Of TableMappingBase(Of ColumnMappingBase))() - principalDerived.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings4) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0 As New TableMappingBase(Of ColumnMappingBase)(principalDerived, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase, False) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0, False) - defaultTableMappings4.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(alternateIdColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("AlternateId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase1, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(enum1ColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("Enum1"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(enum2ColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("Enum2"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(flagsEnum1ColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("FlagsEnum1"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(flagsEnum2ColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("FlagsEnum2"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(pointColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("Point"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(refTypeArrayColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("RefTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(refTypeEnumerableColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("RefTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(refTypeIListColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("RefTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(refTypeListColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("RefTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeArrayColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("ValueTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeEnumerableColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("ValueTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeIListColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("ValueTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeListColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("ValueTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - - Dim defaultTableMappings5 As New List(Of TableMappingBase(Of ColumnMappingBase))() - principalDerived.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings5) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", Nothing, relationalModel) - Dim alternateIdColumnBase0 As New ColumnBase(Of ColumnMappingBase)("AlternateId", "uniqueidentifier", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("AlternateId", alternateIdColumnBase0) - Dim idColumnBase2 As New ColumnBase(Of ColumnMappingBase)("Id", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("Id", idColumnBase2) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase As New TableMappingBase(Of ColumnMappingBase)(principalDerived, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase, False) - defaultTableMappings5.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(alternateIdColumnBase0, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("AlternateId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase2, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - - Dim tableMappings4 As New List(Of TableMapping)() - principalDerived.SetRuntimeAnnotation("Relational:TableMappings", tableMappings4) - Dim principalBaseTableMapping1 As New TableMapping(principalDerived, principalBaseTable, False) With { - .IsSharedTablePrincipal = False - } - principalBaseTable.AddTypeMapping(principalBaseTableMapping1, False) - tableMappings4.Add(principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(alternateIdColumn, principalDerived.FindProperty("AlternateId"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(idColumn1, principalDerived.FindProperty("Id"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(enum1Column, principalDerived.FindProperty("Enum1"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(enum2Column, principalDerived.FindProperty("Enum2"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(flagsEnum1Column, principalDerived.FindProperty("FlagsEnum1"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(flagsEnum2Column, principalDerived.FindProperty("FlagsEnum2"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(pointColumn, principalDerived.FindProperty("Point"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(refTypeArrayColumn, principalDerived.FindProperty("RefTypeArray"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(refTypeEnumerableColumn, principalDerived.FindProperty("RefTypeEnumerable"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(refTypeIListColumn, principalDerived.FindProperty("RefTypeIList"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(refTypeListColumn, principalDerived.FindProperty("RefTypeList"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(valueTypeArrayColumn, principalDerived.FindProperty("ValueTypeArray"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(valueTypeEnumerableColumn, principalDerived.FindProperty("ValueTypeEnumerable"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(valueTypeIListColumn, principalDerived.FindProperty("ValueTypeIList"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(valueTypeListColumn, principalDerived.FindProperty("ValueTypeList"), principalBaseTableMapping1) - Dim principalDerivedTable As New Table("PrincipalDerived", Nothing, relationalModel) - Dim derivedIdColumn As New Column("DerivedId", "bigint", principalDerivedTable) - principalDerivedTable.Columns.Add("DerivedId", derivedIdColumn) - Dim alternateIdColumn0 As New Column("AlternateId", "uniqueidentifier", principalDerivedTable) - principalDerivedTable.Columns.Add("AlternateId", alternateIdColumn0) - Dim aK_PrincipalDerived_DerivedId As New UniqueConstraint("AK_PrincipalDerived_DerivedId", principalDerivedTable, {derivedIdColumn}) - Dim aK_PrincipalDerived_DerivedIdUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id"}) - aK_PrincipalDerived_DerivedId.MappedKeys.Add(aK_PrincipalDerived_DerivedIdUc) - RelationalModel.GetOrCreateUniqueConstraints(aK_PrincipalDerived_DerivedIdUc).Add(aK_PrincipalDerived_DerivedId) - principalDerivedTable.UniqueConstraints.Add("AK_PrincipalDerived_DerivedId", aK_PrincipalDerived_DerivedId) - Dim pK0 As New UniqueConstraint("PK", principalDerivedTable, {derivedIdColumn, alternateIdColumn0}) - principalDerivedTable.PrimaryKey = pK0 - Dim pK0Uc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id", "AlternateId"}) - pK0.MappedKeys.Add(pK0Uc) - RelationalModel.GetOrCreateUniqueConstraints(pK0Uc).Add(pK0) - principalDerivedTable.UniqueConstraints.Add("PK", pK0) - Dim iX_PrincipalDerived_AlternateId_DerivedId As New TableIndex( - "IX_PrincipalDerived_AlternateId_DerivedId", principalDerivedTable, {alternateIdColumn0, derivedIdColumn}, False) - Dim iX_PrincipalDerived_AlternateId_DerivedIdIx = RelationalModel.GetIndex(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"AlternateId", "Id"}) - iX_PrincipalDerived_AlternateId_DerivedId.MappedIndexes.Add(iX_PrincipalDerived_AlternateId_DerivedIdIx) - RelationalModel.GetOrCreateTableIndexes(iX_PrincipalDerived_AlternateId_DerivedIdIx).Add(iX_PrincipalDerived_AlternateId_DerivedId) - principalDerivedTable.Indexes.Add("IX_PrincipalDerived_AlternateId_DerivedId", iX_PrincipalDerived_AlternateId_DerivedId) - relationalModel.Tables.Add(("PrincipalDerived", Nothing), principalDerivedTable) - Dim principalDerivedTableMapping As New TableMapping(principalDerived, principalDerivedTable, True) - principalDerivedTable.AddTypeMapping(principalDerivedTableMapping, False) - tableMappings4.Add(principalDerivedTableMapping) - RelationalModel.CreateColumnMapping(alternateIdColumn0, principalDerived.FindProperty("AlternateId"), principalDerivedTableMapping) - RelationalModel.CreateColumnMapping(derivedIdColumn, principalDerived.FindProperty("Id"), principalDerivedTableMapping) - - Dim ownedType0 = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>.ManyOwned#OwnedType") - - Dim defaultTableMappings6 As New List(Of TableMappingBase(Of ColumnMappingBase))() - ownedType0.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings6) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>.ManyOwned#OwnedType", Nothing, relationalModel) - Dim detailsColumnBase0 As New ColumnBase(Of ColumnMappingBase)("Details", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("Details", detailsColumnBase0) - Dim idColumnBase3 As New ColumnBase(Of ColumnMappingBase)("Id", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("Id", idColumnBase3) - Dim numberColumnBase0 As New ColumnBase(Of ColumnMappingBase)("Number", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("Number", numberColumnBase0) - Dim principalDerivedDependentBasebyteAlternateIdColumnBase As New ColumnBase(Of ColumnMappingBase)("PrincipalDerived>AlternateId", "uniqueidentifier", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("PrincipalDerived>AlternateId", principalDerivedDependentBasebyteAlternateIdColumnBase) - Dim principalDerivedDependentBasebyteIdColumnBase As New ColumnBase(Of ColumnMappingBase)("PrincipalDerived>Id", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("PrincipalDerived>Id", principalDerivedDependentBasebyteIdColumnBase) - Dim refTypeArrayColumnBase1 As New ColumnBase(Of ColumnMappingBase)("RefTypeArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("RefTypeArray", refTypeArrayColumnBase1) - Dim refTypeEnumerableColumnBase1 As New ColumnBase(Of ColumnMappingBase)("RefTypeEnumerable", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("RefTypeEnumerable", refTypeEnumerableColumnBase1) - Dim refTypeIListColumnBase1 As New ColumnBase(Of ColumnMappingBase)("RefTypeIList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("RefTypeIList", refTypeIListColumnBase1) - Dim refTypeListColumnBase1 As New ColumnBase(Of ColumnMappingBase)("RefTypeList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("RefTypeList", refTypeListColumnBase1) - Dim valueTypeArrayColumnBase1 As New ColumnBase(Of ColumnMappingBase)("ValueTypeArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("ValueTypeArray", valueTypeArrayColumnBase1) - Dim valueTypeEnumerableColumnBase1 As New ColumnBase(Of ColumnMappingBase)("ValueTypeEnumerable", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("ValueTypeEnumerable", valueTypeEnumerableColumnBase1) - Dim valueTypeIListColumnBase1 As New ColumnBase(Of ColumnMappingBase)("ValueTypeIList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("ValueTypeIList", valueTypeIListColumnBase1) - Dim valueTypeListColumnBase1 As New ColumnBase(Of ColumnMappingBase)("ValueTypeList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("ValueTypeList", valueTypeListColumnBase1) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>.ManyOwned#OwnedType", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase As New TableMappingBase(Of ColumnMappingBase)(ownedType0, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase, False) - defaultTableMappings6.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase3, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalDerivedDependentBasebyteAlternateIdColumnBase, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("PrincipalDerivedAlternateId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalDerivedDependentBasebyteIdColumnBase, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("PrincipalDerivedId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(detailsColumnBase0, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("Details"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(numberColumnBase0, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("Number"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeArrayColumnBase1, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("RefTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeEnumerableColumnBase1, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("RefTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeIListColumnBase1, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("RefTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeListColumnBase1, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("RefTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeArrayColumnBase1, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("ValueTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeEnumerableColumnBase1, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("ValueTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeIListColumnBase1, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("ValueTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeListColumnBase1, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("ValueTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - - Dim tableMappings5 As New List(Of TableMapping)() - ownedType0.SetRuntimeAnnotation("Relational:TableMappings", tableMappings5) - Dim manyOwnedTable As New Table("ManyOwned", Nothing, relationalModel) - Dim principalDerivedDependentBasebyteIdColumn As New Column("PrincipalDerived>Id", "bigint", manyOwnedTable) - manyOwnedTable.Columns.Add("PrincipalDerived>Id", principalDerivedDependentBasebyteIdColumn) - Dim principalDerivedDependentBasebyteAlternateIdColumn As New Column("PrincipalDerived>AlternateId", "uniqueidentifier", manyOwnedTable) - manyOwnedTable.Columns.Add("PrincipalDerived>AlternateId", principalDerivedDependentBasebyteAlternateIdColumn) - Dim idColumn2 As New Column("Id", "int", manyOwnedTable) - manyOwnedTable.Columns.Add("Id", idColumn2) - Dim detailsColumn0 As New Column("Details", "nvarchar(max)", manyOwnedTable) With { - .IsNullable = True - } - manyOwnedTable.Columns.Add("Details", detailsColumn0) - Dim numberColumn As New Column("Number", "int", manyOwnedTable) - manyOwnedTable.Columns.Add("Number", numberColumn) - Dim refTypeArrayColumn0 As New Column("RefTypeArray", "nvarchar(max)", manyOwnedTable) With { - .IsNullable = True - } - manyOwnedTable.Columns.Add("RefTypeArray", refTypeArrayColumn0) - Dim refTypeEnumerableColumn0 As New Column("RefTypeEnumerable", "nvarchar(max)", manyOwnedTable) With { - .IsNullable = True - } - manyOwnedTable.Columns.Add("RefTypeEnumerable", refTypeEnumerableColumn0) - Dim refTypeIListColumn0 As New Column("RefTypeIList", "nvarchar(max)", manyOwnedTable) With { - .IsNullable = True - } - manyOwnedTable.Columns.Add("RefTypeIList", refTypeIListColumn0) - Dim refTypeListColumn0 As New Column("RefTypeList", "nvarchar(max)", manyOwnedTable) With { - .IsNullable = True - } - manyOwnedTable.Columns.Add("RefTypeList", refTypeListColumn0) - Dim valueTypeArrayColumn0 As New Column("ValueTypeArray", "nvarchar(max)", manyOwnedTable) With { - .IsNullable = True - } - manyOwnedTable.Columns.Add("ValueTypeArray", valueTypeArrayColumn0) - Dim valueTypeEnumerableColumn0 As New Column("ValueTypeEnumerable", "nvarchar(max)", manyOwnedTable) With { - .IsNullable = True - } - manyOwnedTable.Columns.Add("ValueTypeEnumerable", valueTypeEnumerableColumn0) - Dim valueTypeIListColumn0 As New Column("ValueTypeIList", "nvarchar(max)", manyOwnedTable) With { - .IsNullable = True - } - manyOwnedTable.Columns.Add("ValueTypeIList", valueTypeIListColumn0) - Dim valueTypeListColumn0 As New Column("ValueTypeList", "nvarchar(max)", manyOwnedTable) With { - .IsNullable = True - } - manyOwnedTable.Columns.Add("ValueTypeList", valueTypeListColumn0) - Dim pK_ManyOwned As New UniqueConstraint("PK_ManyOwned", manyOwnedTable, {principalDerivedDependentBasebyteIdColumn, principalDerivedDependentBasebyteAlternateIdColumn, idColumn2}) - manyOwnedTable.PrimaryKey = pK_ManyOwned - Dim pK_ManyOwnedUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>.ManyOwned#OwnedType", - {"PrincipalDerivedId", "PrincipalDerivedAlternateId", "Id"}) - pK_ManyOwned.MappedKeys.Add(pK_ManyOwnedUc) - RelationalModel.GetOrCreateUniqueConstraints(pK_ManyOwnedUc).Add(pK_ManyOwned) - manyOwnedTable.UniqueConstraints.Add("PK_ManyOwned", pK_ManyOwned) - relationalModel.Tables.Add(("ManyOwned", Nothing), manyOwnedTable) - Dim manyOwnedTableMapping As New TableMapping(ownedType0, manyOwnedTable, True) - manyOwnedTable.AddTypeMapping(manyOwnedTableMapping, False) - tableMappings5.Add(manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(idColumn2, ownedType0.FindProperty("Id"), manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(principalDerivedDependentBasebyteAlternateIdColumn, ownedType0.FindProperty("PrincipalDerivedAlternateId"), manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(principalDerivedDependentBasebyteIdColumn, ownedType0.FindProperty("PrincipalDerivedId"), manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(detailsColumn0, ownedType0.FindProperty("Details"), manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(numberColumn, ownedType0.FindProperty("Number"), manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(refTypeArrayColumn0, ownedType0.FindProperty("RefTypeArray"), manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(refTypeEnumerableColumn0, ownedType0.FindProperty("RefTypeEnumerable"), manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(refTypeIListColumn0, ownedType0.FindProperty("RefTypeIList"), manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(refTypeListColumn0, ownedType0.FindProperty("RefTypeList"), manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(valueTypeArrayColumn0, ownedType0.FindProperty("ValueTypeArray"), manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(valueTypeEnumerableColumn0, ownedType0.FindProperty("ValueTypeEnumerable"), manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(valueTypeIListColumn0, ownedType0.FindProperty("ValueTypeIList"), manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(valueTypeListColumn0, ownedType0.FindProperty("ValueTypeList"), manyOwnedTableMapping) - - Dim principalBasePrincipalDerivedDependentBasebyte = FindEntityType("PrincipalBasePrincipalDerived>") - - Dim defaultTableMappings7 As New List(Of TableMappingBase(Of ColumnMappingBase))() - principalBasePrincipalDerivedDependentBasebyte.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings7) - Dim principalBasePrincipalDerivedDependentBasebyteTableBase As New TableBase("PrincipalBasePrincipalDerived>", Nothing, relationalModel) - Dim derivedsAlternateIdColumnBase As New ColumnBase(Of ColumnMappingBase)("DerivedsAlternateId", "uniqueidentifier", principalBasePrincipalDerivedDependentBasebyteTableBase) - principalBasePrincipalDerivedDependentBasebyteTableBase.Columns.Add("DerivedsAlternateId", derivedsAlternateIdColumnBase) - Dim derivedsIdColumnBase As New ColumnBase(Of ColumnMappingBase)("DerivedsId", "bigint", principalBasePrincipalDerivedDependentBasebyteTableBase) - principalBasePrincipalDerivedDependentBasebyteTableBase.Columns.Add("DerivedsId", derivedsIdColumnBase) - Dim principalsAlternateIdColumnBase As New ColumnBase(Of ColumnMappingBase)("PrincipalsAlternateId", "uniqueidentifier", principalBasePrincipalDerivedDependentBasebyteTableBase) - principalBasePrincipalDerivedDependentBasebyteTableBase.Columns.Add("PrincipalsAlternateId", principalsAlternateIdColumnBase) - Dim principalsIdColumnBase As New ColumnBase(Of ColumnMappingBase)("PrincipalsId", "bigint", principalBasePrincipalDerivedDependentBasebyteTableBase) - principalBasePrincipalDerivedDependentBasebyteTableBase.Columns.Add("PrincipalsId", principalsIdColumnBase) - Dim rowidColumnBase As New ColumnBase(Of ColumnMappingBase)("rowid", "rowversion", principalBasePrincipalDerivedDependentBasebyteTableBase) With { - .IsNullable = True - } - principalBasePrincipalDerivedDependentBasebyteTableBase.Columns.Add("rowid", rowidColumnBase) - relationalModel.DefaultTables.Add("PrincipalBasePrincipalDerived>", principalBasePrincipalDerivedDependentBasebyteTableBase) - Dim principalBasePrincipalDerivedDependentBasebyteMappingBase As New TableMappingBase(Of ColumnMappingBase)(principalBasePrincipalDerivedDependentBasebyte, principalBasePrincipalDerivedDependentBasebyteTableBase, True) - principalBasePrincipalDerivedDependentBasebyteTableBase.AddTypeMapping(principalBasePrincipalDerivedDependentBasebyteMappingBase, False) - defaultTableMappings7.Add(principalBasePrincipalDerivedDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(derivedsAlternateIdColumnBase, ColumnBase(Of ColumnMappingBase)), principalBasePrincipalDerivedDependentBasebyte.FindProperty("DerivedsAlternateId"), principalBasePrincipalDerivedDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(derivedsIdColumnBase, ColumnBase(Of ColumnMappingBase)), principalBasePrincipalDerivedDependentBasebyte.FindProperty("DerivedsId"), principalBasePrincipalDerivedDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalsAlternateIdColumnBase, ColumnBase(Of ColumnMappingBase)), principalBasePrincipalDerivedDependentBasebyte.FindProperty("PrincipalsAlternateId"), principalBasePrincipalDerivedDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalsIdColumnBase, ColumnBase(Of ColumnMappingBase)), principalBasePrincipalDerivedDependentBasebyte.FindProperty("PrincipalsId"), principalBasePrincipalDerivedDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(rowidColumnBase, ColumnBase(Of ColumnMappingBase)), principalBasePrincipalDerivedDependentBasebyte.FindProperty("rowid"), principalBasePrincipalDerivedDependentBasebyteMappingBase) - - Dim tableMappings6 As New List(Of TableMapping)() - principalBasePrincipalDerivedDependentBasebyte.SetRuntimeAnnotation("Relational:TableMappings", tableMappings6) - Dim principalBasePrincipalDerivedDependentBasebyteTable As New Table("PrincipalBasePrincipalDerived>", Nothing, relationalModel) - Dim derivedsIdColumn As New Column("DerivedsId", "bigint", principalBasePrincipalDerivedDependentBasebyteTable) - principalBasePrincipalDerivedDependentBasebyteTable.Columns.Add("DerivedsId", derivedsIdColumn) - Dim derivedsAlternateIdColumn As New Column("DerivedsAlternateId", "uniqueidentifier", principalBasePrincipalDerivedDependentBasebyteTable) - principalBasePrincipalDerivedDependentBasebyteTable.Columns.Add("DerivedsAlternateId", derivedsAlternateIdColumn) - Dim principalsIdColumn As New Column("PrincipalsId", "bigint", principalBasePrincipalDerivedDependentBasebyteTable) - principalBasePrincipalDerivedDependentBasebyteTable.Columns.Add("PrincipalsId", principalsIdColumn) - Dim principalsAlternateIdColumn As New Column("PrincipalsAlternateId", "uniqueidentifier", principalBasePrincipalDerivedDependentBasebyteTable) - principalBasePrincipalDerivedDependentBasebyteTable.Columns.Add("PrincipalsAlternateId", principalsAlternateIdColumn) - Dim rowidColumn As New Column("rowid", "rowversion", principalBasePrincipalDerivedDependentBasebyteTable) With { - .IsNullable = True - } - principalBasePrincipalDerivedDependentBasebyteTable.Columns.Add("rowid", rowidColumn) - Dim pK_PrincipalBasePrincipalDerivedDependentBasebyte As New UniqueConstraint("PK_PrincipalBasePrincipalDerived>", principalBasePrincipalDerivedDependentBasebyteTable, {derivedsIdColumn, derivedsAlternateIdColumn, principalsIdColumn, principalsAlternateIdColumn}) - principalBasePrincipalDerivedDependentBasebyteTable.PrimaryKey = pK_PrincipalBasePrincipalDerivedDependentBasebyte - Dim pK_PrincipalBasePrincipalDerivedDependentBasebyteUc = RelationalModel.GetKey(Me, - "PrincipalBasePrincipalDerived>", - {"DerivedsId", "DerivedsAlternateId", "PrincipalsId", "PrincipalsAlternateId"}) - pK_PrincipalBasePrincipalDerivedDependentBasebyte.MappedKeys.Add(pK_PrincipalBasePrincipalDerivedDependentBasebyteUc) - RelationalModel.GetOrCreateUniqueConstraints(pK_PrincipalBasePrincipalDerivedDependentBasebyteUc).Add(pK_PrincipalBasePrincipalDerivedDependentBasebyte) - principalBasePrincipalDerivedDependentBasebyteTable.UniqueConstraints.Add("PK_PrincipalBasePrincipalDerived>", pK_PrincipalBasePrincipalDerivedDependentBasebyte) - Dim iX_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalsId_PrincipalsAlternateId As New TableIndex( - "IX_PrincipalBasePrincipalDerived>_PrincipalsId_PrincipalsAlternateId", principalBasePrincipalDerivedDependentBasebyteTable, {principalsIdColumn, principalsAlternateIdColumn}, False) - Dim iX_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalsId_PrincipalsAlternateIdIx = RelationalModel.GetIndex(Me, - "PrincipalBasePrincipalDerived>", - {"PrincipalsId", "PrincipalsAlternateId"}) - iX_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalsId_PrincipalsAlternateId.MappedIndexes.Add(iX_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalsId_PrincipalsAlternateIdIx) - RelationalModel.GetOrCreateTableIndexes(iX_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalsId_PrincipalsAlternateIdIx).Add(iX_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalsId_PrincipalsAlternateId) - principalBasePrincipalDerivedDependentBasebyteTable.Indexes.Add("IX_PrincipalBasePrincipalDerived>_PrincipalsId_PrincipalsAlternateId", iX_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalsId_PrincipalsAlternateId) - relationalModel.Tables.Add(("PrincipalBasePrincipalDerived>", Nothing), principalBasePrincipalDerivedDependentBasebyteTable) - Dim principalBasePrincipalDerivedDependentBasebyteTableMapping As New TableMapping(principalBasePrincipalDerivedDependentBasebyte, principalBasePrincipalDerivedDependentBasebyteTable, True) - principalBasePrincipalDerivedDependentBasebyteTable.AddTypeMapping(principalBasePrincipalDerivedDependentBasebyteTableMapping, False) - tableMappings6.Add(principalBasePrincipalDerivedDependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(derivedsAlternateIdColumn, principalBasePrincipalDerivedDependentBasebyte.FindProperty("DerivedsAlternateId"), principalBasePrincipalDerivedDependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(derivedsIdColumn, principalBasePrincipalDerivedDependentBasebyte.FindProperty("DerivedsId"), principalBasePrincipalDerivedDependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(principalsAlternateIdColumn, principalBasePrincipalDerivedDependentBasebyte.FindProperty("PrincipalsAlternateId"), principalBasePrincipalDerivedDependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(principalsIdColumn, principalBasePrincipalDerivedDependentBasebyte.FindProperty("PrincipalsId"), principalBasePrincipalDerivedDependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(rowidColumn, principalBasePrincipalDerivedDependentBasebyte.FindProperty("rowid"), principalBasePrincipalDerivedDependentBasebyteTableMapping) - Dim fK_DependentBasebyte_PrincipalBase_PrincipalId As New ForeignKeyConstraint( - "FK_DependentBase_PrincipalBase_PrincipalId", dependentBasebyteTable, principalBaseTable, - {principalIdColumn}, - principalBaseTable.FindUniqueConstraint("AK_PrincipalBase_Id"), ReferentialAction.Cascade) - Dim fK_DependentBasebyte_PrincipalBase_PrincipalIdFk = RelationalModel.GetForeignKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", - {"PrincipalId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id"}) - fK_DependentBasebyte_PrincipalBase_PrincipalId.MappedForeignKeys.Add(fK_DependentBasebyte_PrincipalBase_PrincipalIdFk) - RelationalModel.GetOrCreateForeignKeyConstraints(fK_DependentBasebyte_PrincipalBase_PrincipalIdFk).Add(fK_DependentBasebyte_PrincipalBase_PrincipalId) - dependentBasebyteTable.ForeignKeyConstraints.Add(fK_DependentBasebyte_PrincipalBase_PrincipalId) - principalBaseTable.ReferencingForeignKeyConstraints.Add(fK_DependentBasebyte_PrincipalBase_PrincipalId) - Dim fK_DependentBasebyte_PrincipalDerived_PrincipalId_PrincipalAlternateId As New ForeignKeyConstraint( - "FK_DependentBase_PrincipalDerived_PrincipalId_PrincipalAlternateId", dependentBasebyteTable, principalDerivedTable, - {principalIdColumn, principalAlternateIdColumn}, - principalDerivedTable.FindUniqueConstraint("PK"), ReferentialAction.NoAction) - Dim fK_DependentBasebyte_PrincipalDerived_PrincipalId_PrincipalAlternateIdFk = RelationalModel.GetForeignKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", - {"PrincipalId", "PrincipalAlternateId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", - {"Id", "AlternateId"}) - fK_DependentBasebyte_PrincipalDerived_PrincipalId_PrincipalAlternateId.MappedForeignKeys.Add(fK_DependentBasebyte_PrincipalDerived_PrincipalId_PrincipalAlternateIdFk) - RelationalModel.GetOrCreateForeignKeyConstraints(fK_DependentBasebyte_PrincipalDerived_PrincipalId_PrincipalAlternateIdFk).Add(fK_DependentBasebyte_PrincipalDerived_PrincipalId_PrincipalAlternateId) - dependentBasebyteTable.ForeignKeyConstraints.Add(fK_DependentBasebyte_PrincipalDerived_PrincipalId_PrincipalAlternateId) - principalDerivedTable.ReferencingForeignKeyConstraints.Add(fK_DependentBasebyte_PrincipalDerived_PrincipalId_PrincipalAlternateId) - Dim fK_Details_PrincipalBase_PrincipalBaseId_PrincipalBaseAlternateId As New ForeignKeyConstraint( - "FK_Details_PrincipalBase_PrincipalBaseId_PrincipalBaseAlternateId", detailsTable, principalBaseTable, - {principalBaseIdColumn, principalBaseAlternateIdColumn}, - principalBaseTable.FindUniqueConstraint("PK"), ReferentialAction.Cascade) - Dim fK_Details_PrincipalBase_PrincipalBaseId_PrincipalBaseAlternateIdFk = RelationalModel.GetForeignKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType", - {"PrincipalBaseId", "PrincipalBaseAlternateId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType", - {"PrincipalBaseId", "PrincipalBaseAlternateId"}) - fK_Details_PrincipalBase_PrincipalBaseId_PrincipalBaseAlternateId.MappedForeignKeys.Add(fK_Details_PrincipalBase_PrincipalBaseId_PrincipalBaseAlternateIdFk) - RelationalModel.GetOrCreateForeignKeyConstraints(fK_Details_PrincipalBase_PrincipalBaseId_PrincipalBaseAlternateIdFk).Add(fK_Details_PrincipalBase_PrincipalBaseId_PrincipalBaseAlternateId) - detailsTable.ForeignKeyConstraints.Add(fK_Details_PrincipalBase_PrincipalBaseId_PrincipalBaseAlternateId) - principalBaseTable.ReferencingForeignKeyConstraints.Add(fK_Details_PrincipalBase_PrincipalBaseId_PrincipalBaseAlternateId) - Dim fK_ManyOwned_PrincipalDerived_PrincipalDerivedDependentBasebyteId_PrincipalDerivedDependentBasebyteAlternateId As New ForeignKeyConstraint( - "FK_ManyOwned_PrincipalDerived_PrincipalDerived>Id_PrincipalDerived>AlternateId", manyOwnedTable, principalDerivedTable, - {principalDerivedDependentBasebyteIdColumn, principalDerivedDependentBasebyteAlternateIdColumn}, - principalDerivedTable.FindUniqueConstraint("PK"), ReferentialAction.Cascade) - Dim fK_ManyOwned_PrincipalDerived_PrincipalDerivedDependentBasebyteId_PrincipalDerivedDependentBasebyteAlternateIdFk = RelationalModel.GetForeignKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>.ManyOwned#OwnedType", - {"PrincipalDerivedId", "PrincipalDerivedAlternateId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", - {"Id", "AlternateId"}) - fK_ManyOwned_PrincipalDerived_PrincipalDerivedDependentBasebyteId_PrincipalDerivedDependentBasebyteAlternateId.MappedForeignKeys.Add(fK_ManyOwned_PrincipalDerived_PrincipalDerivedDependentBasebyteId_PrincipalDerivedDependentBasebyteAlternateIdFk) - RelationalModel.GetOrCreateForeignKeyConstraints(fK_ManyOwned_PrincipalDerived_PrincipalDerivedDependentBasebyteId_PrincipalDerivedDependentBasebyteAlternateIdFk).Add(fK_ManyOwned_PrincipalDerived_PrincipalDerivedDependentBasebyteId_PrincipalDerivedDependentBasebyteAlternateId) - manyOwnedTable.ForeignKeyConstraints.Add(fK_ManyOwned_PrincipalDerived_PrincipalDerivedDependentBasebyteId_PrincipalDerivedDependentBasebyteAlternateId) - principalDerivedTable.ReferencingForeignKeyConstraints.Add(fK_ManyOwned_PrincipalDerived_PrincipalDerivedDependentBasebyteId_PrincipalDerivedDependentBasebyteAlternateId) - Dim fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_PrincipalsId_PrincipalsAlternateId As New ForeignKeyConstraint( - "FK_PrincipalBasePrincipalDerived>_PrincipalBase_PrincipalsId_PrincipalsAlternateId", principalBasePrincipalDerivedDependentBasebyteTable, principalBaseTable, - {principalsIdColumn, principalsAlternateIdColumn}, - principalBaseTable.FindUniqueConstraint("PK"), ReferentialAction.NoAction) - Dim fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_PrincipalsId_PrincipalsAlternateIdFk = RelationalModel.GetForeignKey(Me, - "PrincipalBasePrincipalDerived>", - {"PrincipalsId", "PrincipalsAlternateId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id", "AlternateId"}) - fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_PrincipalsId_PrincipalsAlternateId.MappedForeignKeys.Add(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_PrincipalsId_PrincipalsAlternateIdFk) - RelationalModel.GetOrCreateForeignKeyConstraints(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_PrincipalsId_PrincipalsAlternateIdFk).Add(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_PrincipalsId_PrincipalsAlternateId) - principalBasePrincipalDerivedDependentBasebyteTable.ForeignKeyConstraints.Add(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_PrincipalsId_PrincipalsAlternateId) - principalBaseTable.ReferencingForeignKeyConstraints.Add(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_PrincipalsId_PrincipalsAlternateId) - Dim fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalDerived_DerivedsId_DerivedsAlternateId As New ForeignKeyConstraint( - "FK_PrincipalBasePrincipalDerived>_PrincipalDerived_DerivedsId_DerivedsAlternateId", principalBasePrincipalDerivedDependentBasebyteTable, principalDerivedTable, - {derivedsIdColumn, derivedsAlternateIdColumn}, - principalDerivedTable.FindUniqueConstraint("PK"), ReferentialAction.Cascade) - Dim fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalDerived_DerivedsId_DerivedsAlternateIdFk = RelationalModel.GetForeignKey(Me, - "PrincipalBasePrincipalDerived>", - {"DerivedsId", "DerivedsAlternateId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", - {"Id", "AlternateId"}) - fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalDerived_DerivedsId_DerivedsAlternateId.MappedForeignKeys.Add(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalDerived_DerivedsId_DerivedsAlternateIdFk) - RelationalModel.GetOrCreateForeignKeyConstraints(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalDerived_DerivedsId_DerivedsAlternateIdFk).Add(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalDerived_DerivedsId_DerivedsAlternateId) - principalBasePrincipalDerivedDependentBasebyteTable.ForeignKeyConstraints.Add(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalDerived_DerivedsId_DerivedsAlternateId) - principalDerivedTable.ReferencingForeignKeyConstraints.Add(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalDerived_DerivedsId_DerivedsAlternateId) - Dim fK_PrincipalDerived_PrincipalBase_DerivedId_AlternateId As New ForeignKeyConstraint( - "FK_PrincipalDerived_PrincipalBase_DerivedId_AlternateId", principalDerivedTable, principalBaseTable, - {derivedIdColumn, alternateIdColumn0}, - principalBaseTable.FindUniqueConstraint("PK"), ReferentialAction.Cascade) - Dim fK_PrincipalDerived_PrincipalBase_DerivedId_AlternateIdFk = RelationalModel.GetForeignKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", - {"Id", "AlternateId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id", "AlternateId"}) - fK_PrincipalDerived_PrincipalBase_DerivedId_AlternateId.MappedForeignKeys.Add(fK_PrincipalDerived_PrincipalBase_DerivedId_AlternateIdFk) - RelationalModel.GetOrCreateForeignKeyConstraints(fK_PrincipalDerived_PrincipalBase_DerivedId_AlternateIdFk).Add(fK_PrincipalDerived_PrincipalBase_DerivedId_AlternateId) - principalDerivedTable.ForeignKeyConstraints.Add(fK_PrincipalDerived_PrincipalBase_DerivedId_AlternateId) - principalBaseTable.ReferencingForeignKeyConstraints.Add(fK_PrincipalDerived_PrincipalBase_DerivedId_AlternateId) - Return relationalModel.MakeReadOnly() - End Function - End Class -End Namespace -]]>.Value - Dim e1 = - -Imports System -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Migrations.Design -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion -Imports Microsoft.EntityFrameworkCore.ValueGeneration -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class DependentBaseEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?)), - baseEntityType, - discriminatorProperty:="EnumDiscriminator", - discriminatorValue:=VisualBasicMigrationsGeneratorTests.Enum1.One) - - Dim principalId = entityType.AddProperty( - "PrincipalId", - GetType(Long), - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=0L) - principalId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - principalId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim principalAlternateId = entityType.AddProperty( - "PrincipalAlternateId", - GetType(Guid), - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=New Guid("00000000-0000-0000-0000-000000000000")) - principalAlternateId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(GuidTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="uniqueidentifier"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - principalAlternateId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumDiscriminator = entityType.AddProperty( - "EnumDiscriminator", - GetType(VisualBasicMigrationsGeneratorTests.Enum1), - afterSaveBehavior:=PropertySaveBehavior.Throw, - valueGeneratorFactory:=AddressOf New DiscriminatorValueGeneratorFactory().Create) - enumDiscriminator.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicMigrationsGeneratorTests.Enum1, Integer)( - Function(value As VisualBasicMigrationsGeneratorTests.Enum1) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicMigrationsGeneratorTests.Enum1)), - New ValueComparer(Of VisualBasicMigrationsGeneratorTests.Enum1)( - Function(v1 As VisualBasicMigrationsGeneratorTests.Enum1, v2 As VisualBasicMigrationsGeneratorTests.Enum1) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicMigrationsGeneratorTests.Enum1) v.GetHashCode(), - Function(v As VisualBasicMigrationsGeneratorTests.Enum1) v), - New ValueComparer(Of VisualBasicMigrationsGeneratorTests.Enum1)( - Function(v1 As VisualBasicMigrationsGeneratorTests.Enum1, v2 As VisualBasicMigrationsGeneratorTests.Enum1) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicMigrationsGeneratorTests.Enum1) v.GetHashCode(), - Function(v As VisualBasicMigrationsGeneratorTests.Enum1) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicMigrationsGeneratorTests.Enum1, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicMigrationsGeneratorTests.Enum1, Integer)( - Function(value As VisualBasicMigrationsGeneratorTests.Enum1) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicMigrationsGeneratorTests.Enum1))), - Type.Missing}), CoreTypeMapping) - enumDiscriminator.SetSentinelFromProviderValue(0) - enumDiscriminator.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim id = entityType.AddProperty( - "Id", - GetType(Byte?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?)).GetProperty("Id", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?)).GetField("_Id", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - id.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte)))), - New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte)))), - New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - id.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim key = entityType.AddKey( - {principalId, principalAlternateId}) - entityType.SetPrimaryKey(key) - - Dim index = entityType.AddIndex( - {principalId}, - unique:=True) - - Return entityType - End Function - - Public Shared Function CreateForeignKey1(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("PrincipalId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("Id")}), - principalEntityType, - deleteBehavior:=DeleteBehavior.Cascade, - unique:=True, - required:=True) - - Return runtimeForeignKey - End Function - - Public Shared Function CreateForeignKey2(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("PrincipalId"), declaringEntityType.FindProperty("PrincipalAlternateId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("Id"), principalEntityType.FindProperty("AlternateId")}), - principalEntityType, - deleteBehavior:=DeleteBehavior.ClientNoAction, - unique:=True, - required:=True) - - Dim principal = declaringEntityType.AddNavigation("Principal", - runtimeForeignKey, - onDependent:=True, - GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?)).GetProperty("Principal", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?)).GetField("_Principal", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - - Dim dependent = principalEntityType.AddNavigation("Dependent", - runtimeForeignKey, - onDependent:=False, - GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))).GetProperty("Dependent", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))).GetField("_Dependent", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - eagerLoaded:=True, - lazyLoadingEnabled:=False) - - Return runtimeForeignKey - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("DiscriminatorMappingComplete", False) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:MappingStrategy", "TPH") - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "DependentBase") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim e2 = - -Imports System -Imports System.Collections -Imports System.Collections.Generic -Imports System.Globalization -Imports System.Linq -Imports System.Net -Imports System.Net.NetworkInformation -Imports System.Reflection -Imports System.Text -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion.Internal -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class ManyTypesEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+ManyTypes", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes), - baseEntityType) - - Dim id = entityType.AddProperty( - "Id", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Id", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Id", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueGenerated:=ValueGenerated.OnAdd, - afterSaveBehavior:=PropertySaveBehavior.Throw, - valueConverter:=New VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesIdConverter()) - id.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId, Integer)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId) v.Id, - Function(v As Integer) New VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId, v2 As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId, v2 As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId, Integer)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId) v.Id, - Function(v As Integer) New VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId(v))), - Type.Missing}), CoreTypeMapping) - id.SetSentinelFromProviderValue(0) - id.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.IdentityColumn) - - Dim bool = entityType.AddProperty( - "Bool", - GetType(Boolean), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Bool", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Bool", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=False) - bool.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerBoolTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - bool.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim boolArray = entityType.AddProperty( - "BoolArray", - GetType(Boolean()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("BoolArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_BoolArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - boolArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Boolean)(New JsonCollectionReaderWriter(Of Boolean(), Boolean(), Boolean)( - JsonBoolReaderWriter.Instance)), - New ListComparer(Of Boolean)(New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v)), - New ListComparer(Of Boolean)(New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerBoolTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Boolean(), Boolean(), Boolean)( - JsonBoolReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - boolArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim boolToStringConverterProperty = entityType.AddProperty( - "BoolToStringConverterProperty", - GetType(Boolean), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("BoolToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_BoolToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - boolToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(1)", - size:=1, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Boolean, String)( - Function(v As Boolean) CType(If(v, "B", "A"), String), - Function(v As String) Not(String.IsNullOrEmpty(v)) AndAlso Strings.AscW(v.ToUpperInvariant()(0)) = Strings.AscW("B"c)), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Boolean, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Boolean, String)( - Function(v As Boolean) CType(If(v, "B", "A"), String), - Function(v As String) Not(String.IsNullOrEmpty(v)) AndAlso Strings.AscW(v.ToUpperInvariant()(0)) = Strings.AscW("B"c))), - Type.Missing}), CoreTypeMapping) - boolToStringConverterProperty.SetSentinelFromProviderValue("A") - boolToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim boolToTwoValuesConverterProperty = entityType.AddProperty( - "BoolToTwoValuesConverterProperty", - GetType(Boolean), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("BoolToTwoValuesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_BoolToTwoValuesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - boolToTwoValuesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of Boolean, Byte)( - Function(v As Boolean) CType(If(v, CByte(1), CByte(0)), Byte), - Function(v As Byte) v = CByte(1)), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Boolean, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of Boolean, Byte)( - Function(v As Boolean) CType(If(v, CByte(1), CByte(0)), Byte), - Function(v As Byte) v = CByte(1))), - Type.Missing}), CoreTypeMapping) - boolToTwoValuesConverterProperty.SetSentinelFromProviderValue(CByte(0)) - boolToTwoValuesConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim boolToZeroOneConverterProperty = entityType.AddProperty( - "BoolToZeroOneConverterProperty", - GetType(Boolean), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("BoolToZeroOneConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_BoolToZeroOneConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New BoolToZeroOneConverter(Of Short)()) - boolToZeroOneConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of Boolean, Short)( - Function(v As Boolean) CType(If(v, 1S, 0S), Short), - Function(v As Short) v = 1S), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Boolean, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of Boolean, Short)( - Function(v As Boolean) CType(If(v, 1S, 0S), Short), - Function(v As Short) v = 1S)), - Type.Missing}), CoreTypeMapping) - boolToZeroOneConverterProperty.SetSentinelFromProviderValue(0S) - boolToZeroOneConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim bytes = entityType.AddProperty( - "Bytes", - GetType(Byte()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Bytes", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Bytes", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - bytes.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(max)"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - bytes.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim bytesArray = entityType.AddProperty( - "BytesArray", - GetType(Byte()()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("BytesArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_BytesArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - bytesArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte())(New JsonCollectionReaderWriter(Of Byte()(), Byte()(), Byte())( - JsonByteArrayReaderWriter.Instance)), - New ListComparer(Of Byte())(New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v)), - New ListComparer(Of Byte())(New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(max)"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Byte()(), Byte()(), Byte())( - JsonByteArrayReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - bytesArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim bytesToStringConverterProperty = entityType.AddProperty( - "BytesToStringConverterProperty", - GetType(Byte()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("BytesToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_BytesToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New BytesToStringConverter()) - bytesToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Byte(), String)( - Function(v As Byte()) Convert.ToBase64String(v), - Function(v As String) Convert.FromBase64String(v)), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Byte(), String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Byte(), String)( - Function(v As Byte()) Convert.ToBase64String(v), - Function(v As String) Convert.FromBase64String(v))), - StoreTypePostfix.None}), CoreTypeMapping) - bytesToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim castingConverterProperty = entityType.AddProperty( - "CastingConverterProperty", - GetType(Integer), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("CastingConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_CastingConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New CastingConverter(Of Integer, Decimal)()) - castingConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of Integer, Decimal)( - Function(v As Integer) CType(v, Decimal), - Function(v As Decimal) CType(v, Integer)), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Integer, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of Integer, Decimal)( - Function(v As Integer) CType(v, Decimal), - Function(v As Decimal) CType(v, Integer))), - Type.Missing}), CoreTypeMapping) - castingConverterProperty.SetSentinelFromProviderValue(0D) - castingConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim [char] = entityType.AddProperty( - "Char", - GetType(Char), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Char", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Char", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - [char].TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(1)", - size:=1, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0))), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Char, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)))), - Type.Missing}), CoreTypeMapping) - [char].SetSentinelFromProviderValue("" & ChrW(0) & "") - [char].AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim charArray = entityType.AddProperty( - "CharArray", - GetType(Char()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("CharArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_CharArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - charArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Char)(New JsonCollectionReaderWriter(Of Char(), Char(), Char)( - New JsonConvertedValueReaderWriter(Of Char, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)))))), - New ListComparer(Of Char)(New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v)), - New ListComparer(Of Char)(New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(1)", - size:=1, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0))), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Char, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Char(), Char(), Char)( - New JsonConvertedValueReaderWriter(Of Char, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0))))), - StoreTypePostfix.None}), CoreTypeMapping) - charArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim charToStringConverterProperty = entityType.AddProperty( - "CharToStringConverterProperty", - GetType(Char), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("CharToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_CharToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New CharToStringConverter()) - charToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(1)", - size:=1, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0))), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Char, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)))), - Type.Missing}), CoreTypeMapping) - charToStringConverterProperty.SetSentinelFromProviderValue("" & ChrW(0) & "") - charToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim dateOnlyArray = entityType.AddProperty( - "DateOnlyArray", - GetType(DateOnly()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateOnlyArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateOnlyArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - dateOnlyArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of DateOnly)(New JsonCollectionReaderWriter(Of DateOnly(), DateOnly(), DateOnly)( - JsonDateOnlyReaderWriter.Instance)), - New ListComparer(Of DateOnly)(New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v)), - New ListComparer(Of DateOnly)(New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateOnlyTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of DateOnly(), DateOnly(), DateOnly)( - JsonDateOnlyReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - dateOnlyArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim dateOnlyToStringConverterProperty = entityType.AddProperty( - "DateOnlyToStringConverterProperty", - GetType(DateOnly), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateOnlyToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateOnlyToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New DateOnlyToStringConverter()) - dateOnlyToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(10)", - size:=10, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of DateOnly, String)( - Function(v As DateOnly) v.ToString("yyyy\-MM\-dd"), - Function(v As String) DateOnly.Parse(v, CultureInfo.InvariantCulture, DateTimeStyles.None)), - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of DateOnly, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of DateOnly, String)( - Function(v As DateOnly) v.ToString("yyyy\-MM\-dd"), - Function(v As String) DateOnly.Parse(v, CultureInfo.InvariantCulture, DateTimeStyles.None))), - Type.Missing}), CoreTypeMapping) - dateOnlyToStringConverterProperty.SetSentinelFromProviderValue("0001-01-01") - dateOnlyToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim dateTimeArray = entityType.AddProperty( - "DateTimeArray", - GetType(Date()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateTimeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateTimeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - dateTimeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Date)(New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - JsonDateTimeReaderWriter.Instance)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateTimeTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - JsonDateTimeReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - dateTimeArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim dateTimeOffsetToBinaryConverterProperty = entityType.AddProperty( - "DateTimeOffsetToBinaryConverterProperty", - GetType(DateTimeOffset), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateTimeOffsetToBinaryConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateTimeOffsetToBinaryConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New DateTimeOffsetToBinaryConverter()) - dateTimeOffsetToBinaryConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of DateTimeOffset, Long)( - Function(v As DateTimeOffset) DateTimeOffsetToBinaryConverter.ToLong(v), - Function(v As Long) DateTimeOffsetToBinaryConverter.ToDateTimeOffset(v)), - New ValueComparer(Of DateTimeOffset)( - Function(v1 As DateTimeOffset, v2 As DateTimeOffset) v1.EqualsExact(v2), - Function(v As DateTimeOffset) v.GetHashCode(), - Function(v As DateTimeOffset) v), - New ValueComparer(Of DateTimeOffset)( - Function(v1 As DateTimeOffset, v2 As DateTimeOffset) v1.EqualsExact(v2), - Function(v As DateTimeOffset) v.GetHashCode(), - Function(v As DateTimeOffset) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of DateTimeOffset, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of DateTimeOffset, Long)( - Function(v As DateTimeOffset) DateTimeOffsetToBinaryConverter.ToLong(v), - Function(v As Long) DateTimeOffsetToBinaryConverter.ToDateTimeOffset(v))), - Type.Missing}), CoreTypeMapping) - dateTimeOffsetToBinaryConverterProperty.SetSentinelFromProviderValue(0L) - dateTimeOffsetToBinaryConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim dateTimeOffsetToBytesConverterProperty = entityType.AddProperty( - "DateTimeOffsetToBytesConverterProperty", - GetType(DateTimeOffset), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateTimeOffsetToBytesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateTimeOffsetToBytesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New DateTimeOffsetToBytesConverter()) - dateTimeOffsetToBytesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(12)", - size:=12), - Type.Missing, - New ValueConverter(Of DateTimeOffset, Byte())( - Function(v As DateTimeOffset) DateTimeOffsetToBytesConverter.ToBytes(v), - Function(v As Byte()) DateTimeOffsetToBytesConverter.FromBytes(v)), - New ValueComparer(Of DateTimeOffset)( - Function(v1 As DateTimeOffset, v2 As DateTimeOffset) v1.EqualsExact(v2), - Function(v As DateTimeOffset) v.GetHashCode(), - Function(v As DateTimeOffset) v), - New ValueComparer(Of DateTimeOffset)( - Function(v1 As DateTimeOffset, v2 As DateTimeOffset) v1.EqualsExact(v2), - Function(v As DateTimeOffset) v.GetHashCode(), - Function(v As DateTimeOffset) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - New JsonConvertedValueReaderWriter(Of DateTimeOffset, Byte())( - JsonByteArrayReaderWriter.Instance, - New ValueConverter(Of DateTimeOffset, Byte())( - Function(v As DateTimeOffset) DateTimeOffsetToBytesConverter.ToBytes(v), - Function(v As Byte()) DateTimeOffsetToBytesConverter.FromBytes(v))), - Type.Missing}), CoreTypeMapping) - dateTimeOffsetToBytesConverterProperty.SetSentinelFromProviderValue(New Byte() {0, 0, 0, 0, 0, 0, 0, 0, 0, 0}) - dateTimeOffsetToBytesConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim dateTimeOffsetToStringConverterProperty = entityType.AddProperty( - "DateTimeOffsetToStringConverterProperty", - GetType(DateTimeOffset), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateTimeOffsetToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateTimeOffsetToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New DateTimeOffsetToStringConverter()) - dateTimeOffsetToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(48)", - size:=48, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of DateTimeOffset, String)( - Function(v As DateTimeOffset) v.ToString("yyyy\-MM\-dd HH\:mm\:ss.FFFFFFFzzz"), - Function(v As String) DateTimeOffset.Parse(v, CultureInfo.InvariantCulture)), - New ValueComparer(Of DateTimeOffset)( - Function(v1 As DateTimeOffset, v2 As DateTimeOffset) v1.EqualsExact(v2), - Function(v As DateTimeOffset) v.GetHashCode(), - Function(v As DateTimeOffset) v), - New ValueComparer(Of DateTimeOffset)( - Function(v1 As DateTimeOffset, v2 As DateTimeOffset) v1.EqualsExact(v2), - Function(v As DateTimeOffset) v.GetHashCode(), - Function(v As DateTimeOffset) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of DateTimeOffset, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of DateTimeOffset, String)( - Function(v As DateTimeOffset) v.ToString("yyyy\-MM\-dd HH\:mm\:ss.FFFFFFFzzz"), - Function(v As String) DateTimeOffset.Parse(v, CultureInfo.InvariantCulture))), - Type.Missing}), CoreTypeMapping) - dateTimeOffsetToStringConverterProperty.SetSentinelFromProviderValue("0001-01-01 00:00:00+00:00") - dateTimeOffsetToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim dateTimeToBinaryConverterProperty = entityType.AddProperty( - "DateTimeToBinaryConverterProperty", - GetType(Date), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateTimeToBinaryConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateTimeToBinaryConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New DateTimeToBinaryConverter()) - dateTimeToBinaryConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of Date, Long)( - Function(v As DateTime) v.ToBinary(), - Function(v As Long) DateTime.FromBinary(v)), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Date, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of Date, Long)( - Function(v As DateTime) v.ToBinary(), - Function(v As Long) DateTime.FromBinary(v))), - Type.Missing}), CoreTypeMapping) - dateTimeToBinaryConverterProperty.SetSentinelFromProviderValue(0L) - dateTimeToBinaryConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim dateTimeToStringConverterProperty = entityType.AddProperty( - "DateTimeToStringConverterProperty", - GetType(Date), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateTimeToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateTimeToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New DateTimeToStringConverter()) - dateTimeToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(48)", - size:=48, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Date, String)( - Function(v As DateTime) v.ToString("yyyy\-MM\-dd HH\:mm\:ss.FFFFFFF"), - Function(v As String) DateTime.Parse(v, CultureInfo.InvariantCulture)), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Date, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Date, String)( - Function(v As DateTime) v.ToString("yyyy\-MM\-dd HH\:mm\:ss.FFFFFFF"), - Function(v As String) DateTime.Parse(v, CultureInfo.InvariantCulture))), - Type.Missing}), CoreTypeMapping) - dateTimeToStringConverterProperty.SetSentinelFromProviderValue("0001-01-01 00:00:00") - dateTimeToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim dateTimeToTicksConverterProperty = entityType.AddProperty( - "DateTimeToTicksConverterProperty", - GetType(Date), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateTimeToTicksConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateTimeToTicksConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=New Date(1, 1, 1, 0, 0, 0, 0, DateTimeKind.Unspecified)) - dateTimeToTicksConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateTimeTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - dateTimeToTicksConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim [decimal] = entityType.AddProperty( - "Decimal", - GetType(Decimal), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Decimal", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Decimal", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0D) - [decimal].TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - [decimal].AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim decimalArray = entityType.AddProperty( - "DecimalArray", - GetType(Decimal()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DecimalArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DecimalArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - decimalArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Decimal)(New JsonCollectionReaderWriter(Of Decimal(), Decimal(), Decimal)( - JsonDecimalReaderWriter.Instance)), - New ListComparer(Of Decimal)(New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v)), - New ListComparer(Of Decimal)(New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Decimal(), Decimal(), Decimal)( - JsonDecimalReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - decimalArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim decimalNumberToBytesConverterProperty = entityType.AddProperty( - "DecimalNumberToBytesConverterProperty", - GetType(Decimal), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DecimalNumberToBytesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DecimalNumberToBytesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New NumberToBytesConverter(Of Decimal)()) - decimalNumberToBytesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(16)", - size:=16), - Type.Missing, - New ValueConverter(Of Decimal, Byte())( - Function(v As Decimal) NumberToBytesConverter(Of Decimal).DecimalToBytes(v), - Function(v As Byte()) If(v Is Nothing, 0D, NumberToBytesConverter(Of Decimal).BytesToDecimal(v))), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Decimal, Byte())( - JsonByteArrayReaderWriter.Instance, - New ValueConverter(Of Decimal, Byte())( - Function(v As Decimal) NumberToBytesConverter(Of Decimal).DecimalToBytes(v), - Function(v As Byte()) If(v Is Nothing, 0D, NumberToBytesConverter(Of Decimal).BytesToDecimal(v)))), - Type.Missing}), CoreTypeMapping) - decimalNumberToBytesConverterProperty.SetSentinelFromProviderValue(New Byte() {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}) - decimalNumberToBytesConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim decimalNumberToStringConverterProperty = entityType.AddProperty( - "DecimalNumberToStringConverterProperty", - GetType(Decimal), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DecimalNumberToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DecimalNumberToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New NumberToStringConverter(Of Decimal)()) - decimalNumberToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(64)", - size:=64, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Decimal, String)( - Function(v As Decimal) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) Decimal.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture)), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Decimal, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Decimal, String)( - Function(v As Decimal) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) Decimal.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture))), - Type.Missing}), CoreTypeMapping) - decimalNumberToStringConverterProperty.SetSentinelFromProviderValue("0") - decimalNumberToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim [double] = entityType.AddProperty( - "Double", - GetType(Double), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Double", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Double", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0.0) - [double].TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDoubleTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - [double].AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim doubleArray = entityType.AddProperty( - "DoubleArray", - GetType(Double()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DoubleArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DoubleArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - doubleArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Double)(New JsonCollectionReaderWriter(Of Double(), Double(), Double)( - JsonDoubleReaderWriter.Instance)), - New ListComparer(Of Double)(New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v)), - New ListComparer(Of Double)(New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDoubleTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Double(), Double(), Double)( - JsonDoubleReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - doubleArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim doubleNumberToBytesConverterProperty = entityType.AddProperty( - "DoubleNumberToBytesConverterProperty", - GetType(Double), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DoubleNumberToBytesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DoubleNumberToBytesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New NumberToBytesConverter(Of Double)()) - doubleNumberToBytesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(8)", - size:=8), - Type.Missing, - New ValueConverter(Of Double, Byte())( - Function(v As Double) NumberToBytesConverter(Of Double).ReverseLong(BitConverter.GetBytes(v)), - Function(v As Byte()) If(v Is Nothing, 0R, BitConverter.ToDouble(NumberToBytesConverter(Of Double).ReverseLong(v), 0))), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Double, Byte())( - JsonByteArrayReaderWriter.Instance, - New ValueConverter(Of Double, Byte())( - Function(v As Double) NumberToBytesConverter(Of Double).ReverseLong(BitConverter.GetBytes(v)), - Function(v As Byte()) If(v Is Nothing, 0R, BitConverter.ToDouble(NumberToBytesConverter(Of Double).ReverseLong(v), 0)))), - Type.Missing}), CoreTypeMapping) - doubleNumberToBytesConverterProperty.SetSentinelFromProviderValue(New Byte() {0, 0, 0, 0, 0, 0, 0, 0}) - doubleNumberToBytesConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim doubleNumberToStringConverterProperty = entityType.AddProperty( - "DoubleNumberToStringConverterProperty", - GetType(Double), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DoubleNumberToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DoubleNumberToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New NumberToStringConverter(Of Double)()) - doubleNumberToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(64)", - size:=64, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Double, String)( - Function(v As Double) String.Format(CultureInfo.InvariantCulture, "{0:R}", CType(v, Object)), - Function(v As String) Double.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture)), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Double, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Double, String)( - Function(v As Double) String.Format(CultureInfo.InvariantCulture, "{0:R}", CType(v, Object)), - Function(v As String) Double.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture))), - Type.Missing}), CoreTypeMapping) - doubleNumberToStringConverterProperty.SetSentinelFromProviderValue("0") - doubleNumberToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum16 = entityType.AddProperty( - "Enum16", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum16), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum16", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum16", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enum16.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping) - enum16.SetSentinelFromProviderValue(0S) - enum16.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum16Array = entityType.AddProperty( - "Enum16Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum16()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum16Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum16Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum16Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum16Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum16AsString = entityType.AddProperty( - "Enum16AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum16), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum16AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum16AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - providerPropertyType:=GetType(String)) - enum16AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping) - enum16AsString.SetSentinelFromProviderValue("Default") - enum16AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum16AsStringArray = entityType.AddProperty( - "Enum16AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum16()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum16AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum16AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum16AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum16AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum16AsStringCollection = entityType.AddProperty( - "Enum16AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum16AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum16AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum16AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum16AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum16Collection = entityType.AddProperty( - "Enum16Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum16Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum16Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum16Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum16Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum32 = entityType.AddProperty( - "Enum32", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum32", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum32", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enum32.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping) - enum32.SetSentinelFromProviderValue(0) - enum32.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum32Array = entityType.AddProperty( - "Enum32Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum32Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum32Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum32Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum32Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum32AsString = entityType.AddProperty( - "Enum32AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum32AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum32AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - providerPropertyType:=GetType(String)) - enum32AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping) - enum32AsString.SetSentinelFromProviderValue("Default") - enum32AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum32AsStringArray = entityType.AddProperty( - "Enum32AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum32AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum32AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum32AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum32AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum32AsStringCollection = entityType.AddProperty( - "Enum32AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum32AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum32AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum32AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum32AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum32Collection = entityType.AddProperty( - "Enum32Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum32Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum32Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum32Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum32Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum64 = entityType.AddProperty( - "Enum64", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum64), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum64", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum64", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enum64.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping) - enum64.SetSentinelFromProviderValue(0L) - enum64.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum64Array = entityType.AddProperty( - "Enum64Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum64()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum64Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum64Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum64Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum64Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum64AsString = entityType.AddProperty( - "Enum64AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum64), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum64AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum64AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - providerPropertyType:=GetType(String)) - enum64AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping) - enum64AsString.SetSentinelFromProviderValue("Default") - enum64AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum64AsStringArray = entityType.AddProperty( - "Enum64AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum64()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum64AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum64AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum64AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum64AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum64AsStringCollection = entityType.AddProperty( - "Enum64AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum64AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum64AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum64AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum64AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum64Collection = entityType.AddProperty( - "Enum64Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum64Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum64Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum64Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum64Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum8 = entityType.AddProperty( - "Enum8", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum8), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum8", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum8", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enum8.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping) - enum8.SetSentinelFromProviderValue(0S) - enum8.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum8Array = entityType.AddProperty( - "Enum8Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum8()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum8Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum8Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum8Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum8Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum8AsString = entityType.AddProperty( - "Enum8AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum8), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum8AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum8AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - providerPropertyType:=GetType(String)) - enum8AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping) - enum8AsString.SetSentinelFromProviderValue("Default") - enum8AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum8AsStringArray = entityType.AddProperty( - "Enum8AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum8()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum8AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum8AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum8AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum8AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum8AsStringCollection = entityType.AddProperty( - "Enum8AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum8AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum8AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum8AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum8AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum8Collection = entityType.AddProperty( - "Enum8Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum8Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum8Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum8Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum8Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumToNumberConverterProperty = entityType.AddProperty( - "EnumToNumberConverterProperty", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumToNumberConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumToNumberConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New EnumToNumberConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)()) - enumToNumberConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping) - enumToNumberConverterProperty.SetSentinelFromProviderValue(0) - enumToNumberConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumToStringConverterProperty = entityType.AddProperty( - "EnumToStringConverterProperty", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New EnumToStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)()) - enumToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping) - enumToStringConverterProperty.SetSentinelFromProviderValue("Default") - enumToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU16 = entityType.AddProperty( - "EnumU16", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU16", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU16", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enumU16.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping) - enumU16.SetSentinelFromProviderValue(0) - enumU16.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU16Array = entityType.AddProperty( - "EnumU16Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU16()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU16Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU16Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU16Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU16Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU16AsString = entityType.AddProperty( - "EnumU16AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU16AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU16AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - providerPropertyType:=GetType(String)) - enumU16AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU16AsString.SetSentinelFromProviderValue("Min") - enumU16AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU16AsStringArray = entityType.AddProperty( - "EnumU16AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU16()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU16AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU16AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU16AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU16AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU16AsStringCollection = entityType.AddProperty( - "EnumU16AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU16AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU16AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU16AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU16AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU16Collection = entityType.AddProperty( - "EnumU16Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU16Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU16Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU16Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU16Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU32 = entityType.AddProperty( - "EnumU32", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU32", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU32", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enumU32.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping) - enumU32.SetSentinelFromProviderValue(0L) - enumU32.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU32Array = entityType.AddProperty( - "EnumU32Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU32()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU32Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU32Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU32Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU32Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU32AsString = entityType.AddProperty( - "EnumU32AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU32AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU32AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - providerPropertyType:=GetType(String)) - enumU32AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU32AsString.SetSentinelFromProviderValue("Min") - enumU32AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU32AsStringArray = entityType.AddProperty( - "EnumU32AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU32()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU32AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU32AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU32AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU32AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU32AsStringCollection = entityType.AddProperty( - "EnumU32AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU32AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU32AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU32AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU32AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU32Collection = entityType.AddProperty( - "EnumU32Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU32Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU32Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU32Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU32Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU64 = entityType.AddProperty( - "EnumU64", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU64", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU64", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enumU64.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping) - enumU64.SetSentinelFromProviderValue(0D) - enumU64.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU64Array = entityType.AddProperty( - "EnumU64Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU64()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU64Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU64Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU64Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU64Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU64AsString = entityType.AddProperty( - "EnumU64AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU64AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU64AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - providerPropertyType:=GetType(String)) - enumU64AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU64AsString.SetSentinelFromProviderValue("Min") - enumU64AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU64AsStringArray = entityType.AddProperty( - "EnumU64AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU64()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU64AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU64AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU64AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU64AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU64AsStringCollection = entityType.AddProperty( - "EnumU64AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU64AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU64AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU64AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU64AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU64Collection = entityType.AddProperty( - "EnumU64Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU64Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU64Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU64Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU64Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU8 = entityType.AddProperty( - "EnumU8", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU8", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU8", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enumU8.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping) - enumU8.SetSentinelFromProviderValue(CByte(0)) - enumU8.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU8Array = entityType.AddProperty( - "EnumU8Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU8()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU8Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU8Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU8Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU8Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU8AsString = entityType.AddProperty( - "EnumU8AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU8AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU8AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - providerPropertyType:=GetType(String)) - enumU8AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU8AsString.SetSentinelFromProviderValue("Min") - enumU8AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU8AsStringArray = entityType.AddProperty( - "EnumU8AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU8()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU8AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU8AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU8AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU8AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU8AsStringCollection = entityType.AddProperty( - "EnumU8AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU8AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU8AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU8AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU8AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU8Collection = entityType.AddProperty( - "EnumU8Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU8Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU8Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU8Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU8Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim floatArray = entityType.AddProperty( - "FloatArray", - GetType(Single()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("FloatArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_FloatArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - floatArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Single)(New JsonCollectionReaderWriter(Of Single(), Single(), Single)( - JsonFloatReaderWriter.Instance)), - New ListComparer(Of Single)(New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v)), - New ListComparer(Of Single)(New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerFloatTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Single(), Single(), Single)( - JsonFloatReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - floatArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim guid = entityType.AddProperty( - "Guid", - GetType(Guid), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Guid", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Guid", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=New Guid("00000000-0000-0000-0000-000000000000")) - guid.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(GuidTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="uniqueidentifier"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - guid.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim guidArray = entityType.AddProperty( - "GuidArray", - GetType(Guid()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("GuidArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_GuidArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - guidArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Guid)(New JsonCollectionReaderWriter(Of Guid(), Guid(), Guid)( - JsonGuidReaderWriter.Instance)), - New ListComparer(Of Guid)(New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v)), - New ListComparer(Of Guid)(New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(GuidTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="uniqueidentifier"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Guid(), Guid(), Guid)( - JsonGuidReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - guidArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim guidToBytesConverterProperty = entityType.AddProperty( - "GuidToBytesConverterProperty", - GetType(Guid), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("GuidToBytesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_GuidToBytesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New GuidToBytesConverter()) - guidToBytesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(16)", - size:=16), - Type.Missing, - New ValueConverter(Of Guid, Byte())( - Function(v As Guid) v.ToByteArray(), - Function(v As Byte()) New Guid(v)), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Guid, Byte())( - JsonByteArrayReaderWriter.Instance, - New ValueConverter(Of Guid, Byte())( - Function(v As Guid) v.ToByteArray(), - Function(v As Byte()) New Guid(v))), - Type.Missing}), CoreTypeMapping) - guidToBytesConverterProperty.SetSentinelFromProviderValue(New Byte() {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}) - guidToBytesConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim guidToStringConverterProperty = entityType.AddProperty( - "GuidToStringConverterProperty", - GetType(Guid), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("GuidToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_GuidToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New GuidToStringConverter()) - guidToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(36)", - size:=36, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Guid, String)( - Function(v As Guid) v.ToString("D"), - Function(v As String) New Guid(v)), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Guid, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Guid, String)( - Function(v As Guid) v.ToString("D"), - Function(v As String) New Guid(v))), - Type.Missing}), CoreTypeMapping) - guidToStringConverterProperty.SetSentinelFromProviderValue("00000000-0000-0000-0000-000000000000") - guidToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim iPAddressArray = entityType.AddProperty( - "IPAddressArray", - GetType(IPAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("IPAddressArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_IPAddressArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - iPAddressArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - iPAddressArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim iPAddressToBytesConverterProperty = entityType.AddProperty( - "IPAddressToBytesConverterProperty", - GetType(IPAddress), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("IPAddressToBytesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_IPAddressToBytesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New IPAddressToBytesConverter()) - iPAddressToBytesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(16)", - size:=16), - Type.Missing, - New ValueConverter(Of IPAddress, Byte())( - Function(v As IPAddress) v.GetAddressBytes(), - Function(v As Byte()) New IPAddress(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, Byte())( - JsonByteArrayReaderWriter.Instance, - New ValueConverter(Of IPAddress, Byte())( - Function(v As IPAddress) v.GetAddressBytes(), - Function(v As Byte()) New IPAddress(v))), - Type.Missing}), CoreTypeMapping) - iPAddressToBytesConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim iPAddressToStringConverterProperty = entityType.AddProperty( - "IPAddressToStringConverterProperty", - GetType(IPAddress), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("IPAddressToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_IPAddressToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New IPAddressToStringConverter()) - iPAddressToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping) - iPAddressToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim int16 = entityType.AddProperty( - "Int16", - GetType(Short), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Int16", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Int16", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0S) - int16.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - int16.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim int16Array = entityType.AddProperty( - "Int16Array", - GetType(Short()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Int16Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Int16Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - int16Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Short)(New JsonCollectionReaderWriter(Of Short(), Short(), Short)( - JsonInt16ReaderWriter.Instance)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Short(), Short(), Short)( - JsonInt16ReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - int16Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim int32 = entityType.AddProperty( - "Int32", - GetType(Integer), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Int32", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Int32", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0) - int32.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - int32.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim int32Array = entityType.AddProperty( - "Int32Array", - GetType(Integer()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Int32Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Int32Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - int32Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Integer)(New JsonCollectionReaderWriter(Of Integer(), Integer(), Integer)( - JsonInt32ReaderWriter.Instance)), - New ListComparer(Of Integer)(New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v)), - New ListComparer(Of Integer)(New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Integer(), Integer(), Integer)( - JsonInt32ReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - int32Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim int64 = entityType.AddProperty( - "Int64", - GetType(Long), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Int64", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Int64", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0L) - int64.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - int64.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim int64Array = entityType.AddProperty( - "Int64Array", - GetType(Long()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Int64Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Int64Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - int64Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Long)(New JsonCollectionReaderWriter(Of Long(), Long(), Long)( - JsonInt64ReaderWriter.Instance)), - New ListComparer(Of Long)(New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v)), - New ListComparer(Of Long)(New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Long(), Long(), Long)( - JsonInt64ReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - int64Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim int8 = entityType.AddProperty( - "Int8", - GetType(SByte), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Int8", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Int8", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - int8.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of SByte, Short)( - Function(v As SByte) CType(v, Short), - Function(v As Short) CType(v, SByte)), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of SByte, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of SByte, Short)( - Function(v As SByte) CType(v, Short), - Function(v As Short) CType(v, SByte))), - Type.Missing}), CoreTypeMapping) - int8.SetSentinelFromProviderValue(0S) - int8.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim int8Array = entityType.AddProperty( - "Int8Array", - GetType(SByte()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Int8Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Int8Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - int8Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of SByte)(New JsonCollectionReaderWriter(Of SByte(), SByte(), SByte)( - New JsonConvertedValueReaderWriter(Of SByte, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of SByte, Short)( - Function(v As SByte) CType(v, Short), - Function(v As Short) CType(v, SByte))))), - New ListComparer(Of SByte)(New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v)), - New ListComparer(Of SByte)(New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of SByte, Short)( - Function(v As SByte) CType(v, Short), - Function(v As Short) CType(v, SByte)), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of SByte, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of SByte, Short)( - Function(v As SByte) CType(v, Short), - Function(v As Short) CType(v, SByte))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of SByte(), SByte(), SByte)( - New JsonConvertedValueReaderWriter(Of SByte, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of SByte, Short)( - Function(v As SByte) CType(v, Short), - Function(v As Short) CType(v, SByte)))), - StoreTypePostfix.None}), CoreTypeMapping) - int8Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim intNumberToBytesConverterProperty = entityType.AddProperty( - "IntNumberToBytesConverterProperty", - GetType(Integer), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("IntNumberToBytesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_IntNumberToBytesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New NumberToBytesConverter(Of Integer)()) - intNumberToBytesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(4)", - size:=4), - Type.Missing, - New ValueConverter(Of Integer, Byte())( - Function(v As Integer) NumberToBytesConverter(Of Integer).ReverseInt(BitConverter.GetBytes(v)), - Function(v As Byte()) If(v Is Nothing, 0, BitConverter.ToInt32(NumberToBytesConverter(Of Integer).ReverseInt(If(v.Length = 0, New Byte(4 - 1) {}, v)), 0))), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Integer, Byte())( - JsonByteArrayReaderWriter.Instance, - New ValueConverter(Of Integer, Byte())( - Function(v As Integer) NumberToBytesConverter(Of Integer).ReverseInt(BitConverter.GetBytes(v)), - Function(v As Byte()) If(v Is Nothing, 0, BitConverter.ToInt32(NumberToBytesConverter(Of Integer).ReverseInt(If(v.Length = 0, New Byte(4 - 1) {}, v)), 0)))), - Type.Missing}), CoreTypeMapping) - intNumberToBytesConverterProperty.SetSentinelFromProviderValue(New Byte() {0, 0, 0, 0}) - intNumberToBytesConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim intNumberToStringConverterProperty = entityType.AddProperty( - "IntNumberToStringConverterProperty", - GetType(Integer), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("IntNumberToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_IntNumberToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New NumberToStringConverter(Of Integer)()) - intNumberToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(64)", - size:=64, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Integer, String)( - Function(v As Integer) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) Integer.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture)), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Integer, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Integer, String)( - Function(v As Integer) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) Integer.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture))), - Type.Missing}), CoreTypeMapping) - intNumberToStringConverterProperty.SetSentinelFromProviderValue("0") - intNumberToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullIntToNullStringConverterProperty = entityType.AddProperty( - "NullIntToNullStringConverterProperty", - GetType(Integer?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullIntToNullStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullIntToNullStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New VisualBasicRuntimeModelCodeGeneratorTest.NullIntToNullStringConverter()) - nullIntToNullStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Integer?, String)( - Function(v As Nullable(Of Integer)) If(v Is Nothing, Nothing, v.ToString()), - Function(v As String) CType(If(CType(v, Object) Is Nothing OrElse v = "", 0, Integer.Parse(v)), Nullable(Of Integer)), - convertsNulls:=True), - New ValueComparer(Of Integer?)( - Function(v1 As Nullable(Of Integer), v2 As Nullable(Of Integer)) v1 = v2, - Function(v As Nullable(Of Integer)) CType(v, Integer), - Function(v As Nullable(Of Integer)) v), - New ValueComparer(Of Integer?)( - Function(v1 As Nullable(Of Integer), v2 As Nullable(Of Integer)) v1 = v2, - Function(v As Nullable(Of Integer)) CType(v, Integer), - Function(v As Nullable(Of Integer)) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Integer?, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Integer?, String)( - Function(v As Nullable(Of Integer)) If(v Is Nothing, Nothing, v.ToString()), - Function(v As String) CType(If(CType(v, Object) Is Nothing OrElse v = "", 0, Integer.Parse(v)), Nullable(Of Integer)), - convertsNulls:=True)), - StoreTypePostfix.None}), CoreTypeMapping) - nullIntToNullStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableBool = entityType.AddProperty( - "NullableBool", - GetType(Boolean?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableBool", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableBool", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableBool.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerBoolTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Boolean?)( - Function(v1 As Nullable(Of Boolean), v2 As Nullable(Of Boolean)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Boolean) = CType(v2, Boolean) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(v, Boolean).GetHashCode(), 0), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(CType(v, Boolean), Nullable(Of Boolean)), CType(Nothing, Nullable(Of Boolean)))), - New ValueComparer(Of Boolean?)( - Function(v1 As Nullable(Of Boolean), v2 As Nullable(Of Boolean)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Boolean) = CType(v2, Boolean) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(v, Boolean).GetHashCode(), 0), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(CType(v, Boolean), Nullable(Of Boolean)), CType(Nothing, Nullable(Of Boolean)))), - New ValueComparer(Of Boolean?)( - Function(v1 As Nullable(Of Boolean), v2 As Nullable(Of Boolean)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Boolean) = CType(v2, Boolean) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(v, Boolean).GetHashCode(), 0), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(CType(v, Boolean), Nullable(Of Boolean)), CType(Nothing, Nullable(Of Boolean)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableBool.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableBoolArray = entityType.AddProperty( - "NullableBoolArray", - GetType(Boolean?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableBoolArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableBoolArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableBoolArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Boolean?)(New JsonNullableStructCollectionReaderWriter(Of Boolean?(), Boolean?(), Boolean)( - JsonBoolReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Boolean)(New ValueComparer(Of Boolean?)( - Function(v1 As Nullable(Of Boolean), v2 As Nullable(Of Boolean)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Boolean) = CType(v2, Boolean) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(v, Boolean).GetHashCode(), 0), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(CType(v, Boolean), Nullable(Of Boolean)), CType(Nothing, Nullable(Of Boolean))))), - New NullableValueTypeListComparer(Of Boolean)(New ValueComparer(Of Boolean?)( - Function(v1 As Nullable(Of Boolean), v2 As Nullable(Of Boolean)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Boolean) = CType(v2, Boolean) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(v, Boolean).GetHashCode(), 0), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(CType(v, Boolean), Nullable(Of Boolean)), CType(Nothing, Nullable(Of Boolean))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerBoolTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Boolean?(), Boolean?(), Boolean)( - JsonBoolReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableBoolArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableBytes = entityType.AddProperty( - "NullableBytes", - GetType(Byte()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableBytes", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableBytes", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableBytes.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(max)"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - nullableBytes.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableBytesArray = entityType.AddProperty( - "NullableBytesArray", - GetType(Byte()()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableBytesArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableBytesArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableBytesArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte())(New JsonCollectionReaderWriter(Of Byte()(), Byte()(), Byte())( - JsonByteArrayReaderWriter.Instance)), - New ListComparer(Of Byte())(New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v)), - New ListComparer(Of Byte())(New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(max)"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Byte()(), Byte()(), Byte())( - JsonByteArrayReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableBytesArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableChar = entityType.AddProperty( - "NullableChar", - GetType(Char?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableChar", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableChar", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableChar.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(1)", - size:=1, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0))), - New ValueComparer(Of Char?)( - Function(v1 As Nullable(Of Char), v2 As Nullable(Of Char)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Char) = CType(v2, Char) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Char)) If(v.HasValue, Strings.AscW(CType(v, Char)), 0), - Function(v As Nullable(Of Char)) If(v.HasValue, CType(CType(v, Char), Nullable(Of Char)), CType(Nothing, Nullable(Of Char)))), - New ValueComparer(Of Char?)( - Function(v1 As Nullable(Of Char), v2 As Nullable(Of Char)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Char) = CType(v2, Char) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Char)) If(v.HasValue, Strings.AscW(CType(v, Char)), 0), - Function(v As Nullable(Of Char)) If(v.HasValue, CType(CType(v, Char), Nullable(Of Char)), CType(Nothing, Nullable(Of Char)))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Char, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)))), - Type.Missing}), CoreTypeMapping) - nullableChar.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableCharArray = entityType.AddProperty( - "NullableCharArray", - GetType(Char?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableCharArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableCharArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableCharArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Char?)(New JsonNullableStructCollectionReaderWriter(Of Char?(), Char?(), Char)( - New JsonConvertedValueReaderWriter(Of Char, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)))))), - New NullableValueTypeListComparer(Of Char)(New ValueComparer(Of Char?)( - Function(v1 As Nullable(Of Char), v2 As Nullable(Of Char)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Char) = CType(v2, Char) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Char)) If(v.HasValue, Strings.AscW(CType(v, Char)), 0), - Function(v As Nullable(Of Char)) If(v.HasValue, CType(CType(v, Char), Nullable(Of Char)), CType(Nothing, Nullable(Of Char))))), - New NullableValueTypeListComparer(Of Char)(New ValueComparer(Of Char?)( - Function(v1 As Nullable(Of Char), v2 As Nullable(Of Char)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Char) = CType(v2, Char) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Char)) If(v.HasValue, Strings.AscW(CType(v, Char)), 0), - Function(v As Nullable(Of Char)) If(v.HasValue, CType(CType(v, Char), Nullable(Of Char)), CType(Nothing, Nullable(Of Char))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(1)", - size:=1, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0))), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Char, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Char?(), Char?(), Char)( - New JsonConvertedValueReaderWriter(Of Char, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0))))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableCharArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableDateOnly = entityType.AddProperty( - "NullableDateOnly", - GetType(DateOnly?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableDateOnly", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableDateOnly", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableDateOnly.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateOnlyTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of DateOnly?)( - Function(v1 As Nullable(Of DateOnly), v2 As Nullable(Of DateOnly)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateOnly) = CType(v2, DateOnly) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateOnly)) If(v.HasValue, CType(v, DateOnly).GetHashCode(), 0), - Function(v As Nullable(Of DateOnly)) If(v.HasValue, CType(CType(v, DateOnly), Nullable(Of DateOnly)), CType(Nothing, Nullable(Of DateOnly)))), - New ValueComparer(Of DateOnly?)( - Function(v1 As Nullable(Of DateOnly), v2 As Nullable(Of DateOnly)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateOnly) = CType(v2, DateOnly) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateOnly)) If(v.HasValue, CType(v, DateOnly).GetHashCode(), 0), - Function(v As Nullable(Of DateOnly)) If(v.HasValue, CType(CType(v, DateOnly), Nullable(Of DateOnly)), CType(Nothing, Nullable(Of DateOnly)))), - New ValueComparer(Of DateOnly?)( - Function(v1 As Nullable(Of DateOnly), v2 As Nullable(Of DateOnly)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateOnly) = CType(v2, DateOnly) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateOnly)) If(v.HasValue, CType(v, DateOnly).GetHashCode(), 0), - Function(v As Nullable(Of DateOnly)) If(v.HasValue, CType(CType(v, DateOnly), Nullable(Of DateOnly)), CType(Nothing, Nullable(Of DateOnly)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableDateOnly.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableDateOnlyArray = entityType.AddProperty( - "NullableDateOnlyArray", - GetType(DateOnly?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableDateOnlyArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableDateOnlyArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableDateOnlyArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of DateOnly?)(New JsonNullableStructCollectionReaderWriter(Of DateOnly?(), DateOnly?(), DateOnly)( - JsonDateOnlyReaderWriter.Instance)), - New NullableValueTypeListComparer(Of DateOnly)(New ValueComparer(Of DateOnly?)( - Function(v1 As Nullable(Of DateOnly), v2 As Nullable(Of DateOnly)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateOnly) = CType(v2, DateOnly) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateOnly)) If(v.HasValue, CType(v, DateOnly).GetHashCode(), 0), - Function(v As Nullable(Of DateOnly)) If(v.HasValue, CType(CType(v, DateOnly), Nullable(Of DateOnly)), CType(Nothing, Nullable(Of DateOnly))))), - New NullableValueTypeListComparer(Of DateOnly)(New ValueComparer(Of DateOnly?)( - Function(v1 As Nullable(Of DateOnly), v2 As Nullable(Of DateOnly)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateOnly) = CType(v2, DateOnly) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateOnly)) If(v.HasValue, CType(v, DateOnly).GetHashCode(), 0), - Function(v As Nullable(Of DateOnly)) If(v.HasValue, CType(CType(v, DateOnly), Nullable(Of DateOnly)), CType(Nothing, Nullable(Of DateOnly))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateOnlyTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of DateOnly?(), DateOnly?(), DateOnly)( - JsonDateOnlyReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableDateOnlyArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableDateTime = entityType.AddProperty( - "NullableDateTime", - GetType(Date?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableDateTime", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableDateTime", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableDateTime.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateTimeTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Date?)( - Function(v1 As Nullable(Of DateTime), v2 As Nullable(Of DateTime)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateTime) = CType(v2, DateTime) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateTime)) If(v.HasValue, CType(v, DateTime).GetHashCode(), 0), - Function(v As Nullable(Of DateTime)) If(v.HasValue, CType(CType(v, DateTime), Nullable(Of DateTime)), CType(Nothing, Nullable(Of DateTime)))), - New ValueComparer(Of Date?)( - Function(v1 As Nullable(Of DateTime), v2 As Nullable(Of DateTime)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateTime) = CType(v2, DateTime) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateTime)) If(v.HasValue, CType(v, DateTime).GetHashCode(), 0), - Function(v As Nullable(Of DateTime)) If(v.HasValue, CType(CType(v, DateTime), Nullable(Of DateTime)), CType(Nothing, Nullable(Of DateTime)))), - New ValueComparer(Of Date?)( - Function(v1 As Nullable(Of DateTime), v2 As Nullable(Of DateTime)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateTime) = CType(v2, DateTime) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateTime)) If(v.HasValue, CType(v, DateTime).GetHashCode(), 0), - Function(v As Nullable(Of DateTime)) If(v.HasValue, CType(CType(v, DateTime), Nullable(Of DateTime)), CType(Nothing, Nullable(Of DateTime)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableDateTime.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableDateTimeArray = entityType.AddProperty( - "NullableDateTimeArray", - GetType(Date?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableDateTimeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableDateTimeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableDateTimeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Date?)(New JsonNullableStructCollectionReaderWriter(Of Date?(), Date?(), Date)( - JsonDateTimeReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Date)(New ValueComparer(Of Date?)( - Function(v1 As Nullable(Of DateTime), v2 As Nullable(Of DateTime)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateTime) = CType(v2, DateTime) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateTime)) If(v.HasValue, CType(v, DateTime).GetHashCode(), 0), - Function(v As Nullable(Of DateTime)) If(v.HasValue, CType(CType(v, DateTime), Nullable(Of DateTime)), CType(Nothing, Nullable(Of DateTime))))), - New NullableValueTypeListComparer(Of Date)(New ValueComparer(Of Date?)( - Function(v1 As Nullable(Of DateTime), v2 As Nullable(Of DateTime)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateTime) = CType(v2, DateTime) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateTime)) If(v.HasValue, CType(v, DateTime).GetHashCode(), 0), - Function(v As Nullable(Of DateTime)) If(v.HasValue, CType(CType(v, DateTime), Nullable(Of DateTime)), CType(Nothing, Nullable(Of DateTime))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateTimeTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Date?(), Date?(), Date)( - JsonDateTimeReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableDateTimeArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableDecimal = entityType.AddProperty( - "NullableDecimal", - GetType(Decimal?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableDecimal", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableDecimal", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableDecimal.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Decimal?)( - Function(v1 As Nullable(Of Decimal), v2 As Nullable(Of Decimal)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Decimal) = CType(v2, Decimal) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Decimal)) If(v.HasValue, CType(v, Decimal).GetHashCode(), 0), - Function(v As Nullable(Of Decimal)) If(v.HasValue, CType(CType(v, Decimal), Nullable(Of Decimal)), CType(Nothing, Nullable(Of Decimal)))), - New ValueComparer(Of Decimal?)( - Function(v1 As Nullable(Of Decimal), v2 As Nullable(Of Decimal)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Decimal) = CType(v2, Decimal) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Decimal)) If(v.HasValue, CType(v, Decimal).GetHashCode(), 0), - Function(v As Nullable(Of Decimal)) If(v.HasValue, CType(CType(v, Decimal), Nullable(Of Decimal)), CType(Nothing, Nullable(Of Decimal)))), - New ValueComparer(Of Decimal?)( - Function(v1 As Nullable(Of Decimal), v2 As Nullable(Of Decimal)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Decimal) = CType(v2, Decimal) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Decimal)) If(v.HasValue, CType(v, Decimal).GetHashCode(), 0), - Function(v As Nullable(Of Decimal)) If(v.HasValue, CType(CType(v, Decimal), Nullable(Of Decimal)), CType(Nothing, Nullable(Of Decimal)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableDecimal.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableDecimalArray = entityType.AddProperty( - "NullableDecimalArray", - GetType(Decimal?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableDecimalArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableDecimalArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableDecimalArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Decimal?)(New JsonNullableStructCollectionReaderWriter(Of Decimal?(), Decimal?(), Decimal)( - JsonDecimalReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Decimal)(New ValueComparer(Of Decimal?)( - Function(v1 As Nullable(Of Decimal), v2 As Nullable(Of Decimal)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Decimal) = CType(v2, Decimal) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Decimal)) If(v.HasValue, CType(v, Decimal).GetHashCode(), 0), - Function(v As Nullable(Of Decimal)) If(v.HasValue, CType(CType(v, Decimal), Nullable(Of Decimal)), CType(Nothing, Nullable(Of Decimal))))), - New NullableValueTypeListComparer(Of Decimal)(New ValueComparer(Of Decimal?)( - Function(v1 As Nullable(Of Decimal), v2 As Nullable(Of Decimal)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Decimal) = CType(v2, Decimal) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Decimal)) If(v.HasValue, CType(v, Decimal).GetHashCode(), 0), - Function(v As Nullable(Of Decimal)) If(v.HasValue, CType(CType(v, Decimal), Nullable(Of Decimal)), CType(Nothing, Nullable(Of Decimal))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Decimal?(), Decimal?(), Decimal)( - JsonDecimalReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableDecimalArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableDouble = entityType.AddProperty( - "NullableDouble", - GetType(Double?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableDouble", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableDouble", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableDouble.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDoubleTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Double?)( - Function(v1 As Nullable(Of Double), v2 As Nullable(Of Double)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Double).Equals(CType(v2, Double)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(v, Double).GetHashCode(), 0), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(CType(v, Double), Nullable(Of Double)), CType(Nothing, Nullable(Of Double)))), - New ValueComparer(Of Double?)( - Function(v1 As Nullable(Of Double), v2 As Nullable(Of Double)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Double).Equals(CType(v2, Double)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(v, Double).GetHashCode(), 0), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(CType(v, Double), Nullable(Of Double)), CType(Nothing, Nullable(Of Double)))), - New ValueComparer(Of Double?)( - Function(v1 As Nullable(Of Double), v2 As Nullable(Of Double)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Double).Equals(CType(v2, Double)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(v, Double).GetHashCode(), 0), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(CType(v, Double), Nullable(Of Double)), CType(Nothing, Nullable(Of Double)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableDouble.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableDoubleArray = entityType.AddProperty( - "NullableDoubleArray", - GetType(Double?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableDoubleArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableDoubleArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableDoubleArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Double?)(New JsonNullableStructCollectionReaderWriter(Of Double?(), Double?(), Double)( - JsonDoubleReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Double)(New ValueComparer(Of Double?)( - Function(v1 As Nullable(Of Double), v2 As Nullable(Of Double)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Double).Equals(CType(v2, Double)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(v, Double).GetHashCode(), 0), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(CType(v, Double), Nullable(Of Double)), CType(Nothing, Nullable(Of Double))))), - New NullableValueTypeListComparer(Of Double)(New ValueComparer(Of Double?)( - Function(v1 As Nullable(Of Double), v2 As Nullable(Of Double)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Double).Equals(CType(v2, Double)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(v, Double).GetHashCode(), 0), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(CType(v, Double), Nullable(Of Double)), CType(Nothing, Nullable(Of Double))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDoubleTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Double?(), Double?(), Double)( - JsonDoubleReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableDoubleArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum16 = entityType.AddProperty( - "NullableEnum16", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum16", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum16", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum16.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping) - nullableEnum16.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum16Array = entityType.AddProperty( - "NullableEnum16Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum16?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum16Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum16Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum16Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum16Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum16AsString = entityType.AddProperty( - "NullableEnum16AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum16AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum16AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum16AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping) - nullableEnum16AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum16AsStringArray = entityType.AddProperty( - "NullableEnum16AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum16?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum16AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum16AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum16AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum16AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum16AsStringCollection = entityType.AddProperty( - "NullableEnum16AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum16AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum16AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum16AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum16AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum16Collection = entityType.AddProperty( - "NullableEnum16Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum16Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum16Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum16Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum16Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum32 = entityType.AddProperty( - "NullableEnum32", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum32", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum32", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum32.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping) - nullableEnum32.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum32Array = entityType.AddProperty( - "NullableEnum32Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum32Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum32Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum32Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum32Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum32AsString = entityType.AddProperty( - "NullableEnum32AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum32AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum32AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum32AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping) - nullableEnum32AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum32AsStringArray = entityType.AddProperty( - "NullableEnum32AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum32AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum32AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum32AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum32AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum32AsStringCollection = entityType.AddProperty( - "NullableEnum32AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum32AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum32AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum32AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum32AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum32Collection = entityType.AddProperty( - "NullableEnum32Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum32Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum32Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum32Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum32Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum64 = entityType.AddProperty( - "NullableEnum64", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum64", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum64", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum64.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping) - nullableEnum64.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum64Array = entityType.AddProperty( - "NullableEnum64Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum64?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum64Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum64Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum64Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum64Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum64AsString = entityType.AddProperty( - "NullableEnum64AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum64AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum64AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum64AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping) - nullableEnum64AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum64AsStringArray = entityType.AddProperty( - "NullableEnum64AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum64?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum64AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum64AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum64AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum64AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum64AsStringCollection = entityType.AddProperty( - "NullableEnum64AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum64AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum64AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum64AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum64AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum64Collection = entityType.AddProperty( - "NullableEnum64Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum64Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum64Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum64Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum64Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum8 = entityType.AddProperty( - "NullableEnum8", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum8", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum8", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum8.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping) - nullableEnum8.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum8Array = entityType.AddProperty( - "NullableEnum8Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum8?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum8Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum8Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum8Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum8Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum8AsString = entityType.AddProperty( - "NullableEnum8AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum8AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum8AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum8AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping) - nullableEnum8AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum8AsStringArray = entityType.AddProperty( - "NullableEnum8AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum8?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum8AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum8AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum8AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum8AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum8AsStringCollection = entityType.AddProperty( - "NullableEnum8AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum8AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum8AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum8AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum8AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum8Collection = entityType.AddProperty( - "NullableEnum8Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum8Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum8Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum8Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum8Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU16 = entityType.AddProperty( - "NullableEnumU16", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU16", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU16", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU16.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping) - nullableEnumU16.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU16Array = entityType.AddProperty( - "NullableEnumU16Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU16Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU16Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU16Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU16Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU16AsString = entityType.AddProperty( - "NullableEnumU16AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU16AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU16AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU16AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping) - nullableEnumU16AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU16AsStringArray = entityType.AddProperty( - "NullableEnumU16AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU16AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU16AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU16AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU16AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU16AsStringCollection = entityType.AddProperty( - "NullableEnumU16AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU16AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU16AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU16AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU16AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU16Collection = entityType.AddProperty( - "NullableEnumU16Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU16Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU16Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU16Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU16Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU32 = entityType.AddProperty( - "NullableEnumU32", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU32", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU32", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU32.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping) - nullableEnumU32.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU32Array = entityType.AddProperty( - "NullableEnumU32Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU32Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU32Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU32Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU32Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU32AsString = entityType.AddProperty( - "NullableEnumU32AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU32AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU32AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU32AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping) - nullableEnumU32AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU32AsStringArray = entityType.AddProperty( - "NullableEnumU32AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU32AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU32AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU32AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU32AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU32AsStringCollection = entityType.AddProperty( - "NullableEnumU32AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU32AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU32AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU32AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU32AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU32Collection = entityType.AddProperty( - "NullableEnumU32Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU32Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU32Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU32Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU32Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU64 = entityType.AddProperty( - "NullableEnumU64", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU64", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU64", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU64.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping) - nullableEnumU64.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU64Array = entityType.AddProperty( - "NullableEnumU64Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU64Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU64Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU64Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU64Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU64AsString = entityType.AddProperty( - "NullableEnumU64AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU64AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU64AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU64AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping) - nullableEnumU64AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU64AsStringArray = entityType.AddProperty( - "NullableEnumU64AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU64AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU64AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU64AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU64AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU64AsStringCollection = entityType.AddProperty( - "NullableEnumU64AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU64AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU64AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU64AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU64AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU64Collection = entityType.AddProperty( - "NullableEnumU64Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU64Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU64Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU64Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU64Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU8 = entityType.AddProperty( - "NullableEnumU8", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU8", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU8", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU8.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping) - nullableEnumU8.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU8Array = entityType.AddProperty( - "NullableEnumU8Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU8Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU8Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU8Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU8Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU8AsString = entityType.AddProperty( - "NullableEnumU8AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU8AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU8AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU8AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping) - nullableEnumU8AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU8AsStringArray = entityType.AddProperty( - "NullableEnumU8AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU8AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU8AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU8AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU8AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU8AsStringCollection = entityType.AddProperty( - "NullableEnumU8AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU8AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU8AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU8AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU8AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU8Collection = entityType.AddProperty( - "NullableEnumU8Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU8Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU8Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU8Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU8Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableFloat = entityType.AddProperty( - "NullableFloat", - GetType(Single?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableFloat", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableFloat", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableFloat.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerFloatTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Single?)( - Function(v1 As Nullable(Of Single), v2 As Nullable(Of Single)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Single).Equals(CType(v2, Single)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(v, Single).GetHashCode(), 0), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(CType(v, Single), Nullable(Of Single)), CType(Nothing, Nullable(Of Single)))), - New ValueComparer(Of Single?)( - Function(v1 As Nullable(Of Single), v2 As Nullable(Of Single)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Single).Equals(CType(v2, Single)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(v, Single).GetHashCode(), 0), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(CType(v, Single), Nullable(Of Single)), CType(Nothing, Nullable(Of Single)))), - New ValueComparer(Of Single?)( - Function(v1 As Nullable(Of Single), v2 As Nullable(Of Single)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Single).Equals(CType(v2, Single)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(v, Single).GetHashCode(), 0), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(CType(v, Single), Nullable(Of Single)), CType(Nothing, Nullable(Of Single)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableFloat.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableFloatArray = entityType.AddProperty( - "NullableFloatArray", - GetType(Single?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableFloatArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableFloatArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableFloatArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Single?)(New JsonNullableStructCollectionReaderWriter(Of Single?(), Single?(), Single)( - JsonFloatReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Single)(New ValueComparer(Of Single?)( - Function(v1 As Nullable(Of Single), v2 As Nullable(Of Single)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Single).Equals(CType(v2, Single)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(v, Single).GetHashCode(), 0), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(CType(v, Single), Nullable(Of Single)), CType(Nothing, Nullable(Of Single))))), - New NullableValueTypeListComparer(Of Single)(New ValueComparer(Of Single?)( - Function(v1 As Nullable(Of Single), v2 As Nullable(Of Single)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Single).Equals(CType(v2, Single)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(v, Single).GetHashCode(), 0), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(CType(v, Single), Nullable(Of Single)), CType(Nothing, Nullable(Of Single))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerFloatTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Single?(), Single?(), Single)( - JsonFloatReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableFloatArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableGuid = entityType.AddProperty( - "NullableGuid", - GetType(Guid?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableGuid", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableGuid", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableGuid.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(GuidTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="uniqueidentifier"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Guid?)( - Function(v1 As Nullable(Of Guid), v2 As Nullable(Of Guid)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Guid) = CType(v2, Guid) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Guid)) If(v.HasValue, CType(v, Guid).GetHashCode(), 0), - Function(v As Nullable(Of Guid)) If(v.HasValue, CType(CType(v, Guid), Nullable(Of Guid)), CType(Nothing, Nullable(Of Guid)))), - New ValueComparer(Of Guid?)( - Function(v1 As Nullable(Of Guid), v2 As Nullable(Of Guid)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Guid) = CType(v2, Guid) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Guid)) If(v.HasValue, CType(v, Guid).GetHashCode(), 0), - Function(v As Nullable(Of Guid)) If(v.HasValue, CType(CType(v, Guid), Nullable(Of Guid)), CType(Nothing, Nullable(Of Guid)))), - New ValueComparer(Of Guid?)( - Function(v1 As Nullable(Of Guid), v2 As Nullable(Of Guid)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Guid) = CType(v2, Guid) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Guid)) If(v.HasValue, CType(v, Guid).GetHashCode(), 0), - Function(v As Nullable(Of Guid)) If(v.HasValue, CType(CType(v, Guid), Nullable(Of Guid)), CType(Nothing, Nullable(Of Guid)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableGuid.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableGuidArray = entityType.AddProperty( - "NullableGuidArray", - GetType(Guid?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableGuidArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableGuidArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableGuidArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Guid?)(New JsonNullableStructCollectionReaderWriter(Of Guid?(), Guid?(), Guid)( - JsonGuidReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Guid)(New ValueComparer(Of Guid?)( - Function(v1 As Nullable(Of Guid), v2 As Nullable(Of Guid)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Guid) = CType(v2, Guid) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Guid)) If(v.HasValue, CType(v, Guid).GetHashCode(), 0), - Function(v As Nullable(Of Guid)) If(v.HasValue, CType(CType(v, Guid), Nullable(Of Guid)), CType(Nothing, Nullable(Of Guid))))), - New NullableValueTypeListComparer(Of Guid)(New ValueComparer(Of Guid?)( - Function(v1 As Nullable(Of Guid), v2 As Nullable(Of Guid)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Guid) = CType(v2, Guid) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Guid)) If(v.HasValue, CType(v, Guid).GetHashCode(), 0), - Function(v As Nullable(Of Guid)) If(v.HasValue, CType(CType(v, Guid), Nullable(Of Guid)), CType(Nothing, Nullable(Of Guid))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(GuidTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="uniqueidentifier"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Guid?(), Guid?(), Guid)( - JsonGuidReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableGuidArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableIPAddress = entityType.AddProperty( - "NullableIPAddress", - GetType(IPAddress), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableIPAddress", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableIPAddress", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableIPAddress.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping) - nullableIPAddress.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableIPAddressArray = entityType.AddProperty( - "NullableIPAddressArray", - GetType(IPAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableIPAddressArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableIPAddressArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableIPAddressArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableIPAddressArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableInt16 = entityType.AddProperty( - "NullableInt16", - GetType(Short?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableInt16", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableInt16", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableInt16.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Short?)( - Function(v1 As Nullable(Of Short), v2 As Nullable(Of Short)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Short) = CType(v2, Short) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Integer), 0), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Nullable(Of Short)), CType(Nothing, Nullable(Of Short)))), - New ValueComparer(Of Short?)( - Function(v1 As Nullable(Of Short), v2 As Nullable(Of Short)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Short) = CType(v2, Short) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Integer), 0), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Nullable(Of Short)), CType(Nothing, Nullable(Of Short)))), - New ValueComparer(Of Short?)( - Function(v1 As Nullable(Of Short), v2 As Nullable(Of Short)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Short) = CType(v2, Short) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Integer), 0), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Nullable(Of Short)), CType(Nothing, Nullable(Of Short)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableInt16.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableInt16Array = entityType.AddProperty( - "NullableInt16Array", - GetType(Short?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableInt16Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableInt16Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableInt16Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Short?)(New JsonNullableStructCollectionReaderWriter(Of Short?(), Short?(), Short)( - JsonInt16ReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Short)(New ValueComparer(Of Short?)( - Function(v1 As Nullable(Of Short), v2 As Nullable(Of Short)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Short) = CType(v2, Short) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Integer), 0), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Nullable(Of Short)), CType(Nothing, Nullable(Of Short))))), - New NullableValueTypeListComparer(Of Short)(New ValueComparer(Of Short?)( - Function(v1 As Nullable(Of Short), v2 As Nullable(Of Short)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Short) = CType(v2, Short) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Integer), 0), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Nullable(Of Short)), CType(Nothing, Nullable(Of Short))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Short?(), Short?(), Short)( - JsonInt16ReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableInt16Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableInt32 = entityType.AddProperty( - "NullableInt32", - GetType(Integer?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableInt32", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableInt32", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableInt32.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer?)( - Function(v1 As Nullable(Of Integer), v2 As Nullable(Of Integer)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Integer) = CType(v2, Integer) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(v, Integer), 0), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(CType(v, Integer), Nullable(Of Integer)), CType(Nothing, Nullable(Of Integer)))), - New ValueComparer(Of Integer?)( - Function(v1 As Nullable(Of Integer), v2 As Nullable(Of Integer)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Integer) = CType(v2, Integer) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(v, Integer), 0), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(CType(v, Integer), Nullable(Of Integer)), CType(Nothing, Nullable(Of Integer)))), - New ValueComparer(Of Integer?)( - Function(v1 As Nullable(Of Integer), v2 As Nullable(Of Integer)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Integer) = CType(v2, Integer) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(v, Integer), 0), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(CType(v, Integer), Nullable(Of Integer)), CType(Nothing, Nullable(Of Integer)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableInt32.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableInt32Array = entityType.AddProperty( - "NullableInt32Array", - GetType(Integer?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableInt32Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableInt32Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableInt32Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Integer?)(New JsonNullableStructCollectionReaderWriter(Of Integer?(), Integer?(), Integer)( - JsonInt32ReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Integer)(New ValueComparer(Of Integer?)( - Function(v1 As Nullable(Of Integer), v2 As Nullable(Of Integer)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Integer) = CType(v2, Integer) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(v, Integer), 0), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(CType(v, Integer), Nullable(Of Integer)), CType(Nothing, Nullable(Of Integer))))), - New NullableValueTypeListComparer(Of Integer)(New ValueComparer(Of Integer?)( - Function(v1 As Nullable(Of Integer), v2 As Nullable(Of Integer)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Integer) = CType(v2, Integer) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(v, Integer), 0), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(CType(v, Integer), Nullable(Of Integer)), CType(Nothing, Nullable(Of Integer))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Integer?(), Integer?(), Integer)( - JsonInt32ReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableInt32Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableInt64 = entityType.AddProperty( - "NullableInt64", - GetType(Long?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableInt64", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableInt64", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableInt64.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableInt64.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableInt64Array = entityType.AddProperty( - "NullableInt64Array", - GetType(Long?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableInt64Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableInt64Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableInt64Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Long?)(New JsonNullableStructCollectionReaderWriter(Of Long?(), Long?(), Long)( - JsonInt64ReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Long)(New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long))))), - New NullableValueTypeListComparer(Of Long)(New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Long?(), Long?(), Long)( - JsonInt64ReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableInt64Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableInt8 = entityType.AddProperty( - "NullableInt8", - GetType(SByte?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableInt8", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableInt8", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableInt8.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of SByte, Short)( - Function(v As SByte) CType(v, Short), - Function(v As Short) CType(v, SByte)), - New ValueComparer(Of SByte?)( - Function(v1 As Nullable(Of SByte), v2 As Nullable(Of SByte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, SByte) = CType(v2, SByte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Integer), 0), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Nullable(Of SByte)), CType(Nothing, Nullable(Of SByte)))), - New ValueComparer(Of SByte?)( - Function(v1 As Nullable(Of SByte), v2 As Nullable(Of SByte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, SByte) = CType(v2, SByte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Integer), 0), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Nullable(Of SByte)), CType(Nothing, Nullable(Of SByte)))), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of SByte, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of SByte, Short)( - Function(v As SByte) CType(v, Short), - Function(v As Short) CType(v, SByte))), - Type.Missing}), CoreTypeMapping) - nullableInt8.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableInt8Array = entityType.AddProperty( - "NullableInt8Array", - GetType(SByte?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableInt8Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableInt8Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableInt8Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of SByte?)(New JsonNullableStructCollectionReaderWriter(Of SByte?(), SByte?(), SByte)( - New JsonConvertedValueReaderWriter(Of SByte, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of SByte, Short)( - Function(v As SByte) CType(v, Short), - Function(v As Short) CType(v, SByte))))), - New NullableValueTypeListComparer(Of SByte)(New ValueComparer(Of SByte?)( - Function(v1 As Nullable(Of SByte), v2 As Nullable(Of SByte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, SByte) = CType(v2, SByte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Integer), 0), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Nullable(Of SByte)), CType(Nothing, Nullable(Of SByte))))), - New NullableValueTypeListComparer(Of SByte)(New ValueComparer(Of SByte?)( - Function(v1 As Nullable(Of SByte), v2 As Nullable(Of SByte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, SByte) = CType(v2, SByte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Integer), 0), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Nullable(Of SByte)), CType(Nothing, Nullable(Of SByte))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of SByte, Short)( - Function(v As SByte) CType(v, Short), - Function(v As Short) CType(v, SByte)), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of SByte, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of SByte, Short)( - Function(v As SByte) CType(v, Short), - Function(v As Short) CType(v, SByte))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of SByte?(), SByte?(), SByte)( - New JsonConvertedValueReaderWriter(Of SByte, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of SByte, Short)( - Function(v As SByte) CType(v, Short), - Function(v As Short) CType(v, SByte)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableInt8Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullablePhysicalAddress = entityType.AddProperty( - "NullablePhysicalAddress", - GetType(PhysicalAddress), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullablePhysicalAddress", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullablePhysicalAddress", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullablePhysicalAddress.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(20)", - size:=20, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v)), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v))), - Type.Missing}), CoreTypeMapping) - nullablePhysicalAddress.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullablePhysicalAddressArray = entityType.AddProperty( - "NullablePhysicalAddressArray", - GetType(PhysicalAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullablePhysicalAddressArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullablePhysicalAddressArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullablePhysicalAddressArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of PhysicalAddress)(New JsonCollectionReaderWriter(Of PhysicalAddress(), PhysicalAddress(), PhysicalAddress)( - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v))))), - New ListComparer(Of PhysicalAddress)(New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v)), - New ListComparer(Of PhysicalAddress)(New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(20)", - size:=20, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v)), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of PhysicalAddress(), PhysicalAddress(), PhysicalAddress)( - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullablePhysicalAddressArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableString = entityType.AddProperty( - "NullableString", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - nullableString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableStringArray = entityType.AddProperty( - "NullableStringArray", - GetType(String()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of String(), String(), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of String(), String(), String)( - JsonStringReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableTimeOnly = entityType.AddProperty( - "NullableTimeOnly", - GetType(TimeOnly?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableTimeOnly", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableTimeOnly", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableTimeOnly.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerTimeOnlyTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of TimeOnly?)( - Function(v1 As Nullable(Of TimeOnly), v2 As Nullable(Of TimeOnly)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeOnly) = CType(v2, TimeOnly) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeOnly)) If(v.HasValue, CType(v, TimeOnly).GetHashCode(), 0), - Function(v As Nullable(Of TimeOnly)) If(v.HasValue, CType(CType(v, TimeOnly), Nullable(Of TimeOnly)), CType(Nothing, Nullable(Of TimeOnly)))), - New ValueComparer(Of TimeOnly?)( - Function(v1 As Nullable(Of TimeOnly), v2 As Nullable(Of TimeOnly)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeOnly) = CType(v2, TimeOnly) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeOnly)) If(v.HasValue, CType(v, TimeOnly).GetHashCode(), 0), - Function(v As Nullable(Of TimeOnly)) If(v.HasValue, CType(CType(v, TimeOnly), Nullable(Of TimeOnly)), CType(Nothing, Nullable(Of TimeOnly)))), - New ValueComparer(Of TimeOnly?)( - Function(v1 As Nullable(Of TimeOnly), v2 As Nullable(Of TimeOnly)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeOnly) = CType(v2, TimeOnly) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeOnly)) If(v.HasValue, CType(v, TimeOnly).GetHashCode(), 0), - Function(v As Nullable(Of TimeOnly)) If(v.HasValue, CType(CType(v, TimeOnly), Nullable(Of TimeOnly)), CType(Nothing, Nullable(Of TimeOnly)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableTimeOnly.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableTimeOnlyArray = entityType.AddProperty( - "NullableTimeOnlyArray", - GetType(TimeOnly?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableTimeOnlyArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableTimeOnlyArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableTimeOnlyArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of TimeOnly?)(New JsonNullableStructCollectionReaderWriter(Of TimeOnly?(), TimeOnly?(), TimeOnly)( - JsonTimeOnlyReaderWriter.Instance)), - New NullableValueTypeListComparer(Of TimeOnly)(New ValueComparer(Of TimeOnly?)( - Function(v1 As Nullable(Of TimeOnly), v2 As Nullable(Of TimeOnly)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeOnly) = CType(v2, TimeOnly) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeOnly)) If(v.HasValue, CType(v, TimeOnly).GetHashCode(), 0), - Function(v As Nullable(Of TimeOnly)) If(v.HasValue, CType(CType(v, TimeOnly), Nullable(Of TimeOnly)), CType(Nothing, Nullable(Of TimeOnly))))), - New NullableValueTypeListComparer(Of TimeOnly)(New ValueComparer(Of TimeOnly?)( - Function(v1 As Nullable(Of TimeOnly), v2 As Nullable(Of TimeOnly)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeOnly) = CType(v2, TimeOnly) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeOnly)) If(v.HasValue, CType(v, TimeOnly).GetHashCode(), 0), - Function(v As Nullable(Of TimeOnly)) If(v.HasValue, CType(CType(v, TimeOnly), Nullable(Of TimeOnly)), CType(Nothing, Nullable(Of TimeOnly))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerTimeOnlyTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of TimeOnly?(), TimeOnly?(), TimeOnly)( - JsonTimeOnlyReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableTimeOnlyArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableTimeSpan = entityType.AddProperty( - "NullableTimeSpan", - GetType(TimeSpan?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableTimeSpan", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableTimeSpan", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableTimeSpan.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerTimeSpanTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of TimeSpan?)( - Function(v1 As Nullable(Of TimeSpan), v2 As Nullable(Of TimeSpan)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeSpan) = CType(v2, TimeSpan) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(v, TimeSpan).GetHashCode(), 0), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(CType(v, TimeSpan), Nullable(Of TimeSpan)), CType(Nothing, Nullable(Of TimeSpan)))), - New ValueComparer(Of TimeSpan?)( - Function(v1 As Nullable(Of TimeSpan), v2 As Nullable(Of TimeSpan)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeSpan) = CType(v2, TimeSpan) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(v, TimeSpan).GetHashCode(), 0), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(CType(v, TimeSpan), Nullable(Of TimeSpan)), CType(Nothing, Nullable(Of TimeSpan)))), - New ValueComparer(Of TimeSpan?)( - Function(v1 As Nullable(Of TimeSpan), v2 As Nullable(Of TimeSpan)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeSpan) = CType(v2, TimeSpan) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(v, TimeSpan).GetHashCode(), 0), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(CType(v, TimeSpan), Nullable(Of TimeSpan)), CType(Nothing, Nullable(Of TimeSpan)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableTimeSpan.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableTimeSpanArray = entityType.AddProperty( - "NullableTimeSpanArray", - GetType(TimeSpan?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableTimeSpanArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableTimeSpanArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableTimeSpanArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of TimeSpan?)(New JsonNullableStructCollectionReaderWriter(Of TimeSpan?(), TimeSpan?(), TimeSpan)( - JsonTimeSpanReaderWriter.Instance)), - New NullableValueTypeListComparer(Of TimeSpan)(New ValueComparer(Of TimeSpan?)( - Function(v1 As Nullable(Of TimeSpan), v2 As Nullable(Of TimeSpan)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeSpan) = CType(v2, TimeSpan) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(v, TimeSpan).GetHashCode(), 0), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(CType(v, TimeSpan), Nullable(Of TimeSpan)), CType(Nothing, Nullable(Of TimeSpan))))), - New NullableValueTypeListComparer(Of TimeSpan)(New ValueComparer(Of TimeSpan?)( - Function(v1 As Nullable(Of TimeSpan), v2 As Nullable(Of TimeSpan)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeSpan) = CType(v2, TimeSpan) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(v, TimeSpan).GetHashCode(), 0), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(CType(v, TimeSpan), Nullable(Of TimeSpan)), CType(Nothing, Nullable(Of TimeSpan))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerTimeSpanTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of TimeSpan?(), TimeSpan?(), TimeSpan)( - JsonTimeSpanReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableTimeSpanArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableUInt16 = entityType.AddProperty( - "NullableUInt16", - GetType(UShort?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUInt16", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUInt16", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUInt16.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of UShort, Integer)( - Function(v As UShort) CType(v, Integer), - Function(v As Integer) CType(v, UShort)), - New ValueComparer(Of UShort?)( - Function(v1 As Nullable(Of UShort), v2 As Nullable(Of UShort)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UShort) = CType(v2, UShort) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Integer), 0), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Nullable(Of UShort)), CType(Nothing, Nullable(Of UShort)))), - New ValueComparer(Of UShort?)( - Function(v1 As Nullable(Of UShort), v2 As Nullable(Of UShort)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UShort) = CType(v2, UShort) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Integer), 0), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Nullable(Of UShort)), CType(Nothing, Nullable(Of UShort)))), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of UShort, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of UShort, Integer)( - Function(v As UShort) CType(v, Integer), - Function(v As Integer) CType(v, UShort))), - Type.Missing}), CoreTypeMapping) - nullableUInt16.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableUInt16Array = entityType.AddProperty( - "NullableUInt16Array", - GetType(UShort?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUInt16Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUInt16Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUInt16Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of UShort?)(New JsonNullableStructCollectionReaderWriter(Of UShort?(), UShort?(), UShort)( - New JsonConvertedValueReaderWriter(Of UShort, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of UShort, Integer)( - Function(v As UShort) CType(v, Integer), - Function(v As Integer) CType(v, UShort))))), - New NullableValueTypeListComparer(Of UShort)(New ValueComparer(Of UShort?)( - Function(v1 As Nullable(Of UShort), v2 As Nullable(Of UShort)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UShort) = CType(v2, UShort) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Integer), 0), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Nullable(Of UShort)), CType(Nothing, Nullable(Of UShort))))), - New NullableValueTypeListComparer(Of UShort)(New ValueComparer(Of UShort?)( - Function(v1 As Nullable(Of UShort), v2 As Nullable(Of UShort)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UShort) = CType(v2, UShort) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Integer), 0), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Nullable(Of UShort)), CType(Nothing, Nullable(Of UShort))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of UShort, Integer)( - Function(v As UShort) CType(v, Integer), - Function(v As Integer) CType(v, UShort)), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of UShort, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of UShort, Integer)( - Function(v As UShort) CType(v, Integer), - Function(v As Integer) CType(v, UShort))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of UShort?(), UShort?(), UShort)( - New JsonConvertedValueReaderWriter(Of UShort, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of UShort, Integer)( - Function(v As UShort) CType(v, Integer), - Function(v As Integer) CType(v, UShort)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableUInt16Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableUInt32 = entityType.AddProperty( - "NullableUInt32", - GetType(UInteger?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUInt32", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUInt32", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUInt32.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of UInteger, Long)( - Function(v As UInteger) CType(v, Long), - Function(v As Long) CType(v, UInteger)), - New ValueComparer(Of UInteger?)( - Function(v1 As Nullable(Of UInteger), v2 As Nullable(Of UInteger)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UInteger) = CType(v2, UInteger) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Integer), 0), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Nullable(Of UInteger)), CType(Nothing, Nullable(Of UInteger)))), - New ValueComparer(Of UInteger?)( - Function(v1 As Nullable(Of UInteger), v2 As Nullable(Of UInteger)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UInteger) = CType(v2, UInteger) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Integer), 0), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Nullable(Of UInteger)), CType(Nothing, Nullable(Of UInteger)))), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of UInteger, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of UInteger, Long)( - Function(v As UInteger) CType(v, Long), - Function(v As Long) CType(v, UInteger))), - Type.Missing}), CoreTypeMapping) - nullableUInt32.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableUInt32Array = entityType.AddProperty( - "NullableUInt32Array", - GetType(UInteger?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUInt32Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUInt32Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUInt32Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of UInteger?)(New JsonNullableStructCollectionReaderWriter(Of UInteger?(), UInteger?(), UInteger)( - New JsonConvertedValueReaderWriter(Of UInteger, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of UInteger, Long)( - Function(v As UInteger) CType(v, Long), - Function(v As Long) CType(v, UInteger))))), - New NullableValueTypeListComparer(Of UInteger)(New ValueComparer(Of UInteger?)( - Function(v1 As Nullable(Of UInteger), v2 As Nullable(Of UInteger)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UInteger) = CType(v2, UInteger) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Integer), 0), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Nullable(Of UInteger)), CType(Nothing, Nullable(Of UInteger))))), - New NullableValueTypeListComparer(Of UInteger)(New ValueComparer(Of UInteger?)( - Function(v1 As Nullable(Of UInteger), v2 As Nullable(Of UInteger)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UInteger) = CType(v2, UInteger) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Integer), 0), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Nullable(Of UInteger)), CType(Nothing, Nullable(Of UInteger))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of UInteger, Long)( - Function(v As UInteger) CType(v, Long), - Function(v As Long) CType(v, UInteger)), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of UInteger, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of UInteger, Long)( - Function(v As UInteger) CType(v, Long), - Function(v As Long) CType(v, UInteger))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of UInteger?(), UInteger?(), UInteger)( - New JsonConvertedValueReaderWriter(Of UInteger, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of UInteger, Long)( - Function(v As UInteger) CType(v, Long), - Function(v As Long) CType(v, UInteger)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableUInt32Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableUInt64 = entityType.AddProperty( - "NullableUInt64", - GetType(ULong?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUInt64", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUInt64", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUInt64.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of ULong, Decimal)( - Function(v As ULong) CType(v, Decimal), - Function(v As Decimal) CType(v, ULong)), - New ValueComparer(Of ULong?)( - Function(v1 As Nullable(Of ULong), v2 As Nullable(Of ULong)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, ULong) = CType(v2, ULong) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of ULong)) If(v.HasValue, CType(v, ULong).GetHashCode(), 0), - Function(v As Nullable(Of ULong)) If(v.HasValue, CType(CType(v, ULong), Nullable(Of ULong)), CType(Nothing, Nullable(Of ULong)))), - New ValueComparer(Of ULong?)( - Function(v1 As Nullable(Of ULong), v2 As Nullable(Of ULong)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, ULong) = CType(v2, ULong) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of ULong)) If(v.HasValue, CType(v, ULong).GetHashCode(), 0), - Function(v As Nullable(Of ULong)) If(v.HasValue, CType(CType(v, ULong), Nullable(Of ULong)), CType(Nothing, Nullable(Of ULong)))), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of ULong, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of ULong, Decimal)( - Function(v As ULong) CType(v, Decimal), - Function(v As Decimal) CType(v, ULong))), - Type.Missing}), CoreTypeMapping) - nullableUInt64.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableUInt64Array = entityType.AddProperty( - "NullableUInt64Array", - GetType(ULong?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUInt64Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUInt64Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUInt64Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of ULong?)(New JsonNullableStructCollectionReaderWriter(Of ULong?(), ULong?(), ULong)( - New JsonConvertedValueReaderWriter(Of ULong, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of ULong, Decimal)( - Function(v As ULong) CType(v, Decimal), - Function(v As Decimal) CType(v, ULong))))), - New NullableValueTypeListComparer(Of ULong)(New ValueComparer(Of ULong?)( - Function(v1 As Nullable(Of ULong), v2 As Nullable(Of ULong)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, ULong) = CType(v2, ULong) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of ULong)) If(v.HasValue, CType(v, ULong).GetHashCode(), 0), - Function(v As Nullable(Of ULong)) If(v.HasValue, CType(CType(v, ULong), Nullable(Of ULong)), CType(Nothing, Nullable(Of ULong))))), - New NullableValueTypeListComparer(Of ULong)(New ValueComparer(Of ULong?)( - Function(v1 As Nullable(Of ULong), v2 As Nullable(Of ULong)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, ULong) = CType(v2, ULong) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of ULong)) If(v.HasValue, CType(v, ULong).GetHashCode(), 0), - Function(v As Nullable(Of ULong)) If(v.HasValue, CType(CType(v, ULong), Nullable(Of ULong)), CType(Nothing, Nullable(Of ULong))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of ULong, Decimal)( - Function(v As ULong) CType(v, Decimal), - Function(v As Decimal) CType(v, ULong)), - New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v), - New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of ULong, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of ULong, Decimal)( - Function(v As ULong) CType(v, Decimal), - Function(v As Decimal) CType(v, ULong))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of ULong?(), ULong?(), ULong)( - New JsonConvertedValueReaderWriter(Of ULong, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of ULong, Decimal)( - Function(v As ULong) CType(v, Decimal), - Function(v As Decimal) CType(v, ULong)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableUInt64Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableUInt8 = entityType.AddProperty( - "NullableUInt8", - GetType(Byte?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUInt8", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUInt8", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUInt8.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte)))), - New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte)))), - New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableUInt8.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableUInt8Array = entityType.AddProperty( - "NullableUInt8Array", - GetType(Byte?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUInt8Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUInt8Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUInt8Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte?)(New JsonNullableStructCollectionReaderWriter(Of Byte?(), Byte?(), Byte)( - JsonByteReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Byte)(New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte))))), - New NullableValueTypeListComparer(Of Byte)(New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Byte?(), Byte?(), Byte)( - JsonByteReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableUInt8Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableUri = entityType.AddProperty( - "NullableUri", - GetType(Uri), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUri", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUri", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUri.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute)), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableUri.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableUriArray = entityType.AddProperty( - "NullableUriArray", - GetType(Uri()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUriArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUriArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUriArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Uri)(New JsonCollectionReaderWriter(Of Uri(), Uri(), Uri)( - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute))))), - New ListComparer(Of Uri)(New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v)), - New ListComparer(Of Uri)(New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute)), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Uri(), Uri(), Uri)( - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableUriArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim physicalAddressArray = entityType.AddProperty( - "PhysicalAddressArray", - GetType(PhysicalAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("PhysicalAddressArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_PhysicalAddressArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - physicalAddressArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of PhysicalAddress)(New JsonCollectionReaderWriter(Of PhysicalAddress(), PhysicalAddress(), PhysicalAddress)( - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v))))), - New ListComparer(Of PhysicalAddress)(New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v)), - New ListComparer(Of PhysicalAddress)(New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(20)", - size:=20, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v)), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of PhysicalAddress(), PhysicalAddress(), PhysicalAddress)( - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - physicalAddressArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim physicalAddressToBytesConverterProperty = entityType.AddProperty( - "PhysicalAddressToBytesConverterProperty", - GetType(PhysicalAddress), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("PhysicalAddressToBytesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_PhysicalAddressToBytesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New PhysicalAddressToBytesConverter()) - physicalAddressToBytesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(8)", - size:=8), - Type.Missing, - New ValueConverter(Of PhysicalAddress, Byte())( - Function(v As PhysicalAddress) v.GetAddressBytes(), - Function(v As Byte()) New PhysicalAddress(v)), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - New JsonConvertedValueReaderWriter(Of PhysicalAddress, Byte())( - JsonByteArrayReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, Byte())( - Function(v As PhysicalAddress) v.GetAddressBytes(), - Function(v As Byte()) New PhysicalAddress(v))), - Type.Missing}), CoreTypeMapping) - physicalAddressToBytesConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim physicalAddressToStringConverterProperty = entityType.AddProperty( - "PhysicalAddressToStringConverterProperty", - GetType(PhysicalAddress), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("PhysicalAddressToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_PhysicalAddressToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New PhysicalAddressToStringConverter()) - physicalAddressToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(20)", - size:=20, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v)), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v))), - Type.Missing}), CoreTypeMapping) - physicalAddressToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim [string] = entityType.AddProperty( - "String", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("String", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_String", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - [string].TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - [string].AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringArray = entityType.AddProperty( - "StringArray", - GetType(String()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - stringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of String(), String(), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of String(), String(), String)( - JsonStringReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - stringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToBoolConverterProperty = entityType.AddProperty( - "StringToBoolConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToBoolConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToBoolConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToBoolConverter()) - stringToBoolConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerBoolTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of String, Boolean)( - Function(v As String) Convert.ToBoolean(v), - Function(v As Boolean) Convert.ToString(v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, Boolean)( - JsonBoolReaderWriter.Instance, - New ValueConverter(Of String, Boolean)( - Function(v As String) Convert.ToBoolean(v), - Function(v As Boolean) Convert.ToString(v))), - Type.Missing}), CoreTypeMapping) - stringToBoolConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToBytesConverterProperty = entityType.AddProperty( - "StringToBytesConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToBytesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToBytesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - stringToBytesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(max)"), - Type.Missing, - New ValueConverter(Of String, Byte())( - Function(v As String) Encoding.UTF32.GetBytes(v), - Function(v As Byte()) Encoding.UTF32.GetString(v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, Byte())( - JsonByteArrayReaderWriter.Instance, - New ValueConverter(Of String, Byte())( - Function(v As String) Encoding.UTF32.GetBytes(v), - Function(v As Byte()) Encoding.UTF32.GetString(v))), - StoreTypePostfix.None}), CoreTypeMapping) - stringToBytesConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToCharConverterProperty = entityType.AddProperty( - "StringToCharConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToCharConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToCharConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToCharConverter()) - stringToCharConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(1)", - size:=1, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of String, String)( - Function(v As String) String.Format(CultureInfo.InvariantCulture, "{0}", CType(If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)), Object)), - Function(v As String) String.Format(CultureInfo.InvariantCulture, "{0}", CType(If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)), Object))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of String, String)( - Function(v As String) String.Format(CultureInfo.InvariantCulture, "{0}", CType(If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)), Object)), - Function(v As String) String.Format(CultureInfo.InvariantCulture, "{0}", CType(If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)), Object)))), - Type.Missing}), CoreTypeMapping) - stringToCharConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToDateOnlyConverterProperty = entityType.AddProperty( - "StringToDateOnlyConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToDateOnlyConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToDateOnlyConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToDateOnlyConverter()) - stringToDateOnlyConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateOnlyTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=10), - Type.Missing, - New ValueConverter(Of String, DateOnly)( - Function(v As String) DateOnly.Parse(v, CultureInfo.InvariantCulture, DateTimeStyles.None), - Function(v As DateOnly) v.ToString("yyyy\-MM\-dd")), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, DateOnly)( - JsonDateOnlyReaderWriter.Instance, - New ValueConverter(Of String, DateOnly)( - Function(v As String) DateOnly.Parse(v, CultureInfo.InvariantCulture, DateTimeStyles.None), - Function(v As DateOnly) v.ToString("yyyy\-MM\-dd"))), - Type.Missing}), CoreTypeMapping) - stringToDateOnlyConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToDateTimeConverterProperty = entityType.AddProperty( - "StringToDateTimeConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToDateTimeConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToDateTimeConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToDateTimeConverter()) - stringToDateTimeConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateTimeTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=48), - Type.Missing, - New ValueConverter(Of String, Date)( - Function(v As String) DateTime.Parse(v, CultureInfo.InvariantCulture), - Function(v As DateTime) v.ToString("yyyy\-MM\-dd HH\:mm\:ss.FFFFFFF")), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, Date)( - JsonDateTimeReaderWriter.Instance, - New ValueConverter(Of String, Date)( - Function(v As String) DateTime.Parse(v, CultureInfo.InvariantCulture), - Function(v As DateTime) v.ToString("yyyy\-MM\-dd HH\:mm\:ss.FFFFFFF"))), - Type.Missing}), CoreTypeMapping) - stringToDateTimeConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToDateTimeOffsetConverterProperty = entityType.AddProperty( - "StringToDateTimeOffsetConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToDateTimeOffsetConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToDateTimeOffsetConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToDateTimeOffsetConverter()) - stringToDateTimeOffsetConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateTimeOffsetTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=48), - Type.Missing, - New ValueConverter(Of String, DateTimeOffset)( - Function(v As String) DateTimeOffset.Parse(v, CultureInfo.InvariantCulture), - Function(v As DateTimeOffset) v.ToString("yyyy\-MM\-dd HH\:mm\:ss.FFFFFFFzzz")), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of DateTimeOffset)( - Function(v1 As DateTimeOffset, v2 As DateTimeOffset) v1.EqualsExact(v2), - Function(v As DateTimeOffset) v.GetHashCode(), - Function(v As DateTimeOffset) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, DateTimeOffset)( - JsonDateTimeOffsetReaderWriter.Instance, - New ValueConverter(Of String, DateTimeOffset)( - Function(v As String) DateTimeOffset.Parse(v, CultureInfo.InvariantCulture), - Function(v As DateTimeOffset) v.ToString("yyyy\-MM\-dd HH\:mm\:ss.FFFFFFFzzz"))), - Type.Missing}), CoreTypeMapping) - stringToDateTimeOffsetConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToDecimalNumberConverterProperty = entityType.AddProperty( - "StringToDecimalNumberConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToDecimalNumberConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToDecimalNumberConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToNumberConverter(Of Decimal)()) - stringToDecimalNumberConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=64), - Type.Missing, - New ValueConverter(Of String, Decimal)( - Function(v As String) Decimal.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture), - Function(v As Decimal) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of String, Decimal)( - Function(v As String) Decimal.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture), - Function(v As Decimal) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)))), - Type.Missing}), CoreTypeMapping) - stringToDecimalNumberConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToDoubleNumberConverterProperty = entityType.AddProperty( - "StringToDoubleNumberConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToDoubleNumberConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToDoubleNumberConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToNumberConverter(Of Double)()) - stringToDoubleNumberConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDoubleTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=64), - Type.Missing, - New ValueConverter(Of String, Double)( - Function(v As String) Double.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture), - Function(v As Double) String.Format(CultureInfo.InvariantCulture, "{0:R}", CType(v, Object))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, Double)( - JsonDoubleReaderWriter.Instance, - New ValueConverter(Of String, Double)( - Function(v As String) Double.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture), - Function(v As Double) String.Format(CultureInfo.InvariantCulture, "{0:R}", CType(v, Object)))), - Type.Missing}), CoreTypeMapping) - stringToDoubleNumberConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToEnumConverterProperty = entityType.AddProperty( - "StringToEnumConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToEnumConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToEnumConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)()) - stringToEnumConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of String, Long)( - Function(v As String) CType(StringEnumConverter(Of String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v), Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ToString()), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of String, Long)( - Function(v As String) CType(StringEnumConverter(Of String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v), Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ToString())), - Type.Missing}), CoreTypeMapping) - stringToEnumConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToGuidConverterProperty = entityType.AddProperty( - "StringToGuidConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToGuidConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToGuidConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - stringToGuidConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - stringToGuidConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToIntNumberConverterProperty = entityType.AddProperty( - "StringToIntNumberConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToIntNumberConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToIntNumberConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToNumberConverter(Of Integer)()) - stringToIntNumberConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=64), - Type.Missing, - New ValueConverter(Of String, Integer)( - Function(v As String) Integer.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture), - Function(v As Integer) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of String, Integer)( - Function(v As String) Integer.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture), - Function(v As Integer) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)))), - Type.Missing}), CoreTypeMapping) - stringToIntNumberConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToTimeOnlyConverterProperty = entityType.AddProperty( - "StringToTimeOnlyConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToTimeOnlyConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToTimeOnlyConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToTimeOnlyConverter()) - stringToTimeOnlyConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerTimeOnlyTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=48), - Type.Missing, - New ValueConverter(Of String, TimeOnly)( - Function(v As String) TimeOnly.Parse(v, CultureInfo.InvariantCulture, DateTimeStyles.None), - Function(v As TimeOnly) If(v.Ticks Mod 10000000L = 0L, String.Format(CultureInfo.InvariantCulture, "{0:HH\:mm\:ss}", CType(v, Object)), v.ToString("o"))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, TimeOnly)( - JsonTimeOnlyReaderWriter.Instance, - New ValueConverter(Of String, TimeOnly)( - Function(v As String) TimeOnly.Parse(v, CultureInfo.InvariantCulture, DateTimeStyles.None), - Function(v As TimeOnly) If(v.Ticks Mod 10000000L = 0L, String.Format(CultureInfo.InvariantCulture, "{0:HH\:mm\:ss}", CType(v, Object)), v.ToString("o")))), - Type.Missing}), CoreTypeMapping) - stringToTimeOnlyConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToTimeSpanConverterProperty = entityType.AddProperty( - "StringToTimeSpanConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToTimeSpanConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToTimeSpanConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToTimeSpanConverter()) - stringToTimeSpanConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerTimeSpanTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=48), - Type.Missing, - New ValueConverter(Of String, TimeSpan)( - Function(v As String) TimeSpan.Parse(v, CultureInfo.InvariantCulture), - Function(v As TimeSpan) v.ToString("c")), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, TimeSpan)( - JsonTimeSpanReaderWriter.Instance, - New ValueConverter(Of String, TimeSpan)( - Function(v As String) TimeSpan.Parse(v, CultureInfo.InvariantCulture), - Function(v As TimeSpan) v.ToString("c"))), - Type.Missing}), CoreTypeMapping) - stringToTimeSpanConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToUriConverterProperty = entityType.AddProperty( - "StringToUriConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToUriConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToUriConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToUriConverter()) - stringToUriConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of String, String)( - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute).ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute).ToString()), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of String, String)( - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute).ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute).ToString())), - StoreTypePostfix.None}), CoreTypeMapping) - stringToUriConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim timeOnlyArray = entityType.AddProperty( - "TimeOnlyArray", - GetType(TimeOnly()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("TimeOnlyArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_TimeOnlyArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - timeOnlyArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of TimeOnly)(New JsonCollectionReaderWriter(Of TimeOnly(), TimeOnly(), TimeOnly)( - JsonTimeOnlyReaderWriter.Instance)), - New ListComparer(Of TimeOnly)(New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v)), - New ListComparer(Of TimeOnly)(New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerTimeOnlyTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of TimeOnly(), TimeOnly(), TimeOnly)( - JsonTimeOnlyReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - timeOnlyArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim timeOnlyToStringConverterProperty = entityType.AddProperty( - "TimeOnlyToStringConverterProperty", - GetType(TimeOnly), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("TimeOnlyToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_TimeOnlyToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New TimeOnlyToStringConverter()) - timeOnlyToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(48)", - size:=48, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of TimeOnly, String)( - Function(v As TimeOnly) If(v.Ticks Mod 10000000L = 0L, String.Format(CultureInfo.InvariantCulture, "{0:HH\:mm\:ss}", CType(v, Object)), v.ToString("o")), - Function(v As String) TimeOnly.Parse(v, CultureInfo.InvariantCulture, DateTimeStyles.None)), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of TimeOnly, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of TimeOnly, String)( - Function(v As TimeOnly) If(v.Ticks Mod 10000000L = 0L, String.Format(CultureInfo.InvariantCulture, "{0:HH\:mm\:ss}", CType(v, Object)), v.ToString("o")), - Function(v As String) TimeOnly.Parse(v, CultureInfo.InvariantCulture, DateTimeStyles.None))), - Type.Missing}), CoreTypeMapping) - timeOnlyToStringConverterProperty.SetSentinelFromProviderValue("00:00:00") - timeOnlyToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim timeOnlyToTicksConverterProperty = entityType.AddProperty( - "TimeOnlyToTicksConverterProperty", - GetType(TimeOnly), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("TimeOnlyToTicksConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_TimeOnlyToTicksConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New TimeOnlyToTicksConverter()) - timeOnlyToTicksConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of TimeOnly, Long)( - Function(v As TimeOnly) v.Ticks, - Function(v As Long) New TimeOnly(v)), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of TimeOnly, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of TimeOnly, Long)( - Function(v As TimeOnly) v.Ticks, - Function(v As Long) New TimeOnly(v))), - Type.Missing}), CoreTypeMapping) - timeOnlyToTicksConverterProperty.SetSentinelFromProviderValue(0L) - timeOnlyToTicksConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim timeSpanArray = entityType.AddProperty( - "TimeSpanArray", - GetType(TimeSpan()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("TimeSpanArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_TimeSpanArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - timeSpanArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of TimeSpan)(New JsonCollectionReaderWriter(Of TimeSpan(), TimeSpan(), TimeSpan)( - JsonTimeSpanReaderWriter.Instance)), - New ListComparer(Of TimeSpan)(New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v)), - New ListComparer(Of TimeSpan)(New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerTimeSpanTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of TimeSpan(), TimeSpan(), TimeSpan)( - JsonTimeSpanReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - timeSpanArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim timeSpanToStringConverterProperty = entityType.AddProperty( - "TimeSpanToStringConverterProperty", - GetType(TimeSpan), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("TimeSpanToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_TimeSpanToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New TimeSpanToStringConverter()) - timeSpanToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(48)", - size:=48, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of TimeSpan, String)( - Function(v As TimeSpan) v.ToString("c"), - Function(v As String) TimeSpan.Parse(v, CultureInfo.InvariantCulture)), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of TimeSpan, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of TimeSpan, String)( - Function(v As TimeSpan) v.ToString("c"), - Function(v As String) TimeSpan.Parse(v, CultureInfo.InvariantCulture))), - Type.Missing}), CoreTypeMapping) - timeSpanToStringConverterProperty.SetSentinelFromProviderValue("00:00:00") - timeSpanToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim timeSpanToTicksConverterProperty = entityType.AddProperty( - "TimeSpanToTicksConverterProperty", - GetType(TimeSpan), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("TimeSpanToTicksConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_TimeSpanToTicksConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New TimeSpanToTicksConverter()) - timeSpanToTicksConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of TimeSpan, Long)( - Function(v As TimeSpan) v.Ticks, - Function(v As Long) New TimeSpan(v)), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of TimeSpan, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of TimeSpan, Long)( - Function(v As TimeSpan) v.Ticks, - Function(v As Long) New TimeSpan(v))), - Type.Missing}), CoreTypeMapping) - timeSpanToTicksConverterProperty.SetSentinelFromProviderValue(0L) - timeSpanToTicksConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim uInt16 = entityType.AddProperty( - "UInt16", - GetType(UShort), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UInt16", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UInt16", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - uInt16.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of UShort, Integer)( - Function(v As UShort) CType(v, Integer), - Function(v As Integer) CType(v, UShort)), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of UShort, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of UShort, Integer)( - Function(v As UShort) CType(v, Integer), - Function(v As Integer) CType(v, UShort))), - Type.Missing}), CoreTypeMapping) - uInt16.SetSentinelFromProviderValue(0) - uInt16.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim uInt16Array = entityType.AddProperty( - "UInt16Array", - GetType(UShort()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UInt16Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UInt16Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - uInt16Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of UShort)(New JsonCollectionReaderWriter(Of UShort(), UShort(), UShort)( - New JsonConvertedValueReaderWriter(Of UShort, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of UShort, Integer)( - Function(v As UShort) CType(v, Integer), - Function(v As Integer) CType(v, UShort))))), - New ListComparer(Of UShort)(New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v)), - New ListComparer(Of UShort)(New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of UShort, Integer)( - Function(v As UShort) CType(v, Integer), - Function(v As Integer) CType(v, UShort)), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of UShort, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of UShort, Integer)( - Function(v As UShort) CType(v, Integer), - Function(v As Integer) CType(v, UShort))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of UShort(), UShort(), UShort)( - New JsonConvertedValueReaderWriter(Of UShort, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of UShort, Integer)( - Function(v As UShort) CType(v, Integer), - Function(v As Integer) CType(v, UShort)))), - StoreTypePostfix.None}), CoreTypeMapping) - uInt16Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim uInt32 = entityType.AddProperty( - "UInt32", - GetType(UInteger), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UInt32", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UInt32", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - uInt32.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of UInteger, Long)( - Function(v As UInteger) CType(v, Long), - Function(v As Long) CType(v, UInteger)), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of UInteger, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of UInteger, Long)( - Function(v As UInteger) CType(v, Long), - Function(v As Long) CType(v, UInteger))), - Type.Missing}), CoreTypeMapping) - uInt32.SetSentinelFromProviderValue(0L) - uInt32.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim uInt32Array = entityType.AddProperty( - "UInt32Array", - GetType(UInteger()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UInt32Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UInt32Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - uInt32Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of UInteger)(New JsonCollectionReaderWriter(Of UInteger(), UInteger(), UInteger)( - New JsonConvertedValueReaderWriter(Of UInteger, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of UInteger, Long)( - Function(v As UInteger) CType(v, Long), - Function(v As Long) CType(v, UInteger))))), - New ListComparer(Of UInteger)(New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v)), - New ListComparer(Of UInteger)(New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of UInteger, Long)( - Function(v As UInteger) CType(v, Long), - Function(v As Long) CType(v, UInteger)), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of UInteger, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of UInteger, Long)( - Function(v As UInteger) CType(v, Long), - Function(v As Long) CType(v, UInteger))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of UInteger(), UInteger(), UInteger)( - New JsonConvertedValueReaderWriter(Of UInteger, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of UInteger, Long)( - Function(v As UInteger) CType(v, Long), - Function(v As Long) CType(v, UInteger)))), - StoreTypePostfix.None}), CoreTypeMapping) - uInt32Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim uInt64 = entityType.AddProperty( - "UInt64", - GetType(ULong), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UInt64", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UInt64", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - uInt64.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of ULong, Decimal)( - Function(v As ULong) CType(v, Decimal), - Function(v As Decimal) CType(v, ULong)), - New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v), - New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of ULong, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of ULong, Decimal)( - Function(v As ULong) CType(v, Decimal), - Function(v As Decimal) CType(v, ULong))), - Type.Missing}), CoreTypeMapping) - uInt64.SetSentinelFromProviderValue(0D) - uInt64.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim uInt64Array = entityType.AddProperty( - "UInt64Array", - GetType(ULong()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UInt64Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UInt64Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - uInt64Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of ULong)(New JsonCollectionReaderWriter(Of ULong(), ULong(), ULong)( - New JsonConvertedValueReaderWriter(Of ULong, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of ULong, Decimal)( - Function(v As ULong) CType(v, Decimal), - Function(v As Decimal) CType(v, ULong))))), - New ListComparer(Of ULong)(New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v)), - New ListComparer(Of ULong)(New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of ULong, Decimal)( - Function(v As ULong) CType(v, Decimal), - Function(v As Decimal) CType(v, ULong)), - New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v), - New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of ULong, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of ULong, Decimal)( - Function(v As ULong) CType(v, Decimal), - Function(v As Decimal) CType(v, ULong))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of ULong(), ULong(), ULong)( - New JsonConvertedValueReaderWriter(Of ULong, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of ULong, Decimal)( - Function(v As ULong) CType(v, Decimal), - Function(v As Decimal) CType(v, ULong)))), - StoreTypePostfix.None}), CoreTypeMapping) - uInt64Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim uInt8 = entityType.AddProperty( - "UInt8", - GetType(Byte), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UInt8", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UInt8", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=CByte(0)) - uInt8.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - uInt8.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim uInt8Array = entityType.AddProperty( - "UInt8Array", - GetType(Byte()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UInt8Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UInt8Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - uInt8Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(max)"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - uInt8Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim uri = entityType.AddProperty( - "Uri", - GetType(Uri), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Uri", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Uri", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - uri.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute)), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute))), - StoreTypePostfix.None}), CoreTypeMapping) - uri.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim uriArray = entityType.AddProperty( - "UriArray", - GetType(Uri()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UriArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UriArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - uriArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Uri)(New JsonCollectionReaderWriter(Of Uri(), Uri(), Uri)( - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute))))), - New ListComparer(Of Uri)(New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v)), - New ListComparer(Of Uri)(New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute)), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Uri(), Uri(), Uri)( - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute)))), - StoreTypePostfix.None}), CoreTypeMapping) - uriArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim uriToStringConverterProperty = entityType.AddProperty( - "UriToStringConverterProperty", - GetType(Uri), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UriToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UriToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New UriToStringConverter()) - uriToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute)), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute))), - StoreTypePostfix.None}), CoreTypeMapping) - uriToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim aDateOnly = entityType.AddProperty( - "aDateOnly", - GetType(DateOnly), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("aDateOnly", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_aDateOnly", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=New DateOnly(1, 1, 1)) - aDateOnly.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateOnlyTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - aDateOnly.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim aDateTime = entityType.AddProperty( - "aDateTime", - GetType(Date), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("aDateTime", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_aDateTime", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=New Date(1, 1, 1, 0, 0, 0, 0, DateTimeKind.Unspecified)) - aDateTime.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateTimeTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - aDateTime.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim aFloat = entityType.AddProperty( - "aFloat", - GetType(Single), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("aFloat", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_aFloat", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0F) - aFloat.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerFloatTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - aFloat.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim aPhysicalAddress = entityType.AddProperty( - "aPhysicalAddress", - GetType(PhysicalAddress), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("aPhysicalAddress", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_aPhysicalAddress", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - aPhysicalAddress.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(20)", - size:=20, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v)), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v))), - Type.Missing}), CoreTypeMapping) - aPhysicalAddress.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim aTimeOnly = entityType.AddProperty( - "aTimeOnly", - GetType(TimeOnly), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("aTimeOnly", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_aTimeOnly", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=New TimeOnly(0, 0, 0)) - aTimeOnly.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerTimeOnlyTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - aTimeOnly.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim aTimeSpan = entityType.AddProperty( - "aTimeSpan", - GetType(TimeSpan), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("aTimeSpan", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_aTimeSpan", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=New TimeSpan(0, 0, 0, 0, 0)) - aTimeSpan.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerTimeSpanTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - aTimeSpan.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim anIPAddress = entityType.AddProperty( - "anIPAddress", - GetType(IPAddress), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("anIPAddress", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_anIPAddress", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - anIPAddress.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping) - anIPAddress.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim key = entityType.AddKey( - {id}) - entityType.SetPrimaryKey(key) - - Return entityType - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "ManyTypes") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim e3 = - -Imports System -Imports System.Collections.Generic -Imports System.Net -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion -Imports Microsoft.VisualBasic -Imports NetTopologySuite.Geometries - -Namespace TestNamespace - Friend Partial Class PrincipalBaseEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase), - baseEntityType, - discriminatorValue:="PrincipalBase") - - Dim id = entityType.AddProperty( - "Id", - GetType(Long?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Id", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_Id", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueGenerated:=ValueGenerated.OnAdd, - afterSaveBehavior:=PropertySaveBehavior.Throw) - id.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim [overrides] As New StoreObjectDictionary(Of RuntimeRelationalPropertyOverrides)() - Dim idPrincipalDerived As New RuntimeRelationalPropertyOverrides( - id, - StoreObjectIdentifier.Table("PrincipalDerived", Nothing), - True, - "DerivedId") - [overrides].GetType().GetMethod("Add").Invoke([overrides], {StoreObjectIdentifier.Table("PrincipalDerived", Nothing), idPrincipalDerived}) - id.AddAnnotation("Relational:RelationalOverrides", [overrides]) - - id.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.IdentityColumn) - - Dim alternateId = entityType.AddProperty( - "AlternateId", - GetType(Guid), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("AlternateId", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.FieldDuringConstruction, - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=New Guid("00000000-0000-0000-0000-000000000000"), - jsonValueReaderWriter:=JsonGuidReaderWriter.Instance) - alternateId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(GuidTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="uniqueidentifier"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - alternateId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum1 = entityType.AddProperty( - "Enum1", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Enum1", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_Enum1", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enum1.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum))), - Type.Missing}), CoreTypeMapping) - enum1.SetSentinelFromProviderValue(0) - enum1.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum2 = entityType.AddProperty( - "Enum2", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.AnEnum?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Enum2", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_Enum2", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum2.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)))), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum))), - Type.Missing}), CoreTypeMapping) - enum2.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim flagsEnum1 = entityType.AddProperty( - "FlagsEnum1", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("FlagsEnum1", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_FlagsEnum1", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - flagsEnum1.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum))), - Type.Missing}), CoreTypeMapping) - flagsEnum1.SetSentinelFromProviderValue(0) - flagsEnum1.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim flagsEnum2 = entityType.AddProperty( - "FlagsEnum2", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("FlagsEnum2", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_FlagsEnum2", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - flagsEnum2.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum))), - Type.Missing}), CoreTypeMapping) - flagsEnum2.SetSentinelFromProviderValue(6) - flagsEnum2.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim point = entityType.AddProperty( - "Point", - GetType(Point), - nullable:=True, - valueGenerated:=ValueGenerated.OnAdd, - valueConverter:=New CastingConverter(Of Point, Point)(), - valueComparer:=New VisualBasicRuntimeModelCodeGeneratorTest.CustomValueComparer(Of Point)(), - providerValueComparer:=New VisualBasicRuntimeModelCodeGeneratorTest.CustomValueComparer(Of Point)()) - point.TypeMapping = Nothing - point.AddAnnotation("Relational:ColumnType", "geometry") - point.AddAnnotation("Relational:DefaultValue", CType(New NetTopologySuite.IO.WKTReader().Read("SRID=0;POINT Z(0 0 0)"), NetTopologySuite.Geometries.Point)) - point.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeArray = entityType.AddProperty( - "RefTypeArray", - GetType(IPAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("RefTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_RefTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeEnumerable = entityType.AddProperty( - "RefTypeEnumerable", - GetType(IEnumerable(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("RefTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_RefTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeEnumerable.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeIList = entityType.AddProperty( - "RefTypeIList", - GetType(IList(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("RefTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_RefTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeIList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeList = entityType.AddProperty( - "RefTypeList", - GetType(List(Of IPAddress)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("RefTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_RefTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeArray = entityType.AddProperty( - "ValueTypeArray", - GetType(Date()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("ValueTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ValueTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Date)(New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - JsonDateTimeReaderWriter.Instance)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateTimeTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - JsonDateTimeReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeEnumerable = entityType.AddProperty( - "ValueTypeEnumerable", - GetType(IEnumerable(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("ValueTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ValueTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeEnumerable.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeIList = entityType.AddProperty( - "ValueTypeIList", - GetType(IList(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("ValueTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ValueTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeIList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeList = entityType.AddProperty( - "ValueTypeList", - GetType(List(Of Short)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("ValueTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ValueTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Short)(New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim key = entityType.AddKey( - {id}) - - Dim key0 = entityType.AddKey( - {id, alternateId}) - entityType.SetPrimaryKey(key0) - key0.AddAnnotation("Relational:Name", "PK") - - Dim index = entityType.AddIndex( - {alternateId, id}) - - Return entityType - End Function - - Public Shared Function CreateSkipNavigation1(declaringEntityType As RuntimeEntityType, targetEntityType As RuntimeEntityType, joinEntityType As RuntimeEntityType) As RuntimeSkipNavigation - Dim skipNavigation = declaringEntityType.AddSkipNavigation( - "Deriveds", - targetEntityType, - joinEntityType.FindForeignKey( - {joinEntityType.FindProperty("PrincipalsId"), joinEntityType.FindProperty("PrincipalsAlternateId")}, - declaringEntityType.FindKey({declaringEntityType.FindProperty("Id"), declaringEntityType.FindProperty("AlternateId")}), - declaringEntityType), - True, - False, - GetType(ICollection(Of VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Deriveds", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_Deriveds", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - - Dim inverse = targetEntityType.FindSkipNavigation("Principals") - If inverse IsNot Nothing Then - skipNavigation.Inverse = inverse - inverse.Inverse = skipNavigation - End If - - Return skipNavigation - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:MappingStrategy", "TPT") - entityType.AddAnnotation("Relational:Schema", "mySchema") - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "PrincipalBase") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim e4 = - -Imports System -Imports System.Collections.Generic -Imports System.Net -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class OwnedTypeEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType), - baseEntityType, - sharedClrType:=True, - changeTrackingStrategy:=ChangeTrackingStrategy.ChangingAndChangedNotificationsWithOriginalValues) - - Dim principalBaseId = entityType.AddProperty( - "PrincipalBaseId", - GetType(Long), - propertyAccessMode:=PropertyAccessMode.Field, - valueGenerated:=ValueGenerated.OnAdd, - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=0L) - principalBaseId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim [overrides] As New StoreObjectDictionary(Of RuntimeRelationalPropertyOverrides)() - Dim principalBaseIdPrincipalBase As New RuntimeRelationalPropertyOverrides( - principalBaseId, - StoreObjectIdentifier.Table("PrincipalBase", "mySchema"), - False, - Nothing) - principalBaseIdPrincipalBase.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.IdentityColumn) - [overrides].GetType().GetMethod("Add").Invoke([overrides], {StoreObjectIdentifier.Table("PrincipalBase", "mySchema"), principalBaseIdPrincipalBase}) - principalBaseId.AddAnnotation("Relational:RelationalOverrides", [overrides]) - - principalBaseId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.IdentityColumn) - - Dim principalBaseAlternateId = entityType.AddProperty( - "PrincipalBaseAlternateId", - GetType(Guid), - propertyAccessMode:=PropertyAccessMode.Field, - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=New Guid("00000000-0000-0000-0000-000000000000")) - principalBaseAlternateId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(GuidTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="uniqueidentifier"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - principalBaseAlternateId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim details = entityType.AddProperty( - "Details", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("Details", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_details", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - details.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - - Dim overrides0 As New StoreObjectDictionary(Of RuntimeRelationalPropertyOverrides)() - Dim detailsDetails As New RuntimeRelationalPropertyOverrides( - details, - StoreObjectIdentifier.Table("Details", Nothing), - False, - Nothing) - overrides0.GetType().GetMethod("Add").Invoke(overrides0, {StoreObjectIdentifier.Table("Details", Nothing), detailsDetails}) - details.AddAnnotation("Relational:RelationalOverrides", overrides0) - - details.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim number = entityType.AddProperty( - "Number", - GetType(Integer), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("Number", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_Number", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - sentinel:=0) - number.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - number.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeArray = entityType.AddProperty( - "RefTypeArray", - GetType(IPAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - refTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeEnumerable = entityType.AddProperty( - "RefTypeEnumerable", - GetType(IEnumerable(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - refTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeEnumerable.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeIList = entityType.AddProperty( - "RefTypeIList", - GetType(IList(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - refTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeIList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeList = entityType.AddProperty( - "RefTypeList", - GetType(List(Of IPAddress)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - refTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeArray = entityType.AddProperty( - "ValueTypeArray", - GetType(Date()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_valueTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - valueTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Date)(New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - JsonDateTimeReaderWriter.Instance)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateTimeTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - JsonDateTimeReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeEnumerable = entityType.AddProperty( - "ValueTypeEnumerable", - GetType(IEnumerable(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_valueTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - valueTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeEnumerable.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeIList = entityType.AddProperty( - "ValueTypeIList", - GetType(IList(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_ValueTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - valueTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeIList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeList = entityType.AddProperty( - "ValueTypeList", - GetType(List(Of Short)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_valueTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - valueTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Short)(New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim context = entityType.AddServiceProperty( - "Context", - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("Context", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - serviceType:=GetType(DbContext)) - - Dim key = entityType.AddKey( - {principalBaseId, principalBaseAlternateId}) - entityType.SetPrimaryKey(key) - - Return entityType - End Function - - Public Shared Function CreateForeignKey1(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("PrincipalBaseId"), declaringEntityType.FindProperty("PrincipalBaseAlternateId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("Id"), principalEntityType.FindProperty("AlternateId")}), - principalEntityType, - deleteBehavior:=DeleteBehavior.Cascade, - unique:=True, - required:=True, - requiredDependent:=True, - ownership:=True) - - Dim owned = principalEntityType.AddNavigation("Owned", - runtimeForeignKey, - onDependent:=False, - GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Owned", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ownedField", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - eagerLoaded:=True) - - Return runtimeForeignKey - End Function - - Public Shared Function CreateForeignKey2(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("PrincipalBaseId"), declaringEntityType.FindProperty("PrincipalBaseAlternateId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("PrincipalBaseId"), principalEntityType.FindProperty("PrincipalBaseAlternateId")}), - principalEntityType, - deleteBehavior:=DeleteBehavior.Cascade, - unique:=True, - required:=True, - requiredDependent:=True) - - Return runtimeForeignKey - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - Dim fragments As New StoreObjectDictionary(Of RuntimeEntityTypeMappingFragment)() - Dim detailsFragment As New RuntimeEntityTypeMappingFragment( - entityType, - StoreObjectIdentifier.Table("Details", Nothing), - Nothing) - fragments.GetType().GetMethod("Add").Invoke(fragments, {StoreObjectIdentifier.Table("Details", Nothing), detailsFragment}) - entityType.AddAnnotation("Relational:MappingFragments", fragments) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", "mySchema") - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "PrincipalBase") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - Dim e5 = - -Imports System -Imports System.Collections.Generic -Imports System.Net -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class OwnedType0EntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>.ManyOwned#OwnedType", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType), - baseEntityType, - sharedClrType:=True) - - Dim principalDerivedId = entityType.AddProperty( - "PrincipalDerivedId", - GetType(Long), - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=0L) - principalDerivedId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - principalDerivedId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim principalDerivedAlternateId = entityType.AddProperty( - "PrincipalDerivedAlternateId", - GetType(Guid), - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=New Guid("00000000-0000-0000-0000-000000000000")) - principalDerivedAlternateId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(GuidTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="uniqueidentifier"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - principalDerivedAlternateId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim id = entityType.AddProperty( - "Id", - GetType(Integer), - valueGenerated:=ValueGenerated.OnAdd, - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=0) - id.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - id.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.IdentityColumn) - - Dim details = entityType.AddProperty( - "Details", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("Details", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_details", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - details.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - details.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim number = entityType.AddProperty( - "Number", - GetType(Integer), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("Number", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_Number", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0) - number.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - number.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeArray = entityType.AddProperty( - "RefTypeArray", - GetType(IPAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeEnumerable = entityType.AddProperty( - "RefTypeEnumerable", - GetType(IEnumerable(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeEnumerable.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeIList = entityType.AddProperty( - "RefTypeIList", - GetType(IList(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeIList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeList = entityType.AddProperty( - "RefTypeList", - GetType(List(Of IPAddress)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeArray = entityType.AddProperty( - "ValueTypeArray", - GetType(Date()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_valueTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Date)(New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - JsonDateTimeReaderWriter.Instance)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateTimeTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - JsonDateTimeReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeEnumerable = entityType.AddProperty( - "ValueTypeEnumerable", - GetType(IEnumerable(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_valueTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeEnumerable.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeIList = entityType.AddProperty( - "ValueTypeIList", - GetType(IList(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_ValueTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeIList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeList = entityType.AddProperty( - "ValueTypeList", - GetType(List(Of Short)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_valueTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Short)(New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim context = entityType.AddServiceProperty( - "Context", - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("Context", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - serviceType:=GetType(DbContext)) - - Dim key = entityType.AddKey( - {principalDerivedId, principalDerivedAlternateId, id}) - entityType.SetPrimaryKey(key) - - Return entityType - End Function - - Public Shared Function CreateForeignKey1(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("PrincipalDerivedId"), declaringEntityType.FindProperty("PrincipalDerivedAlternateId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("Id"), principalEntityType.FindProperty("AlternateId")}), - principalEntityType, - deleteBehavior:=DeleteBehavior.Cascade, - required:=True, - ownership:=True) - - Dim manyOwned = principalEntityType.AddNavigation("ManyOwned", - runtimeForeignKey, - onDependent:=False, - GetType(ICollection(Of VisualBasicRuntimeModelCodeGeneratorTest.OwnedType)), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))).GetField("ManyOwned", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - eagerLoaded:=True) - - Return runtimeForeignKey - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "ManyOwned") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - entityType.AddAnnotation("SqlServer:MemoryOptimized", True) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim e6 = - -Imports System -Imports System.Collections -Imports System.Collections.Generic -Imports System.Linq -Imports System.Reflection -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class PrincipalBasePrincipalDerivedDependentBasebyteEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "PrincipalBasePrincipalDerived>", - GetType(Dictionary(Of String, Object)), - baseEntityType, - sharedClrType:=True, - indexerPropertyInfo:=RuntimeEntityType.FindIndexerProperty(GetType(Dictionary(Of String, Object))), - propertyBag:=True) - - Dim derivedsId = entityType.AddProperty( - "DerivedsId", - GetType(Long), - propertyInfo:=entityType.FindIndexerPropertyInfo(), - afterSaveBehavior:=PropertySaveBehavior.Throw) - derivedsId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - derivedsId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim derivedsAlternateId = entityType.AddProperty( - "DerivedsAlternateId", - GetType(Guid), - propertyInfo:=entityType.FindIndexerPropertyInfo(), - afterSaveBehavior:=PropertySaveBehavior.Throw) - derivedsAlternateId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(GuidTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="uniqueidentifier"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - derivedsAlternateId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim principalsId = entityType.AddProperty( - "PrincipalsId", - GetType(Long), - propertyInfo:=entityType.FindIndexerPropertyInfo(), - afterSaveBehavior:=PropertySaveBehavior.Throw) - principalsId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - principalsId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim principalsAlternateId = entityType.AddProperty( - "PrincipalsAlternateId", - GetType(Guid), - propertyInfo:=entityType.FindIndexerPropertyInfo(), - afterSaveBehavior:=PropertySaveBehavior.Throw) - principalsAlternateId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(GuidTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="uniqueidentifier"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - principalsAlternateId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim rowid = entityType.AddProperty( - "rowid", - GetType(Byte()), - propertyInfo:=entityType.FindIndexerPropertyInfo(), - nullable:=True, - concurrencyToken:=True, - valueGenerated:=ValueGenerated.OnAddOrUpdate, - beforeSaveBehavior:=PropertySaveBehavior.Ignore, - afterSaveBehavior:=PropertySaveBehavior.Ignore) - rowid.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="rowversion", - size:=8), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(v1, v2), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(v), - Function(v As Byte()) v.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - rowid.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim key = entityType.AddKey( - {derivedsId, derivedsAlternateId, principalsId, principalsAlternateId}) - entityType.SetPrimaryKey(key) - - Dim index = entityType.AddIndex( - {principalsId, principalsAlternateId}) - - Return entityType - End Function - - Public Shared Function CreateForeignKey1(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("DerivedsId"), declaringEntityType.FindProperty("DerivedsAlternateId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("Id"), principalEntityType.FindProperty("AlternateId")}), - principalEntityType, - deleteBehavior:=DeleteBehavior.Cascade, - required:=True) - - Return runtimeForeignKey - End Function - - Public Shared Function CreateForeignKey2(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("PrincipalsId"), declaringEntityType.FindProperty("PrincipalsAlternateId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("Id"), principalEntityType.FindProperty("AlternateId")}), - principalEntityType, - deleteBehavior:=DeleteBehavior.ClientCascade, - required:=True) - - Return runtimeForeignKey - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "PrincipalBasePrincipalDerived>") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim e7 = - -Imports System -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Migrations.Design -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class DependentDerivedEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentDerived", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentDerived(Of Byte?)), - baseEntityType, - discriminatorProperty:="EnumDiscriminator", - discriminatorValue:=VisualBasicMigrationsGeneratorTests.Enum1.Two) - - Dim data = entityType.AddProperty( - "Data", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentDerived(Of Byte?)).GetProperty("Data", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentDerived(Of Byte?)).GetField("_Data", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - maxLength:=20, - unicode:=False) - data.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="char(20)", - size:=20, - fixedLength:=True, - dbType:=System.Data.DbType.AnsiStringFixedLength), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - data.AddAnnotation("Relational:IsFixedLength", True) - data.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim money = entityType.AddProperty( - "Money", - GetType(Decimal), - precision:=9, - scale:=3, - sentinel:=0D) - money.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(9,3)", - precision:=9, - scale:=3), - Type.Missing, - Type.Missing, - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - money.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Return entityType - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "DependentBase") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim e8 = - -Imports System -Imports System.Collections.Generic -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class PrincipalDerivedEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))), - baseEntityType, - discriminatorValue:="PrincipalDerived>") - - Return entityType - End Function - - Public Shared Function CreateForeignKey1(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("Id"), declaringEntityType.FindProperty("AlternateId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("Id"), principalEntityType.FindProperty("AlternateId")}), - principalEntityType, - deleteBehavior:=DeleteBehavior.Cascade, - unique:=True, - required:=True) - - Return runtimeForeignKey - End Function - - Public Shared Function CreateSkipNavigation1(declaringEntityType As RuntimeEntityType, targetEntityType As RuntimeEntityType, joinEntityType As RuntimeEntityType) As RuntimeSkipNavigation - Dim skipNavigation = declaringEntityType.AddSkipNavigation( - "Principals", - targetEntityType, - joinEntityType.FindForeignKey( - {joinEntityType.FindProperty("DerivedsId"), joinEntityType.FindProperty("DerivedsAlternateId")}, - declaringEntityType.FindKey({declaringEntityType.FindProperty("Id"), declaringEntityType.FindProperty("AlternateId")}), - declaringEntityType), - True, - False, - GetType(ICollection(Of VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))).GetProperty("Principals", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))).GetField("_Principals", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - eagerLoaded:=True, - lazyLoadingEnabled:=False) - - Dim inverse = targetEntityType.FindSkipNavigation("Deriveds") - If inverse IsNot Nothing Then - skipNavigation.Inverse = inverse - inverse.Inverse = skipNavigation - End If - - Return skipNavigation - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "PrincipalDerived") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Test( - New BigContext(), - CreateCompiledModelCodeGenerationOptions, - Sub(code) - Assert. - Collection(code, - Sub(c) AssertFileContents("BigContextModel.vb", rm1, c), - Sub(c) AssertFileContents("BigContextModelBuilder.vb", rm2, c), - Sub(c) AssertFileContents("DependentBaseEntityType.vb", e1, c), - Sub(c) AssertFileContents("ManyTypesEntityType.vb", e2, c), - Sub(c) AssertFileContents("PrincipalBaseEntityType.vb", e3, c), - Sub(c) AssertFileContents("OwnedTypeEntityType.vb", e4, c), - Sub(c) AssertFileContents("OwnedType0EntityType.vb", e5, c), - Sub(c) AssertFileContents("PrincipalBasePrincipalDerivedDependentBasebyteEntityType.vb", e6, c), - Sub(c) AssertFileContents("DependentDerivedEntityType.vb", e7, c), - Sub(c) AssertFileContents("PrincipalDerivedEntityType.vb", e8, c)) - End Sub, - Sub(Model) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() Model.GetCollation()).Message) - Assert.Equal( - {RelationalAnnotationNames.MaxIdentifierLength, SqlServerAnnotationNames.ValueGenerationStrategy}, - Model.GetAnnotations().Select(Function(a) a.Name)) - Assert.Equal(SqlServerValueGenerationStrategy.IdentityColumn, Model.GetValueGenerationStrategy()) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() Model.GetPropertyAccessMode()).Message) - Assert.Null(Model(SqlServerAnnotationNames.IdentitySeed)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() Model.GetIdentitySeed()).Message) - Assert.Null(Model(SqlServerAnnotationNames.IdentityIncrement)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() Model.GetIdentityIncrement()).Message) - - Dim manyTypesType = Model.FindEntityType(GetType(ManyTypes)) - - Assert.Equal(GetType(ManyTypes).FullName, manyTypesType.Name) - Assert.False(manyTypesType.HasSharedClrType) - Assert.False(manyTypesType.IsPropertyBag) - Assert.False(manyTypesType.IsOwned()) - Assert.IsType(Of ConstructorBinding)(manyTypesType.ConstructorBinding) - Assert.Null(manyTypesType.FindIndexerPropertyInfo()) - Assert.Equal(ChangeTrackingStrategy.Snapshot, manyTypesType.GetChangeTrackingStrategy()) - Assert.Equal("ManyTypes", manyTypesType.GetTableName()) - Assert.Null(manyTypesType.GetSchema()) - - Assert.Null(Model.FindEntityType(GetType(AbstractBase))) - Dim MyPrincipalBase = Model.FindEntityType(GetType(PrincipalBase)) - Assert.Equal(GetType(PrincipalBase).FullName, MyPrincipalBase.Name) - Assert.False(MyPrincipalBase.HasSharedClrType) - Assert.False(MyPrincipalBase.IsPropertyBag) - Assert.False(MyPrincipalBase.IsOwned()) - Assert.Null(MyPrincipalBase.BaseType) - Assert.IsType(Of ConstructorBinding)(MyPrincipalBase.ConstructorBinding) - Assert.Null(MyPrincipalBase.FindIndexerPropertyInfo()) - Assert.Equal(ChangeTrackingStrategy.Snapshot, MyPrincipalBase.GetChangeTrackingStrategy()) - Assert.Null(MyPrincipalBase.GetQueryFilter()) - Assert.Equal("PrincipalBase", MyPrincipalBase.GetTableName()) - Assert.Equal("mySchema", MyPrincipalBase.GetSchema()) - Assert.Equal(CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() MyPrincipalBase.GetSeedData()).Message) - - Dim PrincipalId = MyPrincipalBase.FindProperty(NameOf(PrincipalBase.Id)) - Assert.Equal( - {RelationalAnnotationNames.RelationalOverrides, SqlServerAnnotationNames.ValueGenerationStrategy}, - PrincipalId.GetAnnotations().Select(Function(a) a.Name)) - Assert.Equal(GetType(Long?), PrincipalId.ClrType) - Assert.Equal(GetType(Long?), PrincipalId.PropertyInfo.PropertyType) - Assert.Equal(GetType(Long?), PrincipalId.FieldInfo.FieldType) - Assert.False(PrincipalId.IsNullable) - Assert.Equal(ValueGenerated.OnAdd, PrincipalId.ValueGenerated) - Assert.Equal(PropertySaveBehavior.Throw, PrincipalId.GetAfterSaveBehavior()) - Assert.Equal(PropertySaveBehavior.Save, PrincipalId.GetBeforeSaveBehavior()) - Assert.Null(PrincipalId(CoreAnnotationNames.BeforeSaveBehavior)) - Assert.Null(PrincipalId(CoreAnnotationNames.AfterSaveBehavior)) - Assert.Equal("Id", PrincipalId.GetColumnName()) - Assert.Equal("Id", PrincipalId.GetColumnName(StoreObjectIdentifier.Table("PrincipalBase", "mySchema"))) - Assert.Equal("DerivedId", PrincipalId.GetColumnName(StoreObjectIdentifier.Table("PrincipalDerived"))) - Assert.Equal("bigint", PrincipalId.GetColumnType()) - Assert.Null(PrincipalId.GetValueConverter()) - Assert.NotNull(PrincipalId.GetValueComparer()) - Assert.NotNull(PrincipalId.GetKeyValueComparer()) - Assert.Equal(SqlServerValueGenerationStrategy.IdentityColumn, PrincipalId.GetValueGenerationStrategy()) - Assert.Null(PrincipalId(SqlServerAnnotationNames.IdentitySeed)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() PrincipalId.GetIdentitySeed()).Message) - Assert.Null(PrincipalId(SqlServerAnnotationNames.IdentityIncrement)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() PrincipalId.GetIdentityIncrement()).Message) - - Dim pointProperty = MyPrincipalBase.FindProperty("Point") - Assert.Equal(GetType(Point), pointProperty.ClrType) - Assert.True(pointProperty.IsNullable) - Assert.Equal(ValueGenerated.OnAdd, pointProperty.ValueGenerated) - Assert.Equal("Point", pointProperty.GetColumnName()) - Assert.Equal("geometry", pointProperty.GetColumnType()) - Assert.Equal(0, DirectCast(pointProperty.GetDefaultValue(), Point).SRID) - Assert.IsType(Of CastingConverter(Of Point, Point))(pointProperty.GetValueConverter()) - Assert.IsType(Of CustomValueComparer(Of Point))(pointProperty.GetValueComparer()) - Assert.IsType(Of CustomValueComparer(Of Point))(pointProperty.GetKeyValueComparer()) - Assert.IsType(Of CustomValueComparer(Of Point))(pointProperty.GetProviderValueComparer()) - Assert.Equal(SqlServerValueGenerationStrategy.None, pointProperty.GetValueGenerationStrategy()) - Assert.Null(pointProperty(CoreAnnotationNames.PropertyAccessMode)) - - Assert.Null(MyPrincipalBase.FindDiscriminatorProperty()) - - Dim principalAlternateId = MyPrincipalBase.FindProperty(NameOf(PrincipalBase.AlternateId)) - Dim compositeIndex = MyPrincipalBase.GetIndexes().Single() - Assert.Equal(PropertyAccessMode.FieldDuringConstruction, principalAlternateId.GetPropertyAccessMode()) - Assert.Empty(compositeIndex.GetAnnotations()) - Assert.Equal({principalAlternateId, PrincipalId}, compositeIndex.Properties) - Assert.False(compositeIndex.IsUnique) - Assert.Null(compositeIndex.Name) - Assert.Equal("IX_PrincipalBase_AlternateId_Id", compositeIndex.GetDatabaseName()) - - Assert.Equal({compositeIndex}, principalAlternateId.GetContainingIndexes()) - - Assert.Equal(2, MyPrincipalBase.GetKeys().Count()) - - Dim principalAlternateKey = MyPrincipalBase.GetKeys().First() - Assert.Same(PrincipalId, principalAlternateKey.Properties.Single()) - Assert.False(principalAlternateKey.IsPrimaryKey()) - Assert.Equal("AK_PrincipalBase_Id", principalAlternateKey.GetName()) - - Dim principalKey = MyPrincipalBase.GetKeys().Last() - Assert.Equal( - {RelationalAnnotationNames.Name}, - principalKey.GetAnnotations().Select(Function(a) a.Name)) - Assert.Equal({PrincipalId, principalAlternateId}, principalKey.Properties) - Assert.True(principalKey.IsPrimaryKey()) - Assert.Equal("PK", principalKey.GetName()) - Assert.Null(principalKey(SqlServerAnnotationNames.Clustered)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() principalKey.IsClustered()).Message) - - Assert.Equal({principalAlternateKey, principalKey}, PrincipalId.GetContainingKeys()) - - Dim referenceOwnedNavigation = MyPrincipalBase.GetNavigations().Single() - Assert.Equal( - {CoreAnnotationNames.EagerLoaded}, - referenceOwnedNavigation.GetAnnotations().Select(Function(a) a.Name)) - Assert.Equal(NameOf(PrincipalBase.Owned), referenceOwnedNavigation.Name) - Assert.False(referenceOwnedNavigation.IsCollection) - Assert.True(referenceOwnedNavigation.IsEagerLoaded) - Assert.False(referenceOwnedNavigation.IsOnDependent) - Assert.Equal(GetType(OwnedType), referenceOwnedNavigation.ClrType) - Assert.Equal("_ownedField", referenceOwnedNavigation.FieldInfo.Name) - Assert.Equal(NameOf(PrincipalBase.Owned), referenceOwnedNavigation.PropertyInfo.Name) - Assert.Null(referenceOwnedNavigation.Inverse) - Assert.Equal(MyPrincipalBase, referenceOwnedNavigation.DeclaringEntityType) - Assert.Equal(PropertyAccessMode.Field, referenceOwnedNavigation.GetPropertyAccessMode()) - Assert.Null(referenceOwnedNavigation(CoreAnnotationNames.PropertyAccessMode)) - - Dim referenceOwnedType = referenceOwnedNavigation.TargetEntityType - Assert.Equal(GetType(PrincipalBase).FullName & ".Owned#OwnedType", referenceOwnedType.Name) - Assert.Equal(GetType(OwnedType), referenceOwnedType.ClrType) - Assert.True(referenceOwnedType.HasSharedClrType) - Assert.False(referenceOwnedType.IsPropertyBag) - Assert.True(referenceOwnedType.IsOwned()) - Assert.Null(referenceOwnedType.BaseType) - Assert.False(referenceOwnedType.IsMemoryOptimized()) - Assert.IsType(Of ConstructorBinding)(referenceOwnedType.ConstructorBinding) - Assert.Null(referenceOwnedType.FindIndexerPropertyInfo()) - Assert.Equal( - ChangeTrackingStrategy.ChangingAndChangedNotificationsWithOriginalValues, - referenceOwnedType.GetChangeTrackingStrategy()) - Assert.Null(referenceOwnedType.GetQueryFilter()) - Assert.Null(referenceOwnedType(CoreAnnotationNames.PropertyAccessMode)) - Assert.Null(referenceOwnedType(CoreAnnotationNames.NavigationAccessMode)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() referenceOwnedType.GetPropertyAccessMode()).Message) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() referenceOwnedType.GetNavigationAccessMode()).Message) - - Dim principalTable = StoreObjectIdentifier.Create(referenceOwnedType, StoreObjectType.Table).Value - - Dim ownedId = referenceOwnedType.FindProperty("PrincipalBaseId") - Assert.True(ownedId.IsPrimaryKey()) - Assert.Equal( - SqlServerValueGenerationStrategy.IdentityColumn, - PrincipalId.GetValueGenerationStrategy(principalTable)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() PrincipalId.GetIdentityIncrement(principalTable)).Message) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() PrincipalId.GetIdentitySeed(principalTable)).Message) - - Dim detailsProperty = referenceOwnedType.FindProperty(NameOf(OwnedType.Details)) - Assert.Null(detailsProperty(SqlServerAnnotationNames.Sparse)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() detailsProperty.IsSparse()).Message) - Assert.Null(detailsProperty(RelationalAnnotationNames.Collation)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() detailsProperty.GetCollation()).Message) - - Dim ownedFragment = referenceOwnedType.GetMappingFragments().Single() - Assert.Equal(NameOf(OwnedType.Details), detailsProperty.GetColumnName(ownedFragment.StoreObject)) - Assert.Null(detailsProperty.GetColumnName(principalTable)) - - Dim referenceOwnership = referenceOwnedNavigation.ForeignKey - Assert.Empty(referenceOwnership.GetAnnotations()) - Assert.Same(referenceOwnership, referenceOwnedType.FindOwnership()) - Assert.True(referenceOwnership.IsOwnership) - Assert.True(referenceOwnership.IsRequired) - Assert.True(referenceOwnership.IsRequiredDependent) - Assert.True(referenceOwnership.IsUnique) - Assert.Null(referenceOwnership.DependentToPrincipal) - Assert.Same(referenceOwnedNavigation, referenceOwnership.PrincipalToDependent) - Assert.Equal(DeleteBehavior.Cascade, referenceOwnership.DeleteBehavior) - Assert.Equal(2, referenceOwnership.Properties.Count()) - Assert.Same(principalKey, referenceOwnership.PrincipalKey) - - Dim ownedServiceProperty = referenceOwnedType.GetServiceProperties().Single() - Assert.Empty(ownedServiceProperty.GetAnnotations()) - Assert.Equal(GetType(DbContext), ownedServiceProperty.ClrType) - Assert.Equal(GetType(DbContext), ownedServiceProperty.PropertyInfo.PropertyType) - Assert.Null(ownedServiceProperty.FieldInfo) - Assert.Same(referenceOwnedType, ownedServiceProperty.DeclaringEntityType) - Dim ownedServicePropertyBinding = ownedServiceProperty.ParameterBinding - Assert.IsType(Of ContextParameterBinding)(ownedServicePropertyBinding) - Assert.Equal(GetType(DbContext), ownedServicePropertyBinding.ServiceType) - Assert.Equal(ownedServiceProperty, ownedServicePropertyBinding.ConsumedProperties.Single()) - Assert.Equal(PropertyAccessMode.PreferField, ownedServiceProperty.GetPropertyAccessMode()) - Assert.Null(ownedServiceProperty(CoreAnnotationNames.PropertyAccessMode)) - - Dim principalDerived = Model.FindEntityType(GetType(PrincipalDerived(Of DependentBase(Of Byte?)))) - Assert.Equal(MyPrincipalBase, principalDerived.BaseType) - Assert.Equal("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+" & - "PrincipalDerived>", - principalDerived.Name) - Assert.False(principalDerived.IsOwned()) - Assert.IsType(Of ConstructorBinding)(principalDerived.ConstructorBinding) - Assert.Equal(ChangeTrackingStrategy.Snapshot, principalDerived.GetChangeTrackingStrategy()) - Assert.Equal("PrincipalDerived>", principalDerived.GetDiscriminatorValue()) - - Dim tptForeignKey = principalDerived.GetForeignKeys().Single() - Assert.False(tptForeignKey.IsOwnership) - Assert.True(tptForeignKey.IsRequired) - Assert.False(tptForeignKey.IsRequiredDependent) - Assert.True(tptForeignKey.IsUnique) - Assert.Null(tptForeignKey.DependentToPrincipal) - Assert.Null(tptForeignKey.PrincipalToDependent) - Assert.Equal(DeleteBehavior.Cascade, tptForeignKey.DeleteBehavior) - Assert.Equal(principalKey.Properties, tptForeignKey.Properties) - Assert.Same(principalKey, tptForeignKey.PrincipalKey) - - Assert.Equal(2, principalDerived.GetDeclaredNavigations().Count()) - Dim dependentNavigation = principalDerived.GetDeclaredNavigations().First() - Assert.Equal("Dependent", dependentNavigation.Name) - Assert.Equal("Dependent", dependentNavigation.PropertyInfo.Name) - Assert.Equal("_Dependent", dependentNavigation.FieldInfo.Name) - Assert.False(dependentNavigation.IsCollection) - Assert.True(dependentNavigation.IsEagerLoaded) - Assert.False(dependentNavigation.LazyLoadingEnabled) - Assert.False(dependentNavigation.IsOnDependent) - Assert.Equal(principalDerived, dependentNavigation.DeclaringEntityType) - Assert.Equal("Principal", dependentNavigation.Inverse.Name) - - Dim ownedCollectionNavigation = principalDerived.GetDeclaredNavigations().Last() - Assert.Equal("ManyOwned", ownedCollectionNavigation.Name) - Assert.Null(ownedCollectionNavigation.PropertyInfo) - Assert.Equal("ManyOwned", ownedCollectionNavigation.FieldInfo.Name) - Assert.Equal(GetType(ICollection(Of OwnedType)), ownedCollectionNavigation.ClrType) - Assert.True(ownedCollectionNavigation.IsCollection) - Assert.True(ownedCollectionNavigation.IsEagerLoaded) - Assert.False(ownedCollectionNavigation.IsOnDependent) - Assert.Null(ownedCollectionNavigation.Inverse) - Assert.Equal(principalDerived, ownedCollectionNavigation.DeclaringEntityType) - - Dim collectionOwnedType = ownedCollectionNavigation.TargetEntityType - Assert.Equal(principalDerived.Name & ".ManyOwned#OwnedType", collectionOwnedType.Name) - Assert.Equal(GetType(OwnedType), collectionOwnedType.ClrType) - Assert.True(collectionOwnedType.HasSharedClrType) - Assert.False(collectionOwnedType.IsPropertyBag) - Assert.True(collectionOwnedType.IsOwned()) - Assert.True(collectionOwnedType.IsMemoryOptimized()) - Assert.Null(collectionOwnedType(RelationalAnnotationNames.IsTableExcludedFromMigrations)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() collectionOwnedType.IsTableExcludedFromMigrations()).Message) - Assert.Null(collectionOwnedType.BaseType) - Assert.IsType(Of ConstructorBinding)(collectionOwnedType.ConstructorBinding) - Assert.Equal(ChangeTrackingStrategy.Snapshot, collectionOwnedType.GetChangeTrackingStrategy()) - - Dim collectionOwnership = ownedCollectionNavigation.ForeignKey - Assert.Same(collectionOwnership, collectionOwnedType.FindOwnership()) - Assert.True(collectionOwnership.IsOwnership) - Assert.True(collectionOwnership.IsRequired) - Assert.False(collectionOwnership.IsRequiredDependent) - Assert.False(collectionOwnership.IsUnique) - Assert.Null(collectionOwnership.DependentToPrincipal) - Assert.Same(ownedCollectionNavigation, collectionOwnership.PrincipalToDependent) - Assert.Equal(DeleteBehavior.Cascade, collectionOwnership.DeleteBehavior) - Assert.Equal(2, collectionOwnership.Properties.Count()) - - Dim derivedSkipNavigation = principalDerived.GetDeclaredSkipNavigations().Single() - Assert.Equal("Principals", derivedSkipNavigation.Name) - Assert.Equal("Principals", derivedSkipNavigation.PropertyInfo.Name) - Assert.Equal("_Principals", derivedSkipNavigation.FieldInfo.Name) - Assert.Equal(GetType(ICollection(Of PrincipalBase)), derivedSkipNavigation.ClrType) - Assert.True(derivedSkipNavigation.IsCollection) - Assert.True(derivedSkipNavigation.IsEagerLoaded) - Assert.False(derivedSkipNavigation.LazyLoadingEnabled) - Assert.False(derivedSkipNavigation.IsOnDependent) - Assert.Equal(principalDerived, derivedSkipNavigation.DeclaringEntityType) - Assert.Equal("Deriveds", derivedSkipNavigation.Inverse.Name) - Assert.Same(MyPrincipalBase.GetSkipNavigations().Single(), derivedSkipNavigation.Inverse) - - Assert.Same(derivedSkipNavigation, derivedSkipNavigation.ForeignKey.GetReferencingSkipNavigations().Single()) - Assert.Same(derivedSkipNavigation.Inverse, derivedSkipNavigation.Inverse.ForeignKey.GetReferencingSkipNavigations().Single()) - - Assert.Equal({derivedSkipNavigation.Inverse, derivedSkipNavigation}, principalDerived.GetSkipNavigations()) - - Dim joinType = derivedSkipNavigation.JoinEntityType - - Assert.Equal("PrincipalBasePrincipalDerived>", joinType.Name) - Assert.Equal(GetType(Dictionary(Of String, Object)), joinType.ClrType) - Assert.True(joinType.HasSharedClrType) - Assert.True(joinType.IsPropertyBag) - Assert.False(joinType.IsOwned()) - Assert.Null(joinType.BaseType) - Assert.IsType(Of ConstructorBinding)(joinType.ConstructorBinding) - Assert.Equal("Item", joinType.FindIndexerPropertyInfo().Name) - Assert.Equal(ChangeTrackingStrategy.Snapshot, joinType.GetChangeTrackingStrategy()) - Assert.Null(joinType(RelationalAnnotationNames.Comment)) - Assert.Equal(CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() joinType.GetComment()).Message) - Assert.Null(joinType.GetQueryFilter()) - - Dim rowid = joinType.GetProperties().Single(Function(p) Not p.IsForeignKey()) - Assert.Equal(GetType(Byte()), rowid.ClrType) - Assert.True(rowid.IsIndexerProperty()) - Assert.Same(joinType.FindIndexerPropertyInfo(), rowid.PropertyInfo) - Assert.Null(rowid.FieldInfo) - Assert.True(rowid.IsNullable) - Assert.False(rowid.IsShadowProperty()) - Assert.True(rowid.IsConcurrencyToken) - Assert.Equal(ValueGenerated.OnAddOrUpdate, rowid.ValueGenerated) - Assert.Equal("rowid", rowid.GetColumnName()) - Assert.Equal("rowversion", rowid.GetColumnType()) - Assert.Null(rowid(RelationalAnnotationNames.Comment)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() rowid.GetComment()).Message) - Assert.Null(rowid(RelationalAnnotationNames.ColumnOrder)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() rowid.GetColumnOrder()).Message) - Assert.Null(rowid.GetValueConverter()) - Assert.NotNull(rowid.GetValueComparer()) - Assert.NotNull(rowid.GetKeyValueComparer()) - Assert.Equal(SqlServerValueGenerationStrategy.None, rowid.GetValueGenerationStrategy()) - - Dim dependentForeignKey = dependentNavigation.ForeignKey - Assert.False(dependentForeignKey.IsOwnership) - Assert.True(dependentForeignKey.IsRequired) - Assert.False(dependentForeignKey.IsRequiredDependent) - Assert.True(dependentForeignKey.IsUnique) - Assert.Same(dependentNavigation.Inverse, dependentForeignKey.DependentToPrincipal) - Assert.Same(dependentNavigation, dependentForeignKey.PrincipalToDependent) - Assert.Equal(DeleteBehavior.ClientNoAction, dependentForeignKey.DeleteBehavior) - Assert.Equal({"PrincipalId", "PrincipalAlternateId"}, dependentForeignKey.Properties.Select(Function(p) p.Name)) - Assert.Same(principalKey, dependentForeignKey.PrincipalKey) - - Dim dependentBase = dependentNavigation.TargetEntityType - - Assert.False(dependentBase.GetIsDiscriminatorMappingComplete()) - Dim principalDiscriminator = dependentBase.FindDiscriminatorProperty() - Assert.IsType(Of DiscriminatorValueGenerator)( - principalDiscriminator.GetValueGeneratorFactory()(principalDiscriminator, dependentBase)) - Assert.Equal(Enum1.One, dependentBase.GetDiscriminatorValue()) - - Dim dependentBaseForeignKey = dependentBase.GetForeignKeys().Single(Function(fk) fk IsNot dependentForeignKey) - Dim dependentForeignKeyProperty = dependentBaseForeignKey.Properties.Single() - - Assert.Equal({dependentBaseForeignKey, dependentForeignKey}, dependentForeignKeyProperty.GetContainingForeignKeys()) - - Dim dependentDerived = dependentBase.GetDerivedTypes().Single() - Assert.Equal(Enum1.Two, dependentDerived.GetDiscriminatorValue()) - - Assert.Equal(2, dependentDerived.GetDeclaredProperties().Count()) - - Dim dependentData = dependentDerived.GetDeclaredProperties().First() - Assert.Equal(GetType(String), dependentData.ClrType) - Assert.Equal("Data", dependentData.Name) - Assert.Equal("Data", dependentData.PropertyInfo.Name) - Assert.Equal("_Data", dependentData.FieldInfo.Name) - Assert.True(dependentData.IsNullable) - Assert.False(dependentData.IsShadowProperty()) - Assert.False(dependentData.IsConcurrencyToken) - Assert.Equal(ValueGenerated.Never, dependentData.ValueGenerated) - Assert.Equal("Data", dependentData.GetColumnName()) - Assert.Equal("char(20)", dependentData.GetColumnType()) - Assert.Equal(20, dependentData.GetMaxLength()) - Assert.False(dependentData.IsUnicode()) - Assert.True(dependentData.IsFixedLength()) - Assert.Null(dependentData.GetPrecision()) - Assert.Null(dependentData.GetScale()) - - Dim dependentMoney = dependentDerived.GetDeclaredProperties().Last() - Assert.Equal(GetType(Decimal), dependentMoney.ClrType) - Assert.Equal("Money", dependentMoney.Name) - Assert.Null(dependentMoney.PropertyInfo) - Assert.Null(dependentMoney.FieldInfo) - Assert.False(dependentMoney.IsNullable) - Assert.True(dependentMoney.IsShadowProperty()) - Assert.False(dependentMoney.IsConcurrencyToken) - Assert.Equal(ValueGenerated.Never, dependentMoney.ValueGenerated) - Assert.Equal("Money", dependentMoney.GetColumnName()) - Assert.Equal("decimal(9,3)", dependentMoney.GetColumnType()) - Assert.Null(dependentMoney.GetMaxLength()) - Assert.Null(dependentMoney.IsUnicode()) - Assert.Null(dependentMoney.IsFixedLength()) - Assert.Equal(9, dependentMoney.GetPrecision()) - Assert.Equal(3, dependentMoney.GetScale()) - - Assert.Equal( - { - derivedSkipNavigation.ForeignKey, - tptForeignKey, - referenceOwnership, - collectionOwnership, - dependentForeignKey, - derivedSkipNavigation.Inverse.ForeignKey - }, - principalKey.GetReferencingForeignKeys()) - - Assert.Equal( - { - dependentBaseForeignKey, - tptForeignKey, - referenceOwnership, - derivedSkipNavigation.Inverse.ForeignKey - }, - MyPrincipalBase.GetReferencingForeignKeys()) - - Assert.Equal( - { - derivedSkipNavigation.ForeignKey, - collectionOwnership, - dependentForeignKey - }, - principalDerived.GetDeclaredReferencingForeignKeys()) - - Assert.Equal( - { - dependentBase, - dependentDerived, - manyTypesType, - MyPrincipalBase, - referenceOwnedType, - principalDerived, - collectionOwnedType, - joinType - }, - Model.GetEntityTypes()) - End Sub, - GetType(SqlServerNetTopologySuiteDesignTimeServices)) - End Sub - - - Public Sub BigModel_with_JSON_columns() - - Dim BigContextWithJsonModel = -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - - Public Partial Class BigContextWithJsonModel - Inherits RuntimeModel - - Private Shared ReadOnly _useOldBehavior31751 As Boolean - - Private Shared _Instance As BigContextWithJsonModel - Public Shared ReadOnly Property Instance As IModel - Get - Return _Instance - End Get - End Property - - Shared Sub New() - Dim enabled31751 As Boolean - _useOldBehavior31751 = System.AppContext.TryGetSwitch("Microsoft.EntityFrameworkCore.Issue31751", enabled31751) AndAlso enabled31751 - - Dim model As New BigContextWithJsonModel() - If _useOldBehavior31751 Then - model.Initialize() - Else - Dim thread = New System.Threading.Thread(Sub() model.Initialize(), 10 * 1024 * 1024) - thread.Start() - thread.Join() - End If - - model.Customize() - _Instance = model - End Sub - - Partial Private Sub Initialize() - End Sub - - Partial Private Sub Customize() - End Sub - End Class -End Namespace -]]>.Value - - Dim BigContextWithJsonModelBuilder = -Imports System -Imports System.Collections.Generic -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Metadata.Internal -Imports Microsoft.EntityFrameworkCore.Migrations -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Public Partial Class BigContextWithJsonModel - - Private Sub Initialize() - Dim dependentBase = DependentBaseEntityType.Create(Me) - Dim manyTypes = ManyTypesEntityType.Create(Me) - Dim principalBase = PrincipalBaseEntityType.Create(Me) - Dim ownedType = OwnedTypeEntityType.Create(Me) - Dim ownedType0 = OwnedType0EntityType.Create(Me) - Dim principalBasePrincipalDerivedDependentBasebyte = PrincipalBasePrincipalDerivedDependentBasebyteEntityType.Create(Me) - Dim dependentDerived = DependentDerivedEntityType.Create(Me, dependentBase) - Dim principalDerived = PrincipalDerivedEntityType.Create(Me, principalBase) - - DependentBaseEntityType.CreateForeignKey1(dependentBase, principalBase) - DependentBaseEntityType.CreateForeignKey2(dependentBase, principalDerived) - OwnedTypeEntityType.CreateForeignKey1(ownedType, principalBase) - OwnedType0EntityType.CreateForeignKey1(ownedType0, principalDerived) - PrincipalBasePrincipalDerivedDependentBasebyteEntityType.CreateForeignKey1(principalBasePrincipalDerivedDependentBasebyte, principalDerived) - PrincipalBasePrincipalDerivedDependentBasebyteEntityType.CreateForeignKey2(principalBasePrincipalDerivedDependentBasebyte, principalBase) - - PrincipalBaseEntityType.CreateSkipNavigation1(principalBase, principalDerived, principalBasePrincipalDerivedDependentBasebyte) - PrincipalDerivedEntityType.CreateSkipNavigation1(principalDerived, principalBase, principalBasePrincipalDerivedDependentBasebyte) - - DependentBaseEntityType.CreateAnnotations(dependentBase) - ManyTypesEntityType.CreateAnnotations(manyTypes) - PrincipalBaseEntityType.CreateAnnotations(principalBase) - OwnedTypeEntityType.CreateAnnotations(ownedType) - OwnedType0EntityType.CreateAnnotations(ownedType0) - PrincipalBasePrincipalDerivedDependentBasebyteEntityType.CreateAnnotations(principalBasePrincipalDerivedDependentBasebyte) - DependentDerivedEntityType.CreateAnnotations(dependentDerived) - PrincipalDerivedEntityType.CreateAnnotations(principalDerived) - - AddAnnotation("Relational:MaxIdentifierLength", 128) - AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.IdentityColumn) - AddRuntimeAnnotation("Relational:RelationalModel", CreateRelationalModel()) - End Sub - - Private Function CreateRelationalModel() As IRelationalModel - Dim relationalModel As New RelationalModel(Me) - - Dim dependentBase = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase") - - Dim defaultTableMappings As New List(Of TableMappingBase(Of ColumnMappingBase))() - dependentBase.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", Nothing, relationalModel) - Dim dataColumnBase As New ColumnBase(Of ColumnMappingBase)("Data", "char(20)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("Data", dataColumnBase) - Dim enumDiscriminatorColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumDiscriminator", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("EnumDiscriminator", enumDiscriminatorColumnBase) - Dim idColumnBase As New ColumnBase(Of ColumnMappingBase)("Id", "tinyint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("Id", idColumnBase) - Dim moneyColumnBase As New ColumnBase(Of ColumnMappingBase)("Money", "decimal(9,3)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("Money", moneyColumnBase) - Dim principalAlternateIdColumnBase As New ColumnBase(Of ColumnMappingBase)("PrincipalAlternateId", "uniqueidentifier", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("PrincipalAlternateId", principalAlternateIdColumnBase) - Dim principalIdColumnBase As New ColumnBase(Of ColumnMappingBase)("PrincipalId", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("PrincipalId", principalIdColumnBase) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase As New TableMappingBase(Of ColumnMappingBase)(dependentBase, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase, False) - defaultTableMappings.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalAlternateIdColumnBase, ColumnBase(Of ColumnMappingBase)), dependentBase.FindProperty("PrincipalAlternateId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalIdColumnBase, ColumnBase(Of ColumnMappingBase)), dependentBase.FindProperty("PrincipalId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumDiscriminatorColumnBase, ColumnBase(Of ColumnMappingBase)), dependentBase.FindProperty("EnumDiscriminator"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase, ColumnBase(Of ColumnMappingBase)), dependentBase.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - - Dim tableMappings As New List(Of TableMapping)() - dependentBase.SetRuntimeAnnotation("Relational:TableMappings", tableMappings) - Dim dependentBasebyteTable As New Table("DependentBase", Nothing, relationalModel) - Dim principalIdColumn As New Column("PrincipalId", "bigint", dependentBasebyteTable) - dependentBasebyteTable.Columns.Add("PrincipalId", principalIdColumn) - Dim principalAlternateIdColumn As New Column("PrincipalAlternateId", "uniqueidentifier", dependentBasebyteTable) - dependentBasebyteTable.Columns.Add("PrincipalAlternateId", principalAlternateIdColumn) - Dim dataColumn As New Column("Data", "char(20)", dependentBasebyteTable) With { - .IsNullable = True - } - dependentBasebyteTable.Columns.Add("Data", dataColumn) - Dim enumDiscriminatorColumn As New Column("EnumDiscriminator", "int", dependentBasebyteTable) - dependentBasebyteTable.Columns.Add("EnumDiscriminator", enumDiscriminatorColumn) - Dim idColumn As New Column("Id", "tinyint", dependentBasebyteTable) With { - .IsNullable = True - } - dependentBasebyteTable.Columns.Add("Id", idColumn) - Dim moneyColumn As New Column("Money", "decimal(9,3)", dependentBasebyteTable) With { - .IsNullable = True - } - dependentBasebyteTable.Columns.Add("Money", moneyColumn) - Dim pK_DependentBasebyte As New UniqueConstraint("PK_DependentBase", dependentBasebyteTable, {principalIdColumn, principalAlternateIdColumn}) - dependentBasebyteTable.PrimaryKey = pK_DependentBasebyte - Dim pK_DependentBasebyteUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", - {"PrincipalId", "PrincipalAlternateId"}) - pK_DependentBasebyte.MappedKeys.Add(pK_DependentBasebyteUc) - RelationalModel.GetOrCreateUniqueConstraints(pK_DependentBasebyteUc).Add(pK_DependentBasebyte) - dependentBasebyteTable.UniqueConstraints.Add("PK_DependentBase", pK_DependentBasebyte) - Dim iX_DependentBasebyte_PrincipalId As New TableIndex( - "IX_DependentBase_PrincipalId", dependentBasebyteTable, {principalIdColumn}, True) - Dim iX_DependentBasebyte_PrincipalIdIx = RelationalModel.GetIndex(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", - {"PrincipalId"}) - iX_DependentBasebyte_PrincipalId.MappedIndexes.Add(iX_DependentBasebyte_PrincipalIdIx) - RelationalModel.GetOrCreateTableIndexes(iX_DependentBasebyte_PrincipalIdIx).Add(iX_DependentBasebyte_PrincipalId) - dependentBasebyteTable.Indexes.Add("IX_DependentBase_PrincipalId", iX_DependentBasebyte_PrincipalId) - relationalModel.Tables.Add(("DependentBase", Nothing), dependentBasebyteTable) - Dim dependentBasebyteTableMapping As New TableMapping(dependentBase, dependentBasebyteTable, True) With { - .IsSharedTablePrincipal = True - } - dependentBasebyteTable.AddTypeMapping(dependentBasebyteTableMapping, False) - tableMappings.Add(dependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(principalAlternateIdColumn, dependentBase.FindProperty("PrincipalAlternateId"), dependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(principalIdColumn, dependentBase.FindProperty("PrincipalId"), dependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(enumDiscriminatorColumn, dependentBase.FindProperty("EnumDiscriminator"), dependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(idColumn, dependentBase.FindProperty("Id"), dependentBasebyteTableMapping) - - Dim dependentDerived = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentDerived") - - Dim defaultTableMappings0 As New List(Of TableMappingBase(Of ColumnMappingBase))() - dependentDerived.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings0) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0 As New TableMappingBase(Of ColumnMappingBase)(dependentDerived, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0, False) - defaultTableMappings0.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(principalAlternateIdColumnBase, ColumnBase(Of ColumnMappingBase)), dependentDerived.FindProperty("PrincipalAlternateId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(principalIdColumnBase, ColumnBase(Of ColumnMappingBase)), dependentDerived.FindProperty("PrincipalId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(dataColumnBase, ColumnBase(Of ColumnMappingBase)), dependentDerived.FindProperty("Data"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(enumDiscriminatorColumnBase, ColumnBase(Of ColumnMappingBase)), dependentDerived.FindProperty("EnumDiscriminator"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase, ColumnBase(Of ColumnMappingBase)), dependentDerived.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(moneyColumnBase, ColumnBase(Of ColumnMappingBase)), dependentDerived.FindProperty("Money"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0) - - Dim tableMappings0 As New List(Of TableMapping)() - dependentDerived.SetRuntimeAnnotation("Relational:TableMappings", tableMappings0) - Dim dependentBasebyteTableMapping0 As New TableMapping(dependentDerived, dependentBasebyteTable, True) With { - .IsSharedTablePrincipal = False - } - dependentBasebyteTable.AddTypeMapping(dependentBasebyteTableMapping0, False) - tableMappings0.Add(dependentBasebyteTableMapping0) - RelationalModel.CreateColumnMapping(principalAlternateIdColumn, dependentDerived.FindProperty("PrincipalAlternateId"), dependentBasebyteTableMapping0) - RelationalModel.CreateColumnMapping(principalIdColumn, dependentDerived.FindProperty("PrincipalId"), dependentBasebyteTableMapping0) - RelationalModel.CreateColumnMapping(dataColumn, dependentDerived.FindProperty("Data"), dependentBasebyteTableMapping0) - RelationalModel.CreateColumnMapping(enumDiscriminatorColumn, dependentDerived.FindProperty("EnumDiscriminator"), dependentBasebyteTableMapping0) - RelationalModel.CreateColumnMapping(idColumn, dependentDerived.FindProperty("Id"), dependentBasebyteTableMapping0) - RelationalModel.CreateColumnMapping(moneyColumn, dependentDerived.FindProperty("Money"), dependentBasebyteTableMapping0) - - Dim manyTypes = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+ManyTypes") - - Dim defaultTableMappings1 As New List(Of TableMappingBase(Of ColumnMappingBase))() - manyTypes.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings1) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+ManyTypes", Nothing, relationalModel) - Dim boolColumnBase As New ColumnBase(Of ColumnMappingBase)("Bool", "bit", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Bool", boolColumnBase) - Dim boolArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("BoolArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("BoolArray", boolArrayColumnBase) - Dim boolToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("BoolToStringConverterProperty", "nvarchar(1)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("BoolToStringConverterProperty", boolToStringConverterPropertyColumnBase) - Dim boolToTwoValuesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("BoolToTwoValuesConverterProperty", "tinyint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("BoolToTwoValuesConverterProperty", boolToTwoValuesConverterPropertyColumnBase) - Dim boolToZeroOneConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("BoolToZeroOneConverterProperty", "smallint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("BoolToZeroOneConverterProperty", boolToZeroOneConverterPropertyColumnBase) - Dim bytesColumnBase As New ColumnBase(Of ColumnMappingBase)("Bytes", "varbinary(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Bytes", bytesColumnBase) - Dim bytesArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("BytesArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("BytesArray", bytesArrayColumnBase) - Dim bytesToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("BytesToStringConverterProperty", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("BytesToStringConverterProperty", bytesToStringConverterPropertyColumnBase) - Dim castingConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("CastingConverterProperty", "decimal(18,2)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("CastingConverterProperty", castingConverterPropertyColumnBase) - Dim charColumnBase As New ColumnBase(Of ColumnMappingBase)("Char", "nvarchar(1)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Char", charColumnBase) - Dim charArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("CharArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("CharArray", charArrayColumnBase) - Dim charToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("CharToStringConverterProperty", "nvarchar(1)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("CharToStringConverterProperty", charToStringConverterPropertyColumnBase) - Dim dateOnlyArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("DateOnlyArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateOnlyArray", dateOnlyArrayColumnBase) - Dim dateOnlyToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DateOnlyToStringConverterProperty", "nvarchar(10)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateOnlyToStringConverterProperty", dateOnlyToStringConverterPropertyColumnBase) - Dim dateTimeArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("DateTimeArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateTimeArray", dateTimeArrayColumnBase) - Dim dateTimeOffsetToBinaryConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DateTimeOffsetToBinaryConverterProperty", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateTimeOffsetToBinaryConverterProperty", dateTimeOffsetToBinaryConverterPropertyColumnBase) - Dim dateTimeOffsetToBytesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DateTimeOffsetToBytesConverterProperty", "varbinary(12)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateTimeOffsetToBytesConverterProperty", dateTimeOffsetToBytesConverterPropertyColumnBase) - Dim dateTimeOffsetToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DateTimeOffsetToStringConverterProperty", "nvarchar(48)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateTimeOffsetToStringConverterProperty", dateTimeOffsetToStringConverterPropertyColumnBase) - Dim dateTimeToBinaryConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DateTimeToBinaryConverterProperty", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateTimeToBinaryConverterProperty", dateTimeToBinaryConverterPropertyColumnBase) - Dim dateTimeToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DateTimeToStringConverterProperty", "nvarchar(48)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateTimeToStringConverterProperty", dateTimeToStringConverterPropertyColumnBase) - Dim dateTimeToTicksConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DateTimeToTicksConverterProperty", "datetime2", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateTimeToTicksConverterProperty", dateTimeToTicksConverterPropertyColumnBase) - Dim decimalColumnBase As New ColumnBase(Of ColumnMappingBase)("Decimal", "decimal(18,2)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Decimal", decimalColumnBase) - Dim decimalArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("DecimalArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DecimalArray", decimalArrayColumnBase) - Dim decimalNumberToBytesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DecimalNumberToBytesConverterProperty", "varbinary(16)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DecimalNumberToBytesConverterProperty", decimalNumberToBytesConverterPropertyColumnBase) - Dim decimalNumberToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DecimalNumberToStringConverterProperty", "nvarchar(64)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DecimalNumberToStringConverterProperty", decimalNumberToStringConverterPropertyColumnBase) - Dim doubleColumnBase As New ColumnBase(Of ColumnMappingBase)("Double", "float", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Double", doubleColumnBase) - Dim doubleArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("DoubleArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DoubleArray", doubleArrayColumnBase) - Dim doubleNumberToBytesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DoubleNumberToBytesConverterProperty", "varbinary(8)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DoubleNumberToBytesConverterProperty", doubleNumberToBytesConverterPropertyColumnBase) - Dim doubleNumberToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DoubleNumberToStringConverterProperty", "nvarchar(64)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DoubleNumberToStringConverterProperty", doubleNumberToStringConverterPropertyColumnBase) - Dim enum16ColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum16", "smallint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum16", enum16ColumnBase) - Dim enum16ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum16Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum16Array", enum16ArrayColumnBase) - Dim enum16AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum16AsString", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum16AsString", enum16AsStringColumnBase) - Dim enum16AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum16AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum16AsStringArray", enum16AsStringArrayColumnBase) - Dim enum16AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum16AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum16AsStringCollection", enum16AsStringCollectionColumnBase) - Dim enum16CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum16Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum16Collection", enum16CollectionColumnBase) - Dim enum32ColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum32", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum32", enum32ColumnBase) - Dim enum32ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum32Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum32Array", enum32ArrayColumnBase) - Dim enum32AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum32AsString", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum32AsString", enum32AsStringColumnBase) - Dim enum32AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum32AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum32AsStringArray", enum32AsStringArrayColumnBase) - Dim enum32AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum32AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum32AsStringCollection", enum32AsStringCollectionColumnBase) - Dim enum32CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum32Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum32Collection", enum32CollectionColumnBase) - Dim enum64ColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum64", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum64", enum64ColumnBase) - Dim enum64ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum64Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum64Array", enum64ArrayColumnBase) - Dim enum64AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum64AsString", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum64AsString", enum64AsStringColumnBase) - Dim enum64AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum64AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum64AsStringArray", enum64AsStringArrayColumnBase) - Dim enum64AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum64AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum64AsStringCollection", enum64AsStringCollectionColumnBase) - Dim enum64CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum64Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum64Collection", enum64CollectionColumnBase) - Dim enum8ColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum8", "smallint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum8", enum8ColumnBase) - Dim enum8ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum8Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum8Array", enum8ArrayColumnBase) - Dim enum8AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum8AsString", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum8AsString", enum8AsStringColumnBase) - Dim enum8AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum8AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum8AsStringArray", enum8AsStringArrayColumnBase) - Dim enum8AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum8AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum8AsStringCollection", enum8AsStringCollectionColumnBase) - Dim enum8CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum8Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum8Collection", enum8CollectionColumnBase) - Dim enumToNumberConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumToNumberConverterProperty", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumToNumberConverterProperty", enumToNumberConverterPropertyColumnBase) - Dim enumToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumToStringConverterProperty", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumToStringConverterProperty", enumToStringConverterPropertyColumnBase) - Dim enumU16ColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU16", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU16", enumU16ColumnBase) - Dim enumU16ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU16Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU16Array", enumU16ArrayColumnBase) - Dim enumU16AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU16AsString", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU16AsString", enumU16AsStringColumnBase) - Dim enumU16AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU16AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU16AsStringArray", enumU16AsStringArrayColumnBase) - Dim enumU16AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU16AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU16AsStringCollection", enumU16AsStringCollectionColumnBase) - Dim enumU16CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU16Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU16Collection", enumU16CollectionColumnBase) - Dim enumU32ColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU32", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU32", enumU32ColumnBase) - Dim enumU32ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU32Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU32Array", enumU32ArrayColumnBase) - Dim enumU32AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU32AsString", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU32AsString", enumU32AsStringColumnBase) - Dim enumU32AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU32AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU32AsStringArray", enumU32AsStringArrayColumnBase) - Dim enumU32AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU32AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU32AsStringCollection", enumU32AsStringCollectionColumnBase) - Dim enumU32CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU32Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU32Collection", enumU32CollectionColumnBase) - Dim enumU64ColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU64", "decimal(20,0)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU64", enumU64ColumnBase) - Dim enumU64ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU64Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU64Array", enumU64ArrayColumnBase) - Dim enumU64AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU64AsString", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU64AsString", enumU64AsStringColumnBase) - Dim enumU64AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU64AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU64AsStringArray", enumU64AsStringArrayColumnBase) - Dim enumU64AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU64AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU64AsStringCollection", enumU64AsStringCollectionColumnBase) - Dim enumU64CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU64Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU64Collection", enumU64CollectionColumnBase) - Dim enumU8ColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU8", "tinyint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU8", enumU8ColumnBase) - Dim enumU8ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU8Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU8Array", enumU8ArrayColumnBase) - Dim enumU8AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU8AsString", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU8AsString", enumU8AsStringColumnBase) - Dim enumU8AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU8AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU8AsStringArray", enumU8AsStringArrayColumnBase) - Dim enumU8AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU8AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU8AsStringCollection", enumU8AsStringCollectionColumnBase) - Dim enumU8CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU8Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU8Collection", enumU8CollectionColumnBase) - Dim floatArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("FloatArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("FloatArray", floatArrayColumnBase) - Dim guidColumnBase As New ColumnBase(Of ColumnMappingBase)("Guid", "uniqueidentifier", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Guid", guidColumnBase) - Dim guidArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("GuidArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("GuidArray", guidArrayColumnBase) - Dim guidToBytesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("GuidToBytesConverterProperty", "varbinary(16)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("GuidToBytesConverterProperty", guidToBytesConverterPropertyColumnBase) - Dim guidToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("GuidToStringConverterProperty", "nvarchar(36)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("GuidToStringConverterProperty", guidToStringConverterPropertyColumnBase) - Dim iPAddressArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("IPAddressArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("IPAddressArray", iPAddressArrayColumnBase) - Dim iPAddressToBytesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("IPAddressToBytesConverterProperty", "varbinary(16)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("IPAddressToBytesConverterProperty", iPAddressToBytesConverterPropertyColumnBase) - Dim iPAddressToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("IPAddressToStringConverterProperty", "nvarchar(45)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("IPAddressToStringConverterProperty", iPAddressToStringConverterPropertyColumnBase) - Dim idColumnBase0 As New ColumnBase(Of ColumnMappingBase)("Id", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Id", idColumnBase0) - Dim int16ColumnBase As New ColumnBase(Of ColumnMappingBase)("Int16", "smallint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Int16", int16ColumnBase) - Dim int16ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Int16Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Int16Array", int16ArrayColumnBase) - Dim int32ColumnBase As New ColumnBase(Of ColumnMappingBase)("Int32", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Int32", int32ColumnBase) - Dim int32ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Int32Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Int32Array", int32ArrayColumnBase) - Dim int64ColumnBase As New ColumnBase(Of ColumnMappingBase)("Int64", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Int64", int64ColumnBase) - Dim int64ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Int64Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Int64Array", int64ArrayColumnBase) - Dim int8ColumnBase As New ColumnBase(Of ColumnMappingBase)("Int8", "smallint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Int8", int8ColumnBase) - Dim int8ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Int8Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Int8Array", int8ArrayColumnBase) - Dim intNumberToBytesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("IntNumberToBytesConverterProperty", "varbinary(4)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("IntNumberToBytesConverterProperty", intNumberToBytesConverterPropertyColumnBase) - Dim intNumberToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("IntNumberToStringConverterProperty", "nvarchar(64)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("IntNumberToStringConverterProperty", intNumberToStringConverterPropertyColumnBase) - Dim nullIntToNullStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("NullIntToNullStringConverterProperty", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullIntToNullStringConverterProperty", nullIntToNullStringConverterPropertyColumnBase) - Dim nullableBoolColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableBool", "bit", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableBool", nullableBoolColumnBase) - Dim nullableBoolArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableBoolArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableBoolArray", nullableBoolArrayColumnBase) - Dim nullableBytesColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableBytes", "varbinary(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableBytes", nullableBytesColumnBase) - Dim nullableBytesArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableBytesArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableBytesArray", nullableBytesArrayColumnBase) - Dim nullableCharColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableChar", "nvarchar(1)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableChar", nullableCharColumnBase) - Dim nullableCharArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableCharArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableCharArray", nullableCharArrayColumnBase) - Dim nullableDateOnlyColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableDateOnly", "date", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableDateOnly", nullableDateOnlyColumnBase) - Dim nullableDateOnlyArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableDateOnlyArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableDateOnlyArray", nullableDateOnlyArrayColumnBase) - Dim nullableDateTimeColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableDateTime", "datetime2", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableDateTime", nullableDateTimeColumnBase) - Dim nullableDateTimeArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableDateTimeArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableDateTimeArray", nullableDateTimeArrayColumnBase) - Dim nullableDecimalColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableDecimal", "decimal(18,2)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableDecimal", nullableDecimalColumnBase) - Dim nullableDecimalArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableDecimalArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableDecimalArray", nullableDecimalArrayColumnBase) - Dim nullableDoubleColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableDouble", "float", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableDouble", nullableDoubleColumnBase) - Dim nullableDoubleArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableDoubleArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableDoubleArray", nullableDoubleArrayColumnBase) - Dim nullableEnum16ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum16", "smallint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum16", nullableEnum16ColumnBase) - Dim nullableEnum16ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum16Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum16Array", nullableEnum16ArrayColumnBase) - Dim nullableEnum16AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum16AsString", "smallint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum16AsString", nullableEnum16AsStringColumnBase) - Dim nullableEnum16AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum16AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum16AsStringArray", nullableEnum16AsStringArrayColumnBase) - Dim nullableEnum16AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum16AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum16AsStringCollection", nullableEnum16AsStringCollectionColumnBase) - Dim nullableEnum16CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum16Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum16Collection", nullableEnum16CollectionColumnBase) - Dim nullableEnum32ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum32", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum32", nullableEnum32ColumnBase) - Dim nullableEnum32ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum32Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum32Array", nullableEnum32ArrayColumnBase) - Dim nullableEnum32AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum32AsString", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum32AsString", nullableEnum32AsStringColumnBase) - Dim nullableEnum32AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum32AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum32AsStringArray", nullableEnum32AsStringArrayColumnBase) - Dim nullableEnum32AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum32AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum32AsStringCollection", nullableEnum32AsStringCollectionColumnBase) - Dim nullableEnum32CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum32Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum32Collection", nullableEnum32CollectionColumnBase) - Dim nullableEnum64ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum64", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum64", nullableEnum64ColumnBase) - Dim nullableEnum64ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum64Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum64Array", nullableEnum64ArrayColumnBase) - Dim nullableEnum64AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum64AsString", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum64AsString", nullableEnum64AsStringColumnBase) - Dim nullableEnum64AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum64AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum64AsStringArray", nullableEnum64AsStringArrayColumnBase) - Dim nullableEnum64AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum64AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum64AsStringCollection", nullableEnum64AsStringCollectionColumnBase) - Dim nullableEnum64CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum64Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum64Collection", nullableEnum64CollectionColumnBase) - Dim nullableEnum8ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum8", "smallint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum8", nullableEnum8ColumnBase) - Dim nullableEnum8ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum8Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum8Array", nullableEnum8ArrayColumnBase) - Dim nullableEnum8AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum8AsString", "smallint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum8AsString", nullableEnum8AsStringColumnBase) - Dim nullableEnum8AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum8AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum8AsStringArray", nullableEnum8AsStringArrayColumnBase) - Dim nullableEnum8AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum8AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum8AsStringCollection", nullableEnum8AsStringCollectionColumnBase) - Dim nullableEnum8CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum8Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum8Collection", nullableEnum8CollectionColumnBase) - Dim nullableEnumU16ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU16", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU16", nullableEnumU16ColumnBase) - Dim nullableEnumU16ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU16Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU16Array", nullableEnumU16ArrayColumnBase) - Dim nullableEnumU16AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU16AsString", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU16AsString", nullableEnumU16AsStringColumnBase) - Dim nullableEnumU16AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU16AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU16AsStringArray", nullableEnumU16AsStringArrayColumnBase) - Dim nullableEnumU16AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU16AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU16AsStringCollection", nullableEnumU16AsStringCollectionColumnBase) - Dim nullableEnumU16CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU16Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU16Collection", nullableEnumU16CollectionColumnBase) - Dim nullableEnumU32ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU32", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU32", nullableEnumU32ColumnBase) - Dim nullableEnumU32ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU32Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU32Array", nullableEnumU32ArrayColumnBase) - Dim nullableEnumU32AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU32AsString", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU32AsString", nullableEnumU32AsStringColumnBase) - Dim nullableEnumU32AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU32AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU32AsStringArray", nullableEnumU32AsStringArrayColumnBase) - Dim nullableEnumU32AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU32AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU32AsStringCollection", nullableEnumU32AsStringCollectionColumnBase) - Dim nullableEnumU32CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU32Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU32Collection", nullableEnumU32CollectionColumnBase) - Dim nullableEnumU64ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU64", "decimal(20,0)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU64", nullableEnumU64ColumnBase) - Dim nullableEnumU64ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU64Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU64Array", nullableEnumU64ArrayColumnBase) - Dim nullableEnumU64AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU64AsString", "decimal(20,0)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU64AsString", nullableEnumU64AsStringColumnBase) - Dim nullableEnumU64AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU64AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU64AsStringArray", nullableEnumU64AsStringArrayColumnBase) - Dim nullableEnumU64AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU64AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU64AsStringCollection", nullableEnumU64AsStringCollectionColumnBase) - Dim nullableEnumU64CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU64Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU64Collection", nullableEnumU64CollectionColumnBase) - Dim nullableEnumU8ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU8", "tinyint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU8", nullableEnumU8ColumnBase) - Dim nullableEnumU8ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU8Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU8Array", nullableEnumU8ArrayColumnBase) - Dim nullableEnumU8AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU8AsString", "tinyint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU8AsString", nullableEnumU8AsStringColumnBase) - Dim nullableEnumU8AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU8AsStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU8AsStringArray", nullableEnumU8AsStringArrayColumnBase) - Dim nullableEnumU8AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU8AsStringCollection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU8AsStringCollection", nullableEnumU8AsStringCollectionColumnBase) - Dim nullableEnumU8CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU8Collection", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU8Collection", nullableEnumU8CollectionColumnBase) - Dim nullableFloatColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableFloat", "real", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableFloat", nullableFloatColumnBase) - Dim nullableFloatArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableFloatArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableFloatArray", nullableFloatArrayColumnBase) - Dim nullableGuidColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableGuid", "uniqueidentifier", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableGuid", nullableGuidColumnBase) - Dim nullableGuidArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableGuidArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableGuidArray", nullableGuidArrayColumnBase) - Dim nullableIPAddressColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableIPAddress", "nvarchar(45)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableIPAddress", nullableIPAddressColumnBase) - Dim nullableIPAddressArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableIPAddressArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableIPAddressArray", nullableIPAddressArrayColumnBase) - Dim nullableInt16ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableInt16", "smallint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableInt16", nullableInt16ColumnBase) - Dim nullableInt16ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableInt16Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableInt16Array", nullableInt16ArrayColumnBase) - Dim nullableInt32ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableInt32", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableInt32", nullableInt32ColumnBase) - Dim nullableInt32ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableInt32Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableInt32Array", nullableInt32ArrayColumnBase) - Dim nullableInt64ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableInt64", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableInt64", nullableInt64ColumnBase) - Dim nullableInt64ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableInt64Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableInt64Array", nullableInt64ArrayColumnBase) - Dim nullableInt8ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableInt8", "smallint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableInt8", nullableInt8ColumnBase) - Dim nullableInt8ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableInt8Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableInt8Array", nullableInt8ArrayColumnBase) - Dim nullablePhysicalAddressColumnBase As New ColumnBase(Of ColumnMappingBase)("NullablePhysicalAddress", "nvarchar(20)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullablePhysicalAddress", nullablePhysicalAddressColumnBase) - Dim nullablePhysicalAddressArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullablePhysicalAddressArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullablePhysicalAddressArray", nullablePhysicalAddressArrayColumnBase) - Dim nullableStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableString", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableString", nullableStringColumnBase) - Dim nullableStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableStringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableStringArray", nullableStringArrayColumnBase) - Dim nullableTimeOnlyColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableTimeOnly", "time", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableTimeOnly", nullableTimeOnlyColumnBase) - Dim nullableTimeOnlyArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableTimeOnlyArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableTimeOnlyArray", nullableTimeOnlyArrayColumnBase) - Dim nullableTimeSpanColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableTimeSpan", "time", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableTimeSpan", nullableTimeSpanColumnBase) - Dim nullableTimeSpanArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableTimeSpanArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableTimeSpanArray", nullableTimeSpanArrayColumnBase) - Dim nullableUInt16ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUInt16", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUInt16", nullableUInt16ColumnBase) - Dim nullableUInt16ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUInt16Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUInt16Array", nullableUInt16ArrayColumnBase) - Dim nullableUInt32ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUInt32", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUInt32", nullableUInt32ColumnBase) - Dim nullableUInt32ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUInt32Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUInt32Array", nullableUInt32ArrayColumnBase) - Dim nullableUInt64ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUInt64", "decimal(20,0)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUInt64", nullableUInt64ColumnBase) - Dim nullableUInt64ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUInt64Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUInt64Array", nullableUInt64ArrayColumnBase) - Dim nullableUInt8ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUInt8", "tinyint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUInt8", nullableUInt8ColumnBase) - Dim nullableUInt8ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUInt8Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUInt8Array", nullableUInt8ArrayColumnBase) - Dim nullableUriColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUri", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUri", nullableUriColumnBase) - Dim nullableUriArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUriArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUriArray", nullableUriArrayColumnBase) - Dim physicalAddressArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("PhysicalAddressArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("PhysicalAddressArray", physicalAddressArrayColumnBase) - Dim physicalAddressToBytesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("PhysicalAddressToBytesConverterProperty", "varbinary(8)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("PhysicalAddressToBytesConverterProperty", physicalAddressToBytesConverterPropertyColumnBase) - Dim physicalAddressToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("PhysicalAddressToStringConverterProperty", "nvarchar(20)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("PhysicalAddressToStringConverterProperty", physicalAddressToStringConverterPropertyColumnBase) - Dim stringColumnBase As New ColumnBase(Of ColumnMappingBase)("String", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("String", stringColumnBase) - Dim stringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("StringArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringArray", stringArrayColumnBase) - Dim stringToBoolConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToBoolConverterProperty", "bit", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToBoolConverterProperty", stringToBoolConverterPropertyColumnBase) - Dim stringToBytesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToBytesConverterProperty", "varbinary(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToBytesConverterProperty", stringToBytesConverterPropertyColumnBase) - Dim stringToCharConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToCharConverterProperty", "nvarchar(1)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToCharConverterProperty", stringToCharConverterPropertyColumnBase) - Dim stringToDateOnlyConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToDateOnlyConverterProperty", "date", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToDateOnlyConverterProperty", stringToDateOnlyConverterPropertyColumnBase) - Dim stringToDateTimeConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToDateTimeConverterProperty", "datetime2", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToDateTimeConverterProperty", stringToDateTimeConverterPropertyColumnBase) - Dim stringToDateTimeOffsetConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToDateTimeOffsetConverterProperty", "datetimeoffset", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToDateTimeOffsetConverterProperty", stringToDateTimeOffsetConverterPropertyColumnBase) - Dim stringToDecimalNumberConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToDecimalNumberConverterProperty", "decimal(18,2)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToDecimalNumberConverterProperty", stringToDecimalNumberConverterPropertyColumnBase) - Dim stringToDoubleNumberConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToDoubleNumberConverterProperty", "float", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToDoubleNumberConverterProperty", stringToDoubleNumberConverterPropertyColumnBase) - Dim stringToEnumConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToEnumConverterProperty", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToEnumConverterProperty", stringToEnumConverterPropertyColumnBase) - Dim stringToGuidConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToGuidConverterProperty", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToGuidConverterProperty", stringToGuidConverterPropertyColumnBase) - Dim stringToIntNumberConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToIntNumberConverterProperty", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToIntNumberConverterProperty", stringToIntNumberConverterPropertyColumnBase) - Dim stringToTimeOnlyConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToTimeOnlyConverterProperty", "time", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToTimeOnlyConverterProperty", stringToTimeOnlyConverterPropertyColumnBase) - Dim stringToTimeSpanConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToTimeSpanConverterProperty", "time", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToTimeSpanConverterProperty", stringToTimeSpanConverterPropertyColumnBase) - Dim stringToUriConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToUriConverterProperty", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToUriConverterProperty", stringToUriConverterPropertyColumnBase) - Dim timeOnlyArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("TimeOnlyArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("TimeOnlyArray", timeOnlyArrayColumnBase) - Dim timeOnlyToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("TimeOnlyToStringConverterProperty", "nvarchar(48)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("TimeOnlyToStringConverterProperty", timeOnlyToStringConverterPropertyColumnBase) - Dim timeOnlyToTicksConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("TimeOnlyToTicksConverterProperty", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("TimeOnlyToTicksConverterProperty", timeOnlyToTicksConverterPropertyColumnBase) - Dim timeSpanArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("TimeSpanArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("TimeSpanArray", timeSpanArrayColumnBase) - Dim timeSpanToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("TimeSpanToStringConverterProperty", "nvarchar(48)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("TimeSpanToStringConverterProperty", timeSpanToStringConverterPropertyColumnBase) - Dim timeSpanToTicksConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("TimeSpanToTicksConverterProperty", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("TimeSpanToTicksConverterProperty", timeSpanToTicksConverterPropertyColumnBase) - Dim uInt16ColumnBase As New ColumnBase(Of ColumnMappingBase)("UInt16", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UInt16", uInt16ColumnBase) - Dim uInt16ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("UInt16Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UInt16Array", uInt16ArrayColumnBase) - Dim uInt32ColumnBase As New ColumnBase(Of ColumnMappingBase)("UInt32", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UInt32", uInt32ColumnBase) - Dim uInt32ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("UInt32Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UInt32Array", uInt32ArrayColumnBase) - Dim uInt64ColumnBase As New ColumnBase(Of ColumnMappingBase)("UInt64", "decimal(20,0)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UInt64", uInt64ColumnBase) - Dim uInt64ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("UInt64Array", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UInt64Array", uInt64ArrayColumnBase) - Dim uInt8ColumnBase As New ColumnBase(Of ColumnMappingBase)("UInt8", "tinyint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UInt8", uInt8ColumnBase) - Dim uInt8ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("UInt8Array", "varbinary(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UInt8Array", uInt8ArrayColumnBase) - Dim uriColumnBase As New ColumnBase(Of ColumnMappingBase)("Uri", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Uri", uriColumnBase) - Dim uriArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("UriArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UriArray", uriArrayColumnBase) - Dim uriToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("UriToStringConverterProperty", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UriToStringConverterProperty", uriToStringConverterPropertyColumnBase) - Dim aDateOnlyColumnBase As New ColumnBase(Of ColumnMappingBase)("aDateOnly", "date", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("aDateOnly", aDateOnlyColumnBase) - Dim aDateTimeColumnBase As New ColumnBase(Of ColumnMappingBase)("aDateTime", "datetime2", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("aDateTime", aDateTimeColumnBase) - Dim aFloatColumnBase As New ColumnBase(Of ColumnMappingBase)("aFloat", "real", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("aFloat", aFloatColumnBase) - Dim aPhysicalAddressColumnBase As New ColumnBase(Of ColumnMappingBase)("aPhysicalAddress", "nvarchar(20)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("aPhysicalAddress", aPhysicalAddressColumnBase) - Dim aTimeOnlyColumnBase As New ColumnBase(Of ColumnMappingBase)("aTimeOnly", "time", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("aTimeOnly", aTimeOnlyColumnBase) - Dim aTimeSpanColumnBase As New ColumnBase(Of ColumnMappingBase)("aTimeSpan", "time", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("aTimeSpan", aTimeSpanColumnBase) - Dim anIPAddressColumnBase As New ColumnBase(Of ColumnMappingBase)("anIPAddress", "nvarchar(45)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("anIPAddress", anIPAddressColumnBase) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+ManyTypes", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase As New TableMappingBase(Of ColumnMappingBase)(manyTypes, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase, False) - defaultTableMappings1.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase0, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(boolColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Bool"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(boolArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("BoolArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(boolToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("BoolToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(boolToTwoValuesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("BoolToTwoValuesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(boolToZeroOneConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("BoolToZeroOneConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(bytesColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Bytes"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(bytesArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("BytesArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(bytesToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("BytesToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(castingConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("CastingConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(charColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Char"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(charArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("CharArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(charToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("CharToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateOnlyArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateOnlyArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateOnlyToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateOnlyToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateTimeArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateTimeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateTimeOffsetToBinaryConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateTimeOffsetToBinaryConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateTimeOffsetToBytesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateTimeOffsetToBytesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateTimeOffsetToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateTimeOffsetToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateTimeToBinaryConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateTimeToBinaryConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateTimeToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateTimeToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateTimeToTicksConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateTimeToTicksConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(decimalColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Decimal"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(decimalArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DecimalArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(decimalNumberToBytesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DecimalNumberToBytesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(decimalNumberToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DecimalNumberToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(doubleColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Double"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(doubleArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DoubleArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(doubleNumberToBytesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DoubleNumberToBytesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(doubleNumberToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DoubleNumberToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum16ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum16"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum16ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum16Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum16AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum16AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum16AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum16AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum16AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum16AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum16CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum16Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum32ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum32"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum32ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum32Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum32AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum32AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum32AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum32AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum32AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum32AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum32CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum32Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum64ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum64"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum64ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum64Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum64AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum64AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum64AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum64AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum64AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum64AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum64CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum64Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum8ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum8"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum8ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum8Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum8AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum8AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum8AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum8AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum8AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum8AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum8CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum8Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumToNumberConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumToNumberConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU16ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU16"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU16ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU16Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU16AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU16AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU16AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU16AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU16AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU16AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU16CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU16Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU32ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU32"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU32ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU32Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU32AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU32AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU32AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU32AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU32AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU32AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU32CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU32Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU64ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU64"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU64ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU64Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU64AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU64AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU64AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU64AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU64AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU64AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU64CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU64Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU8ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU8"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU8ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU8Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU8AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU8AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU8AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU8AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU8AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU8AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU8CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU8Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(floatArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("FloatArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(guidColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Guid"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(guidArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("GuidArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(guidToBytesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("GuidToBytesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(guidToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("GuidToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(iPAddressArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("IPAddressArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(iPAddressToBytesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("IPAddressToBytesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(iPAddressToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("IPAddressToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(int16ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Int16"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(int16ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Int16Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(int32ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Int32"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(int32ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Int32Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(int64ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Int64"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(int64ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Int64Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(int8ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Int8"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(int8ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Int8Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(intNumberToBytesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("IntNumberToBytesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(intNumberToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("IntNumberToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullIntToNullStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullIntToNullStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableBoolColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableBool"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableBoolArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableBoolArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableBytesColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableBytes"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableBytesArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableBytesArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableCharColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableChar"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableCharArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableCharArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableDateOnlyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableDateOnly"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableDateOnlyArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableDateOnlyArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableDateTimeColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableDateTime"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableDateTimeArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableDateTimeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableDecimalColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableDecimal"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableDecimalArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableDecimalArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableDoubleColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableDouble"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableDoubleArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableDoubleArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum16ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum16"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum16ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum16Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum16AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum16AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum16AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum16AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum16AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum16AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum16CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum16Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum32ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum32"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum32ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum32Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum32AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum32AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum32AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum32AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum32AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum32AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum32CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum32Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum64ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum64"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum64ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum64Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum64AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum64AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum64AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum64AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum64AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum64AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum64CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum64Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum8ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum8"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum8ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum8Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum8AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum8AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum8AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum8AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum8AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum8AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum8CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum8Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU16ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU16"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU16ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU16Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU16AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU16AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU16AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU16AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU16AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU16AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU16CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU16Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU32ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU32"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU32ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU32Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU32AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU32AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU32AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU32AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU32AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU32AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU32CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU32Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU64ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU64"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU64ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU64Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU64AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU64AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU64AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU64AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU64AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU64AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU64CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU64Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU8ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU8"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU8ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU8Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU8AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU8AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU8AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU8AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU8AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU8AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU8CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU8Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableFloatColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableFloat"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableFloatArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableFloatArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableGuidColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableGuid"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableGuidArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableGuidArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableIPAddressColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableIPAddress"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableIPAddressArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableIPAddressArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableInt16ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableInt16"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableInt16ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableInt16Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableInt32ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableInt32"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableInt32ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableInt32Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableInt64ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableInt64"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableInt64ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableInt64Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableInt8ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableInt8"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableInt8ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableInt8Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullablePhysicalAddressColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullablePhysicalAddress"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullablePhysicalAddressArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullablePhysicalAddressArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableTimeOnlyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableTimeOnly"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableTimeOnlyArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableTimeOnlyArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableTimeSpanColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableTimeSpan"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableTimeSpanArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableTimeSpanArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUInt16ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUInt16"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUInt16ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUInt16Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUInt32ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUInt32"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUInt32ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUInt32Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUInt64ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUInt64"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUInt64ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUInt64Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUInt8ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUInt8"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUInt8ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUInt8Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUriColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUri"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUriArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUriArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(physicalAddressArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("PhysicalAddressArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(physicalAddressToBytesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("PhysicalAddressToBytesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(physicalAddressToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("PhysicalAddressToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("String"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToBoolConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToBoolConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToBytesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToBytesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToCharConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToCharConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToDateOnlyConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToDateOnlyConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToDateTimeConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToDateTimeConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToDateTimeOffsetConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToDateTimeOffsetConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToDecimalNumberConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToDecimalNumberConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToDoubleNumberConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToDoubleNumberConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToEnumConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToEnumConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToGuidConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToGuidConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToIntNumberConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToIntNumberConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToTimeOnlyConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToTimeOnlyConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToTimeSpanConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToTimeSpanConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToUriConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToUriConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(timeOnlyArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("TimeOnlyArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(timeOnlyToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("TimeOnlyToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(timeOnlyToTicksConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("TimeOnlyToTicksConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(timeSpanArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("TimeSpanArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(timeSpanToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("TimeSpanToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(timeSpanToTicksConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("TimeSpanToTicksConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uInt16ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UInt16"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uInt16ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UInt16Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uInt32ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UInt32"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uInt32ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UInt32Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uInt64ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UInt64"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uInt64ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UInt64Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uInt8ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UInt8"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uInt8ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UInt8Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uriColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Uri"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uriArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UriArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uriToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UriToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(aDateOnlyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("aDateOnly"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(aDateTimeColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("aDateTime"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(aFloatColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("aFloat"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(aPhysicalAddressColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("aPhysicalAddress"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(aTimeOnlyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("aTimeOnly"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(aTimeSpanColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("aTimeSpan"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(anIPAddressColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("anIPAddress"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - - Dim tableMappings1 As New List(Of TableMapping)() - manyTypes.SetRuntimeAnnotation("Relational:TableMappings", tableMappings1) - Dim manyTypesTable As New Table("ManyTypes", Nothing, relationalModel) - Dim idColumn0 As New Column("Id", "int", manyTypesTable) - manyTypesTable.Columns.Add("Id", idColumn0) - Dim boolColumn As New Column("Bool", "bit", manyTypesTable) - manyTypesTable.Columns.Add("Bool", boolColumn) - Dim boolArrayColumn As New Column("BoolArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("BoolArray", boolArrayColumn) - Dim boolToStringConverterPropertyColumn As New Column("BoolToStringConverterProperty", "nvarchar(1)", manyTypesTable) - manyTypesTable.Columns.Add("BoolToStringConverterProperty", boolToStringConverterPropertyColumn) - Dim boolToTwoValuesConverterPropertyColumn As New Column("BoolToTwoValuesConverterProperty", "tinyint", manyTypesTable) - manyTypesTable.Columns.Add("BoolToTwoValuesConverterProperty", boolToTwoValuesConverterPropertyColumn) - Dim boolToZeroOneConverterPropertyColumn As New Column("BoolToZeroOneConverterProperty", "smallint", manyTypesTable) - manyTypesTable.Columns.Add("BoolToZeroOneConverterProperty", boolToZeroOneConverterPropertyColumn) - Dim bytesColumn As New Column("Bytes", "varbinary(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Bytes", bytesColumn) - Dim bytesArrayColumn As New Column("BytesArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("BytesArray", bytesArrayColumn) - Dim bytesToStringConverterPropertyColumn As New Column("BytesToStringConverterProperty", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("BytesToStringConverterProperty", bytesToStringConverterPropertyColumn) - Dim castingConverterPropertyColumn As New Column("CastingConverterProperty", "decimal(18,2)", manyTypesTable) - manyTypesTable.Columns.Add("CastingConverterProperty", castingConverterPropertyColumn) - Dim charColumn As New Column("Char", "nvarchar(1)", manyTypesTable) - manyTypesTable.Columns.Add("Char", charColumn) - Dim charArrayColumn As New Column("CharArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("CharArray", charArrayColumn) - Dim charToStringConverterPropertyColumn As New Column("CharToStringConverterProperty", "nvarchar(1)", manyTypesTable) - manyTypesTable.Columns.Add("CharToStringConverterProperty", charToStringConverterPropertyColumn) - Dim dateOnlyArrayColumn As New Column("DateOnlyArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("DateOnlyArray", dateOnlyArrayColumn) - Dim dateOnlyToStringConverterPropertyColumn As New Column("DateOnlyToStringConverterProperty", "nvarchar(10)", manyTypesTable) - manyTypesTable.Columns.Add("DateOnlyToStringConverterProperty", dateOnlyToStringConverterPropertyColumn) - Dim dateTimeArrayColumn As New Column("DateTimeArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("DateTimeArray", dateTimeArrayColumn) - Dim dateTimeOffsetToBinaryConverterPropertyColumn As New Column("DateTimeOffsetToBinaryConverterProperty", "bigint", manyTypesTable) - manyTypesTable.Columns.Add("DateTimeOffsetToBinaryConverterProperty", dateTimeOffsetToBinaryConverterPropertyColumn) - Dim dateTimeOffsetToBytesConverterPropertyColumn As New Column("DateTimeOffsetToBytesConverterProperty", "varbinary(12)", manyTypesTable) - manyTypesTable.Columns.Add("DateTimeOffsetToBytesConverterProperty", dateTimeOffsetToBytesConverterPropertyColumn) - Dim dateTimeOffsetToStringConverterPropertyColumn As New Column("DateTimeOffsetToStringConverterProperty", "nvarchar(48)", manyTypesTable) - manyTypesTable.Columns.Add("DateTimeOffsetToStringConverterProperty", dateTimeOffsetToStringConverterPropertyColumn) - Dim dateTimeToBinaryConverterPropertyColumn As New Column("DateTimeToBinaryConverterProperty", "bigint", manyTypesTable) - manyTypesTable.Columns.Add("DateTimeToBinaryConverterProperty", dateTimeToBinaryConverterPropertyColumn) - Dim dateTimeToStringConverterPropertyColumn As New Column("DateTimeToStringConverterProperty", "nvarchar(48)", manyTypesTable) - manyTypesTable.Columns.Add("DateTimeToStringConverterProperty", dateTimeToStringConverterPropertyColumn) - Dim dateTimeToTicksConverterPropertyColumn As New Column("DateTimeToTicksConverterProperty", "datetime2", manyTypesTable) - manyTypesTable.Columns.Add("DateTimeToTicksConverterProperty", dateTimeToTicksConverterPropertyColumn) - Dim decimalColumn As New Column("Decimal", "decimal(18,2)", manyTypesTable) - manyTypesTable.Columns.Add("Decimal", decimalColumn) - Dim decimalArrayColumn As New Column("DecimalArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("DecimalArray", decimalArrayColumn) - Dim decimalNumberToBytesConverterPropertyColumn As New Column("DecimalNumberToBytesConverterProperty", "varbinary(16)", manyTypesTable) - manyTypesTable.Columns.Add("DecimalNumberToBytesConverterProperty", decimalNumberToBytesConverterPropertyColumn) - Dim decimalNumberToStringConverterPropertyColumn As New Column("DecimalNumberToStringConverterProperty", "nvarchar(64)", manyTypesTable) - manyTypesTable.Columns.Add("DecimalNumberToStringConverterProperty", decimalNumberToStringConverterPropertyColumn) - Dim doubleColumn As New Column("Double", "float", manyTypesTable) - manyTypesTable.Columns.Add("Double", doubleColumn) - Dim doubleArrayColumn As New Column("DoubleArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("DoubleArray", doubleArrayColumn) - Dim doubleNumberToBytesConverterPropertyColumn As New Column("DoubleNumberToBytesConverterProperty", "varbinary(8)", manyTypesTable) - manyTypesTable.Columns.Add("DoubleNumberToBytesConverterProperty", doubleNumberToBytesConverterPropertyColumn) - Dim doubleNumberToStringConverterPropertyColumn As New Column("DoubleNumberToStringConverterProperty", "nvarchar(64)", manyTypesTable) - manyTypesTable.Columns.Add("DoubleNumberToStringConverterProperty", doubleNumberToStringConverterPropertyColumn) - Dim enum16Column As New Column("Enum16", "smallint", manyTypesTable) - manyTypesTable.Columns.Add("Enum16", enum16Column) - Dim enum16ArrayColumn As New Column("Enum16Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum16Array", enum16ArrayColumn) - Dim enum16AsStringColumn As New Column("Enum16AsString", "nvarchar(max)", manyTypesTable) - manyTypesTable.Columns.Add("Enum16AsString", enum16AsStringColumn) - Dim enum16AsStringArrayColumn As New Column("Enum16AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum16AsStringArray", enum16AsStringArrayColumn) - Dim enum16AsStringCollectionColumn As New Column("Enum16AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum16AsStringCollection", enum16AsStringCollectionColumn) - Dim enum16CollectionColumn As New Column("Enum16Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum16Collection", enum16CollectionColumn) - Dim enum32Column As New Column("Enum32", "int", manyTypesTable) - manyTypesTable.Columns.Add("Enum32", enum32Column) - Dim enum32ArrayColumn As New Column("Enum32Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum32Array", enum32ArrayColumn) - Dim enum32AsStringColumn As New Column("Enum32AsString", "nvarchar(max)", manyTypesTable) - manyTypesTable.Columns.Add("Enum32AsString", enum32AsStringColumn) - Dim enum32AsStringArrayColumn As New Column("Enum32AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum32AsStringArray", enum32AsStringArrayColumn) - Dim enum32AsStringCollectionColumn As New Column("Enum32AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum32AsStringCollection", enum32AsStringCollectionColumn) - Dim enum32CollectionColumn As New Column("Enum32Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum32Collection", enum32CollectionColumn) - Dim enum64Column As New Column("Enum64", "bigint", manyTypesTable) - manyTypesTable.Columns.Add("Enum64", enum64Column) - Dim enum64ArrayColumn As New Column("Enum64Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum64Array", enum64ArrayColumn) - Dim enum64AsStringColumn As New Column("Enum64AsString", "nvarchar(max)", manyTypesTable) - manyTypesTable.Columns.Add("Enum64AsString", enum64AsStringColumn) - Dim enum64AsStringArrayColumn As New Column("Enum64AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum64AsStringArray", enum64AsStringArrayColumn) - Dim enum64AsStringCollectionColumn As New Column("Enum64AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum64AsStringCollection", enum64AsStringCollectionColumn) - Dim enum64CollectionColumn As New Column("Enum64Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum64Collection", enum64CollectionColumn) - Dim enum8Column As New Column("Enum8", "smallint", manyTypesTable) - manyTypesTable.Columns.Add("Enum8", enum8Column) - Dim enum8ArrayColumn As New Column("Enum8Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum8Array", enum8ArrayColumn) - Dim enum8AsStringColumn As New Column("Enum8AsString", "nvarchar(max)", manyTypesTable) - manyTypesTable.Columns.Add("Enum8AsString", enum8AsStringColumn) - Dim enum8AsStringArrayColumn As New Column("Enum8AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum8AsStringArray", enum8AsStringArrayColumn) - Dim enum8AsStringCollectionColumn As New Column("Enum8AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum8AsStringCollection", enum8AsStringCollectionColumn) - Dim enum8CollectionColumn As New Column("Enum8Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum8Collection", enum8CollectionColumn) - Dim enumToNumberConverterPropertyColumn As New Column("EnumToNumberConverterProperty", "int", manyTypesTable) - manyTypesTable.Columns.Add("EnumToNumberConverterProperty", enumToNumberConverterPropertyColumn) - Dim enumToStringConverterPropertyColumn As New Column("EnumToStringConverterProperty", "nvarchar(max)", manyTypesTable) - manyTypesTable.Columns.Add("EnumToStringConverterProperty", enumToStringConverterPropertyColumn) - Dim enumU16Column As New Column("EnumU16", "int", manyTypesTable) - manyTypesTable.Columns.Add("EnumU16", enumU16Column) - Dim enumU16ArrayColumn As New Column("EnumU16Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU16Array", enumU16ArrayColumn) - Dim enumU16AsStringColumn As New Column("EnumU16AsString", "nvarchar(max)", manyTypesTable) - manyTypesTable.Columns.Add("EnumU16AsString", enumU16AsStringColumn) - Dim enumU16AsStringArrayColumn As New Column("EnumU16AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU16AsStringArray", enumU16AsStringArrayColumn) - Dim enumU16AsStringCollectionColumn As New Column("EnumU16AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU16AsStringCollection", enumU16AsStringCollectionColumn) - Dim enumU16CollectionColumn As New Column("EnumU16Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU16Collection", enumU16CollectionColumn) - Dim enumU32Column As New Column("EnumU32", "bigint", manyTypesTable) - manyTypesTable.Columns.Add("EnumU32", enumU32Column) - Dim enumU32ArrayColumn As New Column("EnumU32Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU32Array", enumU32ArrayColumn) - Dim enumU32AsStringColumn As New Column("EnumU32AsString", "nvarchar(max)", manyTypesTable) - manyTypesTable.Columns.Add("EnumU32AsString", enumU32AsStringColumn) - Dim enumU32AsStringArrayColumn As New Column("EnumU32AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU32AsStringArray", enumU32AsStringArrayColumn) - Dim enumU32AsStringCollectionColumn As New Column("EnumU32AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU32AsStringCollection", enumU32AsStringCollectionColumn) - Dim enumU32CollectionColumn As New Column("EnumU32Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU32Collection", enumU32CollectionColumn) - Dim enumU64Column As New Column("EnumU64", "decimal(20,0)", manyTypesTable) - manyTypesTable.Columns.Add("EnumU64", enumU64Column) - Dim enumU64ArrayColumn As New Column("EnumU64Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU64Array", enumU64ArrayColumn) - Dim enumU64AsStringColumn As New Column("EnumU64AsString", "nvarchar(max)", manyTypesTable) - manyTypesTable.Columns.Add("EnumU64AsString", enumU64AsStringColumn) - Dim enumU64AsStringArrayColumn As New Column("EnumU64AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU64AsStringArray", enumU64AsStringArrayColumn) - Dim enumU64AsStringCollectionColumn As New Column("EnumU64AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU64AsStringCollection", enumU64AsStringCollectionColumn) - Dim enumU64CollectionColumn As New Column("EnumU64Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU64Collection", enumU64CollectionColumn) - Dim enumU8Column As New Column("EnumU8", "tinyint", manyTypesTable) - manyTypesTable.Columns.Add("EnumU8", enumU8Column) - Dim enumU8ArrayColumn As New Column("EnumU8Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU8Array", enumU8ArrayColumn) - Dim enumU8AsStringColumn As New Column("EnumU8AsString", "nvarchar(max)", manyTypesTable) - manyTypesTable.Columns.Add("EnumU8AsString", enumU8AsStringColumn) - Dim enumU8AsStringArrayColumn As New Column("EnumU8AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU8AsStringArray", enumU8AsStringArrayColumn) - Dim enumU8AsStringCollectionColumn As New Column("EnumU8AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU8AsStringCollection", enumU8AsStringCollectionColumn) - Dim enumU8CollectionColumn As New Column("EnumU8Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU8Collection", enumU8CollectionColumn) - Dim floatArrayColumn As New Column("FloatArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("FloatArray", floatArrayColumn) - Dim guidColumn As New Column("Guid", "uniqueidentifier", manyTypesTable) - manyTypesTable.Columns.Add("Guid", guidColumn) - Dim guidArrayColumn As New Column("GuidArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("GuidArray", guidArrayColumn) - Dim guidToBytesConverterPropertyColumn As New Column("GuidToBytesConverterProperty", "varbinary(16)", manyTypesTable) - manyTypesTable.Columns.Add("GuidToBytesConverterProperty", guidToBytesConverterPropertyColumn) - Dim guidToStringConverterPropertyColumn As New Column("GuidToStringConverterProperty", "nvarchar(36)", manyTypesTable) - manyTypesTable.Columns.Add("GuidToStringConverterProperty", guidToStringConverterPropertyColumn) - Dim iPAddressArrayColumn As New Column("IPAddressArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("IPAddressArray", iPAddressArrayColumn) - Dim iPAddressToBytesConverterPropertyColumn As New Column("IPAddressToBytesConverterProperty", "varbinary(16)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("IPAddressToBytesConverterProperty", iPAddressToBytesConverterPropertyColumn) - Dim iPAddressToStringConverterPropertyColumn As New Column("IPAddressToStringConverterProperty", "nvarchar(45)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("IPAddressToStringConverterProperty", iPAddressToStringConverterPropertyColumn) - Dim int16Column As New Column("Int16", "smallint", manyTypesTable) - manyTypesTable.Columns.Add("Int16", int16Column) - Dim int16ArrayColumn As New Column("Int16Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Int16Array", int16ArrayColumn) - Dim int32Column As New Column("Int32", "int", manyTypesTable) - manyTypesTable.Columns.Add("Int32", int32Column) - Dim int32ArrayColumn As New Column("Int32Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Int32Array", int32ArrayColumn) - Dim int64Column As New Column("Int64", "bigint", manyTypesTable) - manyTypesTable.Columns.Add("Int64", int64Column) - Dim int64ArrayColumn As New Column("Int64Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Int64Array", int64ArrayColumn) - Dim int8Column As New Column("Int8", "smallint", manyTypesTable) - manyTypesTable.Columns.Add("Int8", int8Column) - Dim int8ArrayColumn As New Column("Int8Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Int8Array", int8ArrayColumn) - Dim intNumberToBytesConverterPropertyColumn As New Column("IntNumberToBytesConverterProperty", "varbinary(4)", manyTypesTable) - manyTypesTable.Columns.Add("IntNumberToBytesConverterProperty", intNumberToBytesConverterPropertyColumn) - Dim intNumberToStringConverterPropertyColumn As New Column("IntNumberToStringConverterProperty", "nvarchar(64)", manyTypesTable) - manyTypesTable.Columns.Add("IntNumberToStringConverterProperty", intNumberToStringConverterPropertyColumn) - Dim nullIntToNullStringConverterPropertyColumn As New Column("NullIntToNullStringConverterProperty", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullIntToNullStringConverterProperty", nullIntToNullStringConverterPropertyColumn) - Dim nullableBoolColumn As New Column("NullableBool", "bit", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableBool", nullableBoolColumn) - Dim nullableBoolArrayColumn As New Column("NullableBoolArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableBoolArray", nullableBoolArrayColumn) - Dim nullableBytesColumn As New Column("NullableBytes", "varbinary(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableBytes", nullableBytesColumn) - Dim nullableBytesArrayColumn As New Column("NullableBytesArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableBytesArray", nullableBytesArrayColumn) - Dim nullableCharColumn As New Column("NullableChar", "nvarchar(1)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableChar", nullableCharColumn) - Dim nullableCharArrayColumn As New Column("NullableCharArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableCharArray", nullableCharArrayColumn) - Dim nullableDateOnlyColumn As New Column("NullableDateOnly", "date", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableDateOnly", nullableDateOnlyColumn) - Dim nullableDateOnlyArrayColumn As New Column("NullableDateOnlyArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableDateOnlyArray", nullableDateOnlyArrayColumn) - Dim nullableDateTimeColumn As New Column("NullableDateTime", "datetime2", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableDateTime", nullableDateTimeColumn) - Dim nullableDateTimeArrayColumn As New Column("NullableDateTimeArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableDateTimeArray", nullableDateTimeArrayColumn) - Dim nullableDecimalColumn As New Column("NullableDecimal", "decimal(18,2)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableDecimal", nullableDecimalColumn) - Dim nullableDecimalArrayColumn As New Column("NullableDecimalArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableDecimalArray", nullableDecimalArrayColumn) - Dim nullableDoubleColumn As New Column("NullableDouble", "float", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableDouble", nullableDoubleColumn) - Dim nullableDoubleArrayColumn As New Column("NullableDoubleArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableDoubleArray", nullableDoubleArrayColumn) - Dim nullableEnum16Column As New Column("NullableEnum16", "smallint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum16", nullableEnum16Column) - Dim nullableEnum16ArrayColumn As New Column("NullableEnum16Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum16Array", nullableEnum16ArrayColumn) - Dim nullableEnum16AsStringColumn As New Column("NullableEnum16AsString", "smallint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum16AsString", nullableEnum16AsStringColumn) - Dim nullableEnum16AsStringArrayColumn As New Column("NullableEnum16AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum16AsStringArray", nullableEnum16AsStringArrayColumn) - Dim nullableEnum16AsStringCollectionColumn As New Column("NullableEnum16AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum16AsStringCollection", nullableEnum16AsStringCollectionColumn) - Dim nullableEnum16CollectionColumn As New Column("NullableEnum16Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum16Collection", nullableEnum16CollectionColumn) - Dim nullableEnum32Column As New Column("NullableEnum32", "int", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum32", nullableEnum32Column) - Dim nullableEnum32ArrayColumn As New Column("NullableEnum32Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum32Array", nullableEnum32ArrayColumn) - Dim nullableEnum32AsStringColumn As New Column("NullableEnum32AsString", "int", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum32AsString", nullableEnum32AsStringColumn) - Dim nullableEnum32AsStringArrayColumn As New Column("NullableEnum32AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum32AsStringArray", nullableEnum32AsStringArrayColumn) - Dim nullableEnum32AsStringCollectionColumn As New Column("NullableEnum32AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum32AsStringCollection", nullableEnum32AsStringCollectionColumn) - Dim nullableEnum32CollectionColumn As New Column("NullableEnum32Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum32Collection", nullableEnum32CollectionColumn) - Dim nullableEnum64Column As New Column("NullableEnum64", "bigint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum64", nullableEnum64Column) - Dim nullableEnum64ArrayColumn As New Column("NullableEnum64Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum64Array", nullableEnum64ArrayColumn) - Dim nullableEnum64AsStringColumn As New Column("NullableEnum64AsString", "bigint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum64AsString", nullableEnum64AsStringColumn) - Dim nullableEnum64AsStringArrayColumn As New Column("NullableEnum64AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum64AsStringArray", nullableEnum64AsStringArrayColumn) - Dim nullableEnum64AsStringCollectionColumn As New Column("NullableEnum64AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum64AsStringCollection", nullableEnum64AsStringCollectionColumn) - Dim nullableEnum64CollectionColumn As New Column("NullableEnum64Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum64Collection", nullableEnum64CollectionColumn) - Dim nullableEnum8Column As New Column("NullableEnum8", "smallint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum8", nullableEnum8Column) - Dim nullableEnum8ArrayColumn As New Column("NullableEnum8Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum8Array", nullableEnum8ArrayColumn) - Dim nullableEnum8AsStringColumn As New Column("NullableEnum8AsString", "smallint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum8AsString", nullableEnum8AsStringColumn) - Dim nullableEnum8AsStringArrayColumn As New Column("NullableEnum8AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum8AsStringArray", nullableEnum8AsStringArrayColumn) - Dim nullableEnum8AsStringCollectionColumn As New Column("NullableEnum8AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum8AsStringCollection", nullableEnum8AsStringCollectionColumn) - Dim nullableEnum8CollectionColumn As New Column("NullableEnum8Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum8Collection", nullableEnum8CollectionColumn) - Dim nullableEnumU16Column As New Column("NullableEnumU16", "int", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU16", nullableEnumU16Column) - Dim nullableEnumU16ArrayColumn As New Column("NullableEnumU16Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU16Array", nullableEnumU16ArrayColumn) - Dim nullableEnumU16AsStringColumn As New Column("NullableEnumU16AsString", "int", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU16AsString", nullableEnumU16AsStringColumn) - Dim nullableEnumU16AsStringArrayColumn As New Column("NullableEnumU16AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU16AsStringArray", nullableEnumU16AsStringArrayColumn) - Dim nullableEnumU16AsStringCollectionColumn As New Column("NullableEnumU16AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU16AsStringCollection", nullableEnumU16AsStringCollectionColumn) - Dim nullableEnumU16CollectionColumn As New Column("NullableEnumU16Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU16Collection", nullableEnumU16CollectionColumn) - Dim nullableEnumU32Column As New Column("NullableEnumU32", "bigint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU32", nullableEnumU32Column) - Dim nullableEnumU32ArrayColumn As New Column("NullableEnumU32Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU32Array", nullableEnumU32ArrayColumn) - Dim nullableEnumU32AsStringColumn As New Column("NullableEnumU32AsString", "bigint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU32AsString", nullableEnumU32AsStringColumn) - Dim nullableEnumU32AsStringArrayColumn As New Column("NullableEnumU32AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU32AsStringArray", nullableEnumU32AsStringArrayColumn) - Dim nullableEnumU32AsStringCollectionColumn As New Column("NullableEnumU32AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU32AsStringCollection", nullableEnumU32AsStringCollectionColumn) - Dim nullableEnumU32CollectionColumn As New Column("NullableEnumU32Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU32Collection", nullableEnumU32CollectionColumn) - Dim nullableEnumU64Column As New Column("NullableEnumU64", "decimal(20,0)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU64", nullableEnumU64Column) - Dim nullableEnumU64ArrayColumn As New Column("NullableEnumU64Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU64Array", nullableEnumU64ArrayColumn) - Dim nullableEnumU64AsStringColumn As New Column("NullableEnumU64AsString", "decimal(20,0)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU64AsString", nullableEnumU64AsStringColumn) - Dim nullableEnumU64AsStringArrayColumn As New Column("NullableEnumU64AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU64AsStringArray", nullableEnumU64AsStringArrayColumn) - Dim nullableEnumU64AsStringCollectionColumn As New Column("NullableEnumU64AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU64AsStringCollection", nullableEnumU64AsStringCollectionColumn) - Dim nullableEnumU64CollectionColumn As New Column("NullableEnumU64Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU64Collection", nullableEnumU64CollectionColumn) - Dim nullableEnumU8Column As New Column("NullableEnumU8", "tinyint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU8", nullableEnumU8Column) - Dim nullableEnumU8ArrayColumn As New Column("NullableEnumU8Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU8Array", nullableEnumU8ArrayColumn) - Dim nullableEnumU8AsStringColumn As New Column("NullableEnumU8AsString", "tinyint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU8AsString", nullableEnumU8AsStringColumn) - Dim nullableEnumU8AsStringArrayColumn As New Column("NullableEnumU8AsStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU8AsStringArray", nullableEnumU8AsStringArrayColumn) - Dim nullableEnumU8AsStringCollectionColumn As New Column("NullableEnumU8AsStringCollection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU8AsStringCollection", nullableEnumU8AsStringCollectionColumn) - Dim nullableEnumU8CollectionColumn As New Column("NullableEnumU8Collection", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU8Collection", nullableEnumU8CollectionColumn) - Dim nullableFloatColumn As New Column("NullableFloat", "real", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableFloat", nullableFloatColumn) - Dim nullableFloatArrayColumn As New Column("NullableFloatArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableFloatArray", nullableFloatArrayColumn) - Dim nullableGuidColumn As New Column("NullableGuid", "uniqueidentifier", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableGuid", nullableGuidColumn) - Dim nullableGuidArrayColumn As New Column("NullableGuidArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableGuidArray", nullableGuidArrayColumn) - Dim nullableIPAddressColumn As New Column("NullableIPAddress", "nvarchar(45)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableIPAddress", nullableIPAddressColumn) - Dim nullableIPAddressArrayColumn As New Column("NullableIPAddressArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableIPAddressArray", nullableIPAddressArrayColumn) - Dim nullableInt16Column As New Column("NullableInt16", "smallint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableInt16", nullableInt16Column) - Dim nullableInt16ArrayColumn As New Column("NullableInt16Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableInt16Array", nullableInt16ArrayColumn) - Dim nullableInt32Column As New Column("NullableInt32", "int", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableInt32", nullableInt32Column) - Dim nullableInt32ArrayColumn As New Column("NullableInt32Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableInt32Array", nullableInt32ArrayColumn) - Dim nullableInt64Column As New Column("NullableInt64", "bigint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableInt64", nullableInt64Column) - Dim nullableInt64ArrayColumn As New Column("NullableInt64Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableInt64Array", nullableInt64ArrayColumn) - Dim nullableInt8Column As New Column("NullableInt8", "smallint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableInt8", nullableInt8Column) - Dim nullableInt8ArrayColumn As New Column("NullableInt8Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableInt8Array", nullableInt8ArrayColumn) - Dim nullablePhysicalAddressColumn As New Column("NullablePhysicalAddress", "nvarchar(20)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullablePhysicalAddress", nullablePhysicalAddressColumn) - Dim nullablePhysicalAddressArrayColumn As New Column("NullablePhysicalAddressArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullablePhysicalAddressArray", nullablePhysicalAddressArrayColumn) - Dim nullableStringColumn As New Column("NullableString", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableString", nullableStringColumn) - Dim nullableStringArrayColumn As New Column("NullableStringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableStringArray", nullableStringArrayColumn) - Dim nullableTimeOnlyColumn As New Column("NullableTimeOnly", "time", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableTimeOnly", nullableTimeOnlyColumn) - Dim nullableTimeOnlyArrayColumn As New Column("NullableTimeOnlyArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableTimeOnlyArray", nullableTimeOnlyArrayColumn) - Dim nullableTimeSpanColumn As New Column("NullableTimeSpan", "time", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableTimeSpan", nullableTimeSpanColumn) - Dim nullableTimeSpanArrayColumn As New Column("NullableTimeSpanArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableTimeSpanArray", nullableTimeSpanArrayColumn) - Dim nullableUInt16Column As New Column("NullableUInt16", "int", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUInt16", nullableUInt16Column) - Dim nullableUInt16ArrayColumn As New Column("NullableUInt16Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUInt16Array", nullableUInt16ArrayColumn) - Dim nullableUInt32Column As New Column("NullableUInt32", "bigint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUInt32", nullableUInt32Column) - Dim nullableUInt32ArrayColumn As New Column("NullableUInt32Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUInt32Array", nullableUInt32ArrayColumn) - Dim nullableUInt64Column As New Column("NullableUInt64", "decimal(20,0)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUInt64", nullableUInt64Column) - Dim nullableUInt64ArrayColumn As New Column("NullableUInt64Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUInt64Array", nullableUInt64ArrayColumn) - Dim nullableUInt8Column As New Column("NullableUInt8", "tinyint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUInt8", nullableUInt8Column) - Dim nullableUInt8ArrayColumn As New Column("NullableUInt8Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUInt8Array", nullableUInt8ArrayColumn) - Dim nullableUriColumn As New Column("NullableUri", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUri", nullableUriColumn) - Dim nullableUriArrayColumn As New Column("NullableUriArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUriArray", nullableUriArrayColumn) - Dim physicalAddressArrayColumn As New Column("PhysicalAddressArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("PhysicalAddressArray", physicalAddressArrayColumn) - Dim physicalAddressToBytesConverterPropertyColumn As New Column("PhysicalAddressToBytesConverterProperty", "varbinary(8)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("PhysicalAddressToBytesConverterProperty", physicalAddressToBytesConverterPropertyColumn) - Dim physicalAddressToStringConverterPropertyColumn As New Column("PhysicalAddressToStringConverterProperty", "nvarchar(20)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("PhysicalAddressToStringConverterProperty", physicalAddressToStringConverterPropertyColumn) - Dim stringColumn As New Column("String", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("String", stringColumn) - Dim stringArrayColumn As New Column("StringArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringArray", stringArrayColumn) - Dim stringToBoolConverterPropertyColumn As New Column("StringToBoolConverterProperty", "bit", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToBoolConverterProperty", stringToBoolConverterPropertyColumn) - Dim stringToBytesConverterPropertyColumn As New Column("StringToBytesConverterProperty", "varbinary(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToBytesConverterProperty", stringToBytesConverterPropertyColumn) - Dim stringToCharConverterPropertyColumn As New Column("StringToCharConverterProperty", "nvarchar(1)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToCharConverterProperty", stringToCharConverterPropertyColumn) - Dim stringToDateOnlyConverterPropertyColumn As New Column("StringToDateOnlyConverterProperty", "date", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToDateOnlyConverterProperty", stringToDateOnlyConverterPropertyColumn) - Dim stringToDateTimeConverterPropertyColumn As New Column("StringToDateTimeConverterProperty", "datetime2", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToDateTimeConverterProperty", stringToDateTimeConverterPropertyColumn) - Dim stringToDateTimeOffsetConverterPropertyColumn As New Column("StringToDateTimeOffsetConverterProperty", "datetimeoffset", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToDateTimeOffsetConverterProperty", stringToDateTimeOffsetConverterPropertyColumn) - Dim stringToDecimalNumberConverterPropertyColumn As New Column("StringToDecimalNumberConverterProperty", "decimal(18,2)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToDecimalNumberConverterProperty", stringToDecimalNumberConverterPropertyColumn) - Dim stringToDoubleNumberConverterPropertyColumn As New Column("StringToDoubleNumberConverterProperty", "float", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToDoubleNumberConverterProperty", stringToDoubleNumberConverterPropertyColumn) - Dim stringToEnumConverterPropertyColumn As New Column("StringToEnumConverterProperty", "bigint", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToEnumConverterProperty", stringToEnumConverterPropertyColumn) - Dim stringToGuidConverterPropertyColumn As New Column("StringToGuidConverterProperty", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToGuidConverterProperty", stringToGuidConverterPropertyColumn) - Dim stringToIntNumberConverterPropertyColumn As New Column("StringToIntNumberConverterProperty", "int", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToIntNumberConverterProperty", stringToIntNumberConverterPropertyColumn) - Dim stringToTimeOnlyConverterPropertyColumn As New Column("StringToTimeOnlyConverterProperty", "time", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToTimeOnlyConverterProperty", stringToTimeOnlyConverterPropertyColumn) - Dim stringToTimeSpanConverterPropertyColumn As New Column("StringToTimeSpanConverterProperty", "time", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToTimeSpanConverterProperty", stringToTimeSpanConverterPropertyColumn) - Dim stringToUriConverterPropertyColumn As New Column("StringToUriConverterProperty", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToUriConverterProperty", stringToUriConverterPropertyColumn) - Dim timeOnlyArrayColumn As New Column("TimeOnlyArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("TimeOnlyArray", timeOnlyArrayColumn) - Dim timeOnlyToStringConverterPropertyColumn As New Column("TimeOnlyToStringConverterProperty", "nvarchar(48)", manyTypesTable) - manyTypesTable.Columns.Add("TimeOnlyToStringConverterProperty", timeOnlyToStringConverterPropertyColumn) - Dim timeOnlyToTicksConverterPropertyColumn As New Column("TimeOnlyToTicksConverterProperty", "bigint", manyTypesTable) - manyTypesTable.Columns.Add("TimeOnlyToTicksConverterProperty", timeOnlyToTicksConverterPropertyColumn) - Dim timeSpanArrayColumn As New Column("TimeSpanArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("TimeSpanArray", timeSpanArrayColumn) - Dim timeSpanToStringConverterPropertyColumn As New Column("TimeSpanToStringConverterProperty", "nvarchar(48)", manyTypesTable) - manyTypesTable.Columns.Add("TimeSpanToStringConverterProperty", timeSpanToStringConverterPropertyColumn) - Dim timeSpanToTicksConverterPropertyColumn As New Column("TimeSpanToTicksConverterProperty", "bigint", manyTypesTable) - manyTypesTable.Columns.Add("TimeSpanToTicksConverterProperty", timeSpanToTicksConverterPropertyColumn) - Dim uInt16Column As New Column("UInt16", "int", manyTypesTable) - manyTypesTable.Columns.Add("UInt16", uInt16Column) - Dim uInt16ArrayColumn As New Column("UInt16Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("UInt16Array", uInt16ArrayColumn) - Dim uInt32Column As New Column("UInt32", "bigint", manyTypesTable) - manyTypesTable.Columns.Add("UInt32", uInt32Column) - Dim uInt32ArrayColumn As New Column("UInt32Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("UInt32Array", uInt32ArrayColumn) - Dim uInt64Column As New Column("UInt64", "decimal(20,0)", manyTypesTable) - manyTypesTable.Columns.Add("UInt64", uInt64Column) - Dim uInt64ArrayColumn As New Column("UInt64Array", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("UInt64Array", uInt64ArrayColumn) - Dim uInt8Column As New Column("UInt8", "tinyint", manyTypesTable) - manyTypesTable.Columns.Add("UInt8", uInt8Column) - Dim uInt8ArrayColumn As New Column("UInt8Array", "varbinary(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("UInt8Array", uInt8ArrayColumn) - Dim uriColumn As New Column("Uri", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Uri", uriColumn) - Dim uriArrayColumn As New Column("UriArray", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("UriArray", uriArrayColumn) - Dim uriToStringConverterPropertyColumn As New Column("UriToStringConverterProperty", "nvarchar(max)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("UriToStringConverterProperty", uriToStringConverterPropertyColumn) - Dim aDateOnlyColumn As New Column("aDateOnly", "date", manyTypesTable) - manyTypesTable.Columns.Add("aDateOnly", aDateOnlyColumn) - Dim aDateTimeColumn As New Column("aDateTime", "datetime2", manyTypesTable) - manyTypesTable.Columns.Add("aDateTime", aDateTimeColumn) - Dim aFloatColumn As New Column("aFloat", "real", manyTypesTable) - manyTypesTable.Columns.Add("aFloat", aFloatColumn) - Dim aPhysicalAddressColumn As New Column("aPhysicalAddress", "nvarchar(20)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("aPhysicalAddress", aPhysicalAddressColumn) - Dim aTimeOnlyColumn As New Column("aTimeOnly", "time", manyTypesTable) - manyTypesTable.Columns.Add("aTimeOnly", aTimeOnlyColumn) - Dim aTimeSpanColumn As New Column("aTimeSpan", "time", manyTypesTable) - manyTypesTable.Columns.Add("aTimeSpan", aTimeSpanColumn) - Dim anIPAddressColumn As New Column("anIPAddress", "nvarchar(45)", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("anIPAddress", anIPAddressColumn) - Dim pK_ManyTypes As New UniqueConstraint("PK_ManyTypes", manyTypesTable, {idColumn0}) - manyTypesTable.PrimaryKey = pK_ManyTypes - Dim pK_ManyTypesUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+ManyTypes", - {"Id"}) - pK_ManyTypes.MappedKeys.Add(pK_ManyTypesUc) - RelationalModel.GetOrCreateUniqueConstraints(pK_ManyTypesUc).Add(pK_ManyTypes) - manyTypesTable.UniqueConstraints.Add("PK_ManyTypes", pK_ManyTypes) - relationalModel.Tables.Add(("ManyTypes", Nothing), manyTypesTable) - Dim manyTypesTableMapping As New TableMapping(manyTypes, manyTypesTable, True) - manyTypesTable.AddTypeMapping(manyTypesTableMapping, False) - tableMappings1.Add(manyTypesTableMapping) - RelationalModel.CreateColumnMapping(idColumn0, manyTypes.FindProperty("Id"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(boolColumn, manyTypes.FindProperty("Bool"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(boolArrayColumn, manyTypes.FindProperty("BoolArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(boolToStringConverterPropertyColumn, manyTypes.FindProperty("BoolToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(boolToTwoValuesConverterPropertyColumn, manyTypes.FindProperty("BoolToTwoValuesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(boolToZeroOneConverterPropertyColumn, manyTypes.FindProperty("BoolToZeroOneConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(bytesColumn, manyTypes.FindProperty("Bytes"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(bytesArrayColumn, manyTypes.FindProperty("BytesArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(bytesToStringConverterPropertyColumn, manyTypes.FindProperty("BytesToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(castingConverterPropertyColumn, manyTypes.FindProperty("CastingConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(charColumn, manyTypes.FindProperty("Char"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(charArrayColumn, manyTypes.FindProperty("CharArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(charToStringConverterPropertyColumn, manyTypes.FindProperty("CharToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateOnlyArrayColumn, manyTypes.FindProperty("DateOnlyArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateOnlyToStringConverterPropertyColumn, manyTypes.FindProperty("DateOnlyToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateTimeArrayColumn, manyTypes.FindProperty("DateTimeArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateTimeOffsetToBinaryConverterPropertyColumn, manyTypes.FindProperty("DateTimeOffsetToBinaryConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateTimeOffsetToBytesConverterPropertyColumn, manyTypes.FindProperty("DateTimeOffsetToBytesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateTimeOffsetToStringConverterPropertyColumn, manyTypes.FindProperty("DateTimeOffsetToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateTimeToBinaryConverterPropertyColumn, manyTypes.FindProperty("DateTimeToBinaryConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateTimeToStringConverterPropertyColumn, manyTypes.FindProperty("DateTimeToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateTimeToTicksConverterPropertyColumn, manyTypes.FindProperty("DateTimeToTicksConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(decimalColumn, manyTypes.FindProperty("Decimal"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(decimalArrayColumn, manyTypes.FindProperty("DecimalArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(decimalNumberToBytesConverterPropertyColumn, manyTypes.FindProperty("DecimalNumberToBytesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(decimalNumberToStringConverterPropertyColumn, manyTypes.FindProperty("DecimalNumberToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(doubleColumn, manyTypes.FindProperty("Double"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(doubleArrayColumn, manyTypes.FindProperty("DoubleArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(doubleNumberToBytesConverterPropertyColumn, manyTypes.FindProperty("DoubleNumberToBytesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(doubleNumberToStringConverterPropertyColumn, manyTypes.FindProperty("DoubleNumberToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum16Column, manyTypes.FindProperty("Enum16"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum16ArrayColumn, manyTypes.FindProperty("Enum16Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum16AsStringColumn, manyTypes.FindProperty("Enum16AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum16AsStringArrayColumn, manyTypes.FindProperty("Enum16AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum16AsStringCollectionColumn, manyTypes.FindProperty("Enum16AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum16CollectionColumn, manyTypes.FindProperty("Enum16Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum32Column, manyTypes.FindProperty("Enum32"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum32ArrayColumn, manyTypes.FindProperty("Enum32Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum32AsStringColumn, manyTypes.FindProperty("Enum32AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum32AsStringArrayColumn, manyTypes.FindProperty("Enum32AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum32AsStringCollectionColumn, manyTypes.FindProperty("Enum32AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum32CollectionColumn, manyTypes.FindProperty("Enum32Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum64Column, manyTypes.FindProperty("Enum64"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum64ArrayColumn, manyTypes.FindProperty("Enum64Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum64AsStringColumn, manyTypes.FindProperty("Enum64AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum64AsStringArrayColumn, manyTypes.FindProperty("Enum64AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum64AsStringCollectionColumn, manyTypes.FindProperty("Enum64AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum64CollectionColumn, manyTypes.FindProperty("Enum64Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum8Column, manyTypes.FindProperty("Enum8"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum8ArrayColumn, manyTypes.FindProperty("Enum8Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum8AsStringColumn, manyTypes.FindProperty("Enum8AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum8AsStringArrayColumn, manyTypes.FindProperty("Enum8AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum8AsStringCollectionColumn, manyTypes.FindProperty("Enum8AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum8CollectionColumn, manyTypes.FindProperty("Enum8Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumToNumberConverterPropertyColumn, manyTypes.FindProperty("EnumToNumberConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumToStringConverterPropertyColumn, manyTypes.FindProperty("EnumToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU16Column, manyTypes.FindProperty("EnumU16"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU16ArrayColumn, manyTypes.FindProperty("EnumU16Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU16AsStringColumn, manyTypes.FindProperty("EnumU16AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU16AsStringArrayColumn, manyTypes.FindProperty("EnumU16AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU16AsStringCollectionColumn, manyTypes.FindProperty("EnumU16AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU16CollectionColumn, manyTypes.FindProperty("EnumU16Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU32Column, manyTypes.FindProperty("EnumU32"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU32ArrayColumn, manyTypes.FindProperty("EnumU32Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU32AsStringColumn, manyTypes.FindProperty("EnumU32AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU32AsStringArrayColumn, manyTypes.FindProperty("EnumU32AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU32AsStringCollectionColumn, manyTypes.FindProperty("EnumU32AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU32CollectionColumn, manyTypes.FindProperty("EnumU32Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU64Column, manyTypes.FindProperty("EnumU64"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU64ArrayColumn, manyTypes.FindProperty("EnumU64Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU64AsStringColumn, manyTypes.FindProperty("EnumU64AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU64AsStringArrayColumn, manyTypes.FindProperty("EnumU64AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU64AsStringCollectionColumn, manyTypes.FindProperty("EnumU64AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU64CollectionColumn, manyTypes.FindProperty("EnumU64Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU8Column, manyTypes.FindProperty("EnumU8"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU8ArrayColumn, manyTypes.FindProperty("EnumU8Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU8AsStringColumn, manyTypes.FindProperty("EnumU8AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU8AsStringArrayColumn, manyTypes.FindProperty("EnumU8AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU8AsStringCollectionColumn, manyTypes.FindProperty("EnumU8AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU8CollectionColumn, manyTypes.FindProperty("EnumU8Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(floatArrayColumn, manyTypes.FindProperty("FloatArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(guidColumn, manyTypes.FindProperty("Guid"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(guidArrayColumn, manyTypes.FindProperty("GuidArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(guidToBytesConverterPropertyColumn, manyTypes.FindProperty("GuidToBytesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(guidToStringConverterPropertyColumn, manyTypes.FindProperty("GuidToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(iPAddressArrayColumn, manyTypes.FindProperty("IPAddressArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(iPAddressToBytesConverterPropertyColumn, manyTypes.FindProperty("IPAddressToBytesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(iPAddressToStringConverterPropertyColumn, manyTypes.FindProperty("IPAddressToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(int16Column, manyTypes.FindProperty("Int16"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(int16ArrayColumn, manyTypes.FindProperty("Int16Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(int32Column, manyTypes.FindProperty("Int32"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(int32ArrayColumn, manyTypes.FindProperty("Int32Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(int64Column, manyTypes.FindProperty("Int64"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(int64ArrayColumn, manyTypes.FindProperty("Int64Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(int8Column, manyTypes.FindProperty("Int8"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(int8ArrayColumn, manyTypes.FindProperty("Int8Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(intNumberToBytesConverterPropertyColumn, manyTypes.FindProperty("IntNumberToBytesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(intNumberToStringConverterPropertyColumn, manyTypes.FindProperty("IntNumberToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullIntToNullStringConverterPropertyColumn, manyTypes.FindProperty("NullIntToNullStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableBoolColumn, manyTypes.FindProperty("NullableBool"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableBoolArrayColumn, manyTypes.FindProperty("NullableBoolArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableBytesColumn, manyTypes.FindProperty("NullableBytes"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableBytesArrayColumn, manyTypes.FindProperty("NullableBytesArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableCharColumn, manyTypes.FindProperty("NullableChar"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableCharArrayColumn, manyTypes.FindProperty("NullableCharArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableDateOnlyColumn, manyTypes.FindProperty("NullableDateOnly"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableDateOnlyArrayColumn, manyTypes.FindProperty("NullableDateOnlyArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableDateTimeColumn, manyTypes.FindProperty("NullableDateTime"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableDateTimeArrayColumn, manyTypes.FindProperty("NullableDateTimeArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableDecimalColumn, manyTypes.FindProperty("NullableDecimal"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableDecimalArrayColumn, manyTypes.FindProperty("NullableDecimalArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableDoubleColumn, manyTypes.FindProperty("NullableDouble"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableDoubleArrayColumn, manyTypes.FindProperty("NullableDoubleArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum16Column, manyTypes.FindProperty("NullableEnum16"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum16ArrayColumn, manyTypes.FindProperty("NullableEnum16Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum16AsStringColumn, manyTypes.FindProperty("NullableEnum16AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum16AsStringArrayColumn, manyTypes.FindProperty("NullableEnum16AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum16AsStringCollectionColumn, manyTypes.FindProperty("NullableEnum16AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum16CollectionColumn, manyTypes.FindProperty("NullableEnum16Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum32Column, manyTypes.FindProperty("NullableEnum32"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum32ArrayColumn, manyTypes.FindProperty("NullableEnum32Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum32AsStringColumn, manyTypes.FindProperty("NullableEnum32AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum32AsStringArrayColumn, manyTypes.FindProperty("NullableEnum32AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum32AsStringCollectionColumn, manyTypes.FindProperty("NullableEnum32AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum32CollectionColumn, manyTypes.FindProperty("NullableEnum32Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum64Column, manyTypes.FindProperty("NullableEnum64"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum64ArrayColumn, manyTypes.FindProperty("NullableEnum64Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum64AsStringColumn, manyTypes.FindProperty("NullableEnum64AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum64AsStringArrayColumn, manyTypes.FindProperty("NullableEnum64AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum64AsStringCollectionColumn, manyTypes.FindProperty("NullableEnum64AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum64CollectionColumn, manyTypes.FindProperty("NullableEnum64Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum8Column, manyTypes.FindProperty("NullableEnum8"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum8ArrayColumn, manyTypes.FindProperty("NullableEnum8Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum8AsStringColumn, manyTypes.FindProperty("NullableEnum8AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum8AsStringArrayColumn, manyTypes.FindProperty("NullableEnum8AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum8AsStringCollectionColumn, manyTypes.FindProperty("NullableEnum8AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum8CollectionColumn, manyTypes.FindProperty("NullableEnum8Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU16Column, manyTypes.FindProperty("NullableEnumU16"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU16ArrayColumn, manyTypes.FindProperty("NullableEnumU16Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU16AsStringColumn, manyTypes.FindProperty("NullableEnumU16AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU16AsStringArrayColumn, manyTypes.FindProperty("NullableEnumU16AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU16AsStringCollectionColumn, manyTypes.FindProperty("NullableEnumU16AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU16CollectionColumn, manyTypes.FindProperty("NullableEnumU16Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU32Column, manyTypes.FindProperty("NullableEnumU32"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU32ArrayColumn, manyTypes.FindProperty("NullableEnumU32Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU32AsStringColumn, manyTypes.FindProperty("NullableEnumU32AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU32AsStringArrayColumn, manyTypes.FindProperty("NullableEnumU32AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU32AsStringCollectionColumn, manyTypes.FindProperty("NullableEnumU32AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU32CollectionColumn, manyTypes.FindProperty("NullableEnumU32Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU64Column, manyTypes.FindProperty("NullableEnumU64"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU64ArrayColumn, manyTypes.FindProperty("NullableEnumU64Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU64AsStringColumn, manyTypes.FindProperty("NullableEnumU64AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU64AsStringArrayColumn, manyTypes.FindProperty("NullableEnumU64AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU64AsStringCollectionColumn, manyTypes.FindProperty("NullableEnumU64AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU64CollectionColumn, manyTypes.FindProperty("NullableEnumU64Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU8Column, manyTypes.FindProperty("NullableEnumU8"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU8ArrayColumn, manyTypes.FindProperty("NullableEnumU8Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU8AsStringColumn, manyTypes.FindProperty("NullableEnumU8AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU8AsStringArrayColumn, manyTypes.FindProperty("NullableEnumU8AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU8AsStringCollectionColumn, manyTypes.FindProperty("NullableEnumU8AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU8CollectionColumn, manyTypes.FindProperty("NullableEnumU8Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableFloatColumn, manyTypes.FindProperty("NullableFloat"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableFloatArrayColumn, manyTypes.FindProperty("NullableFloatArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableGuidColumn, manyTypes.FindProperty("NullableGuid"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableGuidArrayColumn, manyTypes.FindProperty("NullableGuidArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableIPAddressColumn, manyTypes.FindProperty("NullableIPAddress"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableIPAddressArrayColumn, manyTypes.FindProperty("NullableIPAddressArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableInt16Column, manyTypes.FindProperty("NullableInt16"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableInt16ArrayColumn, manyTypes.FindProperty("NullableInt16Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableInt32Column, manyTypes.FindProperty("NullableInt32"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableInt32ArrayColumn, manyTypes.FindProperty("NullableInt32Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableInt64Column, manyTypes.FindProperty("NullableInt64"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableInt64ArrayColumn, manyTypes.FindProperty("NullableInt64Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableInt8Column, manyTypes.FindProperty("NullableInt8"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableInt8ArrayColumn, manyTypes.FindProperty("NullableInt8Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullablePhysicalAddressColumn, manyTypes.FindProperty("NullablePhysicalAddress"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullablePhysicalAddressArrayColumn, manyTypes.FindProperty("NullablePhysicalAddressArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableStringColumn, manyTypes.FindProperty("NullableString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableStringArrayColumn, manyTypes.FindProperty("NullableStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableTimeOnlyColumn, manyTypes.FindProperty("NullableTimeOnly"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableTimeOnlyArrayColumn, manyTypes.FindProperty("NullableTimeOnlyArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableTimeSpanColumn, manyTypes.FindProperty("NullableTimeSpan"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableTimeSpanArrayColumn, manyTypes.FindProperty("NullableTimeSpanArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUInt16Column, manyTypes.FindProperty("NullableUInt16"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUInt16ArrayColumn, manyTypes.FindProperty("NullableUInt16Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUInt32Column, manyTypes.FindProperty("NullableUInt32"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUInt32ArrayColumn, manyTypes.FindProperty("NullableUInt32Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUInt64Column, manyTypes.FindProperty("NullableUInt64"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUInt64ArrayColumn, manyTypes.FindProperty("NullableUInt64Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUInt8Column, manyTypes.FindProperty("NullableUInt8"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUInt8ArrayColumn, manyTypes.FindProperty("NullableUInt8Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUriColumn, manyTypes.FindProperty("NullableUri"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUriArrayColumn, manyTypes.FindProperty("NullableUriArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(physicalAddressArrayColumn, manyTypes.FindProperty("PhysicalAddressArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(physicalAddressToBytesConverterPropertyColumn, manyTypes.FindProperty("PhysicalAddressToBytesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(physicalAddressToStringConverterPropertyColumn, manyTypes.FindProperty("PhysicalAddressToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringColumn, manyTypes.FindProperty("String"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringArrayColumn, manyTypes.FindProperty("StringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToBoolConverterPropertyColumn, manyTypes.FindProperty("StringToBoolConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToBytesConverterPropertyColumn, manyTypes.FindProperty("StringToBytesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToCharConverterPropertyColumn, manyTypes.FindProperty("StringToCharConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToDateOnlyConverterPropertyColumn, manyTypes.FindProperty("StringToDateOnlyConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToDateTimeConverterPropertyColumn, manyTypes.FindProperty("StringToDateTimeConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToDateTimeOffsetConverterPropertyColumn, manyTypes.FindProperty("StringToDateTimeOffsetConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToDecimalNumberConverterPropertyColumn, manyTypes.FindProperty("StringToDecimalNumberConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToDoubleNumberConverterPropertyColumn, manyTypes.FindProperty("StringToDoubleNumberConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToEnumConverterPropertyColumn, manyTypes.FindProperty("StringToEnumConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToGuidConverterPropertyColumn, manyTypes.FindProperty("StringToGuidConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToIntNumberConverterPropertyColumn, manyTypes.FindProperty("StringToIntNumberConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToTimeOnlyConverterPropertyColumn, manyTypes.FindProperty("StringToTimeOnlyConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToTimeSpanConverterPropertyColumn, manyTypes.FindProperty("StringToTimeSpanConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToUriConverterPropertyColumn, manyTypes.FindProperty("StringToUriConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(timeOnlyArrayColumn, manyTypes.FindProperty("TimeOnlyArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(timeOnlyToStringConverterPropertyColumn, manyTypes.FindProperty("TimeOnlyToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(timeOnlyToTicksConverterPropertyColumn, manyTypes.FindProperty("TimeOnlyToTicksConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(timeSpanArrayColumn, manyTypes.FindProperty("TimeSpanArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(timeSpanToStringConverterPropertyColumn, manyTypes.FindProperty("TimeSpanToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(timeSpanToTicksConverterPropertyColumn, manyTypes.FindProperty("TimeSpanToTicksConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uInt16Column, manyTypes.FindProperty("UInt16"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uInt16ArrayColumn, manyTypes.FindProperty("UInt16Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uInt32Column, manyTypes.FindProperty("UInt32"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uInt32ArrayColumn, manyTypes.FindProperty("UInt32Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uInt64Column, manyTypes.FindProperty("UInt64"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uInt64ArrayColumn, manyTypes.FindProperty("UInt64Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uInt8Column, manyTypes.FindProperty("UInt8"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uInt8ArrayColumn, manyTypes.FindProperty("UInt8Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uriColumn, manyTypes.FindProperty("Uri"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uriArrayColumn, manyTypes.FindProperty("UriArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uriToStringConverterPropertyColumn, manyTypes.FindProperty("UriToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(aDateOnlyColumn, manyTypes.FindProperty("aDateOnly"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(aDateTimeColumn, manyTypes.FindProperty("aDateTime"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(aFloatColumn, manyTypes.FindProperty("aFloat"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(aPhysicalAddressColumn, manyTypes.FindProperty("aPhysicalAddress"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(aTimeOnlyColumn, manyTypes.FindProperty("aTimeOnly"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(aTimeSpanColumn, manyTypes.FindProperty("aTimeSpan"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(anIPAddressColumn, manyTypes.FindProperty("anIPAddress"), manyTypesTableMapping) - - Dim principalBase = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase") - - Dim defaultTableMappings2 As New List(Of TableMappingBase(Of ColumnMappingBase))() - principalBase.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings2) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", Nothing, relationalModel) - Dim alternateIdColumnBase As New ColumnBase(Of ColumnMappingBase)("AlternateId", "uniqueidentifier", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("AlternateId", alternateIdColumnBase) - Dim discriminatorColumnBase As New ColumnBase(Of ColumnMappingBase)("Discriminator", "nvarchar(55)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("Discriminator", discriminatorColumnBase) - Dim enum1ColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum1", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("Enum1", enum1ColumnBase) - Dim enum2ColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum2", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("Enum2", enum2ColumnBase) - Dim flagsEnum1ColumnBase As New ColumnBase(Of ColumnMappingBase)("FlagsEnum1", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("FlagsEnum1", flagsEnum1ColumnBase) - Dim flagsEnum2ColumnBase As New ColumnBase(Of ColumnMappingBase)("FlagsEnum2", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("FlagsEnum2", flagsEnum2ColumnBase) - Dim idColumnBase1 As New ColumnBase(Of ColumnMappingBase)("Id", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("Id", idColumnBase1) - Dim pointColumnBase As New ColumnBase(Of ColumnMappingBase)("Point", "geometry", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("Point", pointColumnBase) - Dim refTypeArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("RefTypeArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("RefTypeArray", refTypeArrayColumnBase) - Dim refTypeEnumerableColumnBase As New ColumnBase(Of ColumnMappingBase)("RefTypeEnumerable", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("RefTypeEnumerable", refTypeEnumerableColumnBase) - Dim refTypeIListColumnBase As New ColumnBase(Of ColumnMappingBase)("RefTypeIList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("RefTypeIList", refTypeIListColumnBase) - Dim refTypeListColumnBase As New ColumnBase(Of ColumnMappingBase)("RefTypeList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("RefTypeList", refTypeListColumnBase) - Dim valueTypeArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("ValueTypeArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("ValueTypeArray", valueTypeArrayColumnBase) - Dim valueTypeEnumerableColumnBase As New ColumnBase(Of ColumnMappingBase)("ValueTypeEnumerable", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("ValueTypeEnumerable", valueTypeEnumerableColumnBase) - Dim valueTypeIListColumnBase As New ColumnBase(Of ColumnMappingBase)("ValueTypeIList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("ValueTypeIList", valueTypeIListColumnBase) - Dim valueTypeListColumnBase As New ColumnBase(Of ColumnMappingBase)("ValueTypeList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("ValueTypeList", valueTypeListColumnBase) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase As New TableMappingBase(Of ColumnMappingBase)(principalBase, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase, False) - defaultTableMappings2.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(alternateIdColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("AlternateId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase1, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(discriminatorColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("Discriminator"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum1ColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("Enum1"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum2ColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("Enum2"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(flagsEnum1ColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("FlagsEnum1"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(flagsEnum2ColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("FlagsEnum2"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(pointColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("Point"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeArrayColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("RefTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeEnumerableColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("RefTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeIListColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("RefTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeListColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("RefTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeArrayColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("ValueTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeEnumerableColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("ValueTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeIListColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("ValueTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeListColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("ValueTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - - Dim tableMappings2 As New List(Of TableMapping)() - principalBase.SetRuntimeAnnotation("Relational:TableMappings", tableMappings2) - Dim principalBaseTable As New Table("PrincipalBase", Nothing, relationalModel) - Dim idColumn1 As New Column("Id", "bigint", principalBaseTable) - principalBaseTable.Columns.Add("Id", idColumn1) - Dim alternateIdColumn As New Column("AlternateId", "uniqueidentifier", principalBaseTable) - principalBaseTable.Columns.Add("AlternateId", alternateIdColumn) - Dim discriminatorColumn As New Column("Discriminator", "nvarchar(55)", principalBaseTable) - principalBaseTable.Columns.Add("Discriminator", discriminatorColumn) - Dim enum1Column As New Column("Enum1", "int", principalBaseTable) - principalBaseTable.Columns.Add("Enum1", enum1Column) - Dim enum2Column As New Column("Enum2", "int", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Enum2", enum2Column) - Dim flagsEnum1Column As New Column("FlagsEnum1", "int", principalBaseTable) - principalBaseTable.Columns.Add("FlagsEnum1", flagsEnum1Column) - Dim flagsEnum2Column As New Column("FlagsEnum2", "int", principalBaseTable) - principalBaseTable.Columns.Add("FlagsEnum2", flagsEnum2Column) - Dim manyOwnedColumn As New JsonColumn("ManyOwned", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("ManyOwned", manyOwnedColumn) - Dim ownedColumn As New JsonColumn("Owned", "nvarchar(max)", principalBaseTable) - principalBaseTable.Columns.Add("Owned", ownedColumn) - Dim pointColumn As New Column("Point", "geometry", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Point", pointColumn) - Dim refTypeArrayColumn As New Column("RefTypeArray", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("RefTypeArray", refTypeArrayColumn) - Dim refTypeEnumerableColumn As New Column("RefTypeEnumerable", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("RefTypeEnumerable", refTypeEnumerableColumn) - Dim refTypeIListColumn As New Column("RefTypeIList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("RefTypeIList", refTypeIListColumn) - Dim refTypeListColumn As New Column("RefTypeList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("RefTypeList", refTypeListColumn) - Dim valueTypeArrayColumn As New Column("ValueTypeArray", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("ValueTypeArray", valueTypeArrayColumn) - Dim valueTypeEnumerableColumn As New Column("ValueTypeEnumerable", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("ValueTypeEnumerable", valueTypeEnumerableColumn) - Dim valueTypeIListColumn As New Column("ValueTypeIList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("ValueTypeIList", valueTypeIListColumn) - Dim valueTypeListColumn As New Column("ValueTypeList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("ValueTypeList", valueTypeListColumn) - Dim aK_PrincipalBase_Id As New UniqueConstraint("AK_PrincipalBase_Id", principalBaseTable, {idColumn1}) - Dim aK_PrincipalBase_IdUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id"}) - aK_PrincipalBase_Id.MappedKeys.Add(aK_PrincipalBase_IdUc) - RelationalModel.GetOrCreateUniqueConstraints(aK_PrincipalBase_IdUc).Add(aK_PrincipalBase_Id) - principalBaseTable.UniqueConstraints.Add("AK_PrincipalBase_Id", aK_PrincipalBase_Id) - Dim pK As New UniqueConstraint("PK", principalBaseTable, {idColumn1, alternateIdColumn}) - principalBaseTable.PrimaryKey = pK - Dim pKUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id", "AlternateId"}) - pK.MappedKeys.Add(pKUc) - RelationalModel.GetOrCreateUniqueConstraints(pKUc).Add(pK) - principalBaseTable.UniqueConstraints.Add("PK", pK) - Dim iX_PrincipalBase_AlternateId_Id As New TableIndex( - "IX_PrincipalBase_AlternateId_Id", principalBaseTable, {alternateIdColumn, idColumn1}, False) - Dim iX_PrincipalBase_AlternateId_IdIx = RelationalModel.GetIndex(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"AlternateId", "Id"}) - iX_PrincipalBase_AlternateId_Id.MappedIndexes.Add(iX_PrincipalBase_AlternateId_IdIx) - RelationalModel.GetOrCreateTableIndexes(iX_PrincipalBase_AlternateId_IdIx).Add(iX_PrincipalBase_AlternateId_Id) - principalBaseTable.Indexes.Add("IX_PrincipalBase_AlternateId_Id", iX_PrincipalBase_AlternateId_Id) - relationalModel.Tables.Add(("PrincipalBase", Nothing), principalBaseTable) - Dim principalBaseTableMapping As New TableMapping(principalBase, principalBaseTable, True) With { - .IsSharedTablePrincipal = True - } - principalBaseTable.AddTypeMapping(principalBaseTableMapping, False) - tableMappings2.Add(principalBaseTableMapping) - RelationalModel.CreateColumnMapping(alternateIdColumn, principalBase.FindProperty("AlternateId"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(idColumn1, principalBase.FindProperty("Id"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(discriminatorColumn, principalBase.FindProperty("Discriminator"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(enum1Column, principalBase.FindProperty("Enum1"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(enum2Column, principalBase.FindProperty("Enum2"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(flagsEnum1Column, principalBase.FindProperty("FlagsEnum1"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(flagsEnum2Column, principalBase.FindProperty("FlagsEnum2"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(pointColumn, principalBase.FindProperty("Point"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(refTypeArrayColumn, principalBase.FindProperty("RefTypeArray"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(refTypeEnumerableColumn, principalBase.FindProperty("RefTypeEnumerable"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(refTypeIListColumn, principalBase.FindProperty("RefTypeIList"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(refTypeListColumn, principalBase.FindProperty("RefTypeList"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(valueTypeArrayColumn, principalBase.FindProperty("ValueTypeArray"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(valueTypeEnumerableColumn, principalBase.FindProperty("ValueTypeEnumerable"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(valueTypeIListColumn, principalBase.FindProperty("ValueTypeIList"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(valueTypeListColumn, principalBase.FindProperty("ValueTypeList"), principalBaseTableMapping) - - Dim ownedType = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType") - - Dim defaultTableMappings3 As New List(Of TableMappingBase(Of ColumnMappingBase))() - ownedType.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings3) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType", Nothing, relationalModel) - Dim ownedColumnBase As New JsonColumnBase("Owned", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("Owned", ownedColumnBase) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase As New TableMappingBase(Of ColumnMappingBase)(ownedType, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase, False) - defaultTableMappings3.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - - Dim tableMappings3 As New List(Of TableMapping)() - ownedType.SetRuntimeAnnotation("Relational:TableMappings", tableMappings3) - Dim principalBaseTableMapping0 As New TableMapping(ownedType, principalBaseTable, True) With { - .IsSharedTablePrincipal = False - } - principalBaseTable.AddTypeMapping(principalBaseTableMapping0, False) - tableMappings3.Add(principalBaseTableMapping0) - principalBaseTable.AddRowInternalForeignKey(ownedType, RelationalModel.GetForeignKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType", - {"PrincipalBaseId", "PrincipalBaseAlternateId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id", "AlternateId"})) - - Dim principalDerived = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>") - - Dim defaultTableMappings4 As New List(Of TableMappingBase(Of ColumnMappingBase))() - principalDerived.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings4) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0 As New TableMappingBase(Of ColumnMappingBase)(principalDerived, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0, False) - defaultTableMappings4.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(alternateIdColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("AlternateId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase1, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(discriminatorColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("Discriminator"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(enum1ColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("Enum1"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(enum2ColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("Enum2"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(flagsEnum1ColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("FlagsEnum1"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(flagsEnum2ColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("FlagsEnum2"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(pointColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("Point"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(refTypeArrayColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("RefTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(refTypeEnumerableColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("RefTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(refTypeIListColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("RefTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(refTypeListColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("RefTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeArrayColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("ValueTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeEnumerableColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("ValueTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeIListColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("ValueTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeListColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("ValueTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - - Dim tableMappings4 As New List(Of TableMapping)() - principalDerived.SetRuntimeAnnotation("Relational:TableMappings", tableMappings4) - Dim principalBaseTableMapping1 As New TableMapping(principalDerived, principalBaseTable, True) With { - .IsSharedTablePrincipal = False - } - principalBaseTable.AddTypeMapping(principalBaseTableMapping1, False) - tableMappings4.Add(principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(alternateIdColumn, principalDerived.FindProperty("AlternateId"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(idColumn1, principalDerived.FindProperty("Id"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(discriminatorColumn, principalDerived.FindProperty("Discriminator"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(enum1Column, principalDerived.FindProperty("Enum1"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(enum2Column, principalDerived.FindProperty("Enum2"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(flagsEnum1Column, principalDerived.FindProperty("FlagsEnum1"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(flagsEnum2Column, principalDerived.FindProperty("FlagsEnum2"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(pointColumn, principalDerived.FindProperty("Point"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(refTypeArrayColumn, principalDerived.FindProperty("RefTypeArray"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(refTypeEnumerableColumn, principalDerived.FindProperty("RefTypeEnumerable"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(refTypeIListColumn, principalDerived.FindProperty("RefTypeIList"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(refTypeListColumn, principalDerived.FindProperty("RefTypeList"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(valueTypeArrayColumn, principalDerived.FindProperty("ValueTypeArray"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(valueTypeEnumerableColumn, principalDerived.FindProperty("ValueTypeEnumerable"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(valueTypeIListColumn, principalDerived.FindProperty("ValueTypeIList"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(valueTypeListColumn, principalDerived.FindProperty("ValueTypeList"), principalBaseTableMapping1) - - Dim ownedType0 = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>.ManyOwned#OwnedType") - - Dim defaultTableMappings5 As New List(Of TableMappingBase(Of ColumnMappingBase))() - ownedType0.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings5) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>.ManyOwned#OwnedType", Nothing, relationalModel) - Dim manyOwnedColumnBase As New JsonColumnBase("ManyOwned", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("ManyOwned", manyOwnedColumnBase) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>.ManyOwned#OwnedType", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase As New TableMappingBase(Of ColumnMappingBase)(ownedType0, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase, False) - defaultTableMappings5.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - - Dim tableMappings5 As New List(Of TableMapping)() - ownedType0.SetRuntimeAnnotation("Relational:TableMappings", tableMappings5) - Dim principalBaseTableMapping2 As New TableMapping(ownedType0, principalBaseTable, True) With { - .IsSharedTablePrincipal = False - } - principalBaseTable.AddTypeMapping(principalBaseTableMapping2, True) - tableMappings5.Add(principalBaseTableMapping2) - principalBaseTable.AddRowInternalForeignKey(ownedType0, RelationalModel.GetForeignKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>.ManyOwned#OwnedType", - {"PrincipalDerivedId", "PrincipalDerivedAlternateId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", - {"Id", "AlternateId"})) - - Dim principalBasePrincipalDerivedDependentBasebyte = FindEntityType("PrincipalBasePrincipalDerived>") - - Dim defaultTableMappings6 As New List(Of TableMappingBase(Of ColumnMappingBase))() - principalBasePrincipalDerivedDependentBasebyte.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings6) - Dim principalBasePrincipalDerivedDependentBasebyteTableBase As New TableBase("PrincipalBasePrincipalDerived>", Nothing, relationalModel) - Dim derivedsAlternateIdColumnBase As New ColumnBase(Of ColumnMappingBase)("DerivedsAlternateId", "uniqueidentifier", principalBasePrincipalDerivedDependentBasebyteTableBase) - principalBasePrincipalDerivedDependentBasebyteTableBase.Columns.Add("DerivedsAlternateId", derivedsAlternateIdColumnBase) - Dim derivedsIdColumnBase As New ColumnBase(Of ColumnMappingBase)("DerivedsId", "bigint", principalBasePrincipalDerivedDependentBasebyteTableBase) - principalBasePrincipalDerivedDependentBasebyteTableBase.Columns.Add("DerivedsId", derivedsIdColumnBase) - Dim principalsAlternateIdColumnBase As New ColumnBase(Of ColumnMappingBase)("PrincipalsAlternateId", "uniqueidentifier", principalBasePrincipalDerivedDependentBasebyteTableBase) - principalBasePrincipalDerivedDependentBasebyteTableBase.Columns.Add("PrincipalsAlternateId", principalsAlternateIdColumnBase) - Dim principalsIdColumnBase As New ColumnBase(Of ColumnMappingBase)("PrincipalsId", "bigint", principalBasePrincipalDerivedDependentBasebyteTableBase) - principalBasePrincipalDerivedDependentBasebyteTableBase.Columns.Add("PrincipalsId", principalsIdColumnBase) - Dim rowidColumnBase As New ColumnBase(Of ColumnMappingBase)("rowid", "rowversion", principalBasePrincipalDerivedDependentBasebyteTableBase) With { - .IsNullable = True - } - principalBasePrincipalDerivedDependentBasebyteTableBase.Columns.Add("rowid", rowidColumnBase) - relationalModel.DefaultTables.Add("PrincipalBasePrincipalDerived>", principalBasePrincipalDerivedDependentBasebyteTableBase) - Dim principalBasePrincipalDerivedDependentBasebyteMappingBase As New TableMappingBase(Of ColumnMappingBase)(principalBasePrincipalDerivedDependentBasebyte, principalBasePrincipalDerivedDependentBasebyteTableBase, True) - principalBasePrincipalDerivedDependentBasebyteTableBase.AddTypeMapping(principalBasePrincipalDerivedDependentBasebyteMappingBase, False) - defaultTableMappings6.Add(principalBasePrincipalDerivedDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(derivedsAlternateIdColumnBase, ColumnBase(Of ColumnMappingBase)), principalBasePrincipalDerivedDependentBasebyte.FindProperty("DerivedsAlternateId"), principalBasePrincipalDerivedDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(derivedsIdColumnBase, ColumnBase(Of ColumnMappingBase)), principalBasePrincipalDerivedDependentBasebyte.FindProperty("DerivedsId"), principalBasePrincipalDerivedDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalsAlternateIdColumnBase, ColumnBase(Of ColumnMappingBase)), principalBasePrincipalDerivedDependentBasebyte.FindProperty("PrincipalsAlternateId"), principalBasePrincipalDerivedDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalsIdColumnBase, ColumnBase(Of ColumnMappingBase)), principalBasePrincipalDerivedDependentBasebyte.FindProperty("PrincipalsId"), principalBasePrincipalDerivedDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(rowidColumnBase, ColumnBase(Of ColumnMappingBase)), principalBasePrincipalDerivedDependentBasebyte.FindProperty("rowid"), principalBasePrincipalDerivedDependentBasebyteMappingBase) - - Dim tableMappings6 As New List(Of TableMapping)() - principalBasePrincipalDerivedDependentBasebyte.SetRuntimeAnnotation("Relational:TableMappings", tableMappings6) - Dim principalBasePrincipalDerivedDependentBasebyteTable As New Table("PrincipalBasePrincipalDerived>", Nothing, relationalModel) - Dim derivedsIdColumn As New Column("DerivedsId", "bigint", principalBasePrincipalDerivedDependentBasebyteTable) - principalBasePrincipalDerivedDependentBasebyteTable.Columns.Add("DerivedsId", derivedsIdColumn) - Dim derivedsAlternateIdColumn As New Column("DerivedsAlternateId", "uniqueidentifier", principalBasePrincipalDerivedDependentBasebyteTable) - principalBasePrincipalDerivedDependentBasebyteTable.Columns.Add("DerivedsAlternateId", derivedsAlternateIdColumn) - Dim principalsIdColumn As New Column("PrincipalsId", "bigint", principalBasePrincipalDerivedDependentBasebyteTable) - principalBasePrincipalDerivedDependentBasebyteTable.Columns.Add("PrincipalsId", principalsIdColumn) - Dim principalsAlternateIdColumn As New Column("PrincipalsAlternateId", "uniqueidentifier", principalBasePrincipalDerivedDependentBasebyteTable) - principalBasePrincipalDerivedDependentBasebyteTable.Columns.Add("PrincipalsAlternateId", principalsAlternateIdColumn) - Dim rowidColumn As New Column("rowid", "rowversion", principalBasePrincipalDerivedDependentBasebyteTable) With { - .IsNullable = True - } - principalBasePrincipalDerivedDependentBasebyteTable.Columns.Add("rowid", rowidColumn) - Dim pK_PrincipalBasePrincipalDerivedDependentBasebyte As New UniqueConstraint("PK_PrincipalBasePrincipalDerived>", principalBasePrincipalDerivedDependentBasebyteTable, {derivedsIdColumn, derivedsAlternateIdColumn, principalsIdColumn, principalsAlternateIdColumn}) - principalBasePrincipalDerivedDependentBasebyteTable.PrimaryKey = pK_PrincipalBasePrincipalDerivedDependentBasebyte - Dim pK_PrincipalBasePrincipalDerivedDependentBasebyteUc = RelationalModel.GetKey(Me, - "PrincipalBasePrincipalDerived>", - {"DerivedsId", "DerivedsAlternateId", "PrincipalsId", "PrincipalsAlternateId"}) - pK_PrincipalBasePrincipalDerivedDependentBasebyte.MappedKeys.Add(pK_PrincipalBasePrincipalDerivedDependentBasebyteUc) - RelationalModel.GetOrCreateUniqueConstraints(pK_PrincipalBasePrincipalDerivedDependentBasebyteUc).Add(pK_PrincipalBasePrincipalDerivedDependentBasebyte) - principalBasePrincipalDerivedDependentBasebyteTable.UniqueConstraints.Add("PK_PrincipalBasePrincipalDerived>", pK_PrincipalBasePrincipalDerivedDependentBasebyte) - Dim iX_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalsId_PrincipalsAlternateId As New TableIndex( - "IX_PrincipalBasePrincipalDerived>_PrincipalsId_PrincipalsAlternateId", principalBasePrincipalDerivedDependentBasebyteTable, {principalsIdColumn, principalsAlternateIdColumn}, False) - Dim iX_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalsId_PrincipalsAlternateIdIx = RelationalModel.GetIndex(Me, - "PrincipalBasePrincipalDerived>", - {"PrincipalsId", "PrincipalsAlternateId"}) - iX_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalsId_PrincipalsAlternateId.MappedIndexes.Add(iX_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalsId_PrincipalsAlternateIdIx) - RelationalModel.GetOrCreateTableIndexes(iX_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalsId_PrincipalsAlternateIdIx).Add(iX_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalsId_PrincipalsAlternateId) - principalBasePrincipalDerivedDependentBasebyteTable.Indexes.Add("IX_PrincipalBasePrincipalDerived>_PrincipalsId_PrincipalsAlternateId", iX_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalsId_PrincipalsAlternateId) - relationalModel.Tables.Add(("PrincipalBasePrincipalDerived>", Nothing), principalBasePrincipalDerivedDependentBasebyteTable) - Dim principalBasePrincipalDerivedDependentBasebyteTableMapping As New TableMapping(principalBasePrincipalDerivedDependentBasebyte, principalBasePrincipalDerivedDependentBasebyteTable, True) - principalBasePrincipalDerivedDependentBasebyteTable.AddTypeMapping(principalBasePrincipalDerivedDependentBasebyteTableMapping, False) - tableMappings6.Add(principalBasePrincipalDerivedDependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(derivedsAlternateIdColumn, principalBasePrincipalDerivedDependentBasebyte.FindProperty("DerivedsAlternateId"), principalBasePrincipalDerivedDependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(derivedsIdColumn, principalBasePrincipalDerivedDependentBasebyte.FindProperty("DerivedsId"), principalBasePrincipalDerivedDependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(principalsAlternateIdColumn, principalBasePrincipalDerivedDependentBasebyte.FindProperty("PrincipalsAlternateId"), principalBasePrincipalDerivedDependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(principalsIdColumn, principalBasePrincipalDerivedDependentBasebyte.FindProperty("PrincipalsId"), principalBasePrincipalDerivedDependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(rowidColumn, principalBasePrincipalDerivedDependentBasebyte.FindProperty("rowid"), principalBasePrincipalDerivedDependentBasebyteTableMapping) - Dim fK_DependentBasebyte_PrincipalBase_PrincipalId As New ForeignKeyConstraint( - "FK_DependentBase_PrincipalBase_PrincipalId", dependentBasebyteTable, principalBaseTable, - {principalIdColumn}, - principalBaseTable.FindUniqueConstraint("AK_PrincipalBase_Id"), ReferentialAction.Cascade) - Dim fK_DependentBasebyte_PrincipalBase_PrincipalIdFk = RelationalModel.GetForeignKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", - {"PrincipalId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id"}) - fK_DependentBasebyte_PrincipalBase_PrincipalId.MappedForeignKeys.Add(fK_DependentBasebyte_PrincipalBase_PrincipalIdFk) - RelationalModel.GetOrCreateForeignKeyConstraints(fK_DependentBasebyte_PrincipalBase_PrincipalIdFk).Add(fK_DependentBasebyte_PrincipalBase_PrincipalId) - dependentBasebyteTable.ForeignKeyConstraints.Add(fK_DependentBasebyte_PrincipalBase_PrincipalId) - principalBaseTable.ReferencingForeignKeyConstraints.Add(fK_DependentBasebyte_PrincipalBase_PrincipalId) - Dim fK_DependentBasebyte_PrincipalBase_PrincipalId_PrincipalAlternateId As New ForeignKeyConstraint( - "FK_DependentBase_PrincipalBase_PrincipalId_PrincipalAlternateId", dependentBasebyteTable, principalBaseTable, - {principalIdColumn, principalAlternateIdColumn}, - principalBaseTable.FindUniqueConstraint("PK"), ReferentialAction.NoAction) - Dim fK_DependentBasebyte_PrincipalBase_PrincipalId_PrincipalAlternateIdFk = RelationalModel.GetForeignKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", - {"PrincipalId", "PrincipalAlternateId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", - {"Id", "AlternateId"}) - fK_DependentBasebyte_PrincipalBase_PrincipalId_PrincipalAlternateId.MappedForeignKeys.Add(fK_DependentBasebyte_PrincipalBase_PrincipalId_PrincipalAlternateIdFk) - RelationalModel.GetOrCreateForeignKeyConstraints(fK_DependentBasebyte_PrincipalBase_PrincipalId_PrincipalAlternateIdFk).Add(fK_DependentBasebyte_PrincipalBase_PrincipalId_PrincipalAlternateId) - dependentBasebyteTable.ForeignKeyConstraints.Add(fK_DependentBasebyte_PrincipalBase_PrincipalId_PrincipalAlternateId) - principalBaseTable.ReferencingForeignKeyConstraints.Add(fK_DependentBasebyte_PrincipalBase_PrincipalId_PrincipalAlternateId) - Dim fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_DerivedsId_DerivedsAlternateId As New ForeignKeyConstraint( - "FK_PrincipalBasePrincipalDerived>_PrincipalBase_DerivedsId_DerivedsAlternateId", principalBasePrincipalDerivedDependentBasebyteTable, principalBaseTable, - {derivedsIdColumn, derivedsAlternateIdColumn}, - principalBaseTable.FindUniqueConstraint("PK"), ReferentialAction.Cascade) - Dim fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_DerivedsId_DerivedsAlternateIdFk = RelationalModel.GetForeignKey(Me, - "PrincipalBasePrincipalDerived>", - {"DerivedsId", "DerivedsAlternateId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", - {"Id", "AlternateId"}) - fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_DerivedsId_DerivedsAlternateId.MappedForeignKeys.Add(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_DerivedsId_DerivedsAlternateIdFk) - RelationalModel.GetOrCreateForeignKeyConstraints(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_DerivedsId_DerivedsAlternateIdFk).Add(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_DerivedsId_DerivedsAlternateId) - principalBasePrincipalDerivedDependentBasebyteTable.ForeignKeyConstraints.Add(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_DerivedsId_DerivedsAlternateId) - principalBaseTable.ReferencingForeignKeyConstraints.Add(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_DerivedsId_DerivedsAlternateId) - Dim fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_PrincipalsId_PrincipalsAlternateId As New ForeignKeyConstraint( - "FK_PrincipalBasePrincipalDerived>_PrincipalBase_PrincipalsId_PrincipalsAlternateId", principalBasePrincipalDerivedDependentBasebyteTable, principalBaseTable, - {principalsIdColumn, principalsAlternateIdColumn}, - principalBaseTable.FindUniqueConstraint("PK"), ReferentialAction.NoAction) - Dim fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_PrincipalsId_PrincipalsAlternateIdFk = RelationalModel.GetForeignKey(Me, - "PrincipalBasePrincipalDerived>", - {"PrincipalsId", "PrincipalsAlternateId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id", "AlternateId"}) - fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_PrincipalsId_PrincipalsAlternateId.MappedForeignKeys.Add(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_PrincipalsId_PrincipalsAlternateIdFk) - RelationalModel.GetOrCreateForeignKeyConstraints(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_PrincipalsId_PrincipalsAlternateIdFk).Add(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_PrincipalsId_PrincipalsAlternateId) - principalBasePrincipalDerivedDependentBasebyteTable.ForeignKeyConstraints.Add(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_PrincipalsId_PrincipalsAlternateId) - principalBaseTable.ReferencingForeignKeyConstraints.Add(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_PrincipalsId_PrincipalsAlternateId) - Return relationalModel.MakeReadOnly() - End Function - End Class -End Namespace -]]>.Value - - Dim DependentBaseEntityType = -Imports System -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Migrations.Design -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion -Imports Microsoft.EntityFrameworkCore.ValueGeneration -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class DependentBaseEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?)), - baseEntityType, - discriminatorProperty:="EnumDiscriminator", - discriminatorValue:=VisualBasicMigrationsGeneratorTests.Enum1.One) - - Dim principalId = entityType.AddProperty( - "PrincipalId", - GetType(Long), - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=0L) - principalId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - principalId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim principalAlternateId = entityType.AddProperty( - "PrincipalAlternateId", - GetType(Guid), - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=New Guid("00000000-0000-0000-0000-000000000000")) - principalAlternateId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(GuidTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="uniqueidentifier"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - principalAlternateId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumDiscriminator = entityType.AddProperty( - "EnumDiscriminator", - GetType(VisualBasicMigrationsGeneratorTests.Enum1), - afterSaveBehavior:=PropertySaveBehavior.Throw, - valueGeneratorFactory:=AddressOf New DiscriminatorValueGeneratorFactory().Create) - enumDiscriminator.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicMigrationsGeneratorTests.Enum1, Integer)( - Function(value As VisualBasicMigrationsGeneratorTests.Enum1) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicMigrationsGeneratorTests.Enum1)), - New ValueComparer(Of VisualBasicMigrationsGeneratorTests.Enum1)( - Function(v1 As VisualBasicMigrationsGeneratorTests.Enum1, v2 As VisualBasicMigrationsGeneratorTests.Enum1) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicMigrationsGeneratorTests.Enum1) v.GetHashCode(), - Function(v As VisualBasicMigrationsGeneratorTests.Enum1) v), - New ValueComparer(Of VisualBasicMigrationsGeneratorTests.Enum1)( - Function(v1 As VisualBasicMigrationsGeneratorTests.Enum1, v2 As VisualBasicMigrationsGeneratorTests.Enum1) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicMigrationsGeneratorTests.Enum1) v.GetHashCode(), - Function(v As VisualBasicMigrationsGeneratorTests.Enum1) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicMigrationsGeneratorTests.Enum1, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicMigrationsGeneratorTests.Enum1, Integer)( - Function(value As VisualBasicMigrationsGeneratorTests.Enum1) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicMigrationsGeneratorTests.Enum1))), - Type.Missing}), CoreTypeMapping) - enumDiscriminator.SetSentinelFromProviderValue(0) - enumDiscriminator.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim id = entityType.AddProperty( - "Id", - GetType(Byte?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?)).GetProperty("Id", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?)).GetField("_Id", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - id.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte)))), - New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte)))), - New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - id.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim key = entityType.AddKey( - {principalId, principalAlternateId}) - entityType.SetPrimaryKey(key) - - Dim index = entityType.AddIndex( - {principalId}, - unique:=True) - - Return entityType - End Function - - Public Shared Function CreateForeignKey1(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("PrincipalId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("Id")}), - principalEntityType, - deleteBehavior:=DeleteBehavior.Cascade, - unique:=True, - required:=True) - - Return runtimeForeignKey - End Function - - Public Shared Function CreateForeignKey2(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("PrincipalId"), declaringEntityType.FindProperty("PrincipalAlternateId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("Id"), principalEntityType.FindProperty("AlternateId")}), - principalEntityType, - deleteBehavior:=DeleteBehavior.ClientNoAction, - unique:=True, - required:=True) - - Dim principal = declaringEntityType.AddNavigation("Principal", - runtimeForeignKey, - onDependent:=True, - GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?)).GetProperty("Principal", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?)).GetField("_Principal", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - - Dim dependent = principalEntityType.AddNavigation("Dependent", - runtimeForeignKey, - onDependent:=False, - GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))).GetProperty("Dependent", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))).GetField("_Dependent", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - eagerLoaded:=True, - lazyLoadingEnabled:=False) - - Return runtimeForeignKey - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("DiscriminatorMappingComplete", False) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:MappingStrategy", "TPH") - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "DependentBase") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim ManyTypesEntityType = -Imports System -Imports System.Collections -Imports System.Collections.Generic -Imports System.Globalization -Imports System.Linq -Imports System.Net -Imports System.Net.NetworkInformation -Imports System.Reflection -Imports System.Text -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion.Internal -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class ManyTypesEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+ManyTypes", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes), - baseEntityType) - - Dim id = entityType.AddProperty( - "Id", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Id", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Id", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueGenerated:=ValueGenerated.OnAdd, - afterSaveBehavior:=PropertySaveBehavior.Throw, - valueConverter:=New VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesIdConverter()) - id.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId, Integer)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId) v.Id, - Function(v As Integer) New VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId, v2 As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId, v2 As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId, Integer)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId) v.Id, - Function(v As Integer) New VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId(v))), - Type.Missing}), CoreTypeMapping) - id.SetSentinelFromProviderValue(0) - id.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.IdentityColumn) - - Dim bool = entityType.AddProperty( - "Bool", - GetType(Boolean), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Bool", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Bool", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=False) - bool.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerBoolTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - bool.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim boolArray = entityType.AddProperty( - "BoolArray", - GetType(Boolean()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("BoolArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_BoolArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - boolArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Boolean)(New JsonCollectionReaderWriter(Of Boolean(), Boolean(), Boolean)( - JsonBoolReaderWriter.Instance)), - New ListComparer(Of Boolean)(New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v)), - New ListComparer(Of Boolean)(New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerBoolTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Boolean(), Boolean(), Boolean)( - JsonBoolReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - boolArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim boolToStringConverterProperty = entityType.AddProperty( - "BoolToStringConverterProperty", - GetType(Boolean), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("BoolToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_BoolToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - boolToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(1)", - size:=1, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Boolean, String)( - Function(v As Boolean) CType(If(v, "B", "A"), String), - Function(v As String) Not(String.IsNullOrEmpty(v)) AndAlso Strings.AscW(v.ToUpperInvariant()(0)) = Strings.AscW("B"c)), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Boolean, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Boolean, String)( - Function(v As Boolean) CType(If(v, "B", "A"), String), - Function(v As String) Not(String.IsNullOrEmpty(v)) AndAlso Strings.AscW(v.ToUpperInvariant()(0)) = Strings.AscW("B"c))), - Type.Missing}), CoreTypeMapping) - boolToStringConverterProperty.SetSentinelFromProviderValue("A") - boolToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim boolToTwoValuesConverterProperty = entityType.AddProperty( - "BoolToTwoValuesConverterProperty", - GetType(Boolean), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("BoolToTwoValuesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_BoolToTwoValuesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - boolToTwoValuesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of Boolean, Byte)( - Function(v As Boolean) CType(If(v, CByte(1), CByte(0)), Byte), - Function(v As Byte) v = CByte(1)), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Boolean, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of Boolean, Byte)( - Function(v As Boolean) CType(If(v, CByte(1), CByte(0)), Byte), - Function(v As Byte) v = CByte(1))), - Type.Missing}), CoreTypeMapping) - boolToTwoValuesConverterProperty.SetSentinelFromProviderValue(CByte(0)) - boolToTwoValuesConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim boolToZeroOneConverterProperty = entityType.AddProperty( - "BoolToZeroOneConverterProperty", - GetType(Boolean), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("BoolToZeroOneConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_BoolToZeroOneConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New BoolToZeroOneConverter(Of Short)()) - boolToZeroOneConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of Boolean, Short)( - Function(v As Boolean) CType(If(v, 1S, 0S), Short), - Function(v As Short) v = 1S), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Boolean, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of Boolean, Short)( - Function(v As Boolean) CType(If(v, 1S, 0S), Short), - Function(v As Short) v = 1S)), - Type.Missing}), CoreTypeMapping) - boolToZeroOneConverterProperty.SetSentinelFromProviderValue(0S) - boolToZeroOneConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim bytes = entityType.AddProperty( - "Bytes", - GetType(Byte()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Bytes", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Bytes", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - bytes.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(max)"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - bytes.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim bytesArray = entityType.AddProperty( - "BytesArray", - GetType(Byte()()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("BytesArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_BytesArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - bytesArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte())(New JsonCollectionReaderWriter(Of Byte()(), Byte()(), Byte())( - JsonByteArrayReaderWriter.Instance)), - New ListComparer(Of Byte())(New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v)), - New ListComparer(Of Byte())(New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(max)"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Byte()(), Byte()(), Byte())( - JsonByteArrayReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - bytesArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim bytesToStringConverterProperty = entityType.AddProperty( - "BytesToStringConverterProperty", - GetType(Byte()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("BytesToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_BytesToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New BytesToStringConverter()) - bytesToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Byte(), String)( - Function(v As Byte()) Convert.ToBase64String(v), - Function(v As String) Convert.FromBase64String(v)), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Byte(), String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Byte(), String)( - Function(v As Byte()) Convert.ToBase64String(v), - Function(v As String) Convert.FromBase64String(v))), - StoreTypePostfix.None}), CoreTypeMapping) - bytesToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim castingConverterProperty = entityType.AddProperty( - "CastingConverterProperty", - GetType(Integer), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("CastingConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_CastingConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New CastingConverter(Of Integer, Decimal)()) - castingConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of Integer, Decimal)( - Function(v As Integer) CType(v, Decimal), - Function(v As Decimal) CType(v, Integer)), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Integer, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of Integer, Decimal)( - Function(v As Integer) CType(v, Decimal), - Function(v As Decimal) CType(v, Integer))), - Type.Missing}), CoreTypeMapping) - castingConverterProperty.SetSentinelFromProviderValue(0D) - castingConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim [char] = entityType.AddProperty( - "Char", - GetType(Char), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Char", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Char", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - [char].TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(1)", - size:=1, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0))), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Char, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)))), - Type.Missing}), CoreTypeMapping) - [char].SetSentinelFromProviderValue("" & ChrW(0) & "") - [char].AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim charArray = entityType.AddProperty( - "CharArray", - GetType(Char()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("CharArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_CharArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - charArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Char)(New JsonCollectionReaderWriter(Of Char(), Char(), Char)( - New JsonConvertedValueReaderWriter(Of Char, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)))))), - New ListComparer(Of Char)(New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v)), - New ListComparer(Of Char)(New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(1)", - size:=1, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0))), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Char, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Char(), Char(), Char)( - New JsonConvertedValueReaderWriter(Of Char, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0))))), - StoreTypePostfix.None}), CoreTypeMapping) - charArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim charToStringConverterProperty = entityType.AddProperty( - "CharToStringConverterProperty", - GetType(Char), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("CharToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_CharToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New CharToStringConverter()) - charToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(1)", - size:=1, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0))), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Char, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)))), - Type.Missing}), CoreTypeMapping) - charToStringConverterProperty.SetSentinelFromProviderValue("" & ChrW(0) & "") - charToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim dateOnlyArray = entityType.AddProperty( - "DateOnlyArray", - GetType(DateOnly()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateOnlyArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateOnlyArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - dateOnlyArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of DateOnly)(New JsonCollectionReaderWriter(Of DateOnly(), DateOnly(), DateOnly)( - JsonDateOnlyReaderWriter.Instance)), - New ListComparer(Of DateOnly)(New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v)), - New ListComparer(Of DateOnly)(New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateOnlyTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of DateOnly(), DateOnly(), DateOnly)( - JsonDateOnlyReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - dateOnlyArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim dateOnlyToStringConverterProperty = entityType.AddProperty( - "DateOnlyToStringConverterProperty", - GetType(DateOnly), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateOnlyToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateOnlyToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New DateOnlyToStringConverter()) - dateOnlyToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(10)", - size:=10, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of DateOnly, String)( - Function(v As DateOnly) v.ToString("yyyy\-MM\-dd"), - Function(v As String) DateOnly.Parse(v, CultureInfo.InvariantCulture, DateTimeStyles.None)), - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of DateOnly, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of DateOnly, String)( - Function(v As DateOnly) v.ToString("yyyy\-MM\-dd"), - Function(v As String) DateOnly.Parse(v, CultureInfo.InvariantCulture, DateTimeStyles.None))), - Type.Missing}), CoreTypeMapping) - dateOnlyToStringConverterProperty.SetSentinelFromProviderValue("0001-01-01") - dateOnlyToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim dateTimeArray = entityType.AddProperty( - "DateTimeArray", - GetType(Date()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateTimeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateTimeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - dateTimeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Date)(New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - JsonDateTimeReaderWriter.Instance)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateTimeTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - JsonDateTimeReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - dateTimeArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim dateTimeOffsetToBinaryConverterProperty = entityType.AddProperty( - "DateTimeOffsetToBinaryConverterProperty", - GetType(DateTimeOffset), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateTimeOffsetToBinaryConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateTimeOffsetToBinaryConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New DateTimeOffsetToBinaryConverter()) - dateTimeOffsetToBinaryConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of DateTimeOffset, Long)( - Function(v As DateTimeOffset) DateTimeOffsetToBinaryConverter.ToLong(v), - Function(v As Long) DateTimeOffsetToBinaryConverter.ToDateTimeOffset(v)), - New ValueComparer(Of DateTimeOffset)( - Function(v1 As DateTimeOffset, v2 As DateTimeOffset) v1.EqualsExact(v2), - Function(v As DateTimeOffset) v.GetHashCode(), - Function(v As DateTimeOffset) v), - New ValueComparer(Of DateTimeOffset)( - Function(v1 As DateTimeOffset, v2 As DateTimeOffset) v1.EqualsExact(v2), - Function(v As DateTimeOffset) v.GetHashCode(), - Function(v As DateTimeOffset) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of DateTimeOffset, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of DateTimeOffset, Long)( - Function(v As DateTimeOffset) DateTimeOffsetToBinaryConverter.ToLong(v), - Function(v As Long) DateTimeOffsetToBinaryConverter.ToDateTimeOffset(v))), - Type.Missing}), CoreTypeMapping) - dateTimeOffsetToBinaryConverterProperty.SetSentinelFromProviderValue(0L) - dateTimeOffsetToBinaryConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim dateTimeOffsetToBytesConverterProperty = entityType.AddProperty( - "DateTimeOffsetToBytesConverterProperty", - GetType(DateTimeOffset), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateTimeOffsetToBytesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateTimeOffsetToBytesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New DateTimeOffsetToBytesConverter()) - dateTimeOffsetToBytesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(12)", - size:=12), - Type.Missing, - New ValueConverter(Of DateTimeOffset, Byte())( - Function(v As DateTimeOffset) DateTimeOffsetToBytesConverter.ToBytes(v), - Function(v As Byte()) DateTimeOffsetToBytesConverter.FromBytes(v)), - New ValueComparer(Of DateTimeOffset)( - Function(v1 As DateTimeOffset, v2 As DateTimeOffset) v1.EqualsExact(v2), - Function(v As DateTimeOffset) v.GetHashCode(), - Function(v As DateTimeOffset) v), - New ValueComparer(Of DateTimeOffset)( - Function(v1 As DateTimeOffset, v2 As DateTimeOffset) v1.EqualsExact(v2), - Function(v As DateTimeOffset) v.GetHashCode(), - Function(v As DateTimeOffset) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - New JsonConvertedValueReaderWriter(Of DateTimeOffset, Byte())( - JsonByteArrayReaderWriter.Instance, - New ValueConverter(Of DateTimeOffset, Byte())( - Function(v As DateTimeOffset) DateTimeOffsetToBytesConverter.ToBytes(v), - Function(v As Byte()) DateTimeOffsetToBytesConverter.FromBytes(v))), - Type.Missing}), CoreTypeMapping) - dateTimeOffsetToBytesConverterProperty.SetSentinelFromProviderValue(New Byte() {0, 0, 0, 0, 0, 0, 0, 0, 0, 0}) - dateTimeOffsetToBytesConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim dateTimeOffsetToStringConverterProperty = entityType.AddProperty( - "DateTimeOffsetToStringConverterProperty", - GetType(DateTimeOffset), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateTimeOffsetToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateTimeOffsetToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New DateTimeOffsetToStringConverter()) - dateTimeOffsetToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(48)", - size:=48, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of DateTimeOffset, String)( - Function(v As DateTimeOffset) v.ToString("yyyy\-MM\-dd HH\:mm\:ss.FFFFFFFzzz"), - Function(v As String) DateTimeOffset.Parse(v, CultureInfo.InvariantCulture)), - New ValueComparer(Of DateTimeOffset)( - Function(v1 As DateTimeOffset, v2 As DateTimeOffset) v1.EqualsExact(v2), - Function(v As DateTimeOffset) v.GetHashCode(), - Function(v As DateTimeOffset) v), - New ValueComparer(Of DateTimeOffset)( - Function(v1 As DateTimeOffset, v2 As DateTimeOffset) v1.EqualsExact(v2), - Function(v As DateTimeOffset) v.GetHashCode(), - Function(v As DateTimeOffset) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of DateTimeOffset, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of DateTimeOffset, String)( - Function(v As DateTimeOffset) v.ToString("yyyy\-MM\-dd HH\:mm\:ss.FFFFFFFzzz"), - Function(v As String) DateTimeOffset.Parse(v, CultureInfo.InvariantCulture))), - Type.Missing}), CoreTypeMapping) - dateTimeOffsetToStringConverterProperty.SetSentinelFromProviderValue("0001-01-01 00:00:00+00:00") - dateTimeOffsetToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim dateTimeToBinaryConverterProperty = entityType.AddProperty( - "DateTimeToBinaryConverterProperty", - GetType(Date), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateTimeToBinaryConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateTimeToBinaryConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New DateTimeToBinaryConverter()) - dateTimeToBinaryConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of Date, Long)( - Function(v As DateTime) v.ToBinary(), - Function(v As Long) DateTime.FromBinary(v)), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Date, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of Date, Long)( - Function(v As DateTime) v.ToBinary(), - Function(v As Long) DateTime.FromBinary(v))), - Type.Missing}), CoreTypeMapping) - dateTimeToBinaryConverterProperty.SetSentinelFromProviderValue(0L) - dateTimeToBinaryConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim dateTimeToStringConverterProperty = entityType.AddProperty( - "DateTimeToStringConverterProperty", - GetType(Date), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateTimeToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateTimeToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New DateTimeToStringConverter()) - dateTimeToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(48)", - size:=48, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Date, String)( - Function(v As DateTime) v.ToString("yyyy\-MM\-dd HH\:mm\:ss.FFFFFFF"), - Function(v As String) DateTime.Parse(v, CultureInfo.InvariantCulture)), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Date, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Date, String)( - Function(v As DateTime) v.ToString("yyyy\-MM\-dd HH\:mm\:ss.FFFFFFF"), - Function(v As String) DateTime.Parse(v, CultureInfo.InvariantCulture))), - Type.Missing}), CoreTypeMapping) - dateTimeToStringConverterProperty.SetSentinelFromProviderValue("0001-01-01 00:00:00") - dateTimeToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim dateTimeToTicksConverterProperty = entityType.AddProperty( - "DateTimeToTicksConverterProperty", - GetType(Date), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateTimeToTicksConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateTimeToTicksConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=New Date(1, 1, 1, 0, 0, 0, 0, DateTimeKind.Unspecified)) - dateTimeToTicksConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateTimeTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - dateTimeToTicksConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim [decimal] = entityType.AddProperty( - "Decimal", - GetType(Decimal), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Decimal", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Decimal", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0D) - [decimal].TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - [decimal].AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim decimalArray = entityType.AddProperty( - "DecimalArray", - GetType(Decimal()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DecimalArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DecimalArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - decimalArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Decimal)(New JsonCollectionReaderWriter(Of Decimal(), Decimal(), Decimal)( - JsonDecimalReaderWriter.Instance)), - New ListComparer(Of Decimal)(New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v)), - New ListComparer(Of Decimal)(New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Decimal(), Decimal(), Decimal)( - JsonDecimalReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - decimalArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim decimalNumberToBytesConverterProperty = entityType.AddProperty( - "DecimalNumberToBytesConverterProperty", - GetType(Decimal), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DecimalNumberToBytesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DecimalNumberToBytesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New NumberToBytesConverter(Of Decimal)()) - decimalNumberToBytesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(16)", - size:=16), - Type.Missing, - New ValueConverter(Of Decimal, Byte())( - Function(v As Decimal) NumberToBytesConverter(Of Decimal).DecimalToBytes(v), - Function(v As Byte()) If(v Is Nothing, 0D, NumberToBytesConverter(Of Decimal).BytesToDecimal(v))), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Decimal, Byte())( - JsonByteArrayReaderWriter.Instance, - New ValueConverter(Of Decimal, Byte())( - Function(v As Decimal) NumberToBytesConverter(Of Decimal).DecimalToBytes(v), - Function(v As Byte()) If(v Is Nothing, 0D, NumberToBytesConverter(Of Decimal).BytesToDecimal(v)))), - Type.Missing}), CoreTypeMapping) - decimalNumberToBytesConverterProperty.SetSentinelFromProviderValue(New Byte() {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}) - decimalNumberToBytesConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim decimalNumberToStringConverterProperty = entityType.AddProperty( - "DecimalNumberToStringConverterProperty", - GetType(Decimal), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DecimalNumberToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DecimalNumberToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New NumberToStringConverter(Of Decimal)()) - decimalNumberToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(64)", - size:=64, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Decimal, String)( - Function(v As Decimal) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) Decimal.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture)), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Decimal, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Decimal, String)( - Function(v As Decimal) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) Decimal.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture))), - Type.Missing}), CoreTypeMapping) - decimalNumberToStringConverterProperty.SetSentinelFromProviderValue("0") - decimalNumberToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim [double] = entityType.AddProperty( - "Double", - GetType(Double), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Double", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Double", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0.0) - [double].TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDoubleTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - [double].AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim doubleArray = entityType.AddProperty( - "DoubleArray", - GetType(Double()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DoubleArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DoubleArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - doubleArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Double)(New JsonCollectionReaderWriter(Of Double(), Double(), Double)( - JsonDoubleReaderWriter.Instance)), - New ListComparer(Of Double)(New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v)), - New ListComparer(Of Double)(New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDoubleTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Double(), Double(), Double)( - JsonDoubleReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - doubleArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim doubleNumberToBytesConverterProperty = entityType.AddProperty( - "DoubleNumberToBytesConverterProperty", - GetType(Double), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DoubleNumberToBytesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DoubleNumberToBytesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New NumberToBytesConverter(Of Double)()) - doubleNumberToBytesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(8)", - size:=8), - Type.Missing, - New ValueConverter(Of Double, Byte())( - Function(v As Double) NumberToBytesConverter(Of Double).ReverseLong(BitConverter.GetBytes(v)), - Function(v As Byte()) If(v Is Nothing, 0R, BitConverter.ToDouble(NumberToBytesConverter(Of Double).ReverseLong(v), 0))), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Double, Byte())( - JsonByteArrayReaderWriter.Instance, - New ValueConverter(Of Double, Byte())( - Function(v As Double) NumberToBytesConverter(Of Double).ReverseLong(BitConverter.GetBytes(v)), - Function(v As Byte()) If(v Is Nothing, 0R, BitConverter.ToDouble(NumberToBytesConverter(Of Double).ReverseLong(v), 0)))), - Type.Missing}), CoreTypeMapping) - doubleNumberToBytesConverterProperty.SetSentinelFromProviderValue(New Byte() {0, 0, 0, 0, 0, 0, 0, 0}) - doubleNumberToBytesConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim doubleNumberToStringConverterProperty = entityType.AddProperty( - "DoubleNumberToStringConverterProperty", - GetType(Double), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DoubleNumberToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DoubleNumberToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New NumberToStringConverter(Of Double)()) - doubleNumberToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(64)", - size:=64, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Double, String)( - Function(v As Double) String.Format(CultureInfo.InvariantCulture, "{0:R}", CType(v, Object)), - Function(v As String) Double.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture)), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Double, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Double, String)( - Function(v As Double) String.Format(CultureInfo.InvariantCulture, "{0:R}", CType(v, Object)), - Function(v As String) Double.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture))), - Type.Missing}), CoreTypeMapping) - doubleNumberToStringConverterProperty.SetSentinelFromProviderValue("0") - doubleNumberToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum16 = entityType.AddProperty( - "Enum16", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum16), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum16", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum16", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enum16.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping) - enum16.SetSentinelFromProviderValue(0S) - enum16.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum16Array = entityType.AddProperty( - "Enum16Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum16()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum16Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum16Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum16Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum16Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum16AsString = entityType.AddProperty( - "Enum16AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum16), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum16AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum16AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - providerPropertyType:=GetType(String)) - enum16AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping) - enum16AsString.SetSentinelFromProviderValue("Default") - enum16AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum16AsStringArray = entityType.AddProperty( - "Enum16AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum16()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum16AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum16AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum16AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum16AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum16AsStringCollection = entityType.AddProperty( - "Enum16AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum16AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum16AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum16AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum16AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum16Collection = entityType.AddProperty( - "Enum16Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum16Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum16Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum16Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum16Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum32 = entityType.AddProperty( - "Enum32", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum32", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum32", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enum32.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping) - enum32.SetSentinelFromProviderValue(0) - enum32.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum32Array = entityType.AddProperty( - "Enum32Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum32Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum32Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum32Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum32Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum32AsString = entityType.AddProperty( - "Enum32AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum32AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum32AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - providerPropertyType:=GetType(String)) - enum32AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping) - enum32AsString.SetSentinelFromProviderValue("Default") - enum32AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum32AsStringArray = entityType.AddProperty( - "Enum32AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum32AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum32AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum32AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum32AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum32AsStringCollection = entityType.AddProperty( - "Enum32AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum32AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum32AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum32AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum32AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum32Collection = entityType.AddProperty( - "Enum32Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum32Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum32Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum32Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum32Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum64 = entityType.AddProperty( - "Enum64", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum64), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum64", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum64", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enum64.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping) - enum64.SetSentinelFromProviderValue(0L) - enum64.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum64Array = entityType.AddProperty( - "Enum64Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum64()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum64Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum64Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum64Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum64Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum64AsString = entityType.AddProperty( - "Enum64AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum64), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum64AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum64AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - providerPropertyType:=GetType(String)) - enum64AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping) - enum64AsString.SetSentinelFromProviderValue("Default") - enum64AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum64AsStringArray = entityType.AddProperty( - "Enum64AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum64()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum64AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum64AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum64AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum64AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum64AsStringCollection = entityType.AddProperty( - "Enum64AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum64AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum64AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum64AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum64AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum64Collection = entityType.AddProperty( - "Enum64Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum64Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum64Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum64Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum64Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum8 = entityType.AddProperty( - "Enum8", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum8), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum8", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum8", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enum8.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping) - enum8.SetSentinelFromProviderValue(0S) - enum8.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum8Array = entityType.AddProperty( - "Enum8Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum8()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum8Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum8Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum8Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum8Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum8AsString = entityType.AddProperty( - "Enum8AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum8), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum8AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum8AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - providerPropertyType:=GetType(String)) - enum8AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping) - enum8AsString.SetSentinelFromProviderValue("Default") - enum8AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum8AsStringArray = entityType.AddProperty( - "Enum8AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum8()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum8AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum8AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum8AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum8AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum8AsStringCollection = entityType.AddProperty( - "Enum8AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum8AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum8AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum8AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum8AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum8Collection = entityType.AddProperty( - "Enum8Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum8Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum8Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum8Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - StoreTypePostfix.None}), CoreTypeMapping) - enum8Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumToNumberConverterProperty = entityType.AddProperty( - "EnumToNumberConverterProperty", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumToNumberConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumToNumberConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New EnumToNumberConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)()) - enumToNumberConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping) - enumToNumberConverterProperty.SetSentinelFromProviderValue(0) - enumToNumberConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumToStringConverterProperty = entityType.AddProperty( - "EnumToStringConverterProperty", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New EnumToStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)()) - enumToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping) - enumToStringConverterProperty.SetSentinelFromProviderValue("Default") - enumToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU16 = entityType.AddProperty( - "EnumU16", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU16", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU16", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enumU16.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping) - enumU16.SetSentinelFromProviderValue(0) - enumU16.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU16Array = entityType.AddProperty( - "EnumU16Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU16()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU16Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU16Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU16Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU16Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU16AsString = entityType.AddProperty( - "EnumU16AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU16AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU16AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - providerPropertyType:=GetType(String)) - enumU16AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU16AsString.SetSentinelFromProviderValue("Min") - enumU16AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU16AsStringArray = entityType.AddProperty( - "EnumU16AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU16()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU16AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU16AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU16AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU16AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU16AsStringCollection = entityType.AddProperty( - "EnumU16AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU16AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU16AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU16AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU16AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU16Collection = entityType.AddProperty( - "EnumU16Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU16Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU16Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU16Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU16Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU32 = entityType.AddProperty( - "EnumU32", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU32", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU32", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enumU32.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping) - enumU32.SetSentinelFromProviderValue(0L) - enumU32.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU32Array = entityType.AddProperty( - "EnumU32Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU32()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU32Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU32Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU32Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU32Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU32AsString = entityType.AddProperty( - "EnumU32AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU32AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU32AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - providerPropertyType:=GetType(String)) - enumU32AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU32AsString.SetSentinelFromProviderValue("Min") - enumU32AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU32AsStringArray = entityType.AddProperty( - "EnumU32AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU32()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU32AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU32AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU32AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU32AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU32AsStringCollection = entityType.AddProperty( - "EnumU32AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU32AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU32AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU32AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU32AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU32Collection = entityType.AddProperty( - "EnumU32Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU32Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU32Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU32Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU32Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU64 = entityType.AddProperty( - "EnumU64", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU64", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU64", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enumU64.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping) - enumU64.SetSentinelFromProviderValue(0D) - enumU64.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU64Array = entityType.AddProperty( - "EnumU64Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU64()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU64Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU64Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU64Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU64Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU64AsString = entityType.AddProperty( - "EnumU64AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU64AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU64AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - providerPropertyType:=GetType(String)) - enumU64AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU64AsString.SetSentinelFromProviderValue("Min") - enumU64AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU64AsStringArray = entityType.AddProperty( - "EnumU64AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU64()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU64AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU64AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU64AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU64AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU64AsStringCollection = entityType.AddProperty( - "EnumU64AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU64AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU64AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU64AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU64AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU64Collection = entityType.AddProperty( - "EnumU64Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU64Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU64Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU64Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU64Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU8 = entityType.AddProperty( - "EnumU8", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU8", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU8", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enumU8.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping) - enumU8.SetSentinelFromProviderValue(CByte(0)) - enumU8.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU8Array = entityType.AddProperty( - "EnumU8Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU8()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU8Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU8Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU8Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU8Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU8AsString = entityType.AddProperty( - "EnumU8AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU8AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU8AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - providerPropertyType:=GetType(String)) - enumU8AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU8AsString.SetSentinelFromProviderValue("Min") - enumU8AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU8AsStringArray = entityType.AddProperty( - "EnumU8AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU8()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU8AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU8AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU8AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU8AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU8AsStringCollection = entityType.AddProperty( - "EnumU8AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU8AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU8AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU8AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU8AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enumU8Collection = entityType.AddProperty( - "EnumU8Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU8Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU8Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU8Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - StoreTypePostfix.None}), CoreTypeMapping) - enumU8Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim floatArray = entityType.AddProperty( - "FloatArray", - GetType(Single()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("FloatArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_FloatArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - floatArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Single)(New JsonCollectionReaderWriter(Of Single(), Single(), Single)( - JsonFloatReaderWriter.Instance)), - New ListComparer(Of Single)(New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v)), - New ListComparer(Of Single)(New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerFloatTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Single(), Single(), Single)( - JsonFloatReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - floatArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim guid = entityType.AddProperty( - "Guid", - GetType(Guid), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Guid", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Guid", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=New Guid("00000000-0000-0000-0000-000000000000")) - guid.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(GuidTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="uniqueidentifier"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - guid.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim guidArray = entityType.AddProperty( - "GuidArray", - GetType(Guid()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("GuidArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_GuidArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - guidArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Guid)(New JsonCollectionReaderWriter(Of Guid(), Guid(), Guid)( - JsonGuidReaderWriter.Instance)), - New ListComparer(Of Guid)(New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v)), - New ListComparer(Of Guid)(New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(GuidTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="uniqueidentifier"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Guid(), Guid(), Guid)( - JsonGuidReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - guidArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim guidToBytesConverterProperty = entityType.AddProperty( - "GuidToBytesConverterProperty", - GetType(Guid), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("GuidToBytesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_GuidToBytesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New GuidToBytesConverter()) - guidToBytesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(16)", - size:=16), - Type.Missing, - New ValueConverter(Of Guid, Byte())( - Function(v As Guid) v.ToByteArray(), - Function(v As Byte()) New Guid(v)), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Guid, Byte())( - JsonByteArrayReaderWriter.Instance, - New ValueConverter(Of Guid, Byte())( - Function(v As Guid) v.ToByteArray(), - Function(v As Byte()) New Guid(v))), - Type.Missing}), CoreTypeMapping) - guidToBytesConverterProperty.SetSentinelFromProviderValue(New Byte() {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}) - guidToBytesConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim guidToStringConverterProperty = entityType.AddProperty( - "GuidToStringConverterProperty", - GetType(Guid), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("GuidToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_GuidToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New GuidToStringConverter()) - guidToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(36)", - size:=36, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Guid, String)( - Function(v As Guid) v.ToString("D"), - Function(v As String) New Guid(v)), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Guid, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Guid, String)( - Function(v As Guid) v.ToString("D"), - Function(v As String) New Guid(v))), - Type.Missing}), CoreTypeMapping) - guidToStringConverterProperty.SetSentinelFromProviderValue("00000000-0000-0000-0000-000000000000") - guidToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim iPAddressArray = entityType.AddProperty( - "IPAddressArray", - GetType(IPAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("IPAddressArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_IPAddressArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - iPAddressArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - iPAddressArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim iPAddressToBytesConverterProperty = entityType.AddProperty( - "IPAddressToBytesConverterProperty", - GetType(IPAddress), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("IPAddressToBytesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_IPAddressToBytesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New IPAddressToBytesConverter()) - iPAddressToBytesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(16)", - size:=16), - Type.Missing, - New ValueConverter(Of IPAddress, Byte())( - Function(v As IPAddress) v.GetAddressBytes(), - Function(v As Byte()) New IPAddress(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, Byte())( - JsonByteArrayReaderWriter.Instance, - New ValueConverter(Of IPAddress, Byte())( - Function(v As IPAddress) v.GetAddressBytes(), - Function(v As Byte()) New IPAddress(v))), - Type.Missing}), CoreTypeMapping) - iPAddressToBytesConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim iPAddressToStringConverterProperty = entityType.AddProperty( - "IPAddressToStringConverterProperty", - GetType(IPAddress), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("IPAddressToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_IPAddressToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New IPAddressToStringConverter()) - iPAddressToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping) - iPAddressToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim int16 = entityType.AddProperty( - "Int16", - GetType(Short), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Int16", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Int16", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0S) - int16.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - int16.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim int16Array = entityType.AddProperty( - "Int16Array", - GetType(Short()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Int16Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Int16Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - int16Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Short)(New JsonCollectionReaderWriter(Of Short(), Short(), Short)( - JsonInt16ReaderWriter.Instance)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Short(), Short(), Short)( - JsonInt16ReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - int16Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim int32 = entityType.AddProperty( - "Int32", - GetType(Integer), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Int32", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Int32", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0) - int32.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - int32.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim int32Array = entityType.AddProperty( - "Int32Array", - GetType(Integer()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Int32Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Int32Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - int32Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Integer)(New JsonCollectionReaderWriter(Of Integer(), Integer(), Integer)( - JsonInt32ReaderWriter.Instance)), - New ListComparer(Of Integer)(New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v)), - New ListComparer(Of Integer)(New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Integer(), Integer(), Integer)( - JsonInt32ReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - int32Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim int64 = entityType.AddProperty( - "Int64", - GetType(Long), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Int64", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Int64", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0L) - int64.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - int64.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim int64Array = entityType.AddProperty( - "Int64Array", - GetType(Long()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Int64Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Int64Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - int64Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Long)(New JsonCollectionReaderWriter(Of Long(), Long(), Long)( - JsonInt64ReaderWriter.Instance)), - New ListComparer(Of Long)(New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v)), - New ListComparer(Of Long)(New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Long(), Long(), Long)( - JsonInt64ReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - int64Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim int8 = entityType.AddProperty( - "Int8", - GetType(SByte), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Int8", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Int8", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - int8.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of SByte, Short)( - Function(v As SByte) CType(v, Short), - Function(v As Short) CType(v, SByte)), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of SByte, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of SByte, Short)( - Function(v As SByte) CType(v, Short), - Function(v As Short) CType(v, SByte))), - Type.Missing}), CoreTypeMapping) - int8.SetSentinelFromProviderValue(0S) - int8.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim int8Array = entityType.AddProperty( - "Int8Array", - GetType(SByte()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Int8Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Int8Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - int8Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of SByte)(New JsonCollectionReaderWriter(Of SByte(), SByte(), SByte)( - New JsonConvertedValueReaderWriter(Of SByte, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of SByte, Short)( - Function(v As SByte) CType(v, Short), - Function(v As Short) CType(v, SByte))))), - New ListComparer(Of SByte)(New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v)), - New ListComparer(Of SByte)(New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of SByte, Short)( - Function(v As SByte) CType(v, Short), - Function(v As Short) CType(v, SByte)), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of SByte, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of SByte, Short)( - Function(v As SByte) CType(v, Short), - Function(v As Short) CType(v, SByte))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of SByte(), SByte(), SByte)( - New JsonConvertedValueReaderWriter(Of SByte, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of SByte, Short)( - Function(v As SByte) CType(v, Short), - Function(v As Short) CType(v, SByte)))), - StoreTypePostfix.None}), CoreTypeMapping) - int8Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim intNumberToBytesConverterProperty = entityType.AddProperty( - "IntNumberToBytesConverterProperty", - GetType(Integer), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("IntNumberToBytesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_IntNumberToBytesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New NumberToBytesConverter(Of Integer)()) - intNumberToBytesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(4)", - size:=4), - Type.Missing, - New ValueConverter(Of Integer, Byte())( - Function(v As Integer) NumberToBytesConverter(Of Integer).ReverseInt(BitConverter.GetBytes(v)), - Function(v As Byte()) If(v Is Nothing, 0, BitConverter.ToInt32(NumberToBytesConverter(Of Integer).ReverseInt(If(v.Length = 0, New Byte(4 - 1) {}, v)), 0))), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Integer, Byte())( - JsonByteArrayReaderWriter.Instance, - New ValueConverter(Of Integer, Byte())( - Function(v As Integer) NumberToBytesConverter(Of Integer).ReverseInt(BitConverter.GetBytes(v)), - Function(v As Byte()) If(v Is Nothing, 0, BitConverter.ToInt32(NumberToBytesConverter(Of Integer).ReverseInt(If(v.Length = 0, New Byte(4 - 1) {}, v)), 0)))), - Type.Missing}), CoreTypeMapping) - intNumberToBytesConverterProperty.SetSentinelFromProviderValue(New Byte() {0, 0, 0, 0}) - intNumberToBytesConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim intNumberToStringConverterProperty = entityType.AddProperty( - "IntNumberToStringConverterProperty", - GetType(Integer), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("IntNumberToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_IntNumberToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New NumberToStringConverter(Of Integer)()) - intNumberToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(64)", - size:=64, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Integer, String)( - Function(v As Integer) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) Integer.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture)), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Integer, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Integer, String)( - Function(v As Integer) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) Integer.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture))), - Type.Missing}), CoreTypeMapping) - intNumberToStringConverterProperty.SetSentinelFromProviderValue("0") - intNumberToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullIntToNullStringConverterProperty = entityType.AddProperty( - "NullIntToNullStringConverterProperty", - GetType(Integer?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullIntToNullStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullIntToNullStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New VisualBasicRuntimeModelCodeGeneratorTest.NullIntToNullStringConverter()) - nullIntToNullStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Integer?, String)( - Function(v As Nullable(Of Integer)) If(v Is Nothing, Nothing, v.ToString()), - Function(v As String) CType(If(CType(v, Object) Is Nothing OrElse v = "", 0, Integer.Parse(v)), Nullable(Of Integer)), - convertsNulls:=True), - New ValueComparer(Of Integer?)( - Function(v1 As Nullable(Of Integer), v2 As Nullable(Of Integer)) v1 = v2, - Function(v As Nullable(Of Integer)) CType(v, Integer), - Function(v As Nullable(Of Integer)) v), - New ValueComparer(Of Integer?)( - Function(v1 As Nullable(Of Integer), v2 As Nullable(Of Integer)) v1 = v2, - Function(v As Nullable(Of Integer)) CType(v, Integer), - Function(v As Nullable(Of Integer)) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Integer?, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Integer?, String)( - Function(v As Nullable(Of Integer)) If(v Is Nothing, Nothing, v.ToString()), - Function(v As String) CType(If(CType(v, Object) Is Nothing OrElse v = "", 0, Integer.Parse(v)), Nullable(Of Integer)), - convertsNulls:=True)), - StoreTypePostfix.None}), CoreTypeMapping) - nullIntToNullStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableBool = entityType.AddProperty( - "NullableBool", - GetType(Boolean?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableBool", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableBool", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableBool.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerBoolTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Boolean?)( - Function(v1 As Nullable(Of Boolean), v2 As Nullable(Of Boolean)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Boolean) = CType(v2, Boolean) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(v, Boolean).GetHashCode(), 0), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(CType(v, Boolean), Nullable(Of Boolean)), CType(Nothing, Nullable(Of Boolean)))), - New ValueComparer(Of Boolean?)( - Function(v1 As Nullable(Of Boolean), v2 As Nullable(Of Boolean)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Boolean) = CType(v2, Boolean) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(v, Boolean).GetHashCode(), 0), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(CType(v, Boolean), Nullable(Of Boolean)), CType(Nothing, Nullable(Of Boolean)))), - New ValueComparer(Of Boolean?)( - Function(v1 As Nullable(Of Boolean), v2 As Nullable(Of Boolean)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Boolean) = CType(v2, Boolean) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(v, Boolean).GetHashCode(), 0), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(CType(v, Boolean), Nullable(Of Boolean)), CType(Nothing, Nullable(Of Boolean)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableBool.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableBoolArray = entityType.AddProperty( - "NullableBoolArray", - GetType(Boolean?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableBoolArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableBoolArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableBoolArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Boolean?)(New JsonNullableStructCollectionReaderWriter(Of Boolean?(), Boolean?(), Boolean)( - JsonBoolReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Boolean)(New ValueComparer(Of Boolean?)( - Function(v1 As Nullable(Of Boolean), v2 As Nullable(Of Boolean)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Boolean) = CType(v2, Boolean) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(v, Boolean).GetHashCode(), 0), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(CType(v, Boolean), Nullable(Of Boolean)), CType(Nothing, Nullable(Of Boolean))))), - New NullableValueTypeListComparer(Of Boolean)(New ValueComparer(Of Boolean?)( - Function(v1 As Nullable(Of Boolean), v2 As Nullable(Of Boolean)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Boolean) = CType(v2, Boolean) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(v, Boolean).GetHashCode(), 0), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(CType(v, Boolean), Nullable(Of Boolean)), CType(Nothing, Nullable(Of Boolean))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerBoolTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Boolean?(), Boolean?(), Boolean)( - JsonBoolReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableBoolArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableBytes = entityType.AddProperty( - "NullableBytes", - GetType(Byte()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableBytes", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableBytes", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableBytes.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(max)"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - nullableBytes.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableBytesArray = entityType.AddProperty( - "NullableBytesArray", - GetType(Byte()()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableBytesArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableBytesArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableBytesArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte())(New JsonCollectionReaderWriter(Of Byte()(), Byte()(), Byte())( - JsonByteArrayReaderWriter.Instance)), - New ListComparer(Of Byte())(New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v)), - New ListComparer(Of Byte())(New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(max)"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Byte()(), Byte()(), Byte())( - JsonByteArrayReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableBytesArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableChar = entityType.AddProperty( - "NullableChar", - GetType(Char?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableChar", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableChar", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableChar.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(1)", - size:=1, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0))), - New ValueComparer(Of Char?)( - Function(v1 As Nullable(Of Char), v2 As Nullable(Of Char)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Char) = CType(v2, Char) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Char)) If(v.HasValue, Strings.AscW(CType(v, Char)), 0), - Function(v As Nullable(Of Char)) If(v.HasValue, CType(CType(v, Char), Nullable(Of Char)), CType(Nothing, Nullable(Of Char)))), - New ValueComparer(Of Char?)( - Function(v1 As Nullable(Of Char), v2 As Nullable(Of Char)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Char) = CType(v2, Char) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Char)) If(v.HasValue, Strings.AscW(CType(v, Char)), 0), - Function(v As Nullable(Of Char)) If(v.HasValue, CType(CType(v, Char), Nullable(Of Char)), CType(Nothing, Nullable(Of Char)))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Char, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)))), - Type.Missing}), CoreTypeMapping) - nullableChar.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableCharArray = entityType.AddProperty( - "NullableCharArray", - GetType(Char?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableCharArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableCharArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableCharArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Char?)(New JsonNullableStructCollectionReaderWriter(Of Char?(), Char?(), Char)( - New JsonConvertedValueReaderWriter(Of Char, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)))))), - New NullableValueTypeListComparer(Of Char)(New ValueComparer(Of Char?)( - Function(v1 As Nullable(Of Char), v2 As Nullable(Of Char)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Char) = CType(v2, Char) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Char)) If(v.HasValue, Strings.AscW(CType(v, Char)), 0), - Function(v As Nullable(Of Char)) If(v.HasValue, CType(CType(v, Char), Nullable(Of Char)), CType(Nothing, Nullable(Of Char))))), - New NullableValueTypeListComparer(Of Char)(New ValueComparer(Of Char?)( - Function(v1 As Nullable(Of Char), v2 As Nullable(Of Char)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Char) = CType(v2, Char) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Char)) If(v.HasValue, Strings.AscW(CType(v, Char)), 0), - Function(v As Nullable(Of Char)) If(v.HasValue, CType(CType(v, Char), Nullable(Of Char)), CType(Nothing, Nullable(Of Char))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(1)", - size:=1, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0))), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Char, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Char?(), Char?(), Char)( - New JsonConvertedValueReaderWriter(Of Char, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0))))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableCharArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableDateOnly = entityType.AddProperty( - "NullableDateOnly", - GetType(DateOnly?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableDateOnly", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableDateOnly", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableDateOnly.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateOnlyTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of DateOnly?)( - Function(v1 As Nullable(Of DateOnly), v2 As Nullable(Of DateOnly)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateOnly) = CType(v2, DateOnly) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateOnly)) If(v.HasValue, CType(v, DateOnly).GetHashCode(), 0), - Function(v As Nullable(Of DateOnly)) If(v.HasValue, CType(CType(v, DateOnly), Nullable(Of DateOnly)), CType(Nothing, Nullable(Of DateOnly)))), - New ValueComparer(Of DateOnly?)( - Function(v1 As Nullable(Of DateOnly), v2 As Nullable(Of DateOnly)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateOnly) = CType(v2, DateOnly) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateOnly)) If(v.HasValue, CType(v, DateOnly).GetHashCode(), 0), - Function(v As Nullable(Of DateOnly)) If(v.HasValue, CType(CType(v, DateOnly), Nullable(Of DateOnly)), CType(Nothing, Nullable(Of DateOnly)))), - New ValueComparer(Of DateOnly?)( - Function(v1 As Nullable(Of DateOnly), v2 As Nullable(Of DateOnly)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateOnly) = CType(v2, DateOnly) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateOnly)) If(v.HasValue, CType(v, DateOnly).GetHashCode(), 0), - Function(v As Nullable(Of DateOnly)) If(v.HasValue, CType(CType(v, DateOnly), Nullable(Of DateOnly)), CType(Nothing, Nullable(Of DateOnly)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableDateOnly.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableDateOnlyArray = entityType.AddProperty( - "NullableDateOnlyArray", - GetType(DateOnly?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableDateOnlyArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableDateOnlyArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableDateOnlyArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of DateOnly?)(New JsonNullableStructCollectionReaderWriter(Of DateOnly?(), DateOnly?(), DateOnly)( - JsonDateOnlyReaderWriter.Instance)), - New NullableValueTypeListComparer(Of DateOnly)(New ValueComparer(Of DateOnly?)( - Function(v1 As Nullable(Of DateOnly), v2 As Nullable(Of DateOnly)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateOnly) = CType(v2, DateOnly) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateOnly)) If(v.HasValue, CType(v, DateOnly).GetHashCode(), 0), - Function(v As Nullable(Of DateOnly)) If(v.HasValue, CType(CType(v, DateOnly), Nullable(Of DateOnly)), CType(Nothing, Nullable(Of DateOnly))))), - New NullableValueTypeListComparer(Of DateOnly)(New ValueComparer(Of DateOnly?)( - Function(v1 As Nullable(Of DateOnly), v2 As Nullable(Of DateOnly)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateOnly) = CType(v2, DateOnly) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateOnly)) If(v.HasValue, CType(v, DateOnly).GetHashCode(), 0), - Function(v As Nullable(Of DateOnly)) If(v.HasValue, CType(CType(v, DateOnly), Nullable(Of DateOnly)), CType(Nothing, Nullable(Of DateOnly))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateOnlyTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of DateOnly?(), DateOnly?(), DateOnly)( - JsonDateOnlyReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableDateOnlyArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableDateTime = entityType.AddProperty( - "NullableDateTime", - GetType(Date?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableDateTime", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableDateTime", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableDateTime.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateTimeTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Date?)( - Function(v1 As Nullable(Of DateTime), v2 As Nullable(Of DateTime)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateTime) = CType(v2, DateTime) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateTime)) If(v.HasValue, CType(v, DateTime).GetHashCode(), 0), - Function(v As Nullable(Of DateTime)) If(v.HasValue, CType(CType(v, DateTime), Nullable(Of DateTime)), CType(Nothing, Nullable(Of DateTime)))), - New ValueComparer(Of Date?)( - Function(v1 As Nullable(Of DateTime), v2 As Nullable(Of DateTime)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateTime) = CType(v2, DateTime) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateTime)) If(v.HasValue, CType(v, DateTime).GetHashCode(), 0), - Function(v As Nullable(Of DateTime)) If(v.HasValue, CType(CType(v, DateTime), Nullable(Of DateTime)), CType(Nothing, Nullable(Of DateTime)))), - New ValueComparer(Of Date?)( - Function(v1 As Nullable(Of DateTime), v2 As Nullable(Of DateTime)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateTime) = CType(v2, DateTime) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateTime)) If(v.HasValue, CType(v, DateTime).GetHashCode(), 0), - Function(v As Nullable(Of DateTime)) If(v.HasValue, CType(CType(v, DateTime), Nullable(Of DateTime)), CType(Nothing, Nullable(Of DateTime)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableDateTime.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableDateTimeArray = entityType.AddProperty( - "NullableDateTimeArray", - GetType(Date?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableDateTimeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableDateTimeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableDateTimeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Date?)(New JsonNullableStructCollectionReaderWriter(Of Date?(), Date?(), Date)( - JsonDateTimeReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Date)(New ValueComparer(Of Date?)( - Function(v1 As Nullable(Of DateTime), v2 As Nullable(Of DateTime)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateTime) = CType(v2, DateTime) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateTime)) If(v.HasValue, CType(v, DateTime).GetHashCode(), 0), - Function(v As Nullable(Of DateTime)) If(v.HasValue, CType(CType(v, DateTime), Nullable(Of DateTime)), CType(Nothing, Nullable(Of DateTime))))), - New NullableValueTypeListComparer(Of Date)(New ValueComparer(Of Date?)( - Function(v1 As Nullable(Of DateTime), v2 As Nullable(Of DateTime)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateTime) = CType(v2, DateTime) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateTime)) If(v.HasValue, CType(v, DateTime).GetHashCode(), 0), - Function(v As Nullable(Of DateTime)) If(v.HasValue, CType(CType(v, DateTime), Nullable(Of DateTime)), CType(Nothing, Nullable(Of DateTime))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateTimeTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Date?(), Date?(), Date)( - JsonDateTimeReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableDateTimeArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableDecimal = entityType.AddProperty( - "NullableDecimal", - GetType(Decimal?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableDecimal", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableDecimal", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableDecimal.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Decimal?)( - Function(v1 As Nullable(Of Decimal), v2 As Nullable(Of Decimal)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Decimal) = CType(v2, Decimal) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Decimal)) If(v.HasValue, CType(v, Decimal).GetHashCode(), 0), - Function(v As Nullable(Of Decimal)) If(v.HasValue, CType(CType(v, Decimal), Nullable(Of Decimal)), CType(Nothing, Nullable(Of Decimal)))), - New ValueComparer(Of Decimal?)( - Function(v1 As Nullable(Of Decimal), v2 As Nullable(Of Decimal)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Decimal) = CType(v2, Decimal) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Decimal)) If(v.HasValue, CType(v, Decimal).GetHashCode(), 0), - Function(v As Nullable(Of Decimal)) If(v.HasValue, CType(CType(v, Decimal), Nullable(Of Decimal)), CType(Nothing, Nullable(Of Decimal)))), - New ValueComparer(Of Decimal?)( - Function(v1 As Nullable(Of Decimal), v2 As Nullable(Of Decimal)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Decimal) = CType(v2, Decimal) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Decimal)) If(v.HasValue, CType(v, Decimal).GetHashCode(), 0), - Function(v As Nullable(Of Decimal)) If(v.HasValue, CType(CType(v, Decimal), Nullable(Of Decimal)), CType(Nothing, Nullable(Of Decimal)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableDecimal.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableDecimalArray = entityType.AddProperty( - "NullableDecimalArray", - GetType(Decimal?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableDecimalArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableDecimalArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableDecimalArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Decimal?)(New JsonNullableStructCollectionReaderWriter(Of Decimal?(), Decimal?(), Decimal)( - JsonDecimalReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Decimal)(New ValueComparer(Of Decimal?)( - Function(v1 As Nullable(Of Decimal), v2 As Nullable(Of Decimal)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Decimal) = CType(v2, Decimal) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Decimal)) If(v.HasValue, CType(v, Decimal).GetHashCode(), 0), - Function(v As Nullable(Of Decimal)) If(v.HasValue, CType(CType(v, Decimal), Nullable(Of Decimal)), CType(Nothing, Nullable(Of Decimal))))), - New NullableValueTypeListComparer(Of Decimal)(New ValueComparer(Of Decimal?)( - Function(v1 As Nullable(Of Decimal), v2 As Nullable(Of Decimal)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Decimal) = CType(v2, Decimal) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Decimal)) If(v.HasValue, CType(v, Decimal).GetHashCode(), 0), - Function(v As Nullable(Of Decimal)) If(v.HasValue, CType(CType(v, Decimal), Nullable(Of Decimal)), CType(Nothing, Nullable(Of Decimal))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Decimal?(), Decimal?(), Decimal)( - JsonDecimalReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableDecimalArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableDouble = entityType.AddProperty( - "NullableDouble", - GetType(Double?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableDouble", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableDouble", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableDouble.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDoubleTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Double?)( - Function(v1 As Nullable(Of Double), v2 As Nullable(Of Double)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Double).Equals(CType(v2, Double)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(v, Double).GetHashCode(), 0), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(CType(v, Double), Nullable(Of Double)), CType(Nothing, Nullable(Of Double)))), - New ValueComparer(Of Double?)( - Function(v1 As Nullable(Of Double), v2 As Nullable(Of Double)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Double).Equals(CType(v2, Double)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(v, Double).GetHashCode(), 0), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(CType(v, Double), Nullable(Of Double)), CType(Nothing, Nullable(Of Double)))), - New ValueComparer(Of Double?)( - Function(v1 As Nullable(Of Double), v2 As Nullable(Of Double)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Double).Equals(CType(v2, Double)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(v, Double).GetHashCode(), 0), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(CType(v, Double), Nullable(Of Double)), CType(Nothing, Nullable(Of Double)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableDouble.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableDoubleArray = entityType.AddProperty( - "NullableDoubleArray", - GetType(Double?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableDoubleArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableDoubleArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableDoubleArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Double?)(New JsonNullableStructCollectionReaderWriter(Of Double?(), Double?(), Double)( - JsonDoubleReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Double)(New ValueComparer(Of Double?)( - Function(v1 As Nullable(Of Double), v2 As Nullable(Of Double)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Double).Equals(CType(v2, Double)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(v, Double).GetHashCode(), 0), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(CType(v, Double), Nullable(Of Double)), CType(Nothing, Nullable(Of Double))))), - New NullableValueTypeListComparer(Of Double)(New ValueComparer(Of Double?)( - Function(v1 As Nullable(Of Double), v2 As Nullable(Of Double)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Double).Equals(CType(v2, Double)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(v, Double).GetHashCode(), 0), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(CType(v, Double), Nullable(Of Double)), CType(Nothing, Nullable(Of Double))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDoubleTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Double?(), Double?(), Double)( - JsonDoubleReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableDoubleArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum16 = entityType.AddProperty( - "NullableEnum16", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum16", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum16", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum16.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping) - nullableEnum16.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum16Array = entityType.AddProperty( - "NullableEnum16Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum16?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum16Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum16Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum16Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum16Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum16AsString = entityType.AddProperty( - "NullableEnum16AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum16AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum16AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum16AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping) - nullableEnum16AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum16AsStringArray = entityType.AddProperty( - "NullableEnum16AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum16?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum16AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum16AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum16AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum16AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum16AsStringCollection = entityType.AddProperty( - "NullableEnum16AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum16AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum16AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum16AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum16AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum16Collection = entityType.AddProperty( - "NullableEnum16Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum16Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum16Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum16Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum16Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum32 = entityType.AddProperty( - "NullableEnum32", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum32", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum32", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum32.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping) - nullableEnum32.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum32Array = entityType.AddProperty( - "NullableEnum32Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum32Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum32Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum32Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum32Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum32AsString = entityType.AddProperty( - "NullableEnum32AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum32AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum32AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum32AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping) - nullableEnum32AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum32AsStringArray = entityType.AddProperty( - "NullableEnum32AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum32AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum32AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum32AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum32AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum32AsStringCollection = entityType.AddProperty( - "NullableEnum32AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum32AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum32AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum32AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum32AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum32Collection = entityType.AddProperty( - "NullableEnum32Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum32Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum32Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum32Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum32Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum64 = entityType.AddProperty( - "NullableEnum64", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum64", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum64", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum64.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping) - nullableEnum64.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum64Array = entityType.AddProperty( - "NullableEnum64Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum64?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum64Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum64Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum64Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum64Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum64AsString = entityType.AddProperty( - "NullableEnum64AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum64AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum64AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum64AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping) - nullableEnum64AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum64AsStringArray = entityType.AddProperty( - "NullableEnum64AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum64?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum64AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum64AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum64AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum64AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum64AsStringCollection = entityType.AddProperty( - "NullableEnum64AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum64AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum64AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum64AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum64AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum64Collection = entityType.AddProperty( - "NullableEnum64Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum64Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum64Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum64Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum64Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum8 = entityType.AddProperty( - "NullableEnum8", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum8", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum8", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum8.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping) - nullableEnum8.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum8Array = entityType.AddProperty( - "NullableEnum8Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum8?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum8Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum8Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum8Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum8Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum8AsString = entityType.AddProperty( - "NullableEnum8AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum8AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum8AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum8AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping) - nullableEnum8AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum8AsStringArray = entityType.AddProperty( - "NullableEnum8AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum8?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum8AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum8AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum8AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum8AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum8AsStringCollection = entityType.AddProperty( - "NullableEnum8AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum8AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum8AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum8AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum8AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnum8Collection = entityType.AddProperty( - "NullableEnum8Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum8Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum8Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum8Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnum8Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU16 = entityType.AddProperty( - "NullableEnumU16", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU16", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU16", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU16.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping) - nullableEnumU16.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU16Array = entityType.AddProperty( - "NullableEnumU16Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU16Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU16Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU16Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU16Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU16AsString = entityType.AddProperty( - "NullableEnumU16AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU16AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU16AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU16AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping) - nullableEnumU16AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU16AsStringArray = entityType.AddProperty( - "NullableEnumU16AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU16AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU16AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU16AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU16AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU16AsStringCollection = entityType.AddProperty( - "NullableEnumU16AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU16AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU16AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU16AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU16AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU16Collection = entityType.AddProperty( - "NullableEnumU16Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU16Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU16Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU16Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU16Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU32 = entityType.AddProperty( - "NullableEnumU32", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU32", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU32", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU32.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping) - nullableEnumU32.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU32Array = entityType.AddProperty( - "NullableEnumU32Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU32Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU32Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU32Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU32Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU32AsString = entityType.AddProperty( - "NullableEnumU32AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU32AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU32AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU32AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping) - nullableEnumU32AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU32AsStringArray = entityType.AddProperty( - "NullableEnumU32AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU32AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU32AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU32AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU32AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU32AsStringCollection = entityType.AddProperty( - "NullableEnumU32AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU32AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU32AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU32AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU32AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU32Collection = entityType.AddProperty( - "NullableEnumU32Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU32Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU32Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU32Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU32Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU64 = entityType.AddProperty( - "NullableEnumU64", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU64", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU64", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU64.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping) - nullableEnumU64.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU64Array = entityType.AddProperty( - "NullableEnumU64Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU64Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU64Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU64Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU64Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU64AsString = entityType.AddProperty( - "NullableEnumU64AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU64AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU64AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU64AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping) - nullableEnumU64AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU64AsStringArray = entityType.AddProperty( - "NullableEnumU64AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU64AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU64AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU64AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU64AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU64AsStringCollection = entityType.AddProperty( - "NullableEnumU64AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU64AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU64AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU64AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU64AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU64Collection = entityType.AddProperty( - "NullableEnumU64Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU64Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU64Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU64Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, Decimal)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(CType(value, Long), Decimal), - Function(value As Decimal) CType(CType(value, Long), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU64Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU8 = entityType.AddProperty( - "NullableEnumU8", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU8", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU8", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU8.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping) - nullableEnumU8.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU8Array = entityType.AddProperty( - "NullableEnumU8Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU8Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU8Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU8Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU8Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU8AsString = entityType.AddProperty( - "NullableEnumU8AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU8AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU8AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU8AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping) - nullableEnumU8AsString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU8AsStringArray = entityType.AddProperty( - "NullableEnumU8AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU8AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU8AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU8AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU8AsStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU8AsStringCollection = entityType.AddProperty( - "NullableEnumU8AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU8AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU8AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU8AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU8AsStringCollection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableEnumU8Collection = entityType.AddProperty( - "NullableEnumU8Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU8Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU8Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU8Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableEnumU8Collection.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableFloat = entityType.AddProperty( - "NullableFloat", - GetType(Single?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableFloat", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableFloat", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableFloat.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerFloatTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Single?)( - Function(v1 As Nullable(Of Single), v2 As Nullable(Of Single)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Single).Equals(CType(v2, Single)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(v, Single).GetHashCode(), 0), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(CType(v, Single), Nullable(Of Single)), CType(Nothing, Nullable(Of Single)))), - New ValueComparer(Of Single?)( - Function(v1 As Nullable(Of Single), v2 As Nullable(Of Single)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Single).Equals(CType(v2, Single)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(v, Single).GetHashCode(), 0), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(CType(v, Single), Nullable(Of Single)), CType(Nothing, Nullable(Of Single)))), - New ValueComparer(Of Single?)( - Function(v1 As Nullable(Of Single), v2 As Nullable(Of Single)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Single).Equals(CType(v2, Single)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(v, Single).GetHashCode(), 0), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(CType(v, Single), Nullable(Of Single)), CType(Nothing, Nullable(Of Single)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableFloat.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableFloatArray = entityType.AddProperty( - "NullableFloatArray", - GetType(Single?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableFloatArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableFloatArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableFloatArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Single?)(New JsonNullableStructCollectionReaderWriter(Of Single?(), Single?(), Single)( - JsonFloatReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Single)(New ValueComparer(Of Single?)( - Function(v1 As Nullable(Of Single), v2 As Nullable(Of Single)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Single).Equals(CType(v2, Single)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(v, Single).GetHashCode(), 0), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(CType(v, Single), Nullable(Of Single)), CType(Nothing, Nullable(Of Single))))), - New NullableValueTypeListComparer(Of Single)(New ValueComparer(Of Single?)( - Function(v1 As Nullable(Of Single), v2 As Nullable(Of Single)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Single).Equals(CType(v2, Single)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(v, Single).GetHashCode(), 0), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(CType(v, Single), Nullable(Of Single)), CType(Nothing, Nullable(Of Single))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerFloatTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Single?(), Single?(), Single)( - JsonFloatReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableFloatArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableGuid = entityType.AddProperty( - "NullableGuid", - GetType(Guid?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableGuid", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableGuid", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableGuid.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(GuidTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="uniqueidentifier"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Guid?)( - Function(v1 As Nullable(Of Guid), v2 As Nullable(Of Guid)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Guid) = CType(v2, Guid) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Guid)) If(v.HasValue, CType(v, Guid).GetHashCode(), 0), - Function(v As Nullable(Of Guid)) If(v.HasValue, CType(CType(v, Guid), Nullable(Of Guid)), CType(Nothing, Nullable(Of Guid)))), - New ValueComparer(Of Guid?)( - Function(v1 As Nullable(Of Guid), v2 As Nullable(Of Guid)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Guid) = CType(v2, Guid) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Guid)) If(v.HasValue, CType(v, Guid).GetHashCode(), 0), - Function(v As Nullable(Of Guid)) If(v.HasValue, CType(CType(v, Guid), Nullable(Of Guid)), CType(Nothing, Nullable(Of Guid)))), - New ValueComparer(Of Guid?)( - Function(v1 As Nullable(Of Guid), v2 As Nullable(Of Guid)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Guid) = CType(v2, Guid) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Guid)) If(v.HasValue, CType(v, Guid).GetHashCode(), 0), - Function(v As Nullable(Of Guid)) If(v.HasValue, CType(CType(v, Guid), Nullable(Of Guid)), CType(Nothing, Nullable(Of Guid)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableGuid.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableGuidArray = entityType.AddProperty( - "NullableGuidArray", - GetType(Guid?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableGuidArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableGuidArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableGuidArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Guid?)(New JsonNullableStructCollectionReaderWriter(Of Guid?(), Guid?(), Guid)( - JsonGuidReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Guid)(New ValueComparer(Of Guid?)( - Function(v1 As Nullable(Of Guid), v2 As Nullable(Of Guid)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Guid) = CType(v2, Guid) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Guid)) If(v.HasValue, CType(v, Guid).GetHashCode(), 0), - Function(v As Nullable(Of Guid)) If(v.HasValue, CType(CType(v, Guid), Nullable(Of Guid)), CType(Nothing, Nullable(Of Guid))))), - New NullableValueTypeListComparer(Of Guid)(New ValueComparer(Of Guid?)( - Function(v1 As Nullable(Of Guid), v2 As Nullable(Of Guid)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Guid) = CType(v2, Guid) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Guid)) If(v.HasValue, CType(v, Guid).GetHashCode(), 0), - Function(v As Nullable(Of Guid)) If(v.HasValue, CType(CType(v, Guid), Nullable(Of Guid)), CType(Nothing, Nullable(Of Guid))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(GuidTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="uniqueidentifier"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Guid?(), Guid?(), Guid)( - JsonGuidReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableGuidArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableIPAddress = entityType.AddProperty( - "NullableIPAddress", - GetType(IPAddress), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableIPAddress", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableIPAddress", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableIPAddress.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping) - nullableIPAddress.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableIPAddressArray = entityType.AddProperty( - "NullableIPAddressArray", - GetType(IPAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableIPAddressArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableIPAddressArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableIPAddressArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableIPAddressArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableInt16 = entityType.AddProperty( - "NullableInt16", - GetType(Short?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableInt16", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableInt16", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableInt16.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Short?)( - Function(v1 As Nullable(Of Short), v2 As Nullable(Of Short)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Short) = CType(v2, Short) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Integer), 0), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Nullable(Of Short)), CType(Nothing, Nullable(Of Short)))), - New ValueComparer(Of Short?)( - Function(v1 As Nullable(Of Short), v2 As Nullable(Of Short)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Short) = CType(v2, Short) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Integer), 0), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Nullable(Of Short)), CType(Nothing, Nullable(Of Short)))), - New ValueComparer(Of Short?)( - Function(v1 As Nullable(Of Short), v2 As Nullable(Of Short)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Short) = CType(v2, Short) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Integer), 0), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Nullable(Of Short)), CType(Nothing, Nullable(Of Short)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableInt16.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableInt16Array = entityType.AddProperty( - "NullableInt16Array", - GetType(Short?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableInt16Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableInt16Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableInt16Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Short?)(New JsonNullableStructCollectionReaderWriter(Of Short?(), Short?(), Short)( - JsonInt16ReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Short)(New ValueComparer(Of Short?)( - Function(v1 As Nullable(Of Short), v2 As Nullable(Of Short)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Short) = CType(v2, Short) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Integer), 0), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Nullable(Of Short)), CType(Nothing, Nullable(Of Short))))), - New NullableValueTypeListComparer(Of Short)(New ValueComparer(Of Short?)( - Function(v1 As Nullable(Of Short), v2 As Nullable(Of Short)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Short) = CType(v2, Short) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Integer), 0), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Nullable(Of Short)), CType(Nothing, Nullable(Of Short))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Short?(), Short?(), Short)( - JsonInt16ReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableInt16Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableInt32 = entityType.AddProperty( - "NullableInt32", - GetType(Integer?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableInt32", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableInt32", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableInt32.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer?)( - Function(v1 As Nullable(Of Integer), v2 As Nullable(Of Integer)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Integer) = CType(v2, Integer) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(v, Integer), 0), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(CType(v, Integer), Nullable(Of Integer)), CType(Nothing, Nullable(Of Integer)))), - New ValueComparer(Of Integer?)( - Function(v1 As Nullable(Of Integer), v2 As Nullable(Of Integer)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Integer) = CType(v2, Integer) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(v, Integer), 0), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(CType(v, Integer), Nullable(Of Integer)), CType(Nothing, Nullable(Of Integer)))), - New ValueComparer(Of Integer?)( - Function(v1 As Nullable(Of Integer), v2 As Nullable(Of Integer)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Integer) = CType(v2, Integer) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(v, Integer), 0), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(CType(v, Integer), Nullable(Of Integer)), CType(Nothing, Nullable(Of Integer)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableInt32.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableInt32Array = entityType.AddProperty( - "NullableInt32Array", - GetType(Integer?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableInt32Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableInt32Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableInt32Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Integer?)(New JsonNullableStructCollectionReaderWriter(Of Integer?(), Integer?(), Integer)( - JsonInt32ReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Integer)(New ValueComparer(Of Integer?)( - Function(v1 As Nullable(Of Integer), v2 As Nullable(Of Integer)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Integer) = CType(v2, Integer) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(v, Integer), 0), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(CType(v, Integer), Nullable(Of Integer)), CType(Nothing, Nullable(Of Integer))))), - New NullableValueTypeListComparer(Of Integer)(New ValueComparer(Of Integer?)( - Function(v1 As Nullable(Of Integer), v2 As Nullable(Of Integer)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Integer) = CType(v2, Integer) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(v, Integer), 0), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(CType(v, Integer), Nullable(Of Integer)), CType(Nothing, Nullable(Of Integer))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Integer?(), Integer?(), Integer)( - JsonInt32ReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableInt32Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableInt64 = entityType.AddProperty( - "NullableInt64", - GetType(Long?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableInt64", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableInt64", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableInt64.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableInt64.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableInt64Array = entityType.AddProperty( - "NullableInt64Array", - GetType(Long?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableInt64Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableInt64Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableInt64Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Long?)(New JsonNullableStructCollectionReaderWriter(Of Long?(), Long?(), Long)( - JsonInt64ReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Long)(New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long))))), - New NullableValueTypeListComparer(Of Long)(New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Long?(), Long?(), Long)( - JsonInt64ReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableInt64Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableInt8 = entityType.AddProperty( - "NullableInt8", - GetType(SByte?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableInt8", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableInt8", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableInt8.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of SByte, Short)( - Function(v As SByte) CType(v, Short), - Function(v As Short) CType(v, SByte)), - New ValueComparer(Of SByte?)( - Function(v1 As Nullable(Of SByte), v2 As Nullable(Of SByte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, SByte) = CType(v2, SByte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Integer), 0), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Nullable(Of SByte)), CType(Nothing, Nullable(Of SByte)))), - New ValueComparer(Of SByte?)( - Function(v1 As Nullable(Of SByte), v2 As Nullable(Of SByte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, SByte) = CType(v2, SByte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Integer), 0), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Nullable(Of SByte)), CType(Nothing, Nullable(Of SByte)))), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of SByte, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of SByte, Short)( - Function(v As SByte) CType(v, Short), - Function(v As Short) CType(v, SByte))), - Type.Missing}), CoreTypeMapping) - nullableInt8.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableInt8Array = entityType.AddProperty( - "NullableInt8Array", - GetType(SByte?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableInt8Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableInt8Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableInt8Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of SByte?)(New JsonNullableStructCollectionReaderWriter(Of SByte?(), SByte?(), SByte)( - New JsonConvertedValueReaderWriter(Of SByte, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of SByte, Short)( - Function(v As SByte) CType(v, Short), - Function(v As Short) CType(v, SByte))))), - New NullableValueTypeListComparer(Of SByte)(New ValueComparer(Of SByte?)( - Function(v1 As Nullable(Of SByte), v2 As Nullable(Of SByte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, SByte) = CType(v2, SByte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Integer), 0), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Nullable(Of SByte)), CType(Nothing, Nullable(Of SByte))))), - New NullableValueTypeListComparer(Of SByte)(New ValueComparer(Of SByte?)( - Function(v1 As Nullable(Of SByte), v2 As Nullable(Of SByte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, SByte) = CType(v2, SByte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Integer), 0), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Nullable(Of SByte)), CType(Nothing, Nullable(Of SByte))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of SByte, Short)( - Function(v As SByte) CType(v, Short), - Function(v As Short) CType(v, SByte)), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of SByte, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of SByte, Short)( - Function(v As SByte) CType(v, Short), - Function(v As Short) CType(v, SByte))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of SByte?(), SByte?(), SByte)( - New JsonConvertedValueReaderWriter(Of SByte, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of SByte, Short)( - Function(v As SByte) CType(v, Short), - Function(v As Short) CType(v, SByte)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableInt8Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullablePhysicalAddress = entityType.AddProperty( - "NullablePhysicalAddress", - GetType(PhysicalAddress), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullablePhysicalAddress", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullablePhysicalAddress", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullablePhysicalAddress.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(20)", - size:=20, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v)), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v))), - Type.Missing}), CoreTypeMapping) - nullablePhysicalAddress.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullablePhysicalAddressArray = entityType.AddProperty( - "NullablePhysicalAddressArray", - GetType(PhysicalAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullablePhysicalAddressArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullablePhysicalAddressArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullablePhysicalAddressArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of PhysicalAddress)(New JsonCollectionReaderWriter(Of PhysicalAddress(), PhysicalAddress(), PhysicalAddress)( - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v))))), - New ListComparer(Of PhysicalAddress)(New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v)), - New ListComparer(Of PhysicalAddress)(New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(20)", - size:=20, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v)), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of PhysicalAddress(), PhysicalAddress(), PhysicalAddress)( - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullablePhysicalAddressArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableString = entityType.AddProperty( - "NullableString", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - nullableString.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableStringArray = entityType.AddProperty( - "NullableStringArray", - GetType(String()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of String(), String(), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of String(), String(), String)( - JsonStringReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableStringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableTimeOnly = entityType.AddProperty( - "NullableTimeOnly", - GetType(TimeOnly?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableTimeOnly", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableTimeOnly", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableTimeOnly.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerTimeOnlyTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of TimeOnly?)( - Function(v1 As Nullable(Of TimeOnly), v2 As Nullable(Of TimeOnly)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeOnly) = CType(v2, TimeOnly) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeOnly)) If(v.HasValue, CType(v, TimeOnly).GetHashCode(), 0), - Function(v As Nullable(Of TimeOnly)) If(v.HasValue, CType(CType(v, TimeOnly), Nullable(Of TimeOnly)), CType(Nothing, Nullable(Of TimeOnly)))), - New ValueComparer(Of TimeOnly?)( - Function(v1 As Nullable(Of TimeOnly), v2 As Nullable(Of TimeOnly)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeOnly) = CType(v2, TimeOnly) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeOnly)) If(v.HasValue, CType(v, TimeOnly).GetHashCode(), 0), - Function(v As Nullable(Of TimeOnly)) If(v.HasValue, CType(CType(v, TimeOnly), Nullable(Of TimeOnly)), CType(Nothing, Nullable(Of TimeOnly)))), - New ValueComparer(Of TimeOnly?)( - Function(v1 As Nullable(Of TimeOnly), v2 As Nullable(Of TimeOnly)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeOnly) = CType(v2, TimeOnly) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeOnly)) If(v.HasValue, CType(v, TimeOnly).GetHashCode(), 0), - Function(v As Nullable(Of TimeOnly)) If(v.HasValue, CType(CType(v, TimeOnly), Nullable(Of TimeOnly)), CType(Nothing, Nullable(Of TimeOnly)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableTimeOnly.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableTimeOnlyArray = entityType.AddProperty( - "NullableTimeOnlyArray", - GetType(TimeOnly?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableTimeOnlyArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableTimeOnlyArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableTimeOnlyArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of TimeOnly?)(New JsonNullableStructCollectionReaderWriter(Of TimeOnly?(), TimeOnly?(), TimeOnly)( - JsonTimeOnlyReaderWriter.Instance)), - New NullableValueTypeListComparer(Of TimeOnly)(New ValueComparer(Of TimeOnly?)( - Function(v1 As Nullable(Of TimeOnly), v2 As Nullable(Of TimeOnly)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeOnly) = CType(v2, TimeOnly) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeOnly)) If(v.HasValue, CType(v, TimeOnly).GetHashCode(), 0), - Function(v As Nullable(Of TimeOnly)) If(v.HasValue, CType(CType(v, TimeOnly), Nullable(Of TimeOnly)), CType(Nothing, Nullable(Of TimeOnly))))), - New NullableValueTypeListComparer(Of TimeOnly)(New ValueComparer(Of TimeOnly?)( - Function(v1 As Nullable(Of TimeOnly), v2 As Nullable(Of TimeOnly)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeOnly) = CType(v2, TimeOnly) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeOnly)) If(v.HasValue, CType(v, TimeOnly).GetHashCode(), 0), - Function(v As Nullable(Of TimeOnly)) If(v.HasValue, CType(CType(v, TimeOnly), Nullable(Of TimeOnly)), CType(Nothing, Nullable(Of TimeOnly))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerTimeOnlyTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of TimeOnly?(), TimeOnly?(), TimeOnly)( - JsonTimeOnlyReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableTimeOnlyArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableTimeSpan = entityType.AddProperty( - "NullableTimeSpan", - GetType(TimeSpan?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableTimeSpan", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableTimeSpan", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableTimeSpan.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerTimeSpanTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of TimeSpan?)( - Function(v1 As Nullable(Of TimeSpan), v2 As Nullable(Of TimeSpan)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeSpan) = CType(v2, TimeSpan) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(v, TimeSpan).GetHashCode(), 0), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(CType(v, TimeSpan), Nullable(Of TimeSpan)), CType(Nothing, Nullable(Of TimeSpan)))), - New ValueComparer(Of TimeSpan?)( - Function(v1 As Nullable(Of TimeSpan), v2 As Nullable(Of TimeSpan)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeSpan) = CType(v2, TimeSpan) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(v, TimeSpan).GetHashCode(), 0), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(CType(v, TimeSpan), Nullable(Of TimeSpan)), CType(Nothing, Nullable(Of TimeSpan)))), - New ValueComparer(Of TimeSpan?)( - Function(v1 As Nullable(Of TimeSpan), v2 As Nullable(Of TimeSpan)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeSpan) = CType(v2, TimeSpan) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(v, TimeSpan).GetHashCode(), 0), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(CType(v, TimeSpan), Nullable(Of TimeSpan)), CType(Nothing, Nullable(Of TimeSpan)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableTimeSpan.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableTimeSpanArray = entityType.AddProperty( - "NullableTimeSpanArray", - GetType(TimeSpan?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableTimeSpanArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableTimeSpanArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableTimeSpanArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of TimeSpan?)(New JsonNullableStructCollectionReaderWriter(Of TimeSpan?(), TimeSpan?(), TimeSpan)( - JsonTimeSpanReaderWriter.Instance)), - New NullableValueTypeListComparer(Of TimeSpan)(New ValueComparer(Of TimeSpan?)( - Function(v1 As Nullable(Of TimeSpan), v2 As Nullable(Of TimeSpan)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeSpan) = CType(v2, TimeSpan) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(v, TimeSpan).GetHashCode(), 0), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(CType(v, TimeSpan), Nullable(Of TimeSpan)), CType(Nothing, Nullable(Of TimeSpan))))), - New NullableValueTypeListComparer(Of TimeSpan)(New ValueComparer(Of TimeSpan?)( - Function(v1 As Nullable(Of TimeSpan), v2 As Nullable(Of TimeSpan)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeSpan) = CType(v2, TimeSpan) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(v, TimeSpan).GetHashCode(), 0), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(CType(v, TimeSpan), Nullable(Of TimeSpan)), CType(Nothing, Nullable(Of TimeSpan))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerTimeSpanTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of TimeSpan?(), TimeSpan?(), TimeSpan)( - JsonTimeSpanReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableTimeSpanArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableUInt16 = entityType.AddProperty( - "NullableUInt16", - GetType(UShort?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUInt16", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUInt16", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUInt16.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of UShort, Integer)( - Function(v As UShort) CType(v, Integer), - Function(v As Integer) CType(v, UShort)), - New ValueComparer(Of UShort?)( - Function(v1 As Nullable(Of UShort), v2 As Nullable(Of UShort)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UShort) = CType(v2, UShort) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Integer), 0), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Nullable(Of UShort)), CType(Nothing, Nullable(Of UShort)))), - New ValueComparer(Of UShort?)( - Function(v1 As Nullable(Of UShort), v2 As Nullable(Of UShort)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UShort) = CType(v2, UShort) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Integer), 0), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Nullable(Of UShort)), CType(Nothing, Nullable(Of UShort)))), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of UShort, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of UShort, Integer)( - Function(v As UShort) CType(v, Integer), - Function(v As Integer) CType(v, UShort))), - Type.Missing}), CoreTypeMapping) - nullableUInt16.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableUInt16Array = entityType.AddProperty( - "NullableUInt16Array", - GetType(UShort?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUInt16Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUInt16Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUInt16Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of UShort?)(New JsonNullableStructCollectionReaderWriter(Of UShort?(), UShort?(), UShort)( - New JsonConvertedValueReaderWriter(Of UShort, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of UShort, Integer)( - Function(v As UShort) CType(v, Integer), - Function(v As Integer) CType(v, UShort))))), - New NullableValueTypeListComparer(Of UShort)(New ValueComparer(Of UShort?)( - Function(v1 As Nullable(Of UShort), v2 As Nullable(Of UShort)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UShort) = CType(v2, UShort) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Integer), 0), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Nullable(Of UShort)), CType(Nothing, Nullable(Of UShort))))), - New NullableValueTypeListComparer(Of UShort)(New ValueComparer(Of UShort?)( - Function(v1 As Nullable(Of UShort), v2 As Nullable(Of UShort)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UShort) = CType(v2, UShort) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Integer), 0), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Nullable(Of UShort)), CType(Nothing, Nullable(Of UShort))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of UShort, Integer)( - Function(v As UShort) CType(v, Integer), - Function(v As Integer) CType(v, UShort)), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of UShort, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of UShort, Integer)( - Function(v As UShort) CType(v, Integer), - Function(v As Integer) CType(v, UShort))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of UShort?(), UShort?(), UShort)( - New JsonConvertedValueReaderWriter(Of UShort, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of UShort, Integer)( - Function(v As UShort) CType(v, Integer), - Function(v As Integer) CType(v, UShort)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableUInt16Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableUInt32 = entityType.AddProperty( - "NullableUInt32", - GetType(UInteger?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUInt32", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUInt32", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUInt32.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of UInteger, Long)( - Function(v As UInteger) CType(v, Long), - Function(v As Long) CType(v, UInteger)), - New ValueComparer(Of UInteger?)( - Function(v1 As Nullable(Of UInteger), v2 As Nullable(Of UInteger)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UInteger) = CType(v2, UInteger) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Integer), 0), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Nullable(Of UInteger)), CType(Nothing, Nullable(Of UInteger)))), - New ValueComparer(Of UInteger?)( - Function(v1 As Nullable(Of UInteger), v2 As Nullable(Of UInteger)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UInteger) = CType(v2, UInteger) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Integer), 0), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Nullable(Of UInteger)), CType(Nothing, Nullable(Of UInteger)))), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of UInteger, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of UInteger, Long)( - Function(v As UInteger) CType(v, Long), - Function(v As Long) CType(v, UInteger))), - Type.Missing}), CoreTypeMapping) - nullableUInt32.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableUInt32Array = entityType.AddProperty( - "NullableUInt32Array", - GetType(UInteger?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUInt32Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUInt32Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUInt32Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of UInteger?)(New JsonNullableStructCollectionReaderWriter(Of UInteger?(), UInteger?(), UInteger)( - New JsonConvertedValueReaderWriter(Of UInteger, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of UInteger, Long)( - Function(v As UInteger) CType(v, Long), - Function(v As Long) CType(v, UInteger))))), - New NullableValueTypeListComparer(Of UInteger)(New ValueComparer(Of UInteger?)( - Function(v1 As Nullable(Of UInteger), v2 As Nullable(Of UInteger)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UInteger) = CType(v2, UInteger) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Integer), 0), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Nullable(Of UInteger)), CType(Nothing, Nullable(Of UInteger))))), - New NullableValueTypeListComparer(Of UInteger)(New ValueComparer(Of UInteger?)( - Function(v1 As Nullable(Of UInteger), v2 As Nullable(Of UInteger)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UInteger) = CType(v2, UInteger) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Integer), 0), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Nullable(Of UInteger)), CType(Nothing, Nullable(Of UInteger))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of UInteger, Long)( - Function(v As UInteger) CType(v, Long), - Function(v As Long) CType(v, UInteger)), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of UInteger, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of UInteger, Long)( - Function(v As UInteger) CType(v, Long), - Function(v As Long) CType(v, UInteger))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of UInteger?(), UInteger?(), UInteger)( - New JsonConvertedValueReaderWriter(Of UInteger, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of UInteger, Long)( - Function(v As UInteger) CType(v, Long), - Function(v As Long) CType(v, UInteger)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableUInt32Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableUInt64 = entityType.AddProperty( - "NullableUInt64", - GetType(ULong?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUInt64", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUInt64", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUInt64.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of ULong, Decimal)( - Function(v As ULong) CType(v, Decimal), - Function(v As Decimal) CType(v, ULong)), - New ValueComparer(Of ULong?)( - Function(v1 As Nullable(Of ULong), v2 As Nullable(Of ULong)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, ULong) = CType(v2, ULong) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of ULong)) If(v.HasValue, CType(v, ULong).GetHashCode(), 0), - Function(v As Nullable(Of ULong)) If(v.HasValue, CType(CType(v, ULong), Nullable(Of ULong)), CType(Nothing, Nullable(Of ULong)))), - New ValueComparer(Of ULong?)( - Function(v1 As Nullable(Of ULong), v2 As Nullable(Of ULong)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, ULong) = CType(v2, ULong) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of ULong)) If(v.HasValue, CType(v, ULong).GetHashCode(), 0), - Function(v As Nullable(Of ULong)) If(v.HasValue, CType(CType(v, ULong), Nullable(Of ULong)), CType(Nothing, Nullable(Of ULong)))), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of ULong, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of ULong, Decimal)( - Function(v As ULong) CType(v, Decimal), - Function(v As Decimal) CType(v, ULong))), - Type.Missing}), CoreTypeMapping) - nullableUInt64.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableUInt64Array = entityType.AddProperty( - "NullableUInt64Array", - GetType(ULong?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUInt64Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUInt64Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUInt64Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of ULong?)(New JsonNullableStructCollectionReaderWriter(Of ULong?(), ULong?(), ULong)( - New JsonConvertedValueReaderWriter(Of ULong, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of ULong, Decimal)( - Function(v As ULong) CType(v, Decimal), - Function(v As Decimal) CType(v, ULong))))), - New NullableValueTypeListComparer(Of ULong)(New ValueComparer(Of ULong?)( - Function(v1 As Nullable(Of ULong), v2 As Nullable(Of ULong)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, ULong) = CType(v2, ULong) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of ULong)) If(v.HasValue, CType(v, ULong).GetHashCode(), 0), - Function(v As Nullable(Of ULong)) If(v.HasValue, CType(CType(v, ULong), Nullable(Of ULong)), CType(Nothing, Nullable(Of ULong))))), - New NullableValueTypeListComparer(Of ULong)(New ValueComparer(Of ULong?)( - Function(v1 As Nullable(Of ULong), v2 As Nullable(Of ULong)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, ULong) = CType(v2, ULong) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of ULong)) If(v.HasValue, CType(v, ULong).GetHashCode(), 0), - Function(v As Nullable(Of ULong)) If(v.HasValue, CType(CType(v, ULong), Nullable(Of ULong)), CType(Nothing, Nullable(Of ULong))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of ULong, Decimal)( - Function(v As ULong) CType(v, Decimal), - Function(v As Decimal) CType(v, ULong)), - New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v), - New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of ULong, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of ULong, Decimal)( - Function(v As ULong) CType(v, Decimal), - Function(v As Decimal) CType(v, ULong))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of ULong?(), ULong?(), ULong)( - New JsonConvertedValueReaderWriter(Of ULong, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of ULong, Decimal)( - Function(v As ULong) CType(v, Decimal), - Function(v As Decimal) CType(v, ULong)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableUInt64Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableUInt8 = entityType.AddProperty( - "NullableUInt8", - GetType(Byte?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUInt8", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUInt8", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUInt8.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte)))), - New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte)))), - New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - nullableUInt8.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableUInt8Array = entityType.AddProperty( - "NullableUInt8Array", - GetType(Byte?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUInt8Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUInt8Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUInt8Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte?)(New JsonNullableStructCollectionReaderWriter(Of Byte?(), Byte?(), Byte)( - JsonByteReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Byte)(New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte))))), - New NullableValueTypeListComparer(Of Byte)(New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Byte?(), Byte?(), Byte)( - JsonByteReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - nullableUInt8Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableUri = entityType.AddProperty( - "NullableUri", - GetType(Uri), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUri", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUri", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUri.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute)), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableUri.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim nullableUriArray = entityType.AddProperty( - "NullableUriArray", - GetType(Uri()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUriArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUriArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUriArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Uri)(New JsonCollectionReaderWriter(Of Uri(), Uri(), Uri)( - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute))))), - New ListComparer(Of Uri)(New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v)), - New ListComparer(Of Uri)(New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute)), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Uri(), Uri(), Uri)( - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute)))), - StoreTypePostfix.None}), CoreTypeMapping) - nullableUriArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim physicalAddressArray = entityType.AddProperty( - "PhysicalAddressArray", - GetType(PhysicalAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("PhysicalAddressArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_PhysicalAddressArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - physicalAddressArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of PhysicalAddress)(New JsonCollectionReaderWriter(Of PhysicalAddress(), PhysicalAddress(), PhysicalAddress)( - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v))))), - New ListComparer(Of PhysicalAddress)(New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v)), - New ListComparer(Of PhysicalAddress)(New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(20)", - size:=20, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v)), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of PhysicalAddress(), PhysicalAddress(), PhysicalAddress)( - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - physicalAddressArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim physicalAddressToBytesConverterProperty = entityType.AddProperty( - "PhysicalAddressToBytesConverterProperty", - GetType(PhysicalAddress), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("PhysicalAddressToBytesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_PhysicalAddressToBytesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New PhysicalAddressToBytesConverter()) - physicalAddressToBytesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(8)", - size:=8), - Type.Missing, - New ValueConverter(Of PhysicalAddress, Byte())( - Function(v As PhysicalAddress) v.GetAddressBytes(), - Function(v As Byte()) New PhysicalAddress(v)), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - New JsonConvertedValueReaderWriter(Of PhysicalAddress, Byte())( - JsonByteArrayReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, Byte())( - Function(v As PhysicalAddress) v.GetAddressBytes(), - Function(v As Byte()) New PhysicalAddress(v))), - Type.Missing}), CoreTypeMapping) - physicalAddressToBytesConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim physicalAddressToStringConverterProperty = entityType.AddProperty( - "PhysicalAddressToStringConverterProperty", - GetType(PhysicalAddress), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("PhysicalAddressToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_PhysicalAddressToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New PhysicalAddressToStringConverter()) - physicalAddressToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(20)", - size:=20, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v)), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v))), - Type.Missing}), CoreTypeMapping) - physicalAddressToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim [string] = entityType.AddProperty( - "String", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("String", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_String", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - [string].TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - [string].AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringArray = entityType.AddProperty( - "StringArray", - GetType(String()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - stringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of String(), String(), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of String(), String(), String)( - JsonStringReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - stringArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToBoolConverterProperty = entityType.AddProperty( - "StringToBoolConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToBoolConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToBoolConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToBoolConverter()) - stringToBoolConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerBoolTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of String, Boolean)( - Function(v As String) Convert.ToBoolean(v), - Function(v As Boolean) Convert.ToString(v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, Boolean)( - JsonBoolReaderWriter.Instance, - New ValueConverter(Of String, Boolean)( - Function(v As String) Convert.ToBoolean(v), - Function(v As Boolean) Convert.ToString(v))), - Type.Missing}), CoreTypeMapping) - stringToBoolConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToBytesConverterProperty = entityType.AddProperty( - "StringToBytesConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToBytesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToBytesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - stringToBytesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(max)"), - Type.Missing, - New ValueConverter(Of String, Byte())( - Function(v As String) Encoding.UTF32.GetBytes(v), - Function(v As Byte()) Encoding.UTF32.GetString(v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, Byte())( - JsonByteArrayReaderWriter.Instance, - New ValueConverter(Of String, Byte())( - Function(v As String) Encoding.UTF32.GetBytes(v), - Function(v As Byte()) Encoding.UTF32.GetString(v))), - StoreTypePostfix.None}), CoreTypeMapping) - stringToBytesConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToCharConverterProperty = entityType.AddProperty( - "StringToCharConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToCharConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToCharConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToCharConverter()) - stringToCharConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(1)", - size:=1, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of String, String)( - Function(v As String) String.Format(CultureInfo.InvariantCulture, "{0}", CType(If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)), Object)), - Function(v As String) String.Format(CultureInfo.InvariantCulture, "{0}", CType(If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)), Object))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of String, String)( - Function(v As String) String.Format(CultureInfo.InvariantCulture, "{0}", CType(If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)), Object)), - Function(v As String) String.Format(CultureInfo.InvariantCulture, "{0}", CType(If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)), Object)))), - Type.Missing}), CoreTypeMapping) - stringToCharConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToDateOnlyConverterProperty = entityType.AddProperty( - "StringToDateOnlyConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToDateOnlyConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToDateOnlyConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToDateOnlyConverter()) - stringToDateOnlyConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateOnlyTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=10), - Type.Missing, - New ValueConverter(Of String, DateOnly)( - Function(v As String) DateOnly.Parse(v, CultureInfo.InvariantCulture, DateTimeStyles.None), - Function(v As DateOnly) v.ToString("yyyy\-MM\-dd")), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, DateOnly)( - JsonDateOnlyReaderWriter.Instance, - New ValueConverter(Of String, DateOnly)( - Function(v As String) DateOnly.Parse(v, CultureInfo.InvariantCulture, DateTimeStyles.None), - Function(v As DateOnly) v.ToString("yyyy\-MM\-dd"))), - Type.Missing}), CoreTypeMapping) - stringToDateOnlyConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToDateTimeConverterProperty = entityType.AddProperty( - "StringToDateTimeConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToDateTimeConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToDateTimeConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToDateTimeConverter()) - stringToDateTimeConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateTimeTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=48), - Type.Missing, - New ValueConverter(Of String, Date)( - Function(v As String) DateTime.Parse(v, CultureInfo.InvariantCulture), - Function(v As DateTime) v.ToString("yyyy\-MM\-dd HH\:mm\:ss.FFFFFFF")), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, Date)( - JsonDateTimeReaderWriter.Instance, - New ValueConverter(Of String, Date)( - Function(v As String) DateTime.Parse(v, CultureInfo.InvariantCulture), - Function(v As DateTime) v.ToString("yyyy\-MM\-dd HH\:mm\:ss.FFFFFFF"))), - Type.Missing}), CoreTypeMapping) - stringToDateTimeConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToDateTimeOffsetConverterProperty = entityType.AddProperty( - "StringToDateTimeOffsetConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToDateTimeOffsetConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToDateTimeOffsetConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToDateTimeOffsetConverter()) - stringToDateTimeOffsetConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateTimeOffsetTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=48), - Type.Missing, - New ValueConverter(Of String, DateTimeOffset)( - Function(v As String) DateTimeOffset.Parse(v, CultureInfo.InvariantCulture), - Function(v As DateTimeOffset) v.ToString("yyyy\-MM\-dd HH\:mm\:ss.FFFFFFFzzz")), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of DateTimeOffset)( - Function(v1 As DateTimeOffset, v2 As DateTimeOffset) v1.EqualsExact(v2), - Function(v As DateTimeOffset) v.GetHashCode(), - Function(v As DateTimeOffset) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, DateTimeOffset)( - JsonDateTimeOffsetReaderWriter.Instance, - New ValueConverter(Of String, DateTimeOffset)( - Function(v As String) DateTimeOffset.Parse(v, CultureInfo.InvariantCulture), - Function(v As DateTimeOffset) v.ToString("yyyy\-MM\-dd HH\:mm\:ss.FFFFFFFzzz"))), - Type.Missing}), CoreTypeMapping) - stringToDateTimeOffsetConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToDecimalNumberConverterProperty = entityType.AddProperty( - "StringToDecimalNumberConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToDecimalNumberConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToDecimalNumberConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToNumberConverter(Of Decimal)()) - stringToDecimalNumberConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=64), - Type.Missing, - New ValueConverter(Of String, Decimal)( - Function(v As String) Decimal.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture), - Function(v As Decimal) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of String, Decimal)( - Function(v As String) Decimal.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture), - Function(v As Decimal) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)))), - Type.Missing}), CoreTypeMapping) - stringToDecimalNumberConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToDoubleNumberConverterProperty = entityType.AddProperty( - "StringToDoubleNumberConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToDoubleNumberConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToDoubleNumberConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToNumberConverter(Of Double)()) - stringToDoubleNumberConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDoubleTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=64), - Type.Missing, - New ValueConverter(Of String, Double)( - Function(v As String) Double.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture), - Function(v As Double) String.Format(CultureInfo.InvariantCulture, "{0:R}", CType(v, Object))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, Double)( - JsonDoubleReaderWriter.Instance, - New ValueConverter(Of String, Double)( - Function(v As String) Double.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture), - Function(v As Double) String.Format(CultureInfo.InvariantCulture, "{0:R}", CType(v, Object)))), - Type.Missing}), CoreTypeMapping) - stringToDoubleNumberConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToEnumConverterProperty = entityType.AddProperty( - "StringToEnumConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToEnumConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToEnumConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)()) - stringToEnumConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of String, Long)( - Function(v As String) CType(StringEnumConverter(Of String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v), Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ToString()), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of String, Long)( - Function(v As String) CType(StringEnumConverter(Of String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v), Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ToString())), - Type.Missing}), CoreTypeMapping) - stringToEnumConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToGuidConverterProperty = entityType.AddProperty( - "StringToGuidConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToGuidConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToGuidConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - stringToGuidConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - stringToGuidConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToIntNumberConverterProperty = entityType.AddProperty( - "StringToIntNumberConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToIntNumberConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToIntNumberConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToNumberConverter(Of Integer)()) - stringToIntNumberConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=64), - Type.Missing, - New ValueConverter(Of String, Integer)( - Function(v As String) Integer.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture), - Function(v As Integer) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of String, Integer)( - Function(v As String) Integer.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture), - Function(v As Integer) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)))), - Type.Missing}), CoreTypeMapping) - stringToIntNumberConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToTimeOnlyConverterProperty = entityType.AddProperty( - "StringToTimeOnlyConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToTimeOnlyConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToTimeOnlyConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToTimeOnlyConverter()) - stringToTimeOnlyConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerTimeOnlyTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=48), - Type.Missing, - New ValueConverter(Of String, TimeOnly)( - Function(v As String) TimeOnly.Parse(v, CultureInfo.InvariantCulture, DateTimeStyles.None), - Function(v As TimeOnly) If(v.Ticks Mod 10000000L = 0L, String.Format(CultureInfo.InvariantCulture, "{0:HH\:mm\:ss}", CType(v, Object)), v.ToString("o"))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, TimeOnly)( - JsonTimeOnlyReaderWriter.Instance, - New ValueConverter(Of String, TimeOnly)( - Function(v As String) TimeOnly.Parse(v, CultureInfo.InvariantCulture, DateTimeStyles.None), - Function(v As TimeOnly) If(v.Ticks Mod 10000000L = 0L, String.Format(CultureInfo.InvariantCulture, "{0:HH\:mm\:ss}", CType(v, Object)), v.ToString("o")))), - Type.Missing}), CoreTypeMapping) - stringToTimeOnlyConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToTimeSpanConverterProperty = entityType.AddProperty( - "StringToTimeSpanConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToTimeSpanConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToTimeSpanConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToTimeSpanConverter()) - stringToTimeSpanConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerTimeSpanTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=48), - Type.Missing, - New ValueConverter(Of String, TimeSpan)( - Function(v As String) TimeSpan.Parse(v, CultureInfo.InvariantCulture), - Function(v As TimeSpan) v.ToString("c")), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, TimeSpan)( - JsonTimeSpanReaderWriter.Instance, - New ValueConverter(Of String, TimeSpan)( - Function(v As String) TimeSpan.Parse(v, CultureInfo.InvariantCulture), - Function(v As TimeSpan) v.ToString("c"))), - Type.Missing}), CoreTypeMapping) - stringToTimeSpanConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim stringToUriConverterProperty = entityType.AddProperty( - "StringToUriConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToUriConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToUriConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToUriConverter()) - stringToUriConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of String, String)( - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute).ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute).ToString()), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of String, String)( - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute).ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute).ToString())), - StoreTypePostfix.None}), CoreTypeMapping) - stringToUriConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim timeOnlyArray = entityType.AddProperty( - "TimeOnlyArray", - GetType(TimeOnly()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("TimeOnlyArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_TimeOnlyArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - timeOnlyArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of TimeOnly)(New JsonCollectionReaderWriter(Of TimeOnly(), TimeOnly(), TimeOnly)( - JsonTimeOnlyReaderWriter.Instance)), - New ListComparer(Of TimeOnly)(New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v)), - New ListComparer(Of TimeOnly)(New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerTimeOnlyTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of TimeOnly(), TimeOnly(), TimeOnly)( - JsonTimeOnlyReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - timeOnlyArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim timeOnlyToStringConverterProperty = entityType.AddProperty( - "TimeOnlyToStringConverterProperty", - GetType(TimeOnly), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("TimeOnlyToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_TimeOnlyToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New TimeOnlyToStringConverter()) - timeOnlyToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(48)", - size:=48, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of TimeOnly, String)( - Function(v As TimeOnly) If(v.Ticks Mod 10000000L = 0L, String.Format(CultureInfo.InvariantCulture, "{0:HH\:mm\:ss}", CType(v, Object)), v.ToString("o")), - Function(v As String) TimeOnly.Parse(v, CultureInfo.InvariantCulture, DateTimeStyles.None)), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of TimeOnly, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of TimeOnly, String)( - Function(v As TimeOnly) If(v.Ticks Mod 10000000L = 0L, String.Format(CultureInfo.InvariantCulture, "{0:HH\:mm\:ss}", CType(v, Object)), v.ToString("o")), - Function(v As String) TimeOnly.Parse(v, CultureInfo.InvariantCulture, DateTimeStyles.None))), - Type.Missing}), CoreTypeMapping) - timeOnlyToStringConverterProperty.SetSentinelFromProviderValue("00:00:00") - timeOnlyToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim timeOnlyToTicksConverterProperty = entityType.AddProperty( - "TimeOnlyToTicksConverterProperty", - GetType(TimeOnly), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("TimeOnlyToTicksConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_TimeOnlyToTicksConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New TimeOnlyToTicksConverter()) - timeOnlyToTicksConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of TimeOnly, Long)( - Function(v As TimeOnly) v.Ticks, - Function(v As Long) New TimeOnly(v)), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of TimeOnly, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of TimeOnly, Long)( - Function(v As TimeOnly) v.Ticks, - Function(v As Long) New TimeOnly(v))), - Type.Missing}), CoreTypeMapping) - timeOnlyToTicksConverterProperty.SetSentinelFromProviderValue(0L) - timeOnlyToTicksConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim timeSpanArray = entityType.AddProperty( - "TimeSpanArray", - GetType(TimeSpan()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("TimeSpanArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_TimeSpanArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - timeSpanArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of TimeSpan)(New JsonCollectionReaderWriter(Of TimeSpan(), TimeSpan(), TimeSpan)( - JsonTimeSpanReaderWriter.Instance)), - New ListComparer(Of TimeSpan)(New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v)), - New ListComparer(Of TimeSpan)(New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerTimeSpanTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of TimeSpan(), TimeSpan(), TimeSpan)( - JsonTimeSpanReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - timeSpanArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim timeSpanToStringConverterProperty = entityType.AddProperty( - "TimeSpanToStringConverterProperty", - GetType(TimeSpan), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("TimeSpanToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_TimeSpanToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New TimeSpanToStringConverter()) - timeSpanToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(48)", - size:=48, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of TimeSpan, String)( - Function(v As TimeSpan) v.ToString("c"), - Function(v As String) TimeSpan.Parse(v, CultureInfo.InvariantCulture)), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of TimeSpan, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of TimeSpan, String)( - Function(v As TimeSpan) v.ToString("c"), - Function(v As String) TimeSpan.Parse(v, CultureInfo.InvariantCulture))), - Type.Missing}), CoreTypeMapping) - timeSpanToStringConverterProperty.SetSentinelFromProviderValue("00:00:00") - timeSpanToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim timeSpanToTicksConverterProperty = entityType.AddProperty( - "TimeSpanToTicksConverterProperty", - GetType(TimeSpan), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("TimeSpanToTicksConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_TimeSpanToTicksConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New TimeSpanToTicksConverter()) - timeSpanToTicksConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of TimeSpan, Long)( - Function(v As TimeSpan) v.Ticks, - Function(v As Long) New TimeSpan(v)), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of TimeSpan, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of TimeSpan, Long)( - Function(v As TimeSpan) v.Ticks, - Function(v As Long) New TimeSpan(v))), - Type.Missing}), CoreTypeMapping) - timeSpanToTicksConverterProperty.SetSentinelFromProviderValue(0L) - timeSpanToTicksConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim uInt16 = entityType.AddProperty( - "UInt16", - GetType(UShort), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UInt16", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UInt16", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - uInt16.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of UShort, Integer)( - Function(v As UShort) CType(v, Integer), - Function(v As Integer) CType(v, UShort)), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of UShort, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of UShort, Integer)( - Function(v As UShort) CType(v, Integer), - Function(v As Integer) CType(v, UShort))), - Type.Missing}), CoreTypeMapping) - uInt16.SetSentinelFromProviderValue(0) - uInt16.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim uInt16Array = entityType.AddProperty( - "UInt16Array", - GetType(UShort()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UInt16Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UInt16Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - uInt16Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of UShort)(New JsonCollectionReaderWriter(Of UShort(), UShort(), UShort)( - New JsonConvertedValueReaderWriter(Of UShort, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of UShort, Integer)( - Function(v As UShort) CType(v, Integer), - Function(v As Integer) CType(v, UShort))))), - New ListComparer(Of UShort)(New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v)), - New ListComparer(Of UShort)(New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of UShort, Integer)( - Function(v As UShort) CType(v, Integer), - Function(v As Integer) CType(v, UShort)), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of UShort, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of UShort, Integer)( - Function(v As UShort) CType(v, Integer), - Function(v As Integer) CType(v, UShort))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of UShort(), UShort(), UShort)( - New JsonConvertedValueReaderWriter(Of UShort, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of UShort, Integer)( - Function(v As UShort) CType(v, Integer), - Function(v As Integer) CType(v, UShort)))), - StoreTypePostfix.None}), CoreTypeMapping) - uInt16Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim uInt32 = entityType.AddProperty( - "UInt32", - GetType(UInteger), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UInt32", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UInt32", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - uInt32.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of UInteger, Long)( - Function(v As UInteger) CType(v, Long), - Function(v As Long) CType(v, UInteger)), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of UInteger, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of UInteger, Long)( - Function(v As UInteger) CType(v, Long), - Function(v As Long) CType(v, UInteger))), - Type.Missing}), CoreTypeMapping) - uInt32.SetSentinelFromProviderValue(0L) - uInt32.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim uInt32Array = entityType.AddProperty( - "UInt32Array", - GetType(UInteger()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UInt32Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UInt32Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - uInt32Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of UInteger)(New JsonCollectionReaderWriter(Of UInteger(), UInteger(), UInteger)( - New JsonConvertedValueReaderWriter(Of UInteger, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of UInteger, Long)( - Function(v As UInteger) CType(v, Long), - Function(v As Long) CType(v, UInteger))))), - New ListComparer(Of UInteger)(New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v)), - New ListComparer(Of UInteger)(New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of UInteger, Long)( - Function(v As UInteger) CType(v, Long), - Function(v As Long) CType(v, UInteger)), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of UInteger, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of UInteger, Long)( - Function(v As UInteger) CType(v, Long), - Function(v As Long) CType(v, UInteger))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of UInteger(), UInteger(), UInteger)( - New JsonConvertedValueReaderWriter(Of UInteger, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of UInteger, Long)( - Function(v As UInteger) CType(v, Long), - Function(v As Long) CType(v, UInteger)))), - StoreTypePostfix.None}), CoreTypeMapping) - uInt32Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim uInt64 = entityType.AddProperty( - "UInt64", - GetType(ULong), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UInt64", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UInt64", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - uInt64.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of ULong, Decimal)( - Function(v As ULong) CType(v, Decimal), - Function(v As Decimal) CType(v, ULong)), - New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v), - New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of ULong, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of ULong, Decimal)( - Function(v As ULong) CType(v, Decimal), - Function(v As Decimal) CType(v, ULong))), - Type.Missing}), CoreTypeMapping) - uInt64.SetSentinelFromProviderValue(0D) - uInt64.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim uInt64Array = entityType.AddProperty( - "UInt64Array", - GetType(ULong()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UInt64Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UInt64Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - uInt64Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of ULong)(New JsonCollectionReaderWriter(Of ULong(), ULong(), ULong)( - New JsonConvertedValueReaderWriter(Of ULong, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of ULong, Decimal)( - Function(v As ULong) CType(v, Decimal), - Function(v As Decimal) CType(v, ULong))))), - New ListComparer(Of ULong)(New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v)), - New ListComparer(Of ULong)(New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(20,0)", - precision:=20, - scale:=0), - Type.Missing, - New ValueConverter(Of ULong, Decimal)( - Function(v As ULong) CType(v, Decimal), - Function(v As Decimal) CType(v, ULong)), - New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v), - New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of ULong, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of ULong, Decimal)( - Function(v As ULong) CType(v, Decimal), - Function(v As Decimal) CType(v, ULong))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of ULong(), ULong(), ULong)( - New JsonConvertedValueReaderWriter(Of ULong, Decimal)( - JsonDecimalReaderWriter.Instance, - New ValueConverter(Of ULong, Decimal)( - Function(v As ULong) CType(v, Decimal), - Function(v As Decimal) CType(v, ULong)))), - StoreTypePostfix.None}), CoreTypeMapping) - uInt64Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim uInt8 = entityType.AddProperty( - "UInt8", - GetType(Byte), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UInt8", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UInt8", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=CByte(0)) - uInt8.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - uInt8.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim uInt8Array = entityType.AddProperty( - "UInt8Array", - GetType(Byte()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UInt8Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UInt8Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - uInt8Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(max)"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - uInt8Array.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim uri = entityType.AddProperty( - "Uri", - GetType(Uri), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Uri", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Uri", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - uri.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute)), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute))), - StoreTypePostfix.None}), CoreTypeMapping) - uri.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim uriArray = entityType.AddProperty( - "UriArray", - GetType(Uri()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UriArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UriArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - uriArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Uri)(New JsonCollectionReaderWriter(Of Uri(), Uri(), Uri)( - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute))))), - New ListComparer(Of Uri)(New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v)), - New ListComparer(Of Uri)(New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute)), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute))), - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Uri(), Uri(), Uri)( - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute)))), - StoreTypePostfix.None}), CoreTypeMapping) - uriArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim uriToStringConverterProperty = entityType.AddProperty( - "UriToStringConverterProperty", - GetType(Uri), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UriToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UriToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New UriToStringConverter()) - uriToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute)), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute))), - StoreTypePostfix.None}), CoreTypeMapping) - uriToStringConverterProperty.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim aDateOnly = entityType.AddProperty( - "aDateOnly", - GetType(DateOnly), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("aDateOnly", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_aDateOnly", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=New DateOnly(1, 1, 1)) - aDateOnly.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateOnlyTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - aDateOnly.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim aDateTime = entityType.AddProperty( - "aDateTime", - GetType(Date), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("aDateTime", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_aDateTime", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=New Date(1, 1, 1, 0, 0, 0, 0, DateTimeKind.Unspecified)) - aDateTime.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateTimeTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - aDateTime.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim aFloat = entityType.AddProperty( - "aFloat", - GetType(Single), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("aFloat", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_aFloat", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0F) - aFloat.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerFloatTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - aFloat.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim aPhysicalAddress = entityType.AddProperty( - "aPhysicalAddress", - GetType(PhysicalAddress), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("aPhysicalAddress", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_aPhysicalAddress", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - aPhysicalAddress.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(20)", - size:=20, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v)), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v))), - Type.Missing}), CoreTypeMapping) - aPhysicalAddress.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim aTimeOnly = entityType.AddProperty( - "aTimeOnly", - GetType(TimeOnly), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("aTimeOnly", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_aTimeOnly", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=New TimeOnly(0, 0, 0)) - aTimeOnly.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerTimeOnlyTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - aTimeOnly.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim aTimeSpan = entityType.AddProperty( - "aTimeSpan", - GetType(TimeSpan), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("aTimeSpan", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_aTimeSpan", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=New TimeSpan(0, 0, 0, 0, 0)) - aTimeSpan.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerTimeSpanTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - aTimeSpan.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim anIPAddress = entityType.AddProperty( - "anIPAddress", - GetType(IPAddress), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("anIPAddress", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_anIPAddress", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - anIPAddress.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping) - anIPAddress.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim key = entityType.AddKey( - {id}) - entityType.SetPrimaryKey(key) - - Return entityType - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "ManyTypes") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim PrincipalBaseEntityType = -Imports System -Imports System.Collections.Generic -Imports System.Net -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion -Imports Microsoft.EntityFrameworkCore.ValueGeneration -Imports Microsoft.VisualBasic -Imports NetTopologySuite.Geometries - -Namespace TestNamespace - Friend Partial Class PrincipalBaseEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase), - baseEntityType, - discriminatorProperty:="Discriminator", - discriminatorValue:="PrincipalBase") - - Dim id = entityType.AddProperty( - "Id", - GetType(Long?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Id", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_Id", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - afterSaveBehavior:=PropertySaveBehavior.Throw) - id.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - id.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim alternateId = entityType.AddProperty( - "AlternateId", - GetType(Guid), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("AlternateId", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.FieldDuringConstruction, - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=New Guid("00000000-0000-0000-0000-000000000000"), - jsonValueReaderWriter:=New MyJsonGuidReaderWriter()) - alternateId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(GuidTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="uniqueidentifier"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - alternateId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim discriminator = entityType.AddProperty( - "Discriminator", - GetType(String), - afterSaveBehavior:=PropertySaveBehavior.Throw, - maxLength:=55, - valueGeneratorFactory:=AddressOf New DiscriminatorValueGeneratorFactory().Create) - discriminator.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(55)", - size:=55, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - discriminator.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum1 = entityType.AddProperty( - "Enum1", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Enum1", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_Enum1", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enum1.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum))), - Type.Missing}), CoreTypeMapping) - enum1.SetSentinelFromProviderValue(0) - enum1.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum2 = entityType.AddProperty( - "Enum2", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.AnEnum?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Enum2", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_Enum2", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum2.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)))), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum))), - Type.Missing}), CoreTypeMapping) - enum2.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim flagsEnum1 = entityType.AddProperty( - "FlagsEnum1", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("FlagsEnum1", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_FlagsEnum1", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - flagsEnum1.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum))), - Type.Missing}), CoreTypeMapping) - flagsEnum1.SetSentinelFromProviderValue(0) - flagsEnum1.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim flagsEnum2 = entityType.AddProperty( - "FlagsEnum2", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("FlagsEnum2", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_FlagsEnum2", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - flagsEnum2.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum))), - Type.Missing}), CoreTypeMapping) - flagsEnum2.SetSentinelFromProviderValue(6) - flagsEnum2.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim point = entityType.AddProperty( - "Point", - GetType(Point), - nullable:=True, - valueGenerated:=ValueGenerated.OnAdd, - valueConverter:=New CastingConverter(Of Point, Point)(), - valueComparer:=New VisualBasicRuntimeModelCodeGeneratorTest.CustomValueComparer(Of Point)(), - providerValueComparer:=New VisualBasicRuntimeModelCodeGeneratorTest.CustomValueComparer(Of Point)()) - point.TypeMapping = Nothing - point.AddAnnotation("Relational:ColumnType", "geometry") - point.AddAnnotation("Relational:DefaultValue", CType(New NetTopologySuite.IO.WKTReader().Read("SRID=0;POINT Z(0 0 0)"), NetTopologySuite.Geometries.Point)) - point.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeArray = entityType.AddProperty( - "RefTypeArray", - GetType(IPAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("RefTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_RefTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeEnumerable = entityType.AddProperty( - "RefTypeEnumerable", - GetType(IEnumerable(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("RefTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_RefTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeEnumerable.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeIList = entityType.AddProperty( - "RefTypeIList", - GetType(IList(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("RefTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_RefTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeIList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeList = entityType.AddProperty( - "RefTypeList", - GetType(List(Of IPAddress)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("RefTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_RefTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeArray = entityType.AddProperty( - "ValueTypeArray", - GetType(Date()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("ValueTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ValueTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Date)(New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - JsonDateTimeReaderWriter.Instance)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateTimeTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - JsonDateTimeReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeEnumerable = entityType.AddProperty( - "ValueTypeEnumerable", - GetType(IEnumerable(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("ValueTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ValueTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeEnumerable.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeIList = entityType.AddProperty( - "ValueTypeIList", - GetType(IList(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("ValueTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ValueTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeIList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeList = entityType.AddProperty( - "ValueTypeList", - GetType(List(Of Short)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("ValueTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ValueTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Short)(New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim key = entityType.AddKey( - {id}) - - Dim key0 = entityType.AddKey( - {id, alternateId}) - entityType.SetPrimaryKey(key0) - key0.AddAnnotation("Relational:Name", "PK") - - Dim index = entityType.AddIndex( - {alternateId, id}) - - Return entityType - End Function - - Public Shared Function CreateSkipNavigation1(declaringEntityType As RuntimeEntityType, targetEntityType As RuntimeEntityType, joinEntityType As RuntimeEntityType) As RuntimeSkipNavigation - Dim skipNavigation = declaringEntityType.AddSkipNavigation( - "Deriveds", - targetEntityType, - joinEntityType.FindForeignKey( - {joinEntityType.FindProperty("PrincipalsId"), joinEntityType.FindProperty("PrincipalsAlternateId")}, - declaringEntityType.FindKey({declaringEntityType.FindProperty("Id"), declaringEntityType.FindProperty("AlternateId")}), - declaringEntityType), - True, - False, - GetType(ICollection(Of VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Deriveds", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_Deriveds", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - - Dim inverse = targetEntityType.FindSkipNavigation("Principals") - If inverse IsNot Nothing Then - skipNavigation.Inverse = inverse - inverse.Inverse = skipNavigation - End If - - Return skipNavigation - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:MappingStrategy", "TPH") - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "PrincipalBase") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim OwnedTypeEntityType = -Imports System -Imports System.Collections.Generic -Imports System.Net -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class OwnedTypeEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType), - baseEntityType, - sharedClrType:=True, - changeTrackingStrategy:=ChangeTrackingStrategy.ChangingAndChangedNotificationsWithOriginalValues) - - Dim principalBaseId = entityType.AddProperty( - "PrincipalBaseId", - GetType(Long), - propertyAccessMode:=PropertyAccessMode.Field, - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=0L) - principalBaseId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - principalBaseId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim principalBaseAlternateId = entityType.AddProperty( - "PrincipalBaseAlternateId", - GetType(Guid), - propertyAccessMode:=PropertyAccessMode.Field, - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=New Guid("00000000-0000-0000-0000-000000000000")) - principalBaseAlternateId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(GuidTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="uniqueidentifier"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - principalBaseAlternateId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim details = entityType.AddProperty( - "Details", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("Details", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_details", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - details.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - details.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim number = entityType.AddProperty( - "Number", - GetType(Integer), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("Number", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_Number", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - sentinel:=0) - number.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - number.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeArray = entityType.AddProperty( - "RefTypeArray", - GetType(IPAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - refTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeEnumerable = entityType.AddProperty( - "RefTypeEnumerable", - GetType(IEnumerable(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - refTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeEnumerable.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeIList = entityType.AddProperty( - "RefTypeIList", - GetType(IList(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - refTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeIList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeList = entityType.AddProperty( - "RefTypeList", - GetType(List(Of IPAddress)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - refTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeArray = entityType.AddProperty( - "ValueTypeArray", - GetType(Date()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_valueTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - valueTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Date)(New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - JsonDateTimeReaderWriter.Instance)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateTimeTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - JsonDateTimeReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeEnumerable = entityType.AddProperty( - "ValueTypeEnumerable", - GetType(IEnumerable(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_valueTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - valueTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeEnumerable.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeIList = entityType.AddProperty( - "ValueTypeIList", - GetType(IList(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_ValueTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - valueTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeIList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeList = entityType.AddProperty( - "ValueTypeList", - GetType(List(Of Short)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_valueTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - valueTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Short)(New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim context = entityType.AddServiceProperty( - "Context", - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("Context", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - serviceType:=GetType(DbContext)) - - Dim key = entityType.AddKey( - {principalBaseId, principalBaseAlternateId}) - entityType.SetPrimaryKey(key) - - Return entityType - End Function - - Public Shared Function CreateForeignKey1(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("PrincipalBaseId"), declaringEntityType.FindProperty("PrincipalBaseAlternateId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("Id"), principalEntityType.FindProperty("AlternateId")}), - principalEntityType, - deleteBehavior:=DeleteBehavior.Cascade, - unique:=True, - required:=True, - requiredDependent:=True, - ownership:=True) - - Dim owned = principalEntityType.AddNavigation("Owned", - runtimeForeignKey, - onDependent:=False, - GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Owned", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ownedField", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - eagerLoaded:=True) - - Return runtimeForeignKey - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:ContainerColumnName", "Owned") - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "PrincipalBase") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim OwnedType0EntityType = -Imports System -Imports System.Collections.Generic -Imports System.Net -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class OwnedType0EntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>.ManyOwned#OwnedType", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType), - baseEntityType, - sharedClrType:=True) - - Dim principalDerivedId = entityType.AddProperty( - "PrincipalDerivedId", - GetType(Long), - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=0L) - principalDerivedId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - principalDerivedId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim principalDerivedAlternateId = entityType.AddProperty( - "PrincipalDerivedAlternateId", - GetType(Guid), - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=New Guid("00000000-0000-0000-0000-000000000000")) - principalDerivedAlternateId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(GuidTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="uniqueidentifier"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - principalDerivedAlternateId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim id = entityType.AddProperty( - "Id", - GetType(Integer), - valueGenerated:=ValueGenerated.OnAdd, - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=0) - id.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - id.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.IdentityColumn) - - Dim details = entityType.AddProperty( - "Details", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("Details", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_details", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - details.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - details.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim number = entityType.AddProperty( - "Number", - GetType(Integer), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("Number", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_Number", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0) - number.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - number.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeArray = entityType.AddProperty( - "RefTypeArray", - GetType(IPAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeEnumerable = entityType.AddProperty( - "RefTypeEnumerable", - GetType(IEnumerable(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeEnumerable.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeIList = entityType.AddProperty( - "RefTypeIList", - GetType(IList(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeIList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeList = entityType.AddProperty( - "RefTypeList", - GetType(List(Of IPAddress)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeArray = entityType.AddProperty( - "ValueTypeArray", - GetType(Date()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_valueTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Date)(New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - JsonDateTimeReaderWriter.Instance)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateTimeTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - JsonDateTimeReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeEnumerable = entityType.AddProperty( - "ValueTypeEnumerable", - GetType(IEnumerable(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_valueTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeEnumerable.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeIList = entityType.AddProperty( - "ValueTypeIList", - GetType(IList(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_ValueTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeIList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeList = entityType.AddProperty( - "ValueTypeList", - GetType(List(Of Short)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_valueTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Short)(New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim context = entityType.AddServiceProperty( - "Context", - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("Context", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - serviceType:=GetType(DbContext)) - - Dim key = entityType.AddKey( - {principalDerivedId, principalDerivedAlternateId, id}) - entityType.SetPrimaryKey(key) - - Return entityType - End Function - - Public Shared Function CreateForeignKey1(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("PrincipalDerivedId"), declaringEntityType.FindProperty("PrincipalDerivedAlternateId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("Id"), principalEntityType.FindProperty("AlternateId")}), - principalEntityType, - deleteBehavior:=DeleteBehavior.Cascade, - required:=True, - ownership:=True) - - Dim manyOwned = principalEntityType.AddNavigation("ManyOwned", - runtimeForeignKey, - onDependent:=False, - GetType(ICollection(Of VisualBasicRuntimeModelCodeGeneratorTest.OwnedType)), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))).GetField("ManyOwned", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - eagerLoaded:=True) - - Return runtimeForeignKey - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:ContainerColumnName", "ManyOwned") - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "PrincipalBase") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim PrincipalBasePrincipalDerivedDependentBasebyteEntityType = -Imports System -Imports System.Collections -Imports System.Collections.Generic -Imports System.Linq -Imports System.Reflection -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class PrincipalBasePrincipalDerivedDependentBasebyteEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "PrincipalBasePrincipalDerived>", - GetType(Dictionary(Of String, Object)), - baseEntityType, - sharedClrType:=True, - indexerPropertyInfo:=RuntimeEntityType.FindIndexerProperty(GetType(Dictionary(Of String, Object))), - propertyBag:=True) - - Dim derivedsId = entityType.AddProperty( - "DerivedsId", - GetType(Long), - propertyInfo:=entityType.FindIndexerPropertyInfo(), - afterSaveBehavior:=PropertySaveBehavior.Throw) - derivedsId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - derivedsId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim derivedsAlternateId = entityType.AddProperty( - "DerivedsAlternateId", - GetType(Guid), - propertyInfo:=entityType.FindIndexerPropertyInfo(), - afterSaveBehavior:=PropertySaveBehavior.Throw) - derivedsAlternateId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(GuidTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="uniqueidentifier"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - derivedsAlternateId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim principalsId = entityType.AddProperty( - "PrincipalsId", - GetType(Long), - propertyInfo:=entityType.FindIndexerPropertyInfo(), - afterSaveBehavior:=PropertySaveBehavior.Throw) - principalsId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - principalsId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim principalsAlternateId = entityType.AddProperty( - "PrincipalsAlternateId", - GetType(Guid), - propertyInfo:=entityType.FindIndexerPropertyInfo(), - afterSaveBehavior:=PropertySaveBehavior.Throw) - principalsAlternateId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(GuidTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="uniqueidentifier"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - principalsAlternateId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim rowid = entityType.AddProperty( - "rowid", - GetType(Byte()), - propertyInfo:=entityType.FindIndexerPropertyInfo(), - nullable:=True, - concurrencyToken:=True, - valueGenerated:=ValueGenerated.OnAddOrUpdate, - beforeSaveBehavior:=PropertySaveBehavior.Ignore, - afterSaveBehavior:=PropertySaveBehavior.Ignore) - rowid.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="rowversion", - size:=8), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(v1, v2), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(v), - Function(v As Byte()) v.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - rowid.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim key = entityType.AddKey( - {derivedsId, derivedsAlternateId, principalsId, principalsAlternateId}) - entityType.SetPrimaryKey(key) - - Dim index = entityType.AddIndex( - {principalsId, principalsAlternateId}) - - Return entityType - End Function - - Public Shared Function CreateForeignKey1(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("DerivedsId"), declaringEntityType.FindProperty("DerivedsAlternateId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("Id"), principalEntityType.FindProperty("AlternateId")}), - principalEntityType, - deleteBehavior:=DeleteBehavior.Cascade, - required:=True) - - Return runtimeForeignKey - End Function - - Public Shared Function CreateForeignKey2(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("PrincipalsId"), declaringEntityType.FindProperty("PrincipalsAlternateId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("Id"), principalEntityType.FindProperty("AlternateId")}), - principalEntityType, - deleteBehavior:=DeleteBehavior.ClientCascade, - required:=True) - - Return runtimeForeignKey - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "PrincipalBasePrincipalDerived>") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim DependentDerivedEntityType = -Imports System -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Migrations.Design -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class DependentDerivedEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentDerived", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentDerived(Of Byte?)), - baseEntityType, - discriminatorProperty:="EnumDiscriminator", - discriminatorValue:=VisualBasicMigrationsGeneratorTests.Enum1.Two) - - Dim data = entityType.AddProperty( - "Data", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentDerived(Of Byte?)).GetProperty("Data", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentDerived(Of Byte?)).GetField("_Data", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - maxLength:=20, - unicode:=False) - data.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="char(20)", - size:=20, - fixedLength:=True, - dbType:=System.Data.DbType.AnsiStringFixedLength), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - data.AddAnnotation("Relational:IsFixedLength", True) - data.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim money = entityType.AddProperty( - "Money", - GetType(Decimal), - precision:=9, - scale:=3, - sentinel:=0D) - money.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="decimal(9,3)", - precision:=9, - scale:=3), - Type.Missing, - Type.Missing, - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - money.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Return entityType - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "DependentBase") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim PrincipalDerivedEntityType = -Imports System -Imports System.Collections.Generic -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class PrincipalDerivedEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))), - baseEntityType, - discriminatorProperty:="Discriminator", - discriminatorValue:="PrincipalDerived>") - - Return entityType - End Function - - Public Shared Function CreateSkipNavigation1(declaringEntityType As RuntimeEntityType, targetEntityType As RuntimeEntityType, joinEntityType As RuntimeEntityType) As RuntimeSkipNavigation - Dim skipNavigation = declaringEntityType.AddSkipNavigation( - "Principals", - targetEntityType, - joinEntityType.FindForeignKey( - {joinEntityType.FindProperty("DerivedsId"), joinEntityType.FindProperty("DerivedsAlternateId")}, - declaringEntityType.FindKey({declaringEntityType.FindProperty("Id"), declaringEntityType.FindProperty("AlternateId")}), - declaringEntityType), - True, - False, - GetType(ICollection(Of VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))).GetProperty("Principals", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))).GetField("_Principals", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - eagerLoaded:=True, - lazyLoadingEnabled:=False) - - Dim inverse = targetEntityType.FindSkipNavigation("Deriveds") - If inverse IsNot Nothing Then - skipNavigation.Inverse = inverse - inverse.Inverse = skipNavigation - End If - - Return skipNavigation - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "PrincipalBase") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Test( - New BigContextWithJson(), - CreateCompiledModelCodeGenerationOptions(), - Sub(code) - Assert. - Collection(code, - Sub(c) AssertFileContents("BigContextWithJsonModel.vb", BigContextWithJsonModel, c), - Sub(c) AssertFileContents("BigContextWithJsonModelBuilder.vb", BigContextWithJsonModelBuilder, c), - Sub(c) AssertFileContents("DependentBaseEntityType.vb", DependentBaseEntityType, c), - Sub(c) AssertFileContents("ManyTypesEntityType.vb", ManyTypesEntityType, c), - Sub(c) AssertFileContents("PrincipalBaseEntityType.vb", PrincipalBaseEntityType, c), - Sub(c) AssertFileContents("OwnedTypeEntityType.vb", OwnedTypeEntityType, c), - Sub(c) AssertFileContents("OwnedType0EntityType.vb", OwnedType0EntityType, c), - Sub(c) AssertFileContents("PrincipalBasePrincipalDerivedDependentBasebyteEntityType.vb", PrincipalBasePrincipalDerivedDependentBasebyteEntityType, c), - Sub(c) AssertFileContents("DependentDerivedEntityType.vb", DependentDerivedEntityType, c), - Sub(c) AssertFileContents("PrincipalDerivedEntityType.vb", PrincipalDerivedEntityType, c)) - End Sub, - Sub(Model) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() Model.GetCollation()).Message) - Assert.Equal( - {RelationalAnnotationNames.MaxIdentifierLength, SqlServerAnnotationNames.ValueGenerationStrategy}, - Model.GetAnnotations().Select(Function(a) a.Name)) - Assert.Equal(SqlServerValueGenerationStrategy.IdentityColumn, Model.GetValueGenerationStrategy()) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() Model.GetPropertyAccessMode()).Message) - Assert.Null(Model(SqlServerAnnotationNames.IdentitySeed)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() Model.GetIdentitySeed()).Message) - Assert.Null(Model(SqlServerAnnotationNames.IdentityIncrement)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() Model.GetIdentityIncrement()).Message) - - Dim manyTypesType = Model.FindEntityType(GetType(ManyTypes)) - - Assert.Equal(GetType(ManyTypes).FullName, manyTypesType.Name) - Assert.False(manyTypesType.HasSharedClrType) - Assert.False(manyTypesType.IsPropertyBag) - Assert.False(manyTypesType.IsOwned()) - Assert.IsType(Of ConstructorBinding)(manyTypesType.ConstructorBinding) - Assert.Null(manyTypesType.FindIndexerPropertyInfo()) - Assert.Equal(ChangeTrackingStrategy.Snapshot, manyTypesType.GetChangeTrackingStrategy()) - Assert.Equal("ManyTypes", manyTypesType.GetTableName()) - Assert.Null(manyTypesType.GetSchema()) - - Assert.Null(Model.FindEntityType(GetType(AbstractBase))) - Dim principalBaseET = Model.FindEntityType(GetType(PrincipalBase)) - Assert.Equal(GetType(PrincipalBase).FullName, principalBaseET.Name) - Assert.False(principalBaseET.HasSharedClrType) - Assert.False(principalBaseET.IsPropertyBag) - Assert.False(principalBaseET.IsOwned()) - Assert.Null(principalBaseET.BaseType) - Assert.IsType(Of ConstructorBinding)(principalBaseET.ConstructorBinding) - Assert.Null(principalBaseET.FindIndexerPropertyInfo()) - Assert.Equal(ChangeTrackingStrategy.Snapshot, principalBaseET.GetChangeTrackingStrategy()) - Assert.Null(principalBaseET.GetQueryFilter()) - Assert.Equal("PrincipalBase", principalBaseET.GetTableName()) - Assert.Null(principalBaseET.GetSchema()) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() principalBaseET.GetSeedData()).Message) - - Dim principalId = principalBaseET.FindProperty(NameOf(PrincipalBase.Id)) - Assert.Equal( - {SqlServerAnnotationNames.ValueGenerationStrategy}, - principalId.GetAnnotations().Select(Function(a) a.Name)) - Assert.Equal(GetType(Long?), principalId.ClrType) - Assert.Equal(GetType(Long?), principalId.PropertyInfo.PropertyType) - Assert.Equal(GetType(Long?), principalId.FieldInfo.FieldType) - Assert.False(principalId.IsNullable) - Assert.Equal(ValueGenerated.Never, principalId.ValueGenerated) - Assert.Equal(PropertySaveBehavior.Throw, principalId.GetAfterSaveBehavior()) - Assert.Equal(PropertySaveBehavior.Save, principalId.GetBeforeSaveBehavior()) - Assert.Null(principalId(CoreAnnotationNames.BeforeSaveBehavior)) - Assert.Null(principalId(CoreAnnotationNames.AfterSaveBehavior)) - Assert.Equal("Id", principalId.GetColumnName()) - Assert.Equal("bigint", principalId.GetColumnType()) - Assert.Null(principalId.GetValueConverter()) - Assert.NotNull(principalId.GetValueComparer()) - Assert.NotNull(principalId.GetKeyValueComparer()) - Assert.Equal(SqlServerValueGenerationStrategy.None, principalId.GetValueGenerationStrategy()) - Assert.Null(principalId(SqlServerAnnotationNames.IdentitySeed)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() principalId.GetIdentitySeed()).Message) - Assert.Null(principalId(SqlServerAnnotationNames.IdentityIncrement)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() principalId.GetIdentityIncrement()).Message) - - Dim pointProperty = principalBaseET.FindProperty("Point") - Assert.Equal(GetType(Point), pointProperty.ClrType) - Assert.True(pointProperty.IsNullable) - Assert.Equal(ValueGenerated.OnAdd, pointProperty.ValueGenerated) - Assert.Equal("Point", pointProperty.GetColumnName()) - Assert.Equal("geometry", pointProperty.GetColumnType()) - Assert.Equal(0, DirectCast(pointProperty.GetDefaultValue(), Point).SRID) - Assert.IsType(Of CastingConverter(Of Point, Point))(pointProperty.GetValueConverter()) - Assert.IsType(Of CustomValueComparer(Of Point))(pointProperty.GetValueComparer()) - Assert.IsType(Of CustomValueComparer(Of Point))(pointProperty.GetKeyValueComparer()) - Assert.IsType(Of CustomValueComparer(Of Point))(pointProperty.GetProviderValueComparer()) - Assert.Equal(SqlServerValueGenerationStrategy.None, pointProperty.GetValueGenerationStrategy()) - Assert.Null(pointProperty(CoreAnnotationNames.PropertyAccessMode)) - - Dim discriminatorProperty = principalBaseET.FindDiscriminatorProperty() - Assert.Equal("Discriminator", discriminatorProperty.Name) - Assert.Equal(GetType(String), discriminatorProperty.ClrType) - - Dim principalAlternateId = principalBaseET.FindProperty(NameOf(PrincipalBase.AlternateId)) - Dim compositeIndex = principalBaseET.GetIndexes().Single() - Assert.Equal(PropertyAccessMode.FieldDuringConstruction, principalAlternateId.GetPropertyAccessMode()) - Assert.Empty(compositeIndex.GetAnnotations()) - Assert.Equal({principalAlternateId, principalId}, compositeIndex.Properties) - Assert.False(compositeIndex.IsUnique) - Assert.Null(compositeIndex.Name) - Assert.Equal("IX_PrincipalBase_AlternateId_Id", compositeIndex.GetDatabaseName()) - - Assert.Equal({compositeIndex}, principalAlternateId.GetContainingIndexes()) - - Assert.Equal(2, principalBaseET.GetKeys().Count()) - - Dim principalAlternateKey = principalBaseET.GetKeys().First() - Assert.Same(principalId, principalAlternateKey.Properties.Single()) - Assert.False(principalAlternateKey.IsPrimaryKey()) - Assert.Equal("AK_PrincipalBase_Id", principalAlternateKey.GetName()) - - Dim principalKey = principalBaseET.GetKeys().Last() - Assert.Equal( - {RelationalAnnotationNames.Name}, - principalKey.GetAnnotations().Select(Function(a) a.Name)) - Assert.Equal({principalId, principalAlternateId}, principalKey.Properties) - Assert.True(principalKey.IsPrimaryKey()) - Assert.Equal("PK", principalKey.GetName()) - Assert.Null(principalKey(SqlServerAnnotationNames.Clustered)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() principalKey.IsClustered()).Message) - - Assert.Equal({principalAlternateKey, principalKey}, principalId.GetContainingKeys()) - - Dim referenceOwnedNavigation = principalBaseET.GetNavigations().Single() - Assert.Equal( - {CoreAnnotationNames.EagerLoaded}, - referenceOwnedNavigation.GetAnnotations().Select(Function(a) a.Name)) - Assert.Equal(NameOf(PrincipalBase.Owned), referenceOwnedNavigation.Name) - Assert.False(referenceOwnedNavigation.IsCollection) - Assert.True(referenceOwnedNavigation.IsEagerLoaded) - Assert.False(referenceOwnedNavigation.IsOnDependent) - Assert.Equal(GetType(OwnedType), referenceOwnedNavigation.ClrType) - Assert.Equal("_ownedField", referenceOwnedNavigation.FieldInfo.Name) - Assert.Equal(NameOf(PrincipalBase.Owned), referenceOwnedNavigation.PropertyInfo.Name) - Assert.Null(referenceOwnedNavigation.Inverse) - Assert.Equal(principalBaseET, referenceOwnedNavigation.DeclaringEntityType) - Assert.Equal(PropertyAccessMode.Field, referenceOwnedNavigation.GetPropertyAccessMode()) - Assert.Null(referenceOwnedNavigation(CoreAnnotationNames.PropertyAccessMode)) - - Dim referenceOwnedType = referenceOwnedNavigation.TargetEntityType - Assert.Equal(GetType(PrincipalBase).FullName & ".Owned#OwnedType", referenceOwnedType.Name) - Assert.Equal(GetType(OwnedType), referenceOwnedType.ClrType) - Assert.True(referenceOwnedType.HasSharedClrType) - Assert.False(referenceOwnedType.IsPropertyBag) - Assert.True(referenceOwnedType.IsOwned()) - Assert.Null(referenceOwnedType.BaseType) - Assert.False(referenceOwnedType.IsMemoryOptimized()) - Assert.IsType(Of ConstructorBinding)(referenceOwnedType.ConstructorBinding) - Assert.Null(referenceOwnedType.FindIndexerPropertyInfo()) - Assert.Equal( - ChangeTrackingStrategy.ChangingAndChangedNotificationsWithOriginalValues, - referenceOwnedType.GetChangeTrackingStrategy()) - Assert.Null(referenceOwnedType.GetQueryFilter()) - Assert.Null(referenceOwnedType(CoreAnnotationNames.PropertyAccessMode)) - Assert.Null(referenceOwnedType(CoreAnnotationNames.NavigationAccessMode)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() referenceOwnedType.GetPropertyAccessMode()).Message) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() referenceOwnedType.GetNavigationAccessMode()).Message) - - Dim principalTable = StoreObjectIdentifier.Create(referenceOwnedType, StoreObjectType.Table).Value - - Dim ownedId = referenceOwnedType.FindProperty("PrincipalBaseId") - Assert.True(ownedId.IsPrimaryKey()) - Assert.Equal( - SqlServerValueGenerationStrategy.None, - principalId.GetValueGenerationStrategy(principalTable)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() principalId.GetIdentityIncrement(principalTable)).Message) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() principalId.GetIdentitySeed(principalTable)).Message) - - Dim detailsProperty = referenceOwnedType.FindProperty(NameOf(OwnedType.Details)) - Assert.Null(detailsProperty(SqlServerAnnotationNames.Sparse)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() detailsProperty.IsSparse()).Message) - Assert.Null(detailsProperty(RelationalAnnotationNames.Collation)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() detailsProperty.GetCollation()).Message) - - Assert.Null(detailsProperty.GetColumnName(principalTable)) - - Dim referenceOwnership = referenceOwnedNavigation.ForeignKey - Assert.Empty(referenceOwnership.GetAnnotations()) - Assert.Same(referenceOwnership, referenceOwnedType.FindOwnership()) - Assert.True(referenceOwnership.IsOwnership) - Assert.True(referenceOwnership.IsRequired) - Assert.True(referenceOwnership.IsRequiredDependent) - Assert.True(referenceOwnership.IsUnique) - Assert.Null(referenceOwnership.DependentToPrincipal) - Assert.Same(referenceOwnedNavigation, referenceOwnership.PrincipalToDependent) - Assert.Equal(DeleteBehavior.Cascade, referenceOwnership.DeleteBehavior) - Assert.Equal(2, referenceOwnership.Properties.Count()) - Assert.Same(principalKey, referenceOwnership.PrincipalKey) - - Dim ownedServiceProperty = referenceOwnedType.GetServiceProperties().Single() - Assert.Empty(ownedServiceProperty.GetAnnotations()) - Assert.Equal(GetType(DbContext), ownedServiceProperty.ClrType) - Assert.Equal(GetType(DbContext), ownedServiceProperty.PropertyInfo.PropertyType) - Assert.Null(ownedServiceProperty.FieldInfo) - Assert.Same(referenceOwnedType, ownedServiceProperty.DeclaringEntityType) - Dim ownedServicePropertyBinding = ownedServiceProperty.ParameterBinding - Assert.IsType(Of ContextParameterBinding)(ownedServicePropertyBinding) - Assert.Equal(GetType(DbContext), ownedServicePropertyBinding.ServiceType) - Assert.Equal(ownedServiceProperty, ownedServicePropertyBinding.ConsumedProperties.Single()) - Assert.Equal(PropertyAccessMode.PreferField, ownedServiceProperty.GetPropertyAccessMode()) - Assert.Null(ownedServiceProperty(CoreAnnotationNames.PropertyAccessMode)) - - Dim principalDerived = Model.FindEntityType(GetType(PrincipalDerived(Of DependentBase(Of Byte?)))) - Assert.Equal(principalBaseET, principalDerived.BaseType) - Assert.Equal( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+" & - "PrincipalDerived>", - principalDerived.Name) - Assert.False(principalDerived.IsOwned()) - Assert.IsType(Of ConstructorBinding)(principalDerived.ConstructorBinding) - Assert.Equal(ChangeTrackingStrategy.Snapshot, principalDerived.GetChangeTrackingStrategy()) - Assert.Equal("PrincipalDerived>", principalDerived.GetDiscriminatorValue()) - - Assert.Equal(2, principalDerived.GetDeclaredNavigations().Count()) - Dim dependentNavigation = principalDerived.GetDeclaredNavigations().First() - Assert.Equal("Dependent", dependentNavigation.Name) - Assert.Equal("Dependent", dependentNavigation.PropertyInfo.Name) - Assert.Equal("_Dependent", dependentNavigation.FieldInfo.Name) - Assert.False(dependentNavigation.IsCollection) - Assert.True(dependentNavigation.IsEagerLoaded) - Assert.False(dependentNavigation.LazyLoadingEnabled) - Assert.False(dependentNavigation.IsOnDependent) - Assert.Equal(principalDerived, dependentNavigation.DeclaringEntityType) - Assert.Equal("Principal", dependentNavigation.Inverse.Name) - - Dim ownedCollectionNavigation = principalDerived.GetDeclaredNavigations().Last() - Assert.Equal("ManyOwned", ownedCollectionNavigation.Name) - Assert.Null(ownedCollectionNavigation.PropertyInfo) - Assert.Equal("ManyOwned", ownedCollectionNavigation.FieldInfo.Name) - Assert.Equal(GetType(ICollection(Of OwnedType)), ownedCollectionNavigation.ClrType) - Assert.True(ownedCollectionNavigation.IsCollection) - Assert.True(ownedCollectionNavigation.IsEagerLoaded) - Assert.False(ownedCollectionNavigation.IsOnDependent) - Assert.Null(ownedCollectionNavigation.Inverse) - Assert.Equal(principalDerived, ownedCollectionNavigation.DeclaringEntityType) - - Dim collectionOwnedType = ownedCollectionNavigation.TargetEntityType - Assert.Equal(principalDerived.Name & ".ManyOwned#OwnedType", collectionOwnedType.Name) - Assert.Equal(GetType(OwnedType), collectionOwnedType.ClrType) - Assert.True(collectionOwnedType.HasSharedClrType) - Assert.False(collectionOwnedType.IsPropertyBag) - Assert.True(collectionOwnedType.IsOwned()) - Assert.False(collectionOwnedType.IsMemoryOptimized()) - Assert.Null(collectionOwnedType(RelationalAnnotationNames.IsTableExcludedFromMigrations)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() collectionOwnedType.IsTableExcludedFromMigrations()).Message) - Assert.Null(collectionOwnedType.BaseType) - Assert.IsType(Of ConstructorBinding)(collectionOwnedType.ConstructorBinding) - Assert.Equal(ChangeTrackingStrategy.Snapshot, collectionOwnedType.GetChangeTrackingStrategy()) - - Dim collectionOwnership = ownedCollectionNavigation.ForeignKey - Assert.Same(collectionOwnership, collectionOwnedType.FindOwnership()) - Assert.True(collectionOwnership.IsOwnership) - Assert.True(collectionOwnership.IsRequired) - Assert.False(collectionOwnership.IsRequiredDependent) - Assert.False(collectionOwnership.IsUnique) - Assert.Null(collectionOwnership.DependentToPrincipal) - Assert.Same(ownedCollectionNavigation, collectionOwnership.PrincipalToDependent) - Assert.Equal(DeleteBehavior.Cascade, collectionOwnership.DeleteBehavior) - Assert.Equal(2, collectionOwnership.Properties.Count()) - - Dim derivedSkipNavigation = principalDerived.GetDeclaredSkipNavigations().Single() - Assert.Equal("Principals", derivedSkipNavigation.Name) - Assert.Equal("Principals", derivedSkipNavigation.PropertyInfo.Name) - Assert.Equal("_Principals", derivedSkipNavigation.FieldInfo.Name) - Assert.Equal(GetType(ICollection(Of PrincipalBase)), derivedSkipNavigation.ClrType) - Assert.True(derivedSkipNavigation.IsCollection) - Assert.True(derivedSkipNavigation.IsEagerLoaded) - Assert.False(derivedSkipNavigation.LazyLoadingEnabled) - Assert.False(derivedSkipNavigation.IsOnDependent) - Assert.Equal(principalDerived, derivedSkipNavigation.DeclaringEntityType) - Assert.Equal("Deriveds", derivedSkipNavigation.Inverse.Name) - Assert.Same(principalBaseET.GetSkipNavigations().Single(), derivedSkipNavigation.Inverse) - - Assert.Same(derivedSkipNavigation, derivedSkipNavigation.ForeignKey.GetReferencingSkipNavigations().Single()) - Assert.Same( - derivedSkipNavigation.Inverse, derivedSkipNavigation.Inverse.ForeignKey.GetReferencingSkipNavigations().Single()) - - Assert.Equal({derivedSkipNavigation.Inverse, derivedSkipNavigation}, principalDerived.GetSkipNavigations()) - - Dim joinType = derivedSkipNavigation.JoinEntityType - - Assert.Equal("PrincipalBasePrincipalDerived>", joinType.Name) - Assert.Equal(GetType(Dictionary(Of String, Object)), joinType.ClrType) - Assert.True(joinType.HasSharedClrType) - Assert.True(joinType.IsPropertyBag) - Assert.False(joinType.IsOwned()) - Assert.Null(joinType.BaseType) - Assert.IsType(Of ConstructorBinding)(joinType.ConstructorBinding) - Assert.Equal("Item", joinType.FindIndexerPropertyInfo().Name) - Assert.Equal(ChangeTrackingStrategy.Snapshot, joinType.GetChangeTrackingStrategy()) - Assert.Null(joinType(RelationalAnnotationNames.Comment)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() joinType.GetComment()).Message) - Assert.Null(joinType.GetQueryFilter()) - - Dim rowid = joinType.GetProperties().Single(Function(p) Not p.IsForeignKey()) - Assert.Equal(GetType(Byte()), rowid.ClrType) - Assert.True(rowid.IsIndexerProperty()) - Assert.Same(joinType.FindIndexerPropertyInfo(), rowid.PropertyInfo) - Assert.Null(rowid.FieldInfo) - Assert.True(rowid.IsNullable) - Assert.False(rowid.IsShadowProperty()) - Assert.True(rowid.IsConcurrencyToken) - Assert.Equal(ValueGenerated.OnAddOrUpdate, rowid.ValueGenerated) - Assert.Equal("rowid", rowid.GetColumnName()) - Assert.Equal("rowversion", rowid.GetColumnType()) - Assert.Null(rowid(RelationalAnnotationNames.Comment)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() rowid.GetComment()).Message) - Assert.Null(rowid(RelationalAnnotationNames.ColumnOrder)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() rowid.GetColumnOrder()).Message) - Assert.Null(rowid.GetValueConverter()) - Assert.NotNull(rowid.GetValueComparer()) - Assert.NotNull(rowid.GetKeyValueComparer()) - Assert.Equal(SqlServerValueGenerationStrategy.None, rowid.GetValueGenerationStrategy()) - - Dim dependentForeignKey = dependentNavigation.ForeignKey - Assert.False(dependentForeignKey.IsOwnership) - Assert.True(dependentForeignKey.IsRequired) - Assert.False(dependentForeignKey.IsRequiredDependent) - Assert.True(dependentForeignKey.IsUnique) - Assert.Same(dependentNavigation.Inverse, dependentForeignKey.DependentToPrincipal) - Assert.Same(dependentNavigation, dependentForeignKey.PrincipalToDependent) - Assert.Equal(DeleteBehavior.ClientNoAction, dependentForeignKey.DeleteBehavior) - Assert.Equal({"PrincipalId", "PrincipalAlternateId"}, dependentForeignKey.Properties.Select(Function(p) p.Name)) - Assert.Same(principalKey, dependentForeignKey.PrincipalKey) - - Dim dependentBase = dependentNavigation.TargetEntityType - - Assert.False(dependentBase.GetIsDiscriminatorMappingComplete()) - Dim principalDiscriminator = dependentBase.FindDiscriminatorProperty() - Assert.IsType(Of DiscriminatorValueGenerator)( - principalDiscriminator.GetValueGeneratorFactory()(principalDiscriminator, dependentBase)) - Assert.Equal(Enum1.One, dependentBase.GetDiscriminatorValue()) - - Dim dependentBaseForeignKey = dependentBase.GetForeignKeys().Single(Function(fk) fk IsNot dependentForeignKey) - Dim dependentForeignKeyProperty = dependentBaseForeignKey.Properties.Single() - - Assert.Equal( - {dependentBaseForeignKey, dependentForeignKey}, dependentForeignKeyProperty.GetContainingForeignKeys()) - - Dim dependentDerived = dependentBase.GetDerivedTypes().Single() - Assert.Equal(Enum1.Two, dependentDerived.GetDiscriminatorValue()) - - Assert.Equal(2, dependentDerived.GetDeclaredProperties().Count()) - - Dim dependentData = dependentDerived.GetDeclaredProperties().First() - Assert.Equal(GetType(String), dependentData.ClrType) - Assert.Equal("Data", dependentData.Name) - Assert.Equal("Data", dependentData.PropertyInfo.Name) - Assert.Equal("_Data", dependentData.FieldInfo.Name) - Assert.True(dependentData.IsNullable) - Assert.False(dependentData.IsShadowProperty()) - Assert.False(dependentData.IsConcurrencyToken) - Assert.Equal(ValueGenerated.Never, dependentData.ValueGenerated) - Assert.Equal("Data", dependentData.GetColumnName()) - Assert.Equal("char(20)", dependentData.GetColumnType()) - Assert.Equal(20, dependentData.GetMaxLength()) - Assert.False(dependentData.IsUnicode()) - Assert.True(dependentData.IsFixedLength()) - Assert.Null(dependentData.GetPrecision()) - Assert.Null(dependentData.GetScale()) - - Dim dependentMoney = dependentDerived.GetDeclaredProperties().Last() - Assert.Equal(GetType(Decimal), dependentMoney.ClrType) - Assert.Equal("Money", dependentMoney.Name) - Assert.Null(dependentMoney.PropertyInfo) - Assert.Null(dependentMoney.FieldInfo) - Assert.False(dependentMoney.IsNullable) - Assert.True(dependentMoney.IsShadowProperty()) - Assert.False(dependentMoney.IsConcurrencyToken) - Assert.Equal(ValueGenerated.Never, dependentMoney.ValueGenerated) - Assert.Equal("Money", dependentMoney.GetColumnName()) - Assert.Equal("decimal(9,3)", dependentMoney.GetColumnType()) - Assert.Null(dependentMoney.GetMaxLength()) - Assert.Null(dependentMoney.IsUnicode()) - Assert.Null(dependentMoney.IsFixedLength()) - Assert.Equal(9, dependentMoney.GetPrecision()) - Assert.Equal(3, dependentMoney.GetScale()) - - Assert.Equal( - { - derivedSkipNavigation.ForeignKey, - referenceOwnership, - collectionOwnership, - dependentForeignKey, - derivedSkipNavigation.Inverse.ForeignKey - }, - principalKey.GetReferencingForeignKeys()) - - Assert.Equal( - {dependentBaseForeignKey, referenceOwnership, derivedSkipNavigation.Inverse.ForeignKey}, - principalBaseET.GetReferencingForeignKeys()) - - Assert.Equal( - {derivedSkipNavigation.ForeignKey, collectionOwnership, dependentForeignKey}, - principalDerived.GetDeclaredReferencingForeignKeys()) - - Assert.Equal( - { - dependentBase, - dependentDerived, - manyTypesType, - principalBaseET, - referenceOwnedType, - principalDerived, - collectionOwnedType, - joinType - }, - Model.GetEntityTypes()) - End Sub, - GetType(SqlServerNetTopologySuiteDesignTimeServices)) - End Sub - - - Public Sub ComplexTypes() - - Dim ComplexTypesContextModel = -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - - Public Partial Class ComplexTypesContextModel - Inherits RuntimeModel - - Private Shared ReadOnly _useOldBehavior31751 As Boolean - - Private Shared _Instance As ComplexTypesContextModel - Public Shared ReadOnly Property Instance As IModel - Get - Return _Instance - End Get - End Property - - Shared Sub New() - Dim enabled31751 As Boolean - _useOldBehavior31751 = System.AppContext.TryGetSwitch("Microsoft.EntityFrameworkCore.Issue31751", enabled31751) AndAlso enabled31751 - - Dim model As New ComplexTypesContextModel() - If _useOldBehavior31751 Then - model.Initialize() - Else - Dim thread = New System.Threading.Thread(Sub() model.Initialize(), 10 * 1024 * 1024) - thread.Start() - thread.Join() - End If - - model.Customize() - _Instance = model - End Sub - - Partial Private Sub Initialize() - End Sub - - Partial Private Sub Customize() - End Sub - End Class -End Namespace -]]>.Value - - Dim ComplexTypesContextModelBuilder = -Imports System -Imports System.Collections.Generic -Imports System.Linq -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Metadata.Internal -Imports Microsoft.EntityFrameworkCore.Migrations -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Public Partial Class ComplexTypesContextModel - - Private Sub Initialize() - Dim principalBase = PrincipalBaseEntityType.Create(Me) - Dim principalDerived = PrincipalDerivedEntityType.Create(Me, principalBase) - - PrincipalBaseEntityType.CreateForeignKey1(principalBase, principalBase) - - PrincipalBaseEntityType.CreateAnnotations(principalBase) - PrincipalDerivedEntityType.CreateAnnotations(principalDerived) - - Dim functions As New SortedDictionary(Of String, IDbFunction)() - Dim principalBaseTvf As New RuntimeDbFunction( - "PrincipalBaseTvf", - Me, - GetType(IQueryable(Of VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase)), - "PrincipalBaseTvf", - schema:="dbo") - - functions("PrincipalBaseTvf") = principalBaseTvf - - AddAnnotation("Relational:DbFunctions", functions) - AddAnnotation("Relational:MaxIdentifierLength", 128) - AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.IdentityColumn) - AddRuntimeAnnotation("Relational:RelationalModel", CreateRelationalModel()) - End Sub - - Private Function CreateRelationalModel() As IRelationalModel - Dim relationalModel As New RelationalModel(Me) - - Dim principalBase = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase") - - Dim defaultTableMappings As New List(Of TableMappingBase(Of ColumnMappingBase))() - principalBase.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", Nothing, relationalModel) - Dim discriminatorColumnBase As New ColumnBase(Of ColumnMappingBase)("Discriminator", "nvarchar(55)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("Discriminator", discriminatorColumnBase) - Dim enum1ColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum1", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("Enum1", enum1ColumnBase) - Dim enum2ColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum2", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("Enum2", enum2ColumnBase) - Dim flagsEnum1ColumnBase As New ColumnBase(Of ColumnMappingBase)("FlagsEnum1", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("FlagsEnum1", flagsEnum1ColumnBase) - Dim flagsEnum2ColumnBase As New ColumnBase(Of ColumnMappingBase)("FlagsEnum2", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("FlagsEnum2", flagsEnum2ColumnBase) - Dim idColumnBase As New ColumnBase(Of ColumnMappingBase)("Id", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("Id", idColumnBase) - Dim principalBaseIdColumnBase As New ColumnBase(Of ColumnMappingBase)("PrincipalBaseId", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("PrincipalBaseId", principalBaseIdColumnBase) - Dim refTypeArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("RefTypeArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("RefTypeArray", refTypeArrayColumnBase) - Dim refTypeEnumerableColumnBase As New ColumnBase(Of ColumnMappingBase)("RefTypeEnumerable", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("RefTypeEnumerable", refTypeEnumerableColumnBase) - Dim refTypeIListColumnBase As New ColumnBase(Of ColumnMappingBase)("RefTypeIList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("RefTypeIList", refTypeIListColumnBase) - Dim refTypeListColumnBase As New ColumnBase(Of ColumnMappingBase)("RefTypeList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("RefTypeList", refTypeListColumnBase) - Dim valueTypeArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("ValueTypeArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("ValueTypeArray", valueTypeArrayColumnBase) - Dim valueTypeEnumerableColumnBase As New ColumnBase(Of ColumnMappingBase)("ValueTypeEnumerable", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("ValueTypeEnumerable", valueTypeEnumerableColumnBase) - Dim valueTypeIListColumnBase As New ColumnBase(Of ColumnMappingBase)("ValueTypeIList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("ValueTypeIList", valueTypeIListColumnBase) - Dim valueTypeListColumnBase As New ColumnBase(Of ColumnMappingBase)("ValueTypeList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("ValueTypeList", valueTypeListColumnBase) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase As New TableMappingBase(Of ColumnMappingBase)(principalBase, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase, False) - defaultTableMappings.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(discriminatorColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("Discriminator"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum1ColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("Enum1"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum2ColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("Enum2"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(flagsEnum1ColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("FlagsEnum1"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(flagsEnum2ColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("FlagsEnum2"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalBaseIdColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("PrincipalBaseId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeArrayColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("RefTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeEnumerableColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("RefTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeIListColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("RefTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeListColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("RefTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeArrayColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("ValueTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeEnumerableColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("ValueTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeIListColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("ValueTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeListColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("ValueTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - - Dim tableMappings As New List(Of TableMapping)() - principalBase.SetRuntimeAnnotation("Relational:TableMappings", tableMappings) - Dim principalBaseTable As New Table("PrincipalBase", Nothing, relationalModel) - Dim idColumn As New Column("Id", "bigint", principalBaseTable) - principalBaseTable.Columns.Add("Id", idColumn) - Dim deetsColumn As New Column("Deets", "varchar(64)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Deets", deetsColumn) - Dim discriminatorColumn As New Column("Discriminator", "nvarchar(55)", principalBaseTable) - principalBaseTable.Columns.Add("Discriminator", discriminatorColumn) - Dim enum1Column As New Column("Enum1", "int", principalBaseTable) - principalBaseTable.Columns.Add("Enum1", enum1Column) - Dim enum2Column As New Column("Enum2", "int", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Enum2", enum2Column) - Dim flagsEnum1Column As New Column("FlagsEnum1", "int", principalBaseTable) - principalBaseTable.Columns.Add("FlagsEnum1", flagsEnum1Column) - Dim flagsEnum2Column As New Column("FlagsEnum2", "int", principalBaseTable) - principalBaseTable.Columns.Add("FlagsEnum2", flagsEnum2Column) - Dim owned_NumberColumn As New Column("Owned_Number", "int", principalBaseTable) - principalBaseTable.Columns.Add("Owned_Number", owned_NumberColumn) - Dim owned_Principal_AlternateIdColumn As New Column("Owned_Principal_AlternateId", "uniqueidentifier", principalBaseTable) - principalBaseTable.Columns.Add("Owned_Principal_AlternateId", owned_Principal_AlternateIdColumn) - Dim owned_Principal_Enum1Column As New Column("Owned_Principal_Enum1", "int", principalBaseTable) - principalBaseTable.Columns.Add("Owned_Principal_Enum1", owned_Principal_Enum1Column) - Dim owned_Principal_Enum2Column As New Column("Owned_Principal_Enum2", "int", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_Principal_Enum2", owned_Principal_Enum2Column) - Dim owned_Principal_FlagsEnum1Column As New Column("Owned_Principal_FlagsEnum1", "int", principalBaseTable) - principalBaseTable.Columns.Add("Owned_Principal_FlagsEnum1", owned_Principal_FlagsEnum1Column) - Dim owned_Principal_FlagsEnum2Column As New Column("Owned_Principal_FlagsEnum2", "int", principalBaseTable) - principalBaseTable.Columns.Add("Owned_Principal_FlagsEnum2", owned_Principal_FlagsEnum2Column) - Dim owned_Principal_IdColumn As New Column("Owned_Principal_Id", "bigint", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_Principal_Id", owned_Principal_IdColumn) - Dim owned_Principal_RefTypeArrayColumn As New Column("Owned_Principal_RefTypeArray", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_Principal_RefTypeArray", owned_Principal_RefTypeArrayColumn) - Dim owned_Principal_RefTypeEnumerableColumn As New Column("Owned_Principal_RefTypeEnumerable", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_Principal_RefTypeEnumerable", owned_Principal_RefTypeEnumerableColumn) - Dim owned_Principal_RefTypeIListColumn As New Column("Owned_Principal_RefTypeIList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_Principal_RefTypeIList", owned_Principal_RefTypeIListColumn) - Dim owned_Principal_RefTypeListColumn As New Column("Owned_Principal_RefTypeList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_Principal_RefTypeList", owned_Principal_RefTypeListColumn) - Dim owned_Principal_ValueTypeArrayColumn As New Column("Owned_Principal_ValueTypeArray", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_Principal_ValueTypeArray", owned_Principal_ValueTypeArrayColumn) - Dim owned_Principal_ValueTypeEnumerableColumn As New Column("Owned_Principal_ValueTypeEnumerable", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_Principal_ValueTypeEnumerable", owned_Principal_ValueTypeEnumerableColumn) - Dim owned_Principal_ValueTypeIListColumn As New Column("Owned_Principal_ValueTypeIList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_Principal_ValueTypeIList", owned_Principal_ValueTypeIListColumn) - Dim owned_Principal_ValueTypeListColumn As New Column("Owned_Principal_ValueTypeList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_Principal_ValueTypeList", owned_Principal_ValueTypeListColumn) - Dim owned_RefTypeArrayColumn As New Column("Owned_RefTypeArray", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_RefTypeArray", owned_RefTypeArrayColumn) - Dim owned_RefTypeEnumerableColumn As New Column("Owned_RefTypeEnumerable", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_RefTypeEnumerable", owned_RefTypeEnumerableColumn) - Dim owned_RefTypeIListColumn As New Column("Owned_RefTypeIList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_RefTypeIList", owned_RefTypeIListColumn) - Dim owned_RefTypeListColumn As New Column("Owned_RefTypeList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_RefTypeList", owned_RefTypeListColumn) - Dim owned_ValueTypeArrayColumn As New Column("Owned_ValueTypeArray", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_ValueTypeArray", owned_ValueTypeArrayColumn) - Dim owned_ValueTypeEnumerableColumn As New Column("Owned_ValueTypeEnumerable", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_ValueTypeEnumerable", owned_ValueTypeEnumerableColumn) - Dim owned_ValueTypeIListColumn As New Column("Owned_ValueTypeIList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_ValueTypeIList", owned_ValueTypeIListColumn) - Dim owned_ValueTypeListColumn As New Column("Owned_ValueTypeList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_ValueTypeList", owned_ValueTypeListColumn) - Dim principalBaseIdColumn As New Column("PrincipalBaseId", "bigint", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("PrincipalBaseId", principalBaseIdColumn) - Dim refTypeArrayColumn As New Column("RefTypeArray", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("RefTypeArray", refTypeArrayColumn) - Dim refTypeEnumerableColumn As New Column("RefTypeEnumerable", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("RefTypeEnumerable", refTypeEnumerableColumn) - Dim refTypeIListColumn As New Column("RefTypeIList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("RefTypeIList", refTypeIListColumn) - Dim refTypeListColumn As New Column("RefTypeList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("RefTypeList", refTypeListColumn) - Dim valueTypeArrayColumn As New Column("ValueTypeArray", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("ValueTypeArray", valueTypeArrayColumn) - Dim valueTypeEnumerableColumn As New Column("ValueTypeEnumerable", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("ValueTypeEnumerable", valueTypeEnumerableColumn) - Dim valueTypeIListColumn As New Column("ValueTypeIList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("ValueTypeIList", valueTypeIListColumn) - Dim valueTypeListColumn As New Column("ValueTypeList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("ValueTypeList", valueTypeListColumn) - Dim pK_PrincipalBase As New UniqueConstraint("PK_PrincipalBase", principalBaseTable, {idColumn}) - principalBaseTable.PrimaryKey = pK_PrincipalBase - Dim pK_PrincipalBaseUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id"}) - pK_PrincipalBase.MappedKeys.Add(pK_PrincipalBaseUc) - RelationalModel.GetOrCreateUniqueConstraints(pK_PrincipalBaseUc).Add(pK_PrincipalBase) - principalBaseTable.UniqueConstraints.Add("PK_PrincipalBase", pK_PrincipalBase) - Dim iX_PrincipalBase_PrincipalBaseId As New TableIndex( - "IX_PrincipalBase_PrincipalBaseId", principalBaseTable, {principalBaseIdColumn}, False) - Dim iX_PrincipalBase_PrincipalBaseIdIx = RelationalModel.GetIndex(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"PrincipalBaseId"}) - iX_PrincipalBase_PrincipalBaseId.MappedIndexes.Add(iX_PrincipalBase_PrincipalBaseIdIx) - RelationalModel.GetOrCreateTableIndexes(iX_PrincipalBase_PrincipalBaseIdIx).Add(iX_PrincipalBase_PrincipalBaseId) - principalBaseTable.Indexes.Add("IX_PrincipalBase_PrincipalBaseId", iX_PrincipalBase_PrincipalBaseId) - relationalModel.Tables.Add(("PrincipalBase", Nothing), principalBaseTable) - Dim principalBaseTableMapping As New TableMapping(principalBase, principalBaseTable, True) With { - .IsSharedTablePrincipal = True - } - principalBaseTable.AddTypeMapping(principalBaseTableMapping, False) - tableMappings.Add(principalBaseTableMapping) - RelationalModel.CreateColumnMapping(idColumn, principalBase.FindProperty("Id"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(discriminatorColumn, principalBase.FindProperty("Discriminator"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(enum1Column, principalBase.FindProperty("Enum1"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(enum2Column, principalBase.FindProperty("Enum2"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(flagsEnum1Column, principalBase.FindProperty("FlagsEnum1"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(flagsEnum2Column, principalBase.FindProperty("FlagsEnum2"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(principalBaseIdColumn, principalBase.FindProperty("PrincipalBaseId"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(refTypeArrayColumn, principalBase.FindProperty("RefTypeArray"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(refTypeEnumerableColumn, principalBase.FindProperty("RefTypeEnumerable"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(refTypeIListColumn, principalBase.FindProperty("RefTypeIList"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(refTypeListColumn, principalBase.FindProperty("RefTypeList"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(valueTypeArrayColumn, principalBase.FindProperty("ValueTypeArray"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(valueTypeEnumerableColumn, principalBase.FindProperty("ValueTypeEnumerable"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(valueTypeIListColumn, principalBase.FindProperty("ValueTypeIList"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(valueTypeListColumn, principalBase.FindProperty("ValueTypeList"), principalBaseTableMapping) - - Dim viewMappings As New List(Of ViewMapping)() - principalBase.SetRuntimeAnnotation("Relational:ViewMappings", viewMappings) - Dim principalBaseViewView As New View("PrincipalBaseView", Nothing, relationalModel) - Dim discriminatorViewColumn As New ViewColumn("Discriminator", "nvarchar(55)", principalBaseViewView) - principalBaseViewView.Columns.Add("Discriminator", discriminatorViewColumn) - Dim enum1ViewColumn As New ViewColumn("Enum1", "int", principalBaseViewView) - principalBaseViewView.Columns.Add("Enum1", enum1ViewColumn) - Dim enum2ViewColumn As New ViewColumn("Enum2", "int", principalBaseViewView) With { - .IsNullable = True - } - principalBaseViewView.Columns.Add("Enum2", enum2ViewColumn) - Dim flagsEnum1ViewColumn As New ViewColumn("FlagsEnum1", "int", principalBaseViewView) - principalBaseViewView.Columns.Add("FlagsEnum1", flagsEnum1ViewColumn) - Dim flagsEnum2ViewColumn As New ViewColumn("FlagsEnum2", "int", principalBaseViewView) - principalBaseViewView.Columns.Add("FlagsEnum2", flagsEnum2ViewColumn) - Dim idViewColumn As New ViewColumn("Id", "bigint", principalBaseViewView) - principalBaseViewView.Columns.Add("Id", idViewColumn) - Dim principalBaseIdViewColumn As New ViewColumn("PrincipalBaseId", "bigint", principalBaseViewView) With { - .IsNullable = True - } - principalBaseViewView.Columns.Add("PrincipalBaseId", principalBaseIdViewColumn) - Dim refTypeArrayViewColumn As New ViewColumn("RefTypeArray", "nvarchar(max)", principalBaseViewView) With { - .IsNullable = True - } - principalBaseViewView.Columns.Add("RefTypeArray", refTypeArrayViewColumn) - Dim refTypeEnumerableViewColumn As New ViewColumn("RefTypeEnumerable", "nvarchar(max)", principalBaseViewView) With { - .IsNullable = True - } - principalBaseViewView.Columns.Add("RefTypeEnumerable", refTypeEnumerableViewColumn) - Dim refTypeIListViewColumn As New ViewColumn("RefTypeIList", "nvarchar(max)", principalBaseViewView) With { - .IsNullable = True - } - principalBaseViewView.Columns.Add("RefTypeIList", refTypeIListViewColumn) - Dim refTypeListViewColumn As New ViewColumn("RefTypeList", "nvarchar(max)", principalBaseViewView) With { - .IsNullable = True - } - principalBaseViewView.Columns.Add("RefTypeList", refTypeListViewColumn) - Dim valueTypeArrayViewColumn As New ViewColumn("ValueTypeArray", "nvarchar(max)", principalBaseViewView) With { - .IsNullable = True - } - principalBaseViewView.Columns.Add("ValueTypeArray", valueTypeArrayViewColumn) - Dim valueTypeEnumerableViewColumn As New ViewColumn("ValueTypeEnumerable", "nvarchar(max)", principalBaseViewView) With { - .IsNullable = True - } - principalBaseViewView.Columns.Add("ValueTypeEnumerable", valueTypeEnumerableViewColumn) - Dim valueTypeIListViewColumn As New ViewColumn("ValueTypeIList", "nvarchar(max)", principalBaseViewView) With { - .IsNullable = True - } - principalBaseViewView.Columns.Add("ValueTypeIList", valueTypeIListViewColumn) - Dim valueTypeListViewColumn As New ViewColumn("ValueTypeList", "nvarchar(max)", principalBaseViewView) With { - .IsNullable = True - } - principalBaseViewView.Columns.Add("ValueTypeList", valueTypeListViewColumn) - relationalModel.Views.Add(("PrincipalBaseView", Nothing), principalBaseViewView) - Dim principalBaseViewViewMapping As New ViewMapping(principalBase, principalBaseViewView, True) - principalBaseViewView.AddTypeMapping(principalBaseViewViewMapping, False) - viewMappings.Add(principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(idViewColumn, principalBase.FindProperty("Id"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(discriminatorViewColumn, principalBase.FindProperty("Discriminator"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(enum1ViewColumn, principalBase.FindProperty("Enum1"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(enum2ViewColumn, principalBase.FindProperty("Enum2"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(flagsEnum1ViewColumn, principalBase.FindProperty("FlagsEnum1"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(flagsEnum2ViewColumn, principalBase.FindProperty("FlagsEnum2"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(principalBaseIdViewColumn, principalBase.FindProperty("PrincipalBaseId"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(refTypeArrayViewColumn, principalBase.FindProperty("RefTypeArray"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(refTypeEnumerableViewColumn, principalBase.FindProperty("RefTypeEnumerable"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(refTypeIListViewColumn, principalBase.FindProperty("RefTypeIList"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(refTypeListViewColumn, principalBase.FindProperty("RefTypeList"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(valueTypeArrayViewColumn, principalBase.FindProperty("ValueTypeArray"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(valueTypeEnumerableViewColumn, principalBase.FindProperty("ValueTypeEnumerable"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(valueTypeIListViewColumn, principalBase.FindProperty("ValueTypeIList"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(valueTypeListViewColumn, principalBase.FindProperty("ValueTypeList"), principalBaseViewViewMapping) - - Dim sqlQueryMappings As New List(Of SqlQueryMapping)() - principalBase.SetRuntimeAnnotation("Relational:SqlQueryMappings", sqlQueryMappings) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery As New SqlQuery("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.MappedSqlQuery", relationalModel, "select * from PrincipalBase") - Dim discriminatorSqlQueryColumn As New SqlQueryColumn("Discriminator", "nvarchar(55)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery.Columns.Add("Discriminator", discriminatorSqlQueryColumn) - Dim enum1SqlQueryColumn As New SqlQueryColumn("Enum1", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery.Columns.Add("Enum1", enum1SqlQueryColumn) - Dim enum2SqlQueryColumn As New SqlQueryColumn("Enum2", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery.Columns.Add("Enum2", enum2SqlQueryColumn) - Dim flagsEnum1SqlQueryColumn As New SqlQueryColumn("FlagsEnum1", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery.Columns.Add("FlagsEnum1", flagsEnum1SqlQueryColumn) - Dim flagsEnum2SqlQueryColumn As New SqlQueryColumn("FlagsEnum2", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery.Columns.Add("FlagsEnum2", flagsEnum2SqlQueryColumn) - Dim idSqlQueryColumn As New SqlQueryColumn("Id", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery.Columns.Add("Id", idSqlQueryColumn) - Dim principalBaseIdSqlQueryColumn As New SqlQueryColumn("PrincipalBaseId", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery.Columns.Add("PrincipalBaseId", principalBaseIdSqlQueryColumn) - Dim refTypeArraySqlQueryColumn As New SqlQueryColumn("RefTypeArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery.Columns.Add("RefTypeArray", refTypeArraySqlQueryColumn) - Dim refTypeEnumerableSqlQueryColumn As New SqlQueryColumn("RefTypeEnumerable", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery.Columns.Add("RefTypeEnumerable", refTypeEnumerableSqlQueryColumn) - Dim refTypeIListSqlQueryColumn As New SqlQueryColumn("RefTypeIList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery.Columns.Add("RefTypeIList", refTypeIListSqlQueryColumn) - Dim refTypeListSqlQueryColumn As New SqlQueryColumn("RefTypeList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery.Columns.Add("RefTypeList", refTypeListSqlQueryColumn) - Dim valueTypeArraySqlQueryColumn As New SqlQueryColumn("ValueTypeArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery.Columns.Add("ValueTypeArray", valueTypeArraySqlQueryColumn) - Dim valueTypeEnumerableSqlQueryColumn As New SqlQueryColumn("ValueTypeEnumerable", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery.Columns.Add("ValueTypeEnumerable", valueTypeEnumerableSqlQueryColumn) - Dim valueTypeIListSqlQueryColumn As New SqlQueryColumn("ValueTypeIList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery.Columns.Add("ValueTypeIList", valueTypeIListSqlQueryColumn) - Dim valueTypeListSqlQueryColumn As New SqlQueryColumn("ValueTypeList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery.Columns.Add("ValueTypeList", valueTypeListSqlQueryColumn) - relationalModel.Queries.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.MappedSqlQuery", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping As New SqlQueryMapping(principalBase, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping, False) - sqlQueryMappings.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping.IsDefaultSqlQueryMapping = True - RelationalModel.CreateSqlQueryColumnMapping(idSqlQueryColumn, principalBase.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping) - RelationalModel.CreateSqlQueryColumnMapping(discriminatorSqlQueryColumn, principalBase.FindProperty("Discriminator"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping) - RelationalModel.CreateSqlQueryColumnMapping(enum1SqlQueryColumn, principalBase.FindProperty("Enum1"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping) - RelationalModel.CreateSqlQueryColumnMapping(enum2SqlQueryColumn, principalBase.FindProperty("Enum2"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping) - RelationalModel.CreateSqlQueryColumnMapping(flagsEnum1SqlQueryColumn, principalBase.FindProperty("FlagsEnum1"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping) - RelationalModel.CreateSqlQueryColumnMapping(flagsEnum2SqlQueryColumn, principalBase.FindProperty("FlagsEnum2"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping) - RelationalModel.CreateSqlQueryColumnMapping(principalBaseIdSqlQueryColumn, principalBase.FindProperty("PrincipalBaseId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping) - RelationalModel.CreateSqlQueryColumnMapping(refTypeArraySqlQueryColumn, principalBase.FindProperty("RefTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping) - RelationalModel.CreateSqlQueryColumnMapping(refTypeEnumerableSqlQueryColumn, principalBase.FindProperty("RefTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping) - RelationalModel.CreateSqlQueryColumnMapping(refTypeIListSqlQueryColumn, principalBase.FindProperty("RefTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping) - RelationalModel.CreateSqlQueryColumnMapping(refTypeListSqlQueryColumn, principalBase.FindProperty("RefTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping) - RelationalModel.CreateSqlQueryColumnMapping(valueTypeArraySqlQueryColumn, principalBase.FindProperty("ValueTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping) - RelationalModel.CreateSqlQueryColumnMapping(valueTypeEnumerableSqlQueryColumn, principalBase.FindProperty("ValueTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping) - RelationalModel.CreateSqlQueryColumnMapping(valueTypeIListSqlQueryColumn, principalBase.FindProperty("ValueTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping) - RelationalModel.CreateSqlQueryColumnMapping(valueTypeListSqlQueryColumn, principalBase.FindProperty("ValueTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping) - - Dim functionMappings As New List(Of FunctionMapping)() - principalBase.SetRuntimeAnnotation("Relational:FunctionMappings", functionMappings) - Dim principalBaseTvf = DirectCast(Me.FindDbFunction("PrincipalBaseTvf"), IRuntimeDbFunction) - Dim principalBaseTvfFunction As New StoreFunction(principalBaseTvf, relationalModel) - Dim discriminatorFunctionColumn As New FunctionColumn("Discriminator", "nvarchar(55)", principalBaseTvfFunction) - principalBaseTvfFunction.Columns.Add("Discriminator", discriminatorFunctionColumn) - Dim enum1FunctionColumn As New FunctionColumn("Enum1", "int", principalBaseTvfFunction) - principalBaseTvfFunction.Columns.Add("Enum1", enum1FunctionColumn) - Dim enum2FunctionColumn As New FunctionColumn("Enum2", "int", principalBaseTvfFunction) With { - .IsNullable = True - } - principalBaseTvfFunction.Columns.Add("Enum2", enum2FunctionColumn) - Dim flagsEnum1FunctionColumn As New FunctionColumn("FlagsEnum1", "int", principalBaseTvfFunction) - principalBaseTvfFunction.Columns.Add("FlagsEnum1", flagsEnum1FunctionColumn) - Dim flagsEnum2FunctionColumn As New FunctionColumn("FlagsEnum2", "int", principalBaseTvfFunction) - principalBaseTvfFunction.Columns.Add("FlagsEnum2", flagsEnum2FunctionColumn) - Dim idFunctionColumn As New FunctionColumn("Id", "bigint", principalBaseTvfFunction) - principalBaseTvfFunction.Columns.Add("Id", idFunctionColumn) - Dim principalBaseIdFunctionColumn As New FunctionColumn("PrincipalBaseId", "bigint", principalBaseTvfFunction) With { - .IsNullable = True - } - principalBaseTvfFunction.Columns.Add("PrincipalBaseId", principalBaseIdFunctionColumn) - Dim refTypeArrayFunctionColumn As New FunctionColumn("RefTypeArray", "nvarchar(max)", principalBaseTvfFunction) With { - .IsNullable = True - } - principalBaseTvfFunction.Columns.Add("RefTypeArray", refTypeArrayFunctionColumn) - Dim refTypeEnumerableFunctionColumn As New FunctionColumn("RefTypeEnumerable", "nvarchar(max)", principalBaseTvfFunction) With { - .IsNullable = True - } - principalBaseTvfFunction.Columns.Add("RefTypeEnumerable", refTypeEnumerableFunctionColumn) - Dim refTypeIListFunctionColumn As New FunctionColumn("RefTypeIList", "nvarchar(max)", principalBaseTvfFunction) With { - .IsNullable = True - } - principalBaseTvfFunction.Columns.Add("RefTypeIList", refTypeIListFunctionColumn) - Dim refTypeListFunctionColumn As New FunctionColumn("RefTypeList", "nvarchar(max)", principalBaseTvfFunction) With { - .IsNullable = True - } - principalBaseTvfFunction.Columns.Add("RefTypeList", refTypeListFunctionColumn) - Dim valueTypeArrayFunctionColumn As New FunctionColumn("ValueTypeArray", "nvarchar(max)", principalBaseTvfFunction) With { - .IsNullable = True - } - principalBaseTvfFunction.Columns.Add("ValueTypeArray", valueTypeArrayFunctionColumn) - Dim valueTypeEnumerableFunctionColumn As New FunctionColumn("ValueTypeEnumerable", "nvarchar(max)", principalBaseTvfFunction) With { - .IsNullable = True - } - principalBaseTvfFunction.Columns.Add("ValueTypeEnumerable", valueTypeEnumerableFunctionColumn) - Dim valueTypeIListFunctionColumn As New FunctionColumn("ValueTypeIList", "nvarchar(max)", principalBaseTvfFunction) With { - .IsNullable = True - } - principalBaseTvfFunction.Columns.Add("ValueTypeIList", valueTypeIListFunctionColumn) - Dim valueTypeListFunctionColumn As New FunctionColumn("ValueTypeList", "nvarchar(max)", principalBaseTvfFunction) With { - .IsNullable = True - } - principalBaseTvfFunction.Columns.Add("ValueTypeList", valueTypeListFunctionColumn) - relationalModel.Functions.Add( - ("PrincipalBaseTvf", "dbo", System.Array.Empty(Of String)), - principalBaseTvfFunction) - Dim principalBaseTvfFunctionMapping As New FunctionMapping(principalBase, principalBaseTvfFunction, principalBaseTvf, True) - principalBaseTvfFunction.AddTypeMapping(principalBaseTvfFunctionMapping, False) - functionMappings.Add(principalBaseTvfFunctionMapping) - principalBaseTvfFunctionMapping.IsDefaultFunctionMapping = True - RelationalModel.CreateFunctionColumnMapping(idFunctionColumn, principalBase.FindProperty("Id"), principalBaseTvfFunctionMapping) - RelationalModel.CreateFunctionColumnMapping(discriminatorFunctionColumn, principalBase.FindProperty("Discriminator"), principalBaseTvfFunctionMapping) - RelationalModel.CreateFunctionColumnMapping(enum1FunctionColumn, principalBase.FindProperty("Enum1"), principalBaseTvfFunctionMapping) - RelationalModel.CreateFunctionColumnMapping(enum2FunctionColumn, principalBase.FindProperty("Enum2"), principalBaseTvfFunctionMapping) - RelationalModel.CreateFunctionColumnMapping(flagsEnum1FunctionColumn, principalBase.FindProperty("FlagsEnum1"), principalBaseTvfFunctionMapping) - RelationalModel.CreateFunctionColumnMapping(flagsEnum2FunctionColumn, principalBase.FindProperty("FlagsEnum2"), principalBaseTvfFunctionMapping) - RelationalModel.CreateFunctionColumnMapping(principalBaseIdFunctionColumn, principalBase.FindProperty("PrincipalBaseId"), principalBaseTvfFunctionMapping) - RelationalModel.CreateFunctionColumnMapping(refTypeArrayFunctionColumn, principalBase.FindProperty("RefTypeArray"), principalBaseTvfFunctionMapping) - RelationalModel.CreateFunctionColumnMapping(refTypeEnumerableFunctionColumn, principalBase.FindProperty("RefTypeEnumerable"), principalBaseTvfFunctionMapping) - RelationalModel.CreateFunctionColumnMapping(refTypeIListFunctionColumn, principalBase.FindProperty("RefTypeIList"), principalBaseTvfFunctionMapping) - RelationalModel.CreateFunctionColumnMapping(refTypeListFunctionColumn, principalBase.FindProperty("RefTypeList"), principalBaseTvfFunctionMapping) - RelationalModel.CreateFunctionColumnMapping(valueTypeArrayFunctionColumn, principalBase.FindProperty("ValueTypeArray"), principalBaseTvfFunctionMapping) - RelationalModel.CreateFunctionColumnMapping(valueTypeEnumerableFunctionColumn, principalBase.FindProperty("ValueTypeEnumerable"), principalBaseTvfFunctionMapping) - RelationalModel.CreateFunctionColumnMapping(valueTypeIListFunctionColumn, principalBase.FindProperty("ValueTypeIList"), principalBaseTvfFunctionMapping) - RelationalModel.CreateFunctionColumnMapping(valueTypeListFunctionColumn, principalBase.FindProperty("ValueTypeList"), principalBaseTvfFunctionMapping) - - Dim deleteSprocMappings As New List(Of StoredProcedureMapping)() - principalBase.SetRuntimeAnnotation("Relational:DeleteStoredProcedureMappings", deleteSprocMappings) - Dim principalBase_DeleteStoreSproc As New StoreStoredProcedure("PrincipalBase_Delete", Nothing, relationalModel) - principalBase_DeleteStoreSproc.ReturnValue = New StoreStoredProcedureReturnValue("", "int", principalBase_DeleteStoreSproc) - Dim id_OriginalParameter As New StoreStoredProcedureParameter("Id_Original", "bigint", 0, principalBase_DeleteStoreSproc, System.Data.ParameterDirection.Input) - principalBase_DeleteStoreSproc.AddParameter(id_OriginalParameter) - principalBase_DeleteStoreSproc.AddStoredProcedure(DirectCast(principalBase.GetDeleteStoredProcedure(), IRuntimeStoredProcedure)) - relationalModel.StoredProcedures.Add(("PrincipalBase_Delete", Nothing), principalBase_DeleteStoreSproc) - Dim principalBase_DeleteDSproc = DirectCast(principalBase.GetDeleteStoredProcedure(), IRuntimeStoredProcedure) - Dim principalBase_DeleteSprocMapping As New StoredProcedureMapping(principalBase, principalBase_DeleteStoreSproc, DirectCast(principalBase.GetDeleteStoredProcedure(), IRuntimeStoredProcedure), principalBaseTableMapping, True) - principalBase_DeleteStoreSproc.AddTypeMapping(principalBase_DeleteSprocMapping, False) - deleteSprocMappings.Add(principalBase_DeleteSprocMapping) - principalBaseTableMapping.DeleteStoredProcedureMapping = principalBase_DeleteSprocMapping - RelationalModel.CreateStoredProcedureParameterMapping(id_OriginalParameter, principalBase_DeleteDSproc.FindParameter("Id_Original"), principalBase.FindProperty("Id"), principalBase_DeleteSprocMapping) - - Dim insertSprocMappings As New List(Of StoredProcedureMapping)() - principalBase.SetRuntimeAnnotation("Relational:InsertStoredProcedureMappings", insertSprocMappings) - Dim principalBase_InsertStoreSproc As New StoreStoredProcedure("PrincipalBase_Insert", Nothing, relationalModel) - Dim principalBaseIdParameter As New StoreStoredProcedureParameter("PrincipalBaseId", "bigint", 0, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_InsertStoreSproc.AddParameter(principalBaseIdParameter) - Dim enum1Parameter As New StoreStoredProcedureParameter("Enum1", "int", 1, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) - principalBase_InsertStoreSproc.AddParameter(enum1Parameter) - Dim enum2Parameter As New StoreStoredProcedureParameter("Enum2", "int", 2, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_InsertStoreSproc.AddParameter(enum2Parameter) - Dim flagsEnum1Parameter As New StoreStoredProcedureParameter("FlagsEnum1", "int", 3, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) - principalBase_InsertStoreSproc.AddParameter(flagsEnum1Parameter) - Dim flagsEnum2Parameter As New StoreStoredProcedureParameter("FlagsEnum2", "int", 4, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) - principalBase_InsertStoreSproc.AddParameter(flagsEnum2Parameter) - Dim valueTypeListParameter As New StoreStoredProcedureParameter("ValueTypeList", "nvarchar(max)", 5, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_InsertStoreSproc.AddParameter(valueTypeListParameter) - Dim valueTypeIListParameter As New StoreStoredProcedureParameter("ValueTypeIList", "nvarchar(max)", 6, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_InsertStoreSproc.AddParameter(valueTypeIListParameter) - Dim valueTypeArrayParameter As New StoreStoredProcedureParameter("ValueTypeArray", "nvarchar(max)", 7, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_InsertStoreSproc.AddParameter(valueTypeArrayParameter) - Dim valueTypeEnumerableParameter As New StoreStoredProcedureParameter("ValueTypeEnumerable", "nvarchar(max)", 8, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_InsertStoreSproc.AddParameter(valueTypeEnumerableParameter) - Dim refTypeListParameter As New StoreStoredProcedureParameter("RefTypeList", "nvarchar(max)", 9, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_InsertStoreSproc.AddParameter(refTypeListParameter) - Dim refTypeIListParameter As New StoreStoredProcedureParameter("RefTypeIList", "nvarchar(max)", 10, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_InsertStoreSproc.AddParameter(refTypeIListParameter) - Dim refTypeArrayParameter As New StoreStoredProcedureParameter("RefTypeArray", "nvarchar(max)", 11, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_InsertStoreSproc.AddParameter(refTypeArrayParameter) - Dim refTypeEnumerableParameter As New StoreStoredProcedureParameter("RefTypeEnumerable", "nvarchar(max)", 12, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_InsertStoreSproc.AddParameter(refTypeEnumerableParameter) - Dim discriminatorParameter As New StoreStoredProcedureParameter("Discriminator", "nvarchar(55)", 13, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) - principalBase_InsertStoreSproc.AddParameter(discriminatorParameter) - Dim idParameter As New StoreStoredProcedureParameter("Id", "bigint", 14, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Output) - principalBase_InsertStoreSproc.AddParameter(idParameter) - principalBase_InsertStoreSproc.AddStoredProcedure(DirectCast(principalBase.GetInsertStoredProcedure(), IRuntimeStoredProcedure)) - relationalModel.StoredProcedures.Add(("PrincipalBase_Insert", Nothing), principalBase_InsertStoreSproc) - Dim principalBase_InsertISproc = DirectCast(principalBase.GetInsertStoredProcedure(), IRuntimeStoredProcedure) - Dim principalBase_InsertSprocMapping As New StoredProcedureMapping(principalBase, principalBase_InsertStoreSproc, DirectCast(principalBase.GetInsertStoredProcedure(), IRuntimeStoredProcedure), principalBaseTableMapping, True) - principalBase_InsertStoreSproc.AddTypeMapping(principalBase_InsertSprocMapping, False) - insertSprocMappings.Add(principalBase_InsertSprocMapping) - principalBaseTableMapping.InsertStoredProcedureMapping = principalBase_InsertSprocMapping - RelationalModel.CreateStoredProcedureParameterMapping(idParameter, principalBase_InsertISproc.FindParameter("Id"), principalBase.FindProperty("Id"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(discriminatorParameter, principalBase_InsertISproc.FindParameter("Discriminator"), principalBase.FindProperty("Discriminator"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(enum1Parameter, principalBase_InsertISproc.FindParameter("Enum1"), principalBase.FindProperty("Enum1"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(enum2Parameter, principalBase_InsertISproc.FindParameter("Enum2"), principalBase.FindProperty("Enum2"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(flagsEnum1Parameter, principalBase_InsertISproc.FindParameter("FlagsEnum1"), principalBase.FindProperty("FlagsEnum1"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(flagsEnum2Parameter, principalBase_InsertISproc.FindParameter("FlagsEnum2"), principalBase.FindProperty("FlagsEnum2"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(principalBaseIdParameter, principalBase_InsertISproc.FindParameter("PrincipalBaseId"), principalBase.FindProperty("PrincipalBaseId"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeArrayParameter, principalBase_InsertISproc.FindParameter("RefTypeArray"), principalBase.FindProperty("RefTypeArray"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeEnumerableParameter, principalBase_InsertISproc.FindParameter("RefTypeEnumerable"), principalBase.FindProperty("RefTypeEnumerable"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeIListParameter, principalBase_InsertISproc.FindParameter("RefTypeIList"), principalBase.FindProperty("RefTypeIList"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeListParameter, principalBase_InsertISproc.FindParameter("RefTypeList"), principalBase.FindProperty("RefTypeList"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeArrayParameter, principalBase_InsertISproc.FindParameter("ValueTypeArray"), principalBase.FindProperty("ValueTypeArray"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeEnumerableParameter, principalBase_InsertISproc.FindParameter("ValueTypeEnumerable"), principalBase.FindProperty("ValueTypeEnumerable"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeIListParameter, principalBase_InsertISproc.FindParameter("ValueTypeIList"), principalBase.FindProperty("ValueTypeIList"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeListParameter, principalBase_InsertISproc.FindParameter("ValueTypeList"), principalBase.FindProperty("ValueTypeList"), principalBase_InsertSprocMapping) - - Dim updateSprocMappings As New List(Of StoredProcedureMapping)() - principalBase.SetRuntimeAnnotation("Relational:UpdateStoredProcedureMappings", updateSprocMappings) - Dim principalBase_UpdateStoreSproc As New StoreStoredProcedure("PrincipalBase_Update", Nothing, relationalModel) - Dim principalBaseIdParameter0 As New StoreStoredProcedureParameter("PrincipalBaseId", "bigint", 0, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_UpdateStoreSproc.AddParameter(principalBaseIdParameter0) - Dim enum1Parameter0 As New StoreStoredProcedureParameter("Enum1", "int", 1, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) - principalBase_UpdateStoreSproc.AddParameter(enum1Parameter0) - Dim enum2Parameter0 As New StoreStoredProcedureParameter("Enum2", "int", 2, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_UpdateStoreSproc.AddParameter(enum2Parameter0) - Dim flagsEnum1Parameter0 As New StoreStoredProcedureParameter("FlagsEnum1", "int", 3, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) - principalBase_UpdateStoreSproc.AddParameter(flagsEnum1Parameter0) - Dim flagsEnum2Parameter0 As New StoreStoredProcedureParameter("FlagsEnum2", "int", 4, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) - principalBase_UpdateStoreSproc.AddParameter(flagsEnum2Parameter0) - Dim valueTypeListParameter0 As New StoreStoredProcedureParameter("ValueTypeList", "nvarchar(max)", 5, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_UpdateStoreSproc.AddParameter(valueTypeListParameter0) - Dim valueTypeIListParameter0 As New StoreStoredProcedureParameter("ValueTypeIList", "nvarchar(max)", 6, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_UpdateStoreSproc.AddParameter(valueTypeIListParameter0) - Dim valueTypeArrayParameter0 As New StoreStoredProcedureParameter("ValueTypeArray", "nvarchar(max)", 7, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_UpdateStoreSproc.AddParameter(valueTypeArrayParameter0) - Dim valueTypeEnumerableParameter0 As New StoreStoredProcedureParameter("ValueTypeEnumerable", "nvarchar(max)", 8, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_UpdateStoreSproc.AddParameter(valueTypeEnumerableParameter0) - Dim refTypeListParameter0 As New StoreStoredProcedureParameter("RefTypeList", "nvarchar(max)", 9, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_UpdateStoreSproc.AddParameter(refTypeListParameter0) - Dim refTypeIListParameter0 As New StoreStoredProcedureParameter("RefTypeIList", "nvarchar(max)", 10, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_UpdateStoreSproc.AddParameter(refTypeIListParameter0) - Dim refTypeArrayParameter0 As New StoreStoredProcedureParameter("RefTypeArray", "nvarchar(max)", 11, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_UpdateStoreSproc.AddParameter(refTypeArrayParameter0) - Dim refTypeEnumerableParameter0 As New StoreStoredProcedureParameter("RefTypeEnumerable", "nvarchar(max)", 12, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_UpdateStoreSproc.AddParameter(refTypeEnumerableParameter0) - Dim id_OriginalParameter0 As New StoreStoredProcedureParameter("Id_Original", "bigint", 13, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) - principalBase_UpdateStoreSproc.AddParameter(id_OriginalParameter0) - principalBase_UpdateStoreSproc.AddStoredProcedure(DirectCast(principalBase.GetUpdateStoredProcedure(), IRuntimeStoredProcedure)) - relationalModel.StoredProcedures.Add(("PrincipalBase_Update", Nothing), principalBase_UpdateStoreSproc) - Dim principalBase_UpdateUSproc = DirectCast(principalBase.GetUpdateStoredProcedure(), IRuntimeStoredProcedure) - Dim principalBase_UpdateSprocMapping As New StoredProcedureMapping(principalBase, principalBase_UpdateStoreSproc, DirectCast(principalBase.GetUpdateStoredProcedure(), IRuntimeStoredProcedure), principalBaseTableMapping, True) - principalBase_UpdateStoreSproc.AddTypeMapping(principalBase_UpdateSprocMapping, False) - updateSprocMappings.Add(principalBase_UpdateSprocMapping) - principalBaseTableMapping.UpdateStoredProcedureMapping = principalBase_UpdateSprocMapping - RelationalModel.CreateStoredProcedureParameterMapping(id_OriginalParameter0, principalBase_UpdateUSproc.FindParameter("Id_Original"), principalBase.FindProperty("Id"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(enum1Parameter0, principalBase_UpdateUSproc.FindParameter("Enum1"), principalBase.FindProperty("Enum1"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(enum2Parameter0, principalBase_UpdateUSproc.FindParameter("Enum2"), principalBase.FindProperty("Enum2"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(flagsEnum1Parameter0, principalBase_UpdateUSproc.FindParameter("FlagsEnum1"), principalBase.FindProperty("FlagsEnum1"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(flagsEnum2Parameter0, principalBase_UpdateUSproc.FindParameter("FlagsEnum2"), principalBase.FindProperty("FlagsEnum2"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(principalBaseIdParameter0, principalBase_UpdateUSproc.FindParameter("PrincipalBaseId"), principalBase.FindProperty("PrincipalBaseId"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeArrayParameter0, principalBase_UpdateUSproc.FindParameter("RefTypeArray"), principalBase.FindProperty("RefTypeArray"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeEnumerableParameter0, principalBase_UpdateUSproc.FindParameter("RefTypeEnumerable"), principalBase.FindProperty("RefTypeEnumerable"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeIListParameter0, principalBase_UpdateUSproc.FindParameter("RefTypeIList"), principalBase.FindProperty("RefTypeIList"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeListParameter0, principalBase_UpdateUSproc.FindParameter("RefTypeList"), principalBase.FindProperty("RefTypeList"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeArrayParameter0, principalBase_UpdateUSproc.FindParameter("ValueTypeArray"), principalBase.FindProperty("ValueTypeArray"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeEnumerableParameter0, principalBase_UpdateUSproc.FindParameter("ValueTypeEnumerable"), principalBase.FindProperty("ValueTypeEnumerable"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeIListParameter0, principalBase_UpdateUSproc.FindParameter("ValueTypeIList"), principalBase.FindProperty("ValueTypeIList"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeListParameter0, principalBase_UpdateUSproc.FindParameter("ValueTypeList"), principalBase.FindProperty("ValueTypeList"), principalBase_UpdateSprocMapping) - - Dim ownedType = principalBase.FindComplexProperty("Owned").ComplexType - - Dim tableMappings0 As New List(Of TableMapping)() - ownedType.SetRuntimeAnnotation("Relational:TableMappings", tableMappings0) - Dim principalBaseTableMapping0 As New TableMapping(ownedType, principalBaseTable, True) - principalBaseTable.AddTypeMapping(principalBaseTableMapping0, False) - tableMappings0.Add(principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(deetsColumn, ownedType.FindProperty("Details"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_NumberColumn, ownedType.FindProperty("Number"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_RefTypeArrayColumn, ownedType.FindProperty("RefTypeArray"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_RefTypeEnumerableColumn, ownedType.FindProperty("RefTypeEnumerable"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_RefTypeIListColumn, ownedType.FindProperty("RefTypeIList"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_RefTypeListColumn, ownedType.FindProperty("RefTypeList"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_ValueTypeArrayColumn, ownedType.FindProperty("ValueTypeArray"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_ValueTypeEnumerableColumn, ownedType.FindProperty("ValueTypeEnumerable"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_ValueTypeIListColumn, ownedType.FindProperty("ValueTypeIList"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_ValueTypeListColumn, ownedType.FindProperty("ValueTypeList"), principalBaseTableMapping0) - - Dim principalBase0 = ownedType.FindComplexProperty("Principal").ComplexType - - Dim tableMappings1 As New List(Of TableMapping)() - principalBase0.SetRuntimeAnnotation("Relational:TableMappings", tableMappings1) - Dim principalBaseTableMapping1 As New TableMapping(principalBase0, principalBaseTable, True) - principalBaseTable.AddTypeMapping(principalBaseTableMapping1, False) - tableMappings1.Add(principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(owned_Principal_AlternateIdColumn, principalBase0.FindProperty("AlternateId"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(owned_Principal_Enum1Column, principalBase0.FindProperty("Enum1"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(owned_Principal_Enum2Column, principalBase0.FindProperty("Enum2"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(owned_Principal_FlagsEnum1Column, principalBase0.FindProperty("FlagsEnum1"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(owned_Principal_FlagsEnum2Column, principalBase0.FindProperty("FlagsEnum2"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(owned_Principal_IdColumn, principalBase0.FindProperty("Id"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(owned_Principal_RefTypeArrayColumn, principalBase0.FindProperty("RefTypeArray"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(owned_Principal_RefTypeEnumerableColumn, principalBase0.FindProperty("RefTypeEnumerable"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(owned_Principal_RefTypeIListColumn, principalBase0.FindProperty("RefTypeIList"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(owned_Principal_RefTypeListColumn, principalBase0.FindProperty("RefTypeList"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(owned_Principal_ValueTypeArrayColumn, principalBase0.FindProperty("ValueTypeArray"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(owned_Principal_ValueTypeEnumerableColumn, principalBase0.FindProperty("ValueTypeEnumerable"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(owned_Principal_ValueTypeIListColumn, principalBase0.FindProperty("ValueTypeIList"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(owned_Principal_ValueTypeListColumn, principalBase0.FindProperty("ValueTypeList"), principalBaseTableMapping1) - - Dim principalDerived = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>") - - Dim defaultTableMappings0 As New List(Of TableMappingBase(Of ColumnMappingBase))() - principalDerived.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings0) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0 As New TableMappingBase(Of ColumnMappingBase)(principalDerived, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0, False) - defaultTableMappings0.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(discriminatorColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("Discriminator"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(enum1ColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("Enum1"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(enum2ColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("Enum2"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(flagsEnum1ColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("FlagsEnum1"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(flagsEnum2ColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("FlagsEnum2"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(principalBaseIdColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("PrincipalBaseId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(refTypeArrayColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("RefTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(refTypeEnumerableColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("RefTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(refTypeIListColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("RefTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(refTypeListColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("RefTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeArrayColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("ValueTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeEnumerableColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("ValueTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeIListColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("ValueTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeListColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("ValueTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - - Dim tableMappings2 As New List(Of TableMapping)() - principalDerived.SetRuntimeAnnotation("Relational:TableMappings", tableMappings2) - Dim principalBaseTableMapping2 As New TableMapping(principalDerived, principalBaseTable, True) With { - .IsSharedTablePrincipal = False - } - principalBaseTable.AddTypeMapping(principalBaseTableMapping2, False) - tableMappings2.Add(principalBaseTableMapping2) - RelationalModel.CreateColumnMapping(idColumn, principalDerived.FindProperty("Id"), principalBaseTableMapping2) - RelationalModel.CreateColumnMapping(discriminatorColumn, principalDerived.FindProperty("Discriminator"), principalBaseTableMapping2) - RelationalModel.CreateColumnMapping(enum1Column, principalDerived.FindProperty("Enum1"), principalBaseTableMapping2) - RelationalModel.CreateColumnMapping(enum2Column, principalDerived.FindProperty("Enum2"), principalBaseTableMapping2) - RelationalModel.CreateColumnMapping(flagsEnum1Column, principalDerived.FindProperty("FlagsEnum1"), principalBaseTableMapping2) - RelationalModel.CreateColumnMapping(flagsEnum2Column, principalDerived.FindProperty("FlagsEnum2"), principalBaseTableMapping2) - RelationalModel.CreateColumnMapping(principalBaseIdColumn, principalDerived.FindProperty("PrincipalBaseId"), principalBaseTableMapping2) - RelationalModel.CreateColumnMapping(refTypeArrayColumn, principalDerived.FindProperty("RefTypeArray"), principalBaseTableMapping2) - RelationalModel.CreateColumnMapping(refTypeEnumerableColumn, principalDerived.FindProperty("RefTypeEnumerable"), principalBaseTableMapping2) - RelationalModel.CreateColumnMapping(refTypeIListColumn, principalDerived.FindProperty("RefTypeIList"), principalBaseTableMapping2) - RelationalModel.CreateColumnMapping(refTypeListColumn, principalDerived.FindProperty("RefTypeList"), principalBaseTableMapping2) - RelationalModel.CreateColumnMapping(valueTypeArrayColumn, principalDerived.FindProperty("ValueTypeArray"), principalBaseTableMapping2) - RelationalModel.CreateColumnMapping(valueTypeEnumerableColumn, principalDerived.FindProperty("ValueTypeEnumerable"), principalBaseTableMapping2) - RelationalModel.CreateColumnMapping(valueTypeIListColumn, principalDerived.FindProperty("ValueTypeIList"), principalBaseTableMapping2) - RelationalModel.CreateColumnMapping(valueTypeListColumn, principalDerived.FindProperty("ValueTypeList"), principalBaseTableMapping2) - - Dim sqlQueryMappings0 As New List(Of SqlQueryMapping)() - principalDerived.SetRuntimeAnnotation("Relational:SqlQueryMappings", sqlQueryMappings0) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping0 As New SqlQueryMapping(principalDerived, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQuery.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping0, False) - sqlQueryMappings0.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping0) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping0.IsDefaultSqlQueryMapping = True - RelationalModel.CreateSqlQueryColumnMapping(idSqlQueryColumn, principalDerived.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping0) - RelationalModel.CreateSqlQueryColumnMapping(discriminatorSqlQueryColumn, principalDerived.FindProperty("Discriminator"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping0) - RelationalModel.CreateSqlQueryColumnMapping(enum1SqlQueryColumn, principalDerived.FindProperty("Enum1"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping0) - RelationalModel.CreateSqlQueryColumnMapping(enum2SqlQueryColumn, principalDerived.FindProperty("Enum2"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping0) - RelationalModel.CreateSqlQueryColumnMapping(flagsEnum1SqlQueryColumn, principalDerived.FindProperty("FlagsEnum1"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping0) - RelationalModel.CreateSqlQueryColumnMapping(flagsEnum2SqlQueryColumn, principalDerived.FindProperty("FlagsEnum2"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping0) - RelationalModel.CreateSqlQueryColumnMapping(principalBaseIdSqlQueryColumn, principalDerived.FindProperty("PrincipalBaseId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping0) - RelationalModel.CreateSqlQueryColumnMapping(refTypeArraySqlQueryColumn, principalDerived.FindProperty("RefTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping0) - RelationalModel.CreateSqlQueryColumnMapping(refTypeEnumerableSqlQueryColumn, principalDerived.FindProperty("RefTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping0) - RelationalModel.CreateSqlQueryColumnMapping(refTypeIListSqlQueryColumn, principalDerived.FindProperty("RefTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping0) - RelationalModel.CreateSqlQueryColumnMapping(refTypeListSqlQueryColumn, principalDerived.FindProperty("RefTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping0) - RelationalModel.CreateSqlQueryColumnMapping(valueTypeArraySqlQueryColumn, principalDerived.FindProperty("ValueTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping0) - RelationalModel.CreateSqlQueryColumnMapping(valueTypeEnumerableSqlQueryColumn, principalDerived.FindProperty("ValueTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping0) - RelationalModel.CreateSqlQueryColumnMapping(valueTypeIListSqlQueryColumn, principalDerived.FindProperty("ValueTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping0) - RelationalModel.CreateSqlQueryColumnMapping(valueTypeListSqlQueryColumn, principalDerived.FindProperty("ValueTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappedSqlQuerySqlQueryMapping0) - - Dim deleteSprocMappings0 As New List(Of StoredProcedureMapping)() - principalDerived.SetRuntimeAnnotation("Relational:DeleteStoredProcedureMappings", deleteSprocMappings0) - Dim principalBase_DeleteDSproc0 = DirectCast(principalBase.GetDeleteStoredProcedure(), IRuntimeStoredProcedure) - Dim principalBase_DeleteSprocMapping0 As New StoredProcedureMapping(principalDerived, principalBase_DeleteStoreSproc, DirectCast(principalBase.GetDeleteStoredProcedure(), IRuntimeStoredProcedure), principalBaseTableMapping2, True) - principalBase_DeleteStoreSproc.AddTypeMapping(principalBase_DeleteSprocMapping0, False) - deleteSprocMappings0.Add(principalBase_DeleteSprocMapping0) - principalBaseTableMapping2.DeleteStoredProcedureMapping = principalBase_DeleteSprocMapping0 - RelationalModel.CreateStoredProcedureParameterMapping(id_OriginalParameter, principalBase_DeleteDSproc0.FindParameter("Id_Original"), principalDerived.FindProperty("Id"), principalBase_DeleteSprocMapping0) - - Dim insertSprocMappings0 As New List(Of StoredProcedureMapping)() - principalDerived.SetRuntimeAnnotation("Relational:InsertStoredProcedureMappings", insertSprocMappings0) - Dim principalBase_InsertISproc0 = DirectCast(principalBase.GetInsertStoredProcedure(), IRuntimeStoredProcedure) - Dim principalBase_InsertSprocMapping0 As New StoredProcedureMapping(principalDerived, principalBase_InsertStoreSproc, DirectCast(principalBase.GetInsertStoredProcedure(), IRuntimeStoredProcedure), principalBaseTableMapping2, True) - principalBase_InsertStoreSproc.AddTypeMapping(principalBase_InsertSprocMapping0, False) - insertSprocMappings0.Add(principalBase_InsertSprocMapping0) - principalBaseTableMapping2.InsertStoredProcedureMapping = principalBase_InsertSprocMapping0 - RelationalModel.CreateStoredProcedureParameterMapping(idParameter, principalBase_InsertISproc0.FindParameter("Id"), principalDerived.FindProperty("Id"), principalBase_InsertSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(discriminatorParameter, principalBase_InsertISproc0.FindParameter("Discriminator"), principalDerived.FindProperty("Discriminator"), principalBase_InsertSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(enum1Parameter, principalBase_InsertISproc0.FindParameter("Enum1"), principalDerived.FindProperty("Enum1"), principalBase_InsertSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(enum2Parameter, principalBase_InsertISproc0.FindParameter("Enum2"), principalDerived.FindProperty("Enum2"), principalBase_InsertSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(flagsEnum1Parameter, principalBase_InsertISproc0.FindParameter("FlagsEnum1"), principalDerived.FindProperty("FlagsEnum1"), principalBase_InsertSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(flagsEnum2Parameter, principalBase_InsertISproc0.FindParameter("FlagsEnum2"), principalDerived.FindProperty("FlagsEnum2"), principalBase_InsertSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(principalBaseIdParameter, principalBase_InsertISproc0.FindParameter("PrincipalBaseId"), principalDerived.FindProperty("PrincipalBaseId"), principalBase_InsertSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeArrayParameter, principalBase_InsertISproc0.FindParameter("RefTypeArray"), principalDerived.FindProperty("RefTypeArray"), principalBase_InsertSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeEnumerableParameter, principalBase_InsertISproc0.FindParameter("RefTypeEnumerable"), principalDerived.FindProperty("RefTypeEnumerable"), principalBase_InsertSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeIListParameter, principalBase_InsertISproc0.FindParameter("RefTypeIList"), principalDerived.FindProperty("RefTypeIList"), principalBase_InsertSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeListParameter, principalBase_InsertISproc0.FindParameter("RefTypeList"), principalDerived.FindProperty("RefTypeList"), principalBase_InsertSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeArrayParameter, principalBase_InsertISproc0.FindParameter("ValueTypeArray"), principalDerived.FindProperty("ValueTypeArray"), principalBase_InsertSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeEnumerableParameter, principalBase_InsertISproc0.FindParameter("ValueTypeEnumerable"), principalDerived.FindProperty("ValueTypeEnumerable"), principalBase_InsertSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeIListParameter, principalBase_InsertISproc0.FindParameter("ValueTypeIList"), principalDerived.FindProperty("ValueTypeIList"), principalBase_InsertSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeListParameter, principalBase_InsertISproc0.FindParameter("ValueTypeList"), principalDerived.FindProperty("ValueTypeList"), principalBase_InsertSprocMapping0) - - Dim updateSprocMappings0 As New List(Of StoredProcedureMapping)() - principalDerived.SetRuntimeAnnotation("Relational:UpdateStoredProcedureMappings", updateSprocMappings0) - Dim principalBase_UpdateUSproc0 = DirectCast(principalBase.GetUpdateStoredProcedure(), IRuntimeStoredProcedure) - Dim principalBase_UpdateSprocMapping0 As New StoredProcedureMapping(principalDerived, principalBase_UpdateStoreSproc, DirectCast(principalBase.GetUpdateStoredProcedure(), IRuntimeStoredProcedure), principalBaseTableMapping2, True) - principalBase_UpdateStoreSproc.AddTypeMapping(principalBase_UpdateSprocMapping0, False) - updateSprocMappings0.Add(principalBase_UpdateSprocMapping0) - principalBaseTableMapping2.UpdateStoredProcedureMapping = principalBase_UpdateSprocMapping0 - RelationalModel.CreateStoredProcedureParameterMapping(id_OriginalParameter0, principalBase_UpdateUSproc0.FindParameter("Id_Original"), principalDerived.FindProperty("Id"), principalBase_UpdateSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(enum1Parameter0, principalBase_UpdateUSproc0.FindParameter("Enum1"), principalDerived.FindProperty("Enum1"), principalBase_UpdateSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(enum2Parameter0, principalBase_UpdateUSproc0.FindParameter("Enum2"), principalDerived.FindProperty("Enum2"), principalBase_UpdateSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(flagsEnum1Parameter0, principalBase_UpdateUSproc0.FindParameter("FlagsEnum1"), principalDerived.FindProperty("FlagsEnum1"), principalBase_UpdateSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(flagsEnum2Parameter0, principalBase_UpdateUSproc0.FindParameter("FlagsEnum2"), principalDerived.FindProperty("FlagsEnum2"), principalBase_UpdateSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(principalBaseIdParameter0, principalBase_UpdateUSproc0.FindParameter("PrincipalBaseId"), principalDerived.FindProperty("PrincipalBaseId"), principalBase_UpdateSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeArrayParameter0, principalBase_UpdateUSproc0.FindParameter("RefTypeArray"), principalDerived.FindProperty("RefTypeArray"), principalBase_UpdateSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeEnumerableParameter0, principalBase_UpdateUSproc0.FindParameter("RefTypeEnumerable"), principalDerived.FindProperty("RefTypeEnumerable"), principalBase_UpdateSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeIListParameter0, principalBase_UpdateUSproc0.FindParameter("RefTypeIList"), principalDerived.FindProperty("RefTypeIList"), principalBase_UpdateSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeListParameter0, principalBase_UpdateUSproc0.FindParameter("RefTypeList"), principalDerived.FindProperty("RefTypeList"), principalBase_UpdateSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeArrayParameter0, principalBase_UpdateUSproc0.FindParameter("ValueTypeArray"), principalDerived.FindProperty("ValueTypeArray"), principalBase_UpdateSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeEnumerableParameter0, principalBase_UpdateUSproc0.FindParameter("ValueTypeEnumerable"), principalDerived.FindProperty("ValueTypeEnumerable"), principalBase_UpdateSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeIListParameter0, principalBase_UpdateUSproc0.FindParameter("ValueTypeIList"), principalDerived.FindProperty("ValueTypeIList"), principalBase_UpdateSprocMapping0) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeListParameter0, principalBase_UpdateUSproc0.FindParameter("ValueTypeList"), principalDerived.FindProperty("ValueTypeList"), principalBase_UpdateSprocMapping0) - Dim fK_PrincipalBase_PrincipalBase_PrincipalBaseId As New ForeignKeyConstraint( - "FK_PrincipalBase_PrincipalBase_PrincipalBaseId", principalBaseTable, principalBaseTable, - {principalBaseIdColumn}, - principalBaseTable.FindUniqueConstraint("PK_PrincipalBase"), ReferentialAction.NoAction) - Dim fK_PrincipalBase_PrincipalBase_PrincipalBaseIdFk = RelationalModel.GetForeignKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"PrincipalBaseId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id"}) - fK_PrincipalBase_PrincipalBase_PrincipalBaseId.MappedForeignKeys.Add(fK_PrincipalBase_PrincipalBase_PrincipalBaseIdFk) - RelationalModel.GetOrCreateForeignKeyConstraints(fK_PrincipalBase_PrincipalBase_PrincipalBaseIdFk).Add(fK_PrincipalBase_PrincipalBase_PrincipalBaseId) - principalBaseTable.ForeignKeyConstraints.Add(fK_PrincipalBase_PrincipalBase_PrincipalBaseId) - principalBaseTable.ReferencingForeignKeyConstraints.Add(fK_PrincipalBase_PrincipalBase_PrincipalBaseId) - Return relationalModel.MakeReadOnly() - End Function - End Class -End Namespace -]]>.Value - - Dim PrincipalBaseEntityType = -Imports System -Imports System.Collections.Generic -Imports System.Net -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion -Imports Microsoft.EntityFrameworkCore.ValueGeneration -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class PrincipalBaseEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase), - baseEntityType, - discriminatorProperty:="Discriminator", - discriminatorValue:="PrincipalBase") - - Dim id = entityType.AddProperty( - "Id", - GetType(Long?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Id", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_Id", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueGenerated:=ValueGenerated.OnAdd, - afterSaveBehavior:=PropertySaveBehavior.Throw) - id.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - id.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.IdentityColumn) - - Dim discriminator = entityType.AddProperty( - "Discriminator", - GetType(String), - afterSaveBehavior:=PropertySaveBehavior.Throw, - maxLength:=55, - valueGeneratorFactory:=AddressOf New DiscriminatorValueGeneratorFactory().Create) - discriminator.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(55)", - size:=55, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - discriminator.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum1 = entityType.AddProperty( - "Enum1", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Enum1", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_Enum1", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enum1.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum))), - Type.Missing}), CoreTypeMapping) - enum1.SetSentinelFromProviderValue(0) - enum1.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum2 = entityType.AddProperty( - "Enum2", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.AnEnum?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Enum2", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_Enum2", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum2.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)))), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum))), - Type.Missing}), CoreTypeMapping) - enum2.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim flagsEnum1 = entityType.AddProperty( - "FlagsEnum1", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("FlagsEnum1", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_FlagsEnum1", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - flagsEnum1.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum))), - Type.Missing}), CoreTypeMapping) - flagsEnum1.SetSentinelFromProviderValue(0) - flagsEnum1.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim flagsEnum2 = entityType.AddProperty( - "FlagsEnum2", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("FlagsEnum2", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_FlagsEnum2", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - flagsEnum2.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum))), - Type.Missing}), CoreTypeMapping) - flagsEnum2.SetSentinelFromProviderValue(0) - flagsEnum2.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim principalBaseId = entityType.AddProperty( - "PrincipalBaseId", - GetType(Long?), - nullable:=True) - principalBaseId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - principalBaseId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeArray = entityType.AddProperty( - "RefTypeArray", - GetType(IPAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("RefTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_RefTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeEnumerable = entityType.AddProperty( - "RefTypeEnumerable", - GetType(IEnumerable(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("RefTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_RefTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeEnumerable.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeIList = entityType.AddProperty( - "RefTypeIList", - GetType(IList(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("RefTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_RefTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeIList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeList = entityType.AddProperty( - "RefTypeList", - GetType(List(Of IPAddress)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("RefTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_RefTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeArray = entityType.AddProperty( - "ValueTypeArray", - GetType(Date()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("ValueTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ValueTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Date)(New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - JsonDateTimeReaderWriter.Instance)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateTimeTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - JsonDateTimeReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeEnumerable = entityType.AddProperty( - "ValueTypeEnumerable", - GetType(IEnumerable(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("ValueTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ValueTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeEnumerable.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeIList = entityType.AddProperty( - "ValueTypeIList", - GetType(IList(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("ValueTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ValueTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeIList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeList = entityType.AddProperty( - "ValueTypeList", - GetType(List(Of Short)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("ValueTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ValueTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Short)(New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - OwnedComplexProperty.Create(entityType) - Dim key = entityType.AddKey( - {id}) - entityType.SetPrimaryKey(key) - - Dim index = entityType.AddIndex( - {principalBaseId}) - - Return entityType - End Function - - Private Class OwnedComplexProperty - Public Shared Function Create(declaringType As RuntimeEntityType) As RuntimeComplexProperty - Dim complexProperty = declaringType.AddComplexProperty("Owned", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType), - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Owned", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ownedField", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - changeTrackingStrategy:=ChangeTrackingStrategy.ChangingAndChangedNotificationsWithOriginalValues) - - Dim complexType = complexProperty.ComplexType - Dim details = complexType.AddProperty( - "Details", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("Details", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_details", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.FieldDuringConstruction, - nullable:=True, - concurrencyToken:=True, - valueGenerated:=ValueGenerated.OnAddOrUpdate, - beforeSaveBehavior:=PropertySaveBehavior.Ignore, - afterSaveBehavior:=PropertySaveBehavior.Ignore, - maxLength:=64, - unicode:=False, - precision:=3, - scale:=2, - sentinel:="") - details.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varchar(64)", - size:=64, - precision:=3, - scale:=2), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - details.AddAnnotation("foo", "bar") - details.AddAnnotation("Relational:ColumnName", "Deets") - details.AddAnnotation("Relational:ColumnType", "varchar") - details.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim number = complexType.AddProperty( - "Number", - GetType(Integer), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("Number", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_Number", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0) - number.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - number.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeArray = complexType.AddProperty( - "RefTypeArray", - GetType(IPAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeEnumerable = complexType.AddProperty( - "RefTypeEnumerable", - GetType(IEnumerable(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeEnumerable.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeIList = complexType.AddProperty( - "RefTypeIList", - GetType(IList(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeIList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeList = complexType.AddProperty( - "RefTypeList", - GetType(List(Of IPAddress)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeArray = complexType.AddProperty( - "ValueTypeArray", - GetType(Date()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_valueTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Date)(New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - JsonDateTimeReaderWriter.Instance)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateTimeTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - JsonDateTimeReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeEnumerable = complexType.AddProperty( - "ValueTypeEnumerable", - GetType(IEnumerable(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_valueTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeEnumerable.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeIList = complexType.AddProperty( - "ValueTypeIList", - GetType(IList(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_ValueTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeIList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeList = complexType.AddProperty( - "ValueTypeList", - GetType(List(Of Short)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_valueTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Short)(New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - PrincipalComplexProperty.Create(complexType) - complexType.AddAnnotation("go", "brr") - complexType.AddAnnotation("Relational:FunctionName", "PrincipalBaseTvf") - complexType.AddAnnotation("Relational:Schema", Nothing) - complexType.AddAnnotation("Relational:SqlQuery", "select * from PrincipalBase") - complexType.AddAnnotation("Relational:TableName", "PrincipalBase") - complexType.AddAnnotation("Relational:ViewName", "PrincipalBaseView") - complexType.AddAnnotation("Relational:ViewSchema", Nothing) - complexProperty.AddAnnotation("goo", "ber") - Return complexProperty - End Function - - Private Class PrincipalComplexProperty - Public Shared Function Create(declaringType As RuntimeComplexType) As RuntimeComplexProperty - Dim complexProperty = declaringType.AddComplexProperty("Principal", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase), - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType.Principal#PrincipalBase", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("Principal", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_Principal", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - - Dim complexType = complexProperty.ComplexType - Dim alternateId = complexType.AddProperty( - "AlternateId", - GetType(Guid), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("AlternateId", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=New Guid("00000000-0000-0000-0000-000000000000")) - alternateId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(GuidTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="uniqueidentifier"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - alternateId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum1 = complexType.AddProperty( - "Enum1", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Enum1", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_Enum1", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enum1.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum))), - Type.Missing}), CoreTypeMapping) - enum1.SetSentinelFromProviderValue(0) - enum1.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum2 = complexType.AddProperty( - "Enum2", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.AnEnum?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Enum2", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_Enum2", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum2.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)))), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum))), - Type.Missing}), CoreTypeMapping) - enum2.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim flagsEnum1 = complexType.AddProperty( - "FlagsEnum1", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("FlagsEnum1", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_FlagsEnum1", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - flagsEnum1.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum))), - Type.Missing}), CoreTypeMapping) - flagsEnum1.SetSentinelFromProviderValue(0) - flagsEnum1.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim flagsEnum2 = complexType.AddProperty( - "FlagsEnum2", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("FlagsEnum2", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_FlagsEnum2", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - flagsEnum2.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum))), - Type.Missing}), CoreTypeMapping) - flagsEnum2.SetSentinelFromProviderValue(0) - flagsEnum2.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim id = complexType.AddProperty( - "Id", - GetType(Long?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Id", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_Id", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - id.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - id.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeArray = complexType.AddProperty( - "RefTypeArray", - GetType(IPAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("RefTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_RefTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeEnumerable = complexType.AddProperty( - "RefTypeEnumerable", - GetType(IEnumerable(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("RefTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_RefTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeEnumerable.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeIList = complexType.AddProperty( - "RefTypeIList", - GetType(IList(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("RefTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_RefTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeIList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeList = complexType.AddProperty( - "RefTypeList", - GetType(List(Of IPAddress)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("RefTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_RefTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeArray = complexType.AddProperty( - "ValueTypeArray", - GetType(Date()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("ValueTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ValueTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Date)(New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - JsonDateTimeReaderWriter.Instance)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateTimeTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - JsonDateTimeReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeEnumerable = complexType.AddProperty( - "ValueTypeEnumerable", - GetType(IEnumerable(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("ValueTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ValueTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeEnumerable.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeIList = complexType.AddProperty( - "ValueTypeIList", - GetType(IList(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("ValueTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ValueTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeIList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeList = complexType.AddProperty( - "ValueTypeList", - GetType(List(Of Short)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("ValueTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ValueTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Short)(New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - complexType.AddAnnotation("Relational:FunctionName", "PrincipalBaseTvf") - complexType.AddAnnotation("Relational:Schema", Nothing) - complexType.AddAnnotation("Relational:SqlQuery", "select * from PrincipalBase") - complexType.AddAnnotation("Relational:TableName", "PrincipalBase") - complexType.AddAnnotation("Relational:ViewName", "PrincipalBaseView") - complexType.AddAnnotation("Relational:ViewSchema", Nothing) - Return complexProperty - End Function - End Class - End Class - - Public Shared Function CreateForeignKey1(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("PrincipalBaseId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("Id")}), - principalEntityType) - - Dim deriveds = principalEntityType.AddNavigation("Deriveds", - runtimeForeignKey, - onDependent:=False, - GetType(ICollection(Of VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Deriveds", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_Deriveds", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - - Return runtimeForeignKey - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - Dim insertSproc As New RuntimeStoredProcedure( - entityType, - "PrincipalBase_Insert", - Nothing, - False) - - Dim principalBaseId = insertSproc.AddParameter( - "PrincipalBaseId", System.Data.ParameterDirection.Input, False, "PrincipalBaseId", False) - Dim enum1 = insertSproc.AddParameter( - "Enum1", System.Data.ParameterDirection.Input, False, "Enum1", False) - Dim enum2 = insertSproc.AddParameter( - "Enum2", System.Data.ParameterDirection.Input, False, "Enum2", False) - Dim flagsEnum1 = insertSproc.AddParameter( - "FlagsEnum1", System.Data.ParameterDirection.Input, False, "FlagsEnum1", False) - Dim flagsEnum2 = insertSproc.AddParameter( - "FlagsEnum2", System.Data.ParameterDirection.Input, False, "FlagsEnum2", False) - Dim valueTypeList = insertSproc.AddParameter( - "ValueTypeList", System.Data.ParameterDirection.Input, False, "ValueTypeList", False) - Dim valueTypeIList = insertSproc.AddParameter( - "ValueTypeIList", System.Data.ParameterDirection.Input, False, "ValueTypeIList", False) - Dim valueTypeArray = insertSproc.AddParameter( - "ValueTypeArray", System.Data.ParameterDirection.Input, False, "ValueTypeArray", False) - Dim valueTypeEnumerable = insertSproc.AddParameter( - "ValueTypeEnumerable", System.Data.ParameterDirection.Input, False, "ValueTypeEnumerable", False) - Dim refTypeList = insertSproc.AddParameter( - "RefTypeList", System.Data.ParameterDirection.Input, False, "RefTypeList", False) - Dim refTypeIList = insertSproc.AddParameter( - "RefTypeIList", System.Data.ParameterDirection.Input, False, "RefTypeIList", False) - Dim refTypeArray = insertSproc.AddParameter( - "RefTypeArray", System.Data.ParameterDirection.Input, False, "RefTypeArray", False) - Dim refTypeEnumerable = insertSproc.AddParameter( - "RefTypeEnumerable", System.Data.ParameterDirection.Input, False, "RefTypeEnumerable", False) - Dim discriminator = insertSproc.AddParameter( - "Discriminator", System.Data.ParameterDirection.Input, False, "Discriminator", False) - Dim id = insertSproc.AddParameter( - "Id", System.Data.ParameterDirection.Output, False, "Id", False) - entityType.AddAnnotation("Relational:InsertStoredProcedure", insertSproc) - - Dim deleteSproc As New RuntimeStoredProcedure( - entityType, - "PrincipalBase_Delete", - Nothing, - True) - - Dim id0 = deleteSproc.AddParameter( - "Id_Original", System.Data.ParameterDirection.Input, False, "Id", True) - entityType.AddAnnotation("Relational:DeleteStoredProcedure", deleteSproc) - - Dim updateSproc As New RuntimeStoredProcedure( - entityType, - "PrincipalBase_Update", - Nothing, - False) - - Dim principalBaseId0 = updateSproc.AddParameter( - "PrincipalBaseId", System.Data.ParameterDirection.Input, False, "PrincipalBaseId", False) - Dim enum10 = updateSproc.AddParameter( - "Enum1", System.Data.ParameterDirection.Input, False, "Enum1", False) - Dim enum20 = updateSproc.AddParameter( - "Enum2", System.Data.ParameterDirection.Input, False, "Enum2", False) - Dim flagsEnum10 = updateSproc.AddParameter( - "FlagsEnum1", System.Data.ParameterDirection.Input, False, "FlagsEnum1", False) - Dim flagsEnum20 = updateSproc.AddParameter( - "FlagsEnum2", System.Data.ParameterDirection.Input, False, "FlagsEnum2", False) - Dim valueTypeList0 = updateSproc.AddParameter( - "ValueTypeList", System.Data.ParameterDirection.Input, False, "ValueTypeList", False) - Dim valueTypeIList0 = updateSproc.AddParameter( - "ValueTypeIList", System.Data.ParameterDirection.Input, False, "ValueTypeIList", False) - Dim valueTypeArray0 = updateSproc.AddParameter( - "ValueTypeArray", System.Data.ParameterDirection.Input, False, "ValueTypeArray", False) - Dim valueTypeEnumerable0 = updateSproc.AddParameter( - "ValueTypeEnumerable", System.Data.ParameterDirection.Input, False, "ValueTypeEnumerable", False) - Dim refTypeList0 = updateSproc.AddParameter( - "RefTypeList", System.Data.ParameterDirection.Input, False, "RefTypeList", False) - Dim refTypeIList0 = updateSproc.AddParameter( - "RefTypeIList", System.Data.ParameterDirection.Input, False, "RefTypeIList", False) - Dim refTypeArray0 = updateSproc.AddParameter( - "RefTypeArray", System.Data.ParameterDirection.Input, False, "RefTypeArray", False) - Dim refTypeEnumerable0 = updateSproc.AddParameter( - "RefTypeEnumerable", System.Data.ParameterDirection.Input, False, "RefTypeEnumerable", False) - Dim id1 = updateSproc.AddParameter( - "Id_Original", System.Data.ParameterDirection.Input, False, "Id", True) - entityType.AddAnnotation("Relational:UpdateStoredProcedure", updateSproc) - - entityType.AddAnnotation("Relational:FunctionName", "PrincipalBaseTvf") - entityType.AddAnnotation("Relational:MappingStrategy", "TPH") - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", "select * from PrincipalBase") - entityType.AddAnnotation("Relational:TableName", "PrincipalBase") - entityType.AddAnnotation("Relational:ViewDefinitionSql", Nothing) - entityType.AddAnnotation("Relational:ViewName", "PrincipalBaseView") - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim PrincipalDerivedEntityType = -Imports System -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class PrincipalDerivedEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))), - baseEntityType, - discriminatorProperty:="Discriminator", - discriminatorValue:="PrincipalDerived>") - - Return entityType - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", "select * from PrincipalBase") - entityType.AddAnnotation("Relational:TableName", "PrincipalBase") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Test( - New ComplexTypesContext(), - CreateCompiledModelCodeGenerationOptions(), - Sub(code) - Assert. - Collection(code, - Sub(c) AssertFileContents("ComplexTypesContextModel.vb", ComplexTypesContextModel, c), - Sub(c) AssertFileContents("ComplexTypesContextModelBuilder.vb", ComplexTypesContextModelBuilder, c), - Sub(c) AssertFileContents("PrincipalBaseEntityType.vb", PrincipalBaseEntityType, c), - Sub(c) AssertFileContents("PrincipalDerivedEntityType.vb", PrincipalDerivedEntityType, c)) - End Sub, - Sub(Model) - Dim principalBaseET = Model.FindEntityType(GetType(PrincipalBase)) - - Dim complexProperty = principalBaseET.GetComplexProperties().Single() - Assert.Equal( - {"goo"}, - complexProperty.GetAnnotations().Select(Function(a) a.Name)) - Assert.Equal(NameOf(PrincipalBase.Owned), complexProperty.Name) - Assert.False(complexProperty.IsCollection) - Assert.False(complexProperty.IsNullable) - Assert.Equal(GetType(OwnedType), complexProperty.ClrType) - Assert.Equal("_ownedField", complexProperty.FieldInfo.Name) - Assert.Equal(NameOf(PrincipalBase.Owned), complexProperty.PropertyInfo.Name) - Assert.Equal(principalBaseET, complexProperty.DeclaringType) - Assert.Equal(PropertyAccessMode.Field, complexProperty.GetPropertyAccessMode()) - Assert.Equal("ber", complexProperty("goo")) - - Dim complexType = complexProperty.ComplexType - Assert.Equal( - { - RelationalAnnotationNames.FunctionName, - RelationalAnnotationNames.Schema, - RelationalAnnotationNames.SqlQuery, - RelationalAnnotationNames.TableName, - RelationalAnnotationNames.ViewName, - RelationalAnnotationNames.ViewSchema, - "go" - }, - complexType.GetAnnotations().Select(Function(a) a.Name)) - Assert.Equal(GetType(PrincipalBase).FullName & ".Owned#OwnedType", complexType.Name) - Assert.Equal(GetType(OwnedType), complexType.ClrType) - Assert.True(complexType.HasSharedClrType) - Assert.False(complexType.IsPropertyBag) - Assert.IsType(Of ConstructorBinding)(complexType.ConstructorBinding) - Assert.Null(complexType.FindIndexerPropertyInfo()) - Assert.Equal( - ChangeTrackingStrategy.ChangingAndChangedNotificationsWithOriginalValues, - complexType.GetChangeTrackingStrategy()) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() complexType.GetPropertyAccessMode()).Message) - Assert.Equal("brr", complexType("go")) - - Dim detailsProperty = complexType.FindProperty(NameOf(OwnedType.Details)) - Assert.Equal( - { - CoreAnnotationNames.MaxLength, - CoreAnnotationNames.Precision, - RelationalAnnotationNames.ColumnName, - RelationalAnnotationNames.ColumnType, - CoreAnnotationNames.Scale, - SqlServerAnnotationNames.ValueGenerationStrategy, - CoreAnnotationNames.Unicode, - "foo" - }, - detailsProperty.GetAnnotations().Select(Function(a) a.Name)) - Assert.Equal(GetType(String), detailsProperty.ClrType) - Assert.Equal(GetType(String), detailsProperty.PropertyInfo.PropertyType) - Assert.Equal(GetType(String), detailsProperty.FieldInfo.FieldType) - Assert.Equal("_details", detailsProperty.FieldInfo.Name) - Assert.True(detailsProperty.IsNullable) - Assert.Equal(ValueGenerated.OnAddOrUpdate, detailsProperty.ValueGenerated) - Assert.Equal(PropertySaveBehavior.Ignore, detailsProperty.GetAfterSaveBehavior()) - Assert.Equal(PropertySaveBehavior.Ignore, detailsProperty.GetBeforeSaveBehavior()) - Assert.Equal("Deets", detailsProperty.GetColumnName()) - Assert.Equal("varchar(64)", detailsProperty.GetColumnType()) - Assert.False(detailsProperty.IsUnicode()) - Assert.True(detailsProperty.IsConcurrencyToken) - Assert.Equal(64, detailsProperty.GetMaxLength()) - Assert.Null(detailsProperty.IsFixedLength()) - Assert.Equal(3, detailsProperty.GetPrecision()) - Assert.Equal(2, detailsProperty.GetScale()) - Assert.Equal("", detailsProperty.Sentinel) - Assert.Equal(PropertyAccessMode.FieldDuringConstruction, detailsProperty.GetPropertyAccessMode()) - Assert.Null(detailsProperty.GetValueConverter()) - Assert.NotNull(detailsProperty.GetValueComparer()) - Assert.NotNull(detailsProperty.GetKeyValueComparer()) - Assert.Equal(SqlServerValueGenerationStrategy.None, detailsProperty.GetValueGenerationStrategy()) - Assert.Null(detailsProperty.GetDefaultValueSql()) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() detailsProperty.GetIdentitySeed()).Message) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() detailsProperty.GetIdentityIncrement()).Message) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() detailsProperty.IsSparse()).Message) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() detailsProperty.GetCollation()).Message) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() detailsProperty.GetComment()).Message) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() detailsProperty.GetColumnOrder()).Message) - - Dim nestedComplexType = complexType.FindComplexProperty(NameOf(OwnedType.Principal)).ComplexType - - Assert.Equal(14, nestedComplexType.GetProperties().Count()) - - Dim principalTable = StoreObjectIdentifier.Create(complexType, StoreObjectType.Table).Value - - Assert.Equal("Deets", detailsProperty.GetColumnName(principalTable)) - - Dim dbFunction = Model.FindDbFunction("PrincipalBaseTvf") - Assert.Equal("dbo", dbFunction.Schema) - Assert.False(dbFunction.IsNullable) - Assert.False(dbFunction.IsScalar) - Assert.False(dbFunction.IsBuiltIn) - Assert.False(dbFunction.IsAggregate) - Assert.Null(dbFunction.Translation) - Assert.Null(dbFunction.TypeMapping) - Assert.Equal(GetType(IQueryable(Of PrincipalBase)), dbFunction.ReturnType) - Assert.Null(dbFunction.MethodInfo) - Assert.Empty(dbFunction.GetAnnotations()) - Assert.Empty(dbFunction.GetRuntimeAnnotations()) - Assert.Equal("PrincipalBaseTvf", dbFunction.StoreFunction.Name) - Assert.False(dbFunction.StoreFunction.IsShared) - Assert.NotNull(dbFunction.ToString()) - Assert.Empty(dbFunction.Parameters) - - Dim principalBaseFunctionMapping = principalBaseET.GetFunctionMappings().Single(Function(m) m.IsDefaultFunctionMapping) - Assert.True(principalBaseFunctionMapping.IncludesDerivedTypes) - Assert.Null(principalBaseFunctionMapping.IsSharedTablePrincipal) - Assert.Null(principalBaseFunctionMapping.IsSplitEntityTypePrincipal) - Assert.Same(dbFunction, principalBaseFunctionMapping.DbFunction) - - Dim principalDerived = Model.FindEntityType(GetType(PrincipalDerived(Of DependentBase(Of Byte?)))) - Assert.Equal(principalBaseET, principalDerived.BaseType) - - Assert.Equal( - {principalBaseET, principalDerived}, - Model.GetEntityTypes()) - End Sub, - Nothing) - End Sub - - Public Class BigContextWithJson - Inherits BigContext - - Public Sub New() - MyBase.New(jsonColumns:=True) - End Sub - End Class - - Public Class BigContext - Inherits SqlServerContextBase - - Private ReadOnly _jsonColumns As Boolean - - Public Sub New(Optional jsonColumns As Boolean = False) - _jsonColumns = jsonColumns - End Sub - - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - MyBase.OnModelCreating(modelBuilder) - - modelBuilder. - UseCollation("Latin1_General_CS_AS"). - UseIdentityColumns(3, 2) - - modelBuilder.Entity(Of PrincipalBase)( - Sub(eb) - If Not _jsonColumns Then - eb.Property(Function(e) e.Id). - UseIdentityColumn(2, 3). - Metadata. - SetColumnName("DerivedId", StoreObjectIdentifier. - Table("PrincipalDerived")) - End If - - eb.Property(Function(e) e.FlagsEnum2). - HasSentinel(AFlagsEnum.C Or AFlagsEnum.B) - - eb.Property(Function(e) e.AlternateId). - UsePropertyAccessMode(PropertyAccessMode.FieldDuringConstruction) - - eb.Property(Of Point)("Point"). - HasColumnType("geometry"). - HasDefaultValue(NtsGeometryServices.Instance.CreateGeometryFactory(srid:=0). - CreatePoint(New CoordinateZM(0, 0, 0, 0))). - HasConversion(Of CastingConverter(Of Point, Point), CustomValueComparer(Of Point), CustomValueComparer(Of Point))() - - eb.HasIndex(Function(e) New With {e.AlternateId, e.Id}) - - eb.HasKey(Function(e) New With {e.Id, e.AlternateId}).HasName("PK"). - IsClustered() - - eb.HasAlternateKey(Function(e) e.Id) - - eb.Property(Function(e) e.AlternateId).Metadata.SetJsonValueReaderWriterType( - If(_jsonColumns, - GetType(MyJsonGuidReaderWriter), - GetType(JsonGuidReaderWriter))) - - eb.OwnsOne( - Function(e) e.Owned, - Sub(ob) - ob.HasChangeTrackingStrategy(ChangeTrackingStrategy.ChangingAndChangedNotificationsWithOriginalValues) - ob.UsePropertyAccessMode(PropertyAccessMode.Field) - ob.Property(Function(e) e.Details). - IsSparse(). - UseCollation("Latin1_General_CI_AI") - - If _jsonColumns Then - ob.ToJson() - Else - ob.ToTable("PrincipalBase", "mySchema", - Sub(t) t.Property("PrincipalBaseId").UseIdentityColumn(2, 3)) - - ob.SplitToTable("Details", Sub(s) s.Property(Function(e) e.Details)) - - ob.HasData(New With { - .Number = 10, - .PrincipalBaseId = 1L, - .PrincipalBaseAlternateId = New Guid() - }) - End If - End Sub) - - eb.Navigation(Function(e) e.Owned). - IsRequired(). - HasField("_ownedField"). - UsePropertyAccessMode(PropertyAccessMode.Field) - - If Not _jsonColumns Then - eb.HasData(New PrincipalBase With {.Id = 1, .AlternateId = New Guid()}) - - eb.ToTable("PrincipalBase", "mySchema") - End If - End Sub) - - modelBuilder.Entity(Of PrincipalDerived(Of DependentBase(Of Byte?)))( - Sub(eb) - eb.HasOne(Function(e) e.Dependent). - WithOne(Function(e) e.Principal). - HasForeignKey(Of DependentBase(Of Byte?))(). - OnDelete(DeleteBehavior.ClientNoAction) - - eb.Navigation(Function(e) e.Dependent).AutoInclude().EnableLazyLoading(False) - - eb.OwnsMany(GetType(OwnedType).FullName, "ManyOwned", - Sub(ob) - If _jsonColumns Then - ob.ToJson() - Else - ob.ToTable("ManyOwned", Sub(t) t.IsMemoryOptimized().ExcludeFromMigrations()) - End If - End Sub) - - eb.HasMany(Function(e) e.Principals). - WithMany(Function(e) DirectCast(e.Deriveds, ICollection(Of PrincipalDerived(Of DependentBase(Of Byte?))))). - UsingEntity( - Sub(jb) - jb.ToTable(Function(tb) tb.HasComment("Join table")) - jb.Property(Of Byte())("rowid"). - IsRowVersion(). - HasComment("RowVersion"). - HasColumnOrder(1) - End Sub) - - eb.Navigation(Function(e) e.Principals).AutoInclude().EnableLazyLoading(False) - - If Not _jsonColumns Then - eb.ToTable("PrincipalDerived") - End If - End Sub) - - modelBuilder.Entity(Of DependentBase(Of Byte?))( - Sub(eb) - eb.Property(Of Byte?)("Id") - - eb.HasKey({"PrincipalId", "PrincipalAlternateId"}) - - eb.HasOne(Of PrincipalBase)(). - WithOne(). - HasForeignKey(Of DependentBase(Of Byte?))("PrincipalId"). - HasPrincipalKey(Of PrincipalBase)(Function(e) e.Id) - - eb.HasDiscriminator(Of Enum1)("EnumDiscriminator"). - HasValue(Enum1.One). - HasValue(Of DependentDerived(Of Byte?))(Enum1.Two). - IsComplete(False) - End Sub) - - modelBuilder.Entity(Of DependentDerived(Of Byte?))( - Sub(eb) - eb.Property(Of String)("Data"). - HasMaxLength(20). - IsFixedLength(). - IsUnicode(False) - - eb.Property(Of Decimal)("Money"). - HasPrecision(9, 3) - End Sub) - - modelBuilder.Entity(Of ManyTypes)( - Sub(eb) - eb.Property(Function(e) e.Id).HasConversion(Of ManyTypesIdConverter)().ValueGeneratedOnAdd() - eb.HasKey(Function(e) e.Id) - - eb.Property(Function(e) e.Enum8AsString).HasConversion(Of String)() - eb.Property(Function(e) e.Enum16AsString).HasConversion(Of String)() - eb.Property(Function(e) e.Enum32AsString).HasConversion(Of String)() - eb.Property(Function(e) e.Enum64AsString).HasConversion(Of String)() - eb.Property(Function(e) e.EnumU8AsString).HasConversion(Of String)() - eb.Property(Function(e) e.EnumU16AsString).HasConversion(Of String)() - eb.Property(Function(e) e.EnumU32AsString).HasConversion(Of String)() - eb.Property(Function(e) e.EnumU64AsString).HasConversion(Of String)() - - eb.PrimitiveCollection(Function(e) e.Enum8AsStringCollection).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.Enum16AsStringCollection).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.Enum32AsStringCollection).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.Enum64AsStringCollection).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.EnumU8AsStringCollection).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.EnumU16AsStringCollection).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.EnumU32AsStringCollection).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.EnumU64AsStringCollection).ElementType(Function(b) b.HasConversion(Of String)()) - - eb.PrimitiveCollection(Function(e) e.Enum8AsStringArray).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.Enum16AsStringArray).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.Enum32AsStringArray).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.Enum64AsStringArray).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.EnumU8AsStringArray).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.EnumU16AsStringArray).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.EnumU32AsStringArray).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.EnumU64AsStringArray).ElementType(Function(b) b.HasConversion(Of String)()) - - eb.Property(Function(e) e.BoolToStringConverterProperty).HasConversion(New BoolToStringConverter("A", "B")) - eb.Property(Function(e) e.BoolToTwoValuesConverterProperty).HasConversion(New BoolToTwoValuesConverter(Of Byte)(0, 1)) - eb.Property(Function(e) e.BoolToZeroOneConverterProperty).HasConversion(Of BoolToZeroOneConverter(Of Short))() - eb.Property(Function(e) e.BytesToStringConverterProperty).HasConversion(Of BytesToStringConverter)() - eb.Property(Function(e) e.CastingConverterProperty).HasConversion(Of CastingConverter(Of Integer, Decimal))() - eb.Property(Function(e) e.CharToStringConverterProperty).HasConversion(Of CharToStringConverter)() - eb.Property(Function(e) e.DateOnlyToStringConverterProperty).HasConversion(Of DateOnlyToStringConverter)() - eb.Property(Function(e) e.DateTimeOffsetToBinaryConverterProperty).HasConversion(Of DateTimeOffsetToBinaryConverter)() - eb.Property(Function(e) e.DateTimeOffsetToBytesConverterProperty).HasConversion(Of DateTimeOffsetToBytesConverter)() - eb.Property(Function(e) e.DateTimeOffsetToStringConverterProperty).HasConversion(Of DateTimeOffsetToStringConverter)() - eb.Property(Function(e) e.DateTimeToBinaryConverterProperty).HasConversion(Of DateTimeToBinaryConverter)() - eb.Property(Function(e) e.DateTimeToStringConverterProperty).HasConversion(Of DateTimeToStringConverter)() - eb.Property(Function(e) e.EnumToNumberConverterProperty).HasConversion(Of EnumToNumberConverter(Of Enum32, Integer))() - eb.Property(Function(e) e.EnumToStringConverterProperty).HasConversion(Of EnumToStringConverter(Of Enum32))() - eb.Property(Function(e) e.GuidToBytesConverterProperty).HasConversion(Of GuidToBytesConverter)() - eb.Property(Function(e) e.GuidToStringConverterProperty).HasConversion(Of GuidToStringConverter)() - eb.Property(Function(e) e.IPAddressToBytesConverterProperty).HasConversion(Of IPAddressToBytesConverter)() - eb.Property(Function(e) e.IPAddressToStringConverterProperty).HasConversion(Of IPAddressToStringConverter)() - eb.Property(Function(e) e.IntNumberToBytesConverterProperty).HasConversion(Of NumberToBytesConverter(Of Integer))() - eb.Property(Function(e) e.DecimalNumberToBytesConverterProperty).HasConversion(Of NumberToBytesConverter(Of Decimal))() - eb.Property(Function(e) e.DoubleNumberToBytesConverterProperty).HasConversion(Of NumberToBytesConverter(Of Double))() - eb.Property(Function(e) e.IntNumberToStringConverterProperty).HasConversion(Of NumberToStringConverter(Of Integer))() - eb.Property(Function(e) e.DecimalNumberToStringConverterProperty).HasConversion(Of NumberToStringConverter(Of Decimal))() - eb.Property(Function(e) e.DoubleNumberToStringConverterProperty).HasConversion(Of NumberToStringConverter(Of Double))() - eb.Property(Function(e) e.PhysicalAddressToBytesConverterProperty).HasConversion(Of PhysicalAddressToBytesConverter)() - eb.Property(Function(e) e.PhysicalAddressToStringConverterProperty).HasConversion(Of PhysicalAddressToStringConverter)() - eb.Property(Function(e) e.StringToBoolConverterProperty).HasConversion(Of StringToBoolConverter)() - eb.Property(Function(e) e.StringToBytesConverterProperty).HasConversion(New StringToBytesConverter(System.Text.Encoding.UTF32)) - eb.Property(Function(e) e.StringToCharConverterProperty).HasConversion(Of StringToCharConverter)() - eb.Property(Function(e) e.StringToDateOnlyConverterProperty).HasConversion(Of StringToDateOnlyConverter)() - eb.Property(Function(e) e.StringToDateTimeConverterProperty).HasConversion(Of StringToDateTimeConverter)() - eb.Property(Function(e) e.StringToDateTimeOffsetConverterProperty).HasConversion(Of StringToDateTimeOffsetConverter)() - eb.Property(Function(e) e.StringToEnumConverterProperty).HasConversion(Of StringToEnumConverter(Of EnumU32))() - eb.Property(Function(e) e.StringToIntNumberConverterProperty).HasConversion(Of StringToNumberConverter(Of Integer))() - eb.Property(Function(e) e.StringToDecimalNumberConverterProperty).HasConversion(Of StringToNumberConverter(Of Decimal))() - eb.Property(Function(e) e.StringToDoubleNumberConverterProperty).HasConversion(Of StringToNumberConverter(Of Double))() - eb.Property(Function(e) e.StringToTimeOnlyConverterProperty).HasConversion(Of StringToTimeOnlyConverter)() - eb.Property(Function(e) e.StringToTimeSpanConverterProperty).HasConversion(Of StringToTimeSpanConverter)() - eb.Property(Function(e) e.StringToUriConverterProperty).HasConversion(Of StringToUriConverter)() - eb.Property(Function(e) e.TimeOnlyToStringConverterProperty).HasConversion(Of TimeOnlyToStringConverter)() - eb.Property(Function(e) e.TimeOnlyToTicksConverterProperty).HasConversion(Of TimeOnlyToTicksConverter)() - eb.Property(Function(e) e.TimeSpanToStringConverterProperty).HasConversion(Of TimeSpanToStringConverter)() - eb.Property(Function(e) e.TimeSpanToTicksConverterProperty).HasConversion(Of TimeSpanToTicksConverter)() - eb.Property(Function(e) e.UriToStringConverterProperty).HasConversion(Of UriToStringConverter)() - eb.Property(Function(e) e.NullIntToNullStringConverterProperty).HasConversion(Of NullIntToNullStringConverter)() - End Sub) - End Sub - End Class - - Public Class ComplexTypesContext - Inherits SqlServerContextBase - - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - MyBase.OnModelCreating(modelBuilder) - - modelBuilder.Entity(Of PrincipalBase)( - Sub(eb) - eb.ComplexProperty( - Function(e) e.Owned, - Sub(ceb) - ceb.IsRequired(). - HasField("_ownedField"). - UsePropertyAccessMode(PropertyAccessMode.Field). - HasChangeTrackingStrategy(ChangeTrackingStrategy.ChangingAndChangedNotificationsWithOriginalValues). - HasPropertyAnnotation("goo", "ber"). - HasTypeAnnotation("go", "brr") - ceb.Property(Function(c) c.Details). - HasColumnName("Deets"). - HasColumnOrder(1). - HasColumnType("varchar"). - IsUnicode(False). - IsRequired(False). - HasField("_details"). - HasSentinel(""). - UsePropertyAccessMode(PropertyAccessMode.FieldDuringConstruction). - IsSparse(). - UseCollation("Latin1_General_CI_AI"). - HasMaxLength(64). - HasPrecision(3, 2). - HasComment("Dt"). - IsRowVersion(). - HasAnnotation("foo", "bar") - ceb.Ignore(Function(e) e.Context) - ceb.ComplexProperty(Function(o) o.Principal).IsRequired() - End Sub) - - eb.ToTable("PrincipalBase") - eb.ToView("PrincipalBaseView") - eb.ToSqlQuery("select * from PrincipalBase") - eb.ToFunction("PrincipalBaseTvf") - - eb.InsertUsingStoredProcedure( - Sub(s) s.HasParameter("PrincipalBaseId"). - HasParameter("Enum1"). - HasParameter("Enum2"). - HasParameter("FlagsEnum1"). - HasParameter("FlagsEnum2"). - HasParameter("ValueTypeList"). - HasParameter("ValueTypeIList"). - HasParameter("ValueTypeArray"). - HasParameter("ValueTypeEnumerable"). - HasParameter("RefTypeList"). - HasParameter("RefTypeIList"). - HasParameter("RefTypeArray"). - HasParameter("RefTypeEnumerable"). - HasParameter("Discriminator"). - HasParameter(Function(p) p.Id, Function(p) p.IsOutput())) - - eb.UpdateUsingStoredProcedure( - Sub(s) s.HasParameter("PrincipalBaseId"). - HasParameter("Enum1"). - HasParameter("Enum2"). - HasParameter("FlagsEnum1"). - HasParameter("FlagsEnum2"). - HasParameter("ValueTypeList"). - HasParameter("ValueTypeIList"). - HasParameter("ValueTypeArray"). - HasParameter("ValueTypeEnumerable"). - HasParameter("RefTypeList"). - HasParameter("RefTypeIList"). - HasParameter("RefTypeArray"). - HasParameter("RefTypeEnumerable"). - HasOriginalValueParameter(Function(p) p.Id)) - - eb.DeleteUsingStoredProcedure( - Sub(s) s.HasRowsAffectedReturnValue(). - HasOriginalValueParameter(Function(p) p.Id)) - End Sub) - - modelBuilder.Entity(Of PrincipalDerived(Of DependentBase(Of Byte?)))( - Sub(eb) - ' eb.ComplexCollection(TypeOf(OwnedType).Name, "ManyOwned") - eb.Ignore(Function(p) p.Dependent) - eb.Ignore(Function(p) p.Principals) - eb.ToTable("PrincipalBase") - eb.ToFunction(CType(Nothing, String)) - End Sub) - End Sub - End Class - - - Public Sub TPC_model() - Dim rm1 = - -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - - Public Partial Class TpcContextModel - Inherits RuntimeModel - - Private Shared ReadOnly _useOldBehavior31751 As Boolean - - Private Shared _Instance As TpcContextModel - Public Shared ReadOnly Property Instance As IModel - Get - Return _Instance - End Get - End Property - - Shared Sub New() - Dim enabled31751 As Boolean - _useOldBehavior31751 = System.AppContext.TryGetSwitch("Microsoft.EntityFrameworkCore.Issue31751", enabled31751) AndAlso enabled31751 - - Dim model As New TpcContextModel() - If _useOldBehavior31751 Then - model.Initialize() - Else - Dim thread = New System.Threading.Thread(Sub() model.Initialize(), 10 * 1024 * 1024) - thread.Start() - thread.Join() - End If - - model.Customize() - _Instance = model - End Sub - - Partial Private Sub Initialize() - End Sub - - Partial Private Sub Customize() - End Sub - End Class -End Namespace -]]>.Value - - Dim rm2 = - -Imports System -Imports System.Collections.Generic -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Metadata.Internal -Imports Microsoft.EntityFrameworkCore.Migrations -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Public Partial Class TpcContextModel - - Private Sub Initialize() - Dim dependentBase = DependentBaseEntityType.Create(Me) - Dim principalBase = PrincipalBaseEntityType.Create(Me) - Dim principalDerived = PrincipalDerivedEntityType.Create(Me, principalBase) - - DependentBaseEntityType.CreateForeignKey1(dependentBase, principalDerived) - PrincipalBaseEntityType.CreateForeignKey1(principalBase, principalBase) - PrincipalBaseEntityType.CreateForeignKey2(principalBase, principalDerived) - - DependentBaseEntityType.CreateAnnotations(dependentBase) - PrincipalBaseEntityType.CreateAnnotations(principalBase) - PrincipalDerivedEntityType.CreateAnnotations(principalDerived) - - Dim sequences As New SortedDictionary(Of (String, String), ISequence)() - Dim principalBaseSequence As New RuntimeSequence( - "PrincipalBaseSequence", - Me, - GetType(Long), - schema:="TPC", - modelSchemaIsNull:=True) - - sequences(("PrincipalBaseSequence", Nothing)) = principalBaseSequence - - AddAnnotation("Relational:Sequences", sequences) - AddAnnotation("Relational:DefaultSchema", "TPC") - AddAnnotation("Relational:MaxIdentifierLength", 128) - AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.IdentityColumn) - AddRuntimeAnnotation("Relational:RelationalModel", CreateRelationalModel()) - End Sub - - Private Function CreateRelationalModel() As IRelationalModel - Dim relationalModel As New RelationalModel(Me) - - Dim dependentBase = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase") - - Dim defaultTableMappings As New List(Of TableMappingBase(Of ColumnMappingBase))() - dependentBase.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", Nothing, relationalModel) - Dim idColumnBase As New ColumnBase(Of ColumnMappingBase)("Id", "tinyint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("Id", idColumnBase) - Dim principalIdColumnBase As New ColumnBase(Of ColumnMappingBase)("PrincipalId", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("PrincipalId", principalIdColumnBase) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase As New TableMappingBase(Of ColumnMappingBase)(dependentBase, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase, False) - defaultTableMappings.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase, ColumnBase(Of ColumnMappingBase)), dependentBase.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalIdColumnBase, ColumnBase(Of ColumnMappingBase)), dependentBase.FindProperty("PrincipalId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - - Dim tableMappings As New List(Of TableMapping)() - dependentBase.SetRuntimeAnnotation("Relational:TableMappings", tableMappings) - Dim dependentBasebyteTable As New Table("DependentBase", "TPC", relationalModel) - Dim idColumn As New Column("Id", "tinyint", dependentBasebyteTable) - dependentBasebyteTable.Columns.Add("Id", idColumn) - Dim principalIdColumn As New Column("PrincipalId", "bigint", dependentBasebyteTable) With { - .IsNullable = True - } - dependentBasebyteTable.Columns.Add("PrincipalId", principalIdColumn) - Dim pK_DependentBasebyte As New UniqueConstraint("PK_DependentBase", dependentBasebyteTable, {idColumn}) - dependentBasebyteTable.PrimaryKey = pK_DependentBasebyte - Dim pK_DependentBasebyteUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", - {"Id"}) - pK_DependentBasebyte.MappedKeys.Add(pK_DependentBasebyteUc) - RelationalModel.GetOrCreateUniqueConstraints(pK_DependentBasebyteUc).Add(pK_DependentBasebyte) - dependentBasebyteTable.UniqueConstraints.Add("PK_DependentBase", pK_DependentBasebyte) - Dim iX_DependentBasebyte_PrincipalId As New TableIndex( - "IX_DependentBase_PrincipalId", dependentBasebyteTable, {principalIdColumn}, True) - Dim iX_DependentBasebyte_PrincipalIdIx = RelationalModel.GetIndex(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", - {"PrincipalId"}) - iX_DependentBasebyte_PrincipalId.MappedIndexes.Add(iX_DependentBasebyte_PrincipalIdIx) - RelationalModel.GetOrCreateTableIndexes(iX_DependentBasebyte_PrincipalIdIx).Add(iX_DependentBasebyte_PrincipalId) - dependentBasebyteTable.Indexes.Add("IX_DependentBase_PrincipalId", iX_DependentBasebyte_PrincipalId) - relationalModel.Tables.Add(("DependentBase", "TPC"), dependentBasebyteTable) - Dim dependentBasebyteTableMapping As New TableMapping(dependentBase, dependentBasebyteTable, True) - dependentBasebyteTable.AddTypeMapping(dependentBasebyteTableMapping, False) - tableMappings.Add(dependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(idColumn, dependentBase.FindProperty("Id"), dependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(principalIdColumn, dependentBase.FindProperty("PrincipalId"), dependentBasebyteTableMapping) - - Dim principalBase = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase") - - Dim defaultTableMappings0 As New List(Of TableMappingBase(Of ColumnMappingBase))() - principalBase.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings0) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", Nothing, relationalModel) - Dim enum1ColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum1", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("Enum1", enum1ColumnBase) - Dim enum2ColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum2", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("Enum2", enum2ColumnBase) - Dim flagsEnum1ColumnBase As New ColumnBase(Of ColumnMappingBase)("FlagsEnum1", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("FlagsEnum1", flagsEnum1ColumnBase) - Dim flagsEnum2ColumnBase As New ColumnBase(Of ColumnMappingBase)("FlagsEnum2", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("FlagsEnum2", flagsEnum2ColumnBase) - Dim idColumnBase0 As New ColumnBase(Of ColumnMappingBase)("Id", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("Id", idColumnBase0) - Dim principalBaseIdColumnBase As New ColumnBase(Of ColumnMappingBase)("PrincipalBaseId", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("PrincipalBaseId", principalBaseIdColumnBase) - Dim principalDerivedDependentBasebyteIdColumnBase As New ColumnBase(Of ColumnMappingBase)("PrincipalDerived>Id", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("PrincipalDerived>Id", principalDerivedDependentBasebyteIdColumnBase) - Dim refTypeArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("RefTypeArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("RefTypeArray", refTypeArrayColumnBase) - Dim refTypeEnumerableColumnBase As New ColumnBase(Of ColumnMappingBase)("RefTypeEnumerable", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("RefTypeEnumerable", refTypeEnumerableColumnBase) - Dim refTypeIListColumnBase As New ColumnBase(Of ColumnMappingBase)("RefTypeIList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("RefTypeIList", refTypeIListColumnBase) - Dim refTypeListColumnBase As New ColumnBase(Of ColumnMappingBase)("RefTypeList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("RefTypeList", refTypeListColumnBase) - Dim valueTypeArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("ValueTypeArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("ValueTypeArray", valueTypeArrayColumnBase) - Dim valueTypeEnumerableColumnBase As New ColumnBase(Of ColumnMappingBase)("ValueTypeEnumerable", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("ValueTypeEnumerable", valueTypeEnumerableColumnBase) - Dim valueTypeIListColumnBase As New ColumnBase(Of ColumnMappingBase)("ValueTypeIList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("ValueTypeIList", valueTypeIListColumnBase) - Dim valueTypeListColumnBase As New ColumnBase(Of ColumnMappingBase)("ValueTypeList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("ValueTypeList", valueTypeListColumnBase) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase As New TableMappingBase(Of ColumnMappingBase)(principalBase, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase, False) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase, False) - defaultTableMappings0.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase0, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum1ColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("Enum1"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum2ColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("Enum2"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(flagsEnum1ColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("FlagsEnum1"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(flagsEnum2ColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("FlagsEnum2"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalBaseIdColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("PrincipalBaseId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalDerivedDependentBasebyteIdColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("PrincipalDerivedId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeArrayColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("RefTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeEnumerableColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("RefTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeIListColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("RefTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeListColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("RefTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeArrayColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("ValueTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeEnumerableColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("ValueTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeIListColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("ValueTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeListColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("ValueTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - - Dim tableMappings0 As New List(Of TableMapping)() - principalBase.SetRuntimeAnnotation("Relational:TableMappings", tableMappings0) - Dim principalBaseTable As New Table("PrincipalBase", "TPC", relationalModel) - Dim idColumn0 As New Column("Id", "bigint", principalBaseTable) - principalBaseTable.Columns.Add("Id", idColumn0) - Dim enum1Column As New Column("Enum1", "int", principalBaseTable) - principalBaseTable.Columns.Add("Enum1", enum1Column) - Dim enum2Column As New Column("Enum2", "int", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Enum2", enum2Column) - Dim flagsEnum1Column As New Column("FlagsEnum1", "int", principalBaseTable) - principalBaseTable.Columns.Add("FlagsEnum1", flagsEnum1Column) - Dim flagsEnum2Column As New Column("FlagsEnum2", "int", principalBaseTable) - principalBaseTable.Columns.Add("FlagsEnum2", flagsEnum2Column) - Dim principalBaseIdColumn As New Column("PrincipalBaseId", "bigint", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("PrincipalBaseId", principalBaseIdColumn) - Dim principalDerivedDependentBasebyteIdColumn As New Column("PrincipalDerived>Id", "bigint", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("PrincipalDerived>Id", principalDerivedDependentBasebyteIdColumn) - Dim refTypeArrayColumn As New Column("RefTypeArray", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("RefTypeArray", refTypeArrayColumn) - Dim refTypeEnumerableColumn As New Column("RefTypeEnumerable", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("RefTypeEnumerable", refTypeEnumerableColumn) - Dim refTypeIListColumn As New Column("RefTypeIList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("RefTypeIList", refTypeIListColumn) - Dim refTypeListColumn As New Column("RefTypeList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("RefTypeList", refTypeListColumn) - Dim valueTypeArrayColumn As New Column("ValueTypeArray", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("ValueTypeArray", valueTypeArrayColumn) - Dim valueTypeEnumerableColumn As New Column("ValueTypeEnumerable", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("ValueTypeEnumerable", valueTypeEnumerableColumn) - Dim valueTypeIListColumn As New Column("ValueTypeIList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("ValueTypeIList", valueTypeIListColumn) - Dim valueTypeListColumn As New Column("ValueTypeList", "nvarchar(max)", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("ValueTypeList", valueTypeListColumn) - Dim pK_PrincipalBase As New UniqueConstraint("PK_PrincipalBase", principalBaseTable, {idColumn0}) - principalBaseTable.PrimaryKey = pK_PrincipalBase - Dim pK_PrincipalBaseUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id"}) - pK_PrincipalBase.MappedKeys.Add(pK_PrincipalBaseUc) - RelationalModel.GetOrCreateUniqueConstraints(pK_PrincipalBaseUc).Add(pK_PrincipalBase) - principalBaseTable.UniqueConstraints.Add("PK_PrincipalBase", pK_PrincipalBase) - Dim iX_PrincipalBase_PrincipalDerivedDependentBasebyteId As New TableIndex( - "IX_PrincipalBase_PrincipalDerived>Id", principalBaseTable, {principalDerivedDependentBasebyteIdColumn}, False) - Dim iX_PrincipalBase_PrincipalDerivedDependentBasebyteIdIx = RelationalModel.GetIndex(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"PrincipalDerivedId"}) - iX_PrincipalBase_PrincipalDerivedDependentBasebyteId.MappedIndexes.Add(iX_PrincipalBase_PrincipalDerivedDependentBasebyteIdIx) - RelationalModel.GetOrCreateTableIndexes(iX_PrincipalBase_PrincipalDerivedDependentBasebyteIdIx).Add(iX_PrincipalBase_PrincipalDerivedDependentBasebyteId) - principalBaseTable.Indexes.Add("IX_PrincipalBase_PrincipalDerived>Id", iX_PrincipalBase_PrincipalDerivedDependentBasebyteId) - Dim pIX As New TableIndex( - "PIX", principalBaseTable, {principalBaseIdColumn}, True) - Dim pIXIx = RelationalModel.GetIndex(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - "PrincipalIndex") - pIX.MappedIndexes.Add(pIXIx) - RelationalModel.GetOrCreateTableIndexes(pIXIx).Add(pIX) - principalBaseTable.Indexes.Add("PIX", pIX) - relationalModel.Tables.Add(("PrincipalBase", "TPC"), principalBaseTable) - Dim principalBaseTableMapping As New TableMapping(principalBase, principalBaseTable, False) - principalBaseTable.AddTypeMapping(principalBaseTableMapping, False) - tableMappings0.Add(principalBaseTableMapping) - RelationalModel.CreateColumnMapping(idColumn0, principalBase.FindProperty("Id"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(enum1Column, principalBase.FindProperty("Enum1"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(enum2Column, principalBase.FindProperty("Enum2"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(flagsEnum1Column, principalBase.FindProperty("FlagsEnum1"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(flagsEnum2Column, principalBase.FindProperty("FlagsEnum2"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(principalBaseIdColumn, principalBase.FindProperty("PrincipalBaseId"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(principalDerivedDependentBasebyteIdColumn, principalBase.FindProperty("PrincipalDerivedId"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(refTypeArrayColumn, principalBase.FindProperty("RefTypeArray"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(refTypeEnumerableColumn, principalBase.FindProperty("RefTypeEnumerable"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(refTypeIListColumn, principalBase.FindProperty("RefTypeIList"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(refTypeListColumn, principalBase.FindProperty("RefTypeList"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(valueTypeArrayColumn, principalBase.FindProperty("ValueTypeArray"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(valueTypeEnumerableColumn, principalBase.FindProperty("ValueTypeEnumerable"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(valueTypeIListColumn, principalBase.FindProperty("ValueTypeIList"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(valueTypeListColumn, principalBase.FindProperty("ValueTypeList"), principalBaseTableMapping) - - Dim viewMappings As New List(Of ViewMapping)() - principalBase.SetRuntimeAnnotation("Relational:ViewMappings", viewMappings) - Dim principalBaseViewView As New View("PrincipalBaseView", "TPC", relationalModel) - Dim enum1ViewColumn As New ViewColumn("Enum1", "int", principalBaseViewView) - principalBaseViewView.Columns.Add("Enum1", enum1ViewColumn) - Dim enum2ViewColumn As New ViewColumn("Enum2", "int", principalBaseViewView) With { - .IsNullable = True - } - principalBaseViewView.Columns.Add("Enum2", enum2ViewColumn) - Dim flagsEnum1ViewColumn As New ViewColumn("FlagsEnum1", "int", principalBaseViewView) - principalBaseViewView.Columns.Add("FlagsEnum1", flagsEnum1ViewColumn) - Dim flagsEnum2ViewColumn As New ViewColumn("FlagsEnum2", "int", principalBaseViewView) - principalBaseViewView.Columns.Add("FlagsEnum2", flagsEnum2ViewColumn) - Dim idViewColumn As New ViewColumn("Id", "bigint", principalBaseViewView) - principalBaseViewView.Columns.Add("Id", idViewColumn) - Dim principalBaseIdViewColumn As New ViewColumn("PrincipalBaseId", "bigint", principalBaseViewView) With { - .IsNullable = True - } - principalBaseViewView.Columns.Add("PrincipalBaseId", principalBaseIdViewColumn) - Dim principalDerivedIdViewColumn As New ViewColumn("PrincipalDerivedId", "bigint", principalBaseViewView) With { - .IsNullable = True - } - principalBaseViewView.Columns.Add("PrincipalDerivedId", principalDerivedIdViewColumn) - Dim refTypeArrayViewColumn As New ViewColumn("RefTypeArray", "nvarchar(max)", principalBaseViewView) With { - .IsNullable = True - } - principalBaseViewView.Columns.Add("RefTypeArray", refTypeArrayViewColumn) - Dim refTypeEnumerableViewColumn As New ViewColumn("RefTypeEnumerable", "nvarchar(max)", principalBaseViewView) With { - .IsNullable = True - } - principalBaseViewView.Columns.Add("RefTypeEnumerable", refTypeEnumerableViewColumn) - Dim refTypeIListViewColumn As New ViewColumn("RefTypeIList", "nvarchar(max)", principalBaseViewView) With { - .IsNullable = True - } - principalBaseViewView.Columns.Add("RefTypeIList", refTypeIListViewColumn) - Dim refTypeListViewColumn As New ViewColumn("RefTypeList", "nvarchar(max)", principalBaseViewView) With { - .IsNullable = True - } - principalBaseViewView.Columns.Add("RefTypeList", refTypeListViewColumn) - Dim valueTypeArrayViewColumn As New ViewColumn("ValueTypeArray", "nvarchar(max)", principalBaseViewView) With { - .IsNullable = True - } - principalBaseViewView.Columns.Add("ValueTypeArray", valueTypeArrayViewColumn) - Dim valueTypeEnumerableViewColumn As New ViewColumn("ValueTypeEnumerable", "nvarchar(max)", principalBaseViewView) With { - .IsNullable = True - } - principalBaseViewView.Columns.Add("ValueTypeEnumerable", valueTypeEnumerableViewColumn) - Dim valueTypeIListViewColumn As New ViewColumn("ValueTypeIList", "nvarchar(max)", principalBaseViewView) With { - .IsNullable = True - } - principalBaseViewView.Columns.Add("ValueTypeIList", valueTypeIListViewColumn) - Dim valueTypeListViewColumn As New ViewColumn("ValueTypeList", "nvarchar(max)", principalBaseViewView) With { - .IsNullable = True - } - principalBaseViewView.Columns.Add("ValueTypeList", valueTypeListViewColumn) - relationalModel.Views.Add(("PrincipalBaseView", "TPC"), principalBaseViewView) - Dim principalBaseViewViewMapping As New ViewMapping(principalBase, principalBaseViewView, False) - principalBaseViewView.AddTypeMapping(principalBaseViewViewMapping, False) - viewMappings.Add(principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(idViewColumn, principalBase.FindProperty("Id"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(enum1ViewColumn, principalBase.FindProperty("Enum1"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(enum2ViewColumn, principalBase.FindProperty("Enum2"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(flagsEnum1ViewColumn, principalBase.FindProperty("FlagsEnum1"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(flagsEnum2ViewColumn, principalBase.FindProperty("FlagsEnum2"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(principalBaseIdViewColumn, principalBase.FindProperty("PrincipalBaseId"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(principalDerivedIdViewColumn, principalBase.FindProperty("PrincipalDerivedId"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(refTypeArrayViewColumn, principalBase.FindProperty("RefTypeArray"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(refTypeEnumerableViewColumn, principalBase.FindProperty("RefTypeEnumerable"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(refTypeIListViewColumn, principalBase.FindProperty("RefTypeIList"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(refTypeListViewColumn, principalBase.FindProperty("RefTypeList"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(valueTypeArrayViewColumn, principalBase.FindProperty("ValueTypeArray"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(valueTypeEnumerableViewColumn, principalBase.FindProperty("ValueTypeEnumerable"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(valueTypeIListViewColumn, principalBase.FindProperty("ValueTypeIList"), principalBaseViewViewMapping) - RelationalModel.CreateViewColumnMapping(valueTypeListViewColumn, principalBase.FindProperty("ValueTypeList"), principalBaseViewViewMapping) - - Dim deleteSprocMappings As New List(Of StoredProcedureMapping)() - principalBase.SetRuntimeAnnotation("Relational:DeleteStoredProcedureMappings", deleteSprocMappings) - Dim principalBase_DeleteStoreSproc As New StoreStoredProcedure("PrincipalBase_Delete", "TPC", relationalModel) - principalBase_DeleteStoreSproc.ReturnValue = New StoreStoredProcedureReturnValue("", "int", principalBase_DeleteStoreSproc) - Dim id_OriginalParameter As New StoreStoredProcedureParameter("Id_Original", "bigint", 0, principalBase_DeleteStoreSproc, System.Data.ParameterDirection.Input) - principalBase_DeleteStoreSproc.AddParameter(id_OriginalParameter) - principalBase_DeleteStoreSproc.AddStoredProcedure(DirectCast(principalBase.GetDeleteStoredProcedure(), IRuntimeStoredProcedure)) - relationalModel.StoredProcedures.Add(("PrincipalBase_Delete", "TPC"), principalBase_DeleteStoreSproc) - Dim principalBase_DeleteDSproc = DirectCast(principalBase.GetDeleteStoredProcedure(), IRuntimeStoredProcedure) - Dim principalBase_DeleteSprocMapping As New StoredProcedureMapping(principalBase, principalBase_DeleteStoreSproc, DirectCast(principalBase.GetDeleteStoredProcedure(), IRuntimeStoredProcedure), principalBaseTableMapping, False) - principalBase_DeleteStoreSproc.AddTypeMapping(principalBase_DeleteSprocMapping, False) - deleteSprocMappings.Add(principalBase_DeleteSprocMapping) - principalBaseTableMapping.DeleteStoredProcedureMapping = principalBase_DeleteSprocMapping - RelationalModel.CreateStoredProcedureParameterMapping(id_OriginalParameter, principalBase_DeleteDSproc.FindParameter("Id_Original"), principalBase.FindProperty("Id"), principalBase_DeleteSprocMapping) - - Dim insertSprocMappings As New List(Of StoredProcedureMapping)() - principalBase.SetRuntimeAnnotation("Relational:InsertStoredProcedureMappings", insertSprocMappings) - Dim principalBase_InsertStoreSproc As New StoreStoredProcedure("PrincipalBase_Insert", "TPC", relationalModel) - Dim principalBaseIdParameter As New StoreStoredProcedureParameter("PrincipalBaseId", "bigint", 0, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_InsertStoreSproc.AddParameter(principalBaseIdParameter) - Dim principalDerivedIdParameter As New StoreStoredProcedureParameter("PrincipalDerivedId", "bigint", 1, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_InsertStoreSproc.AddParameter(principalDerivedIdParameter) - Dim enum1Parameter As New StoreStoredProcedureParameter("Enum1", "int", 2, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) - principalBase_InsertStoreSproc.AddParameter(enum1Parameter) - Dim enum2Parameter As New StoreStoredProcedureParameter("Enum2", "int", 3, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_InsertStoreSproc.AddParameter(enum2Parameter) - Dim flagsEnum1Parameter As New StoreStoredProcedureParameter("FlagsEnum1", "int", 4, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) - principalBase_InsertStoreSproc.AddParameter(flagsEnum1Parameter) - Dim flagsEnum2Parameter As New StoreStoredProcedureParameter("FlagsEnum2", "int", 5, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) - principalBase_InsertStoreSproc.AddParameter(flagsEnum2Parameter) - Dim valueTypeListParameter As New StoreStoredProcedureParameter("ValueTypeList", "nvarchar(max)", 6, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_InsertStoreSproc.AddParameter(valueTypeListParameter) - Dim valueTypeIListParameter As New StoreStoredProcedureParameter("ValueTypeIList", "nvarchar(max)", 7, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_InsertStoreSproc.AddParameter(valueTypeIListParameter) - Dim valueTypeArrayParameter As New StoreStoredProcedureParameter("ValueTypeArray", "nvarchar(max)", 8, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_InsertStoreSproc.AddParameter(valueTypeArrayParameter) - Dim valueTypeEnumerableParameter As New StoreStoredProcedureParameter("ValueTypeEnumerable", "nvarchar(max)", 9, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_InsertStoreSproc.AddParameter(valueTypeEnumerableParameter) - Dim refTypeListParameter As New StoreStoredProcedureParameter("RefTypeList", "nvarchar(max)", 10, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_InsertStoreSproc.AddParameter(refTypeListParameter) - Dim refTypeIListParameter As New StoreStoredProcedureParameter("RefTypeIList", "nvarchar(max)", 11, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_InsertStoreSproc.AddParameter(refTypeIListParameter) - Dim refTypeArrayParameter As New StoreStoredProcedureParameter("RefTypeArray", "nvarchar(max)", 12, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_InsertStoreSproc.AddParameter(refTypeArrayParameter) - Dim refTypeEnumerableParameter As New StoreStoredProcedureParameter("RefTypeEnumerable", "nvarchar(max)", 13, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_InsertStoreSproc.AddParameter(refTypeEnumerableParameter) - Dim baseIdParameter As New StoreStoredProcedureParameter("BaseId", "bigint", 14, principalBase_InsertStoreSproc, System.Data.ParameterDirection.Output) - principalBase_InsertStoreSproc.AddParameter(baseIdParameter) - principalBase_InsertStoreSproc.AddStoredProcedure(DirectCast(principalBase.GetInsertStoredProcedure(), IRuntimeStoredProcedure)) - relationalModel.StoredProcedures.Add(("PrincipalBase_Insert", "TPC"), principalBase_InsertStoreSproc) - Dim principalBase_InsertISproc = DirectCast(principalBase.GetInsertStoredProcedure(), IRuntimeStoredProcedure) - Dim principalBase_InsertSprocMapping As New StoredProcedureMapping(principalBase, principalBase_InsertStoreSproc, DirectCast(principalBase.GetInsertStoredProcedure(), IRuntimeStoredProcedure), principalBaseTableMapping, False) - principalBase_InsertStoreSproc.AddTypeMapping(principalBase_InsertSprocMapping, False) - insertSprocMappings.Add(principalBase_InsertSprocMapping) - principalBaseTableMapping.InsertStoredProcedureMapping = principalBase_InsertSprocMapping - RelationalModel.CreateStoredProcedureParameterMapping(baseIdParameter, principalBase_InsertISproc.FindParameter("BaseId"), principalBase.FindProperty("Id"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(enum1Parameter, principalBase_InsertISproc.FindParameter("Enum1"), principalBase.FindProperty("Enum1"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(enum2Parameter, principalBase_InsertISproc.FindParameter("Enum2"), principalBase.FindProperty("Enum2"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(flagsEnum1Parameter, principalBase_InsertISproc.FindParameter("FlagsEnum1"), principalBase.FindProperty("FlagsEnum1"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(flagsEnum2Parameter, principalBase_InsertISproc.FindParameter("FlagsEnum2"), principalBase.FindProperty("FlagsEnum2"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(principalBaseIdParameter, principalBase_InsertISproc.FindParameter("PrincipalBaseId"), principalBase.FindProperty("PrincipalBaseId"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(principalDerivedIdParameter, principalBase_InsertISproc.FindParameter("PrincipalDerivedId"), principalBase.FindProperty("PrincipalDerivedId"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeArrayParameter, principalBase_InsertISproc.FindParameter("RefTypeArray"), principalBase.FindProperty("RefTypeArray"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeEnumerableParameter, principalBase_InsertISproc.FindParameter("RefTypeEnumerable"), principalBase.FindProperty("RefTypeEnumerable"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeIListParameter, principalBase_InsertISproc.FindParameter("RefTypeIList"), principalBase.FindProperty("RefTypeIList"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeListParameter, principalBase_InsertISproc.FindParameter("RefTypeList"), principalBase.FindProperty("RefTypeList"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeArrayParameter, principalBase_InsertISproc.FindParameter("ValueTypeArray"), principalBase.FindProperty("ValueTypeArray"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeEnumerableParameter, principalBase_InsertISproc.FindParameter("ValueTypeEnumerable"), principalBase.FindProperty("ValueTypeEnumerable"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeIListParameter, principalBase_InsertISproc.FindParameter("ValueTypeIList"), principalBase.FindProperty("ValueTypeIList"), principalBase_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeListParameter, principalBase_InsertISproc.FindParameter("ValueTypeList"), principalBase.FindProperty("ValueTypeList"), principalBase_InsertSprocMapping) - - Dim updateSprocMappings As New List(Of StoredProcedureMapping)() - principalBase.SetRuntimeAnnotation("Relational:UpdateStoredProcedureMappings", updateSprocMappings) - Dim principalBase_UpdateStoreSproc As New StoreStoredProcedure("PrincipalBase_Update", "TPC", relationalModel) - Dim principalBaseIdParameter0 As New StoreStoredProcedureParameter("PrincipalBaseId", "bigint", 0, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_UpdateStoreSproc.AddParameter(principalBaseIdParameter0) - Dim principalDerivedIdParameter0 As New StoreStoredProcedureParameter("PrincipalDerivedId", "bigint", 1, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_UpdateStoreSproc.AddParameter(principalDerivedIdParameter0) - Dim enum1Parameter0 As New StoreStoredProcedureParameter("Enum1", "int", 2, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) - principalBase_UpdateStoreSproc.AddParameter(enum1Parameter0) - Dim enum2Parameter0 As New StoreStoredProcedureParameter("Enum2", "int", 3, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_UpdateStoreSproc.AddParameter(enum2Parameter0) - Dim flagsEnum1Parameter0 As New StoreStoredProcedureParameter("FlagsEnum1", "int", 4, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) - principalBase_UpdateStoreSproc.AddParameter(flagsEnum1Parameter0) - Dim flagsEnum2Parameter0 As New StoreStoredProcedureParameter("FlagsEnum2", "int", 5, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) - principalBase_UpdateStoreSproc.AddParameter(flagsEnum2Parameter0) - Dim valueTypeListParameter0 As New StoreStoredProcedureParameter("ValueTypeList", "nvarchar(max)", 6, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_UpdateStoreSproc.AddParameter(valueTypeListParameter0) - Dim valueTypeIListParameter0 As New StoreStoredProcedureParameter("ValueTypeIList", "nvarchar(max)", 7, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_UpdateStoreSproc.AddParameter(valueTypeIListParameter0) - Dim valueTypeArrayParameter0 As New StoreStoredProcedureParameter("ValueTypeArray", "nvarchar(max)", 8, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_UpdateStoreSproc.AddParameter(valueTypeArrayParameter0) - Dim valueTypeEnumerableParameter0 As New StoreStoredProcedureParameter("ValueTypeEnumerable", "nvarchar(max)", 9, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_UpdateStoreSproc.AddParameter(valueTypeEnumerableParameter0) - Dim refTypeListParameter0 As New StoreStoredProcedureParameter("RefTypeList", "nvarchar(max)", 10, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_UpdateStoreSproc.AddParameter(refTypeListParameter0) - Dim refTypeIListParameter0 As New StoreStoredProcedureParameter("RefTypeIList", "nvarchar(max)", 11, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_UpdateStoreSproc.AddParameter(refTypeIListParameter0) - Dim refTypeArrayParameter0 As New StoreStoredProcedureParameter("RefTypeArray", "nvarchar(max)", 12, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_UpdateStoreSproc.AddParameter(refTypeArrayParameter0) - Dim refTypeEnumerableParameter0 As New StoreStoredProcedureParameter("RefTypeEnumerable", "nvarchar(max)", 13, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - principalBase_UpdateStoreSproc.AddParameter(refTypeEnumerableParameter0) - Dim id_OriginalParameter0 As New StoreStoredProcedureParameter("Id_Original", "bigint", 14, principalBase_UpdateStoreSproc, System.Data.ParameterDirection.Input) - principalBase_UpdateStoreSproc.AddParameter(id_OriginalParameter0) - principalBase_UpdateStoreSproc.AddStoredProcedure(DirectCast(principalBase.GetUpdateStoredProcedure(), IRuntimeStoredProcedure)) - relationalModel.StoredProcedures.Add(("PrincipalBase_Update", "TPC"), principalBase_UpdateStoreSproc) - Dim principalBase_UpdateUSproc = DirectCast(principalBase.GetUpdateStoredProcedure(), IRuntimeStoredProcedure) - Dim principalBase_UpdateSprocMapping As New StoredProcedureMapping(principalBase, principalBase_UpdateStoreSproc, DirectCast(principalBase.GetUpdateStoredProcedure(), IRuntimeStoredProcedure), principalBaseTableMapping, False) - principalBase_UpdateStoreSproc.AddTypeMapping(principalBase_UpdateSprocMapping, False) - updateSprocMappings.Add(principalBase_UpdateSprocMapping) - principalBaseTableMapping.UpdateStoredProcedureMapping = principalBase_UpdateSprocMapping - RelationalModel.CreateStoredProcedureParameterMapping(id_OriginalParameter0, principalBase_UpdateUSproc.FindParameter("Id_Original"), principalBase.FindProperty("Id"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(enum1Parameter0, principalBase_UpdateUSproc.FindParameter("Enum1"), principalBase.FindProperty("Enum1"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(enum2Parameter0, principalBase_UpdateUSproc.FindParameter("Enum2"), principalBase.FindProperty("Enum2"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(flagsEnum1Parameter0, principalBase_UpdateUSproc.FindParameter("FlagsEnum1"), principalBase.FindProperty("FlagsEnum1"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(flagsEnum2Parameter0, principalBase_UpdateUSproc.FindParameter("FlagsEnum2"), principalBase.FindProperty("FlagsEnum2"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(principalBaseIdParameter0, principalBase_UpdateUSproc.FindParameter("PrincipalBaseId"), principalBase.FindProperty("PrincipalBaseId"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(principalDerivedIdParameter0, principalBase_UpdateUSproc.FindParameter("PrincipalDerivedId"), principalBase.FindProperty("PrincipalDerivedId"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeArrayParameter0, principalBase_UpdateUSproc.FindParameter("RefTypeArray"), principalBase.FindProperty("RefTypeArray"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeEnumerableParameter0, principalBase_UpdateUSproc.FindParameter("RefTypeEnumerable"), principalBase.FindProperty("RefTypeEnumerable"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeIListParameter0, principalBase_UpdateUSproc.FindParameter("RefTypeIList"), principalBase.FindProperty("RefTypeIList"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeListParameter0, principalBase_UpdateUSproc.FindParameter("RefTypeList"), principalBase.FindProperty("RefTypeList"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeArrayParameter0, principalBase_UpdateUSproc.FindParameter("ValueTypeArray"), principalBase.FindProperty("ValueTypeArray"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeEnumerableParameter0, principalBase_UpdateUSproc.FindParameter("ValueTypeEnumerable"), principalBase.FindProperty("ValueTypeEnumerable"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeIListParameter0, principalBase_UpdateUSproc.FindParameter("ValueTypeIList"), principalBase.FindProperty("ValueTypeIList"), principalBase_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeListParameter0, principalBase_UpdateUSproc.FindParameter("ValueTypeList"), principalBase.FindProperty("ValueTypeList"), principalBase_UpdateSprocMapping) - - Dim principalDerived = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>") - - Dim defaultTableMappings1 As New List(Of TableMappingBase(Of ColumnMappingBase))() - principalDerived.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings1) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", Nothing, relationalModel) - Dim enum1ColumnBase0 As New ColumnBase(Of ColumnMappingBase)("Enum1", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("Enum1", enum1ColumnBase0) - Dim enum2ColumnBase0 As New ColumnBase(Of ColumnMappingBase)("Enum2", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("Enum2", enum2ColumnBase0) - Dim flagsEnum1ColumnBase0 As New ColumnBase(Of ColumnMappingBase)("FlagsEnum1", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("FlagsEnum1", flagsEnum1ColumnBase0) - Dim flagsEnum2ColumnBase0 As New ColumnBase(Of ColumnMappingBase)("FlagsEnum2", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("FlagsEnum2", flagsEnum2ColumnBase0) - Dim idColumnBase1 As New ColumnBase(Of ColumnMappingBase)("Id", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("Id", idColumnBase1) - Dim principalBaseIdColumnBase0 As New ColumnBase(Of ColumnMappingBase)("PrincipalBaseId", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("PrincipalBaseId", principalBaseIdColumnBase0) - Dim principalDerivedDependentBasebyteIdColumnBase0 As New ColumnBase(Of ColumnMappingBase)("PrincipalDerived>Id", "bigint", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("PrincipalDerived>Id", principalDerivedDependentBasebyteIdColumnBase0) - Dim refTypeArrayColumnBase0 As New ColumnBase(Of ColumnMappingBase)("RefTypeArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("RefTypeArray", refTypeArrayColumnBase0) - Dim refTypeEnumerableColumnBase0 As New ColumnBase(Of ColumnMappingBase)("RefTypeEnumerable", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("RefTypeEnumerable", refTypeEnumerableColumnBase0) - Dim refTypeIListColumnBase0 As New ColumnBase(Of ColumnMappingBase)("RefTypeIList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("RefTypeIList", refTypeIListColumnBase0) - Dim refTypeListColumnBase0 As New ColumnBase(Of ColumnMappingBase)("RefTypeList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("RefTypeList", refTypeListColumnBase0) - Dim valueTypeArrayColumnBase0 As New ColumnBase(Of ColumnMappingBase)("ValueTypeArray", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("ValueTypeArray", valueTypeArrayColumnBase0) - Dim valueTypeEnumerableColumnBase0 As New ColumnBase(Of ColumnMappingBase)("ValueTypeEnumerable", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("ValueTypeEnumerable", valueTypeEnumerableColumnBase0) - Dim valueTypeIListColumnBase0 As New ColumnBase(Of ColumnMappingBase)("ValueTypeIList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("ValueTypeIList", valueTypeIListColumnBase0) - Dim valueTypeListColumnBase0 As New ColumnBase(Of ColumnMappingBase)("ValueTypeList", "nvarchar(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("ValueTypeList", valueTypeListColumnBase0) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase As New TableMappingBase(Of ColumnMappingBase)(principalDerived, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase, False) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase, False) - defaultTableMappings1.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase1, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum1ColumnBase0, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("Enum1"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum2ColumnBase0, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("Enum2"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(flagsEnum1ColumnBase0, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("FlagsEnum1"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(flagsEnum2ColumnBase0, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("FlagsEnum2"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalBaseIdColumnBase0, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("PrincipalBaseId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalDerivedDependentBasebyteIdColumnBase0, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("PrincipalDerivedId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeArrayColumnBase0, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("RefTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeEnumerableColumnBase0, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("RefTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeIListColumnBase0, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("RefTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeListColumnBase0, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("RefTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeArrayColumnBase0, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("ValueTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeEnumerableColumnBase0, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("ValueTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeIListColumnBase0, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("ValueTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeListColumnBase0, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("ValueTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - - Dim tableMappings1 As New List(Of TableMapping)() - principalDerived.SetRuntimeAnnotation("Relational:TableMappings", tableMappings1) - Dim principalDerivedTable As New Table("PrincipalDerived", "TPC", relationalModel) - Dim idColumn1 As New Column("Id", "bigint", principalDerivedTable) - principalDerivedTable.Columns.Add("Id", idColumn1) - Dim enum1Column0 As New Column("Enum1", "int", principalDerivedTable) - principalDerivedTable.Columns.Add("Enum1", enum1Column0) - Dim enum2Column0 As New Column("Enum2", "int", principalDerivedTable) With { - .IsNullable = True - } - principalDerivedTable.Columns.Add("Enum2", enum2Column0) - Dim flagsEnum1Column0 As New Column("FlagsEnum1", "int", principalDerivedTable) - principalDerivedTable.Columns.Add("FlagsEnum1", flagsEnum1Column0) - Dim flagsEnum2Column0 As New Column("FlagsEnum2", "int", principalDerivedTable) - principalDerivedTable.Columns.Add("FlagsEnum2", flagsEnum2Column0) - Dim principalBaseIdColumn0 As New Column("PrincipalBaseId", "bigint", principalDerivedTable) With { - .IsNullable = True - } - principalDerivedTable.Columns.Add("PrincipalBaseId", principalBaseIdColumn0) - Dim principalDerivedDependentBasebyteIdColumn0 As New Column("PrincipalDerived>Id", "bigint", principalDerivedTable) With { - .IsNullable = True - } - principalDerivedTable.Columns.Add("PrincipalDerived>Id", principalDerivedDependentBasebyteIdColumn0) - Dim refTypeArrayColumn0 As New Column("RefTypeArray", "nvarchar(max)", principalDerivedTable) With { - .IsNullable = True - } - principalDerivedTable.Columns.Add("RefTypeArray", refTypeArrayColumn0) - Dim refTypeEnumerableColumn0 As New Column("RefTypeEnumerable", "nvarchar(max)", principalDerivedTable) With { - .IsNullable = True - } - principalDerivedTable.Columns.Add("RefTypeEnumerable", refTypeEnumerableColumn0) - Dim refTypeIListColumn0 As New Column("RefTypeIList", "nvarchar(max)", principalDerivedTable) With { - .IsNullable = True - } - principalDerivedTable.Columns.Add("RefTypeIList", refTypeIListColumn0) - Dim refTypeListColumn0 As New Column("RefTypeList", "nvarchar(max)", principalDerivedTable) With { - .IsNullable = True - } - principalDerivedTable.Columns.Add("RefTypeList", refTypeListColumn0) - Dim valueTypeArrayColumn0 As New Column("ValueTypeArray", "nvarchar(max)", principalDerivedTable) With { - .IsNullable = True - } - principalDerivedTable.Columns.Add("ValueTypeArray", valueTypeArrayColumn0) - Dim valueTypeEnumerableColumn0 As New Column("ValueTypeEnumerable", "nvarchar(max)", principalDerivedTable) With { - .IsNullable = True - } - principalDerivedTable.Columns.Add("ValueTypeEnumerable", valueTypeEnumerableColumn0) - Dim valueTypeIListColumn0 As New Column("ValueTypeIList", "nvarchar(max)", principalDerivedTable) With { - .IsNullable = True - } - principalDerivedTable.Columns.Add("ValueTypeIList", valueTypeIListColumn0) - Dim valueTypeListColumn0 As New Column("ValueTypeList", "nvarchar(max)", principalDerivedTable) With { - .IsNullable = True - } - principalDerivedTable.Columns.Add("ValueTypeList", valueTypeListColumn0) - Dim pK_PrincipalDerived As New UniqueConstraint("PK_PrincipalDerived", principalDerivedTable, {idColumn1}) - principalDerivedTable.PrimaryKey = pK_PrincipalDerived - Dim pK_PrincipalDerivedUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id"}) - pK_PrincipalDerived.MappedKeys.Add(pK_PrincipalDerivedUc) - RelationalModel.GetOrCreateUniqueConstraints(pK_PrincipalDerivedUc).Add(pK_PrincipalDerived) - principalDerivedTable.UniqueConstraints.Add("PK_PrincipalDerived", pK_PrincipalDerived) - Dim iX_PrincipalDerived_PrincipalDerivedDependentBasebyteId As New TableIndex( - "IX_PrincipalDerived_PrincipalDerived>Id", principalDerivedTable, {principalDerivedDependentBasebyteIdColumn0}, False) - Dim iX_PrincipalDerived_PrincipalDerivedDependentBasebyteIdIx = RelationalModel.GetIndex(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"PrincipalDerivedId"}) - iX_PrincipalDerived_PrincipalDerivedDependentBasebyteId.MappedIndexes.Add(iX_PrincipalDerived_PrincipalDerivedDependentBasebyteIdIx) - RelationalModel.GetOrCreateTableIndexes(iX_PrincipalDerived_PrincipalDerivedDependentBasebyteIdIx).Add(iX_PrincipalDerived_PrincipalDerivedDependentBasebyteId) - principalDerivedTable.Indexes.Add("IX_PrincipalDerived_PrincipalDerived>Id", iX_PrincipalDerived_PrincipalDerivedDependentBasebyteId) - Dim pIX0 As New TableIndex( - "PIX", principalDerivedTable, {principalBaseIdColumn0}, True) - Dim pIX0Ix = RelationalModel.GetIndex(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - "PrincipalIndex") - pIX0.MappedIndexes.Add(pIX0Ix) - RelationalModel.GetOrCreateTableIndexes(pIX0Ix).Add(pIX0) - principalDerivedTable.Indexes.Add("PIX", pIX0) - relationalModel.Tables.Add(("PrincipalDerived", "TPC"), principalDerivedTable) - Dim principalDerivedTableMapping As New TableMapping(principalDerived, principalDerivedTable, False) - principalDerivedTable.AddTypeMapping(principalDerivedTableMapping, False) - tableMappings1.Add(principalDerivedTableMapping) - RelationalModel.CreateColumnMapping(idColumn1, principalDerived.FindProperty("Id"), principalDerivedTableMapping) - RelationalModel.CreateColumnMapping(enum1Column0, principalDerived.FindProperty("Enum1"), principalDerivedTableMapping) - RelationalModel.CreateColumnMapping(enum2Column0, principalDerived.FindProperty("Enum2"), principalDerivedTableMapping) - RelationalModel.CreateColumnMapping(flagsEnum1Column0, principalDerived.FindProperty("FlagsEnum1"), principalDerivedTableMapping) - RelationalModel.CreateColumnMapping(flagsEnum2Column0, principalDerived.FindProperty("FlagsEnum2"), principalDerivedTableMapping) - RelationalModel.CreateColumnMapping(principalBaseIdColumn0, principalDerived.FindProperty("PrincipalBaseId"), principalDerivedTableMapping) - RelationalModel.CreateColumnMapping(principalDerivedDependentBasebyteIdColumn0, principalDerived.FindProperty("PrincipalDerivedId"), principalDerivedTableMapping) - RelationalModel.CreateColumnMapping(refTypeArrayColumn0, principalDerived.FindProperty("RefTypeArray"), principalDerivedTableMapping) - RelationalModel.CreateColumnMapping(refTypeEnumerableColumn0, principalDerived.FindProperty("RefTypeEnumerable"), principalDerivedTableMapping) - RelationalModel.CreateColumnMapping(refTypeIListColumn0, principalDerived.FindProperty("RefTypeIList"), principalDerivedTableMapping) - RelationalModel.CreateColumnMapping(refTypeListColumn0, principalDerived.FindProperty("RefTypeList"), principalDerivedTableMapping) - RelationalModel.CreateColumnMapping(valueTypeArrayColumn0, principalDerived.FindProperty("ValueTypeArray"), principalDerivedTableMapping) - RelationalModel.CreateColumnMapping(valueTypeEnumerableColumn0, principalDerived.FindProperty("ValueTypeEnumerable"), principalDerivedTableMapping) - RelationalModel.CreateColumnMapping(valueTypeIListColumn0, principalDerived.FindProperty("ValueTypeIList"), principalDerivedTableMapping) - RelationalModel.CreateColumnMapping(valueTypeListColumn0, principalDerived.FindProperty("ValueTypeList"), principalDerivedTableMapping) - - Dim viewMappings0 As New List(Of ViewMapping)() - principalDerived.SetRuntimeAnnotation("Relational:ViewMappings", viewMappings0) - Dim principalDerivedViewView As New View("PrincipalDerivedView", "TPC", relationalModel) - Dim enum1ViewColumn0 As New ViewColumn("Enum1", "int", principalDerivedViewView) - principalDerivedViewView.Columns.Add("Enum1", enum1ViewColumn0) - Dim enum2ViewColumn0 As New ViewColumn("Enum2", "int", principalDerivedViewView) With { - .IsNullable = True - } - principalDerivedViewView.Columns.Add("Enum2", enum2ViewColumn0) - Dim flagsEnum1ViewColumn0 As New ViewColumn("FlagsEnum1", "int", principalDerivedViewView) - principalDerivedViewView.Columns.Add("FlagsEnum1", flagsEnum1ViewColumn0) - Dim flagsEnum2ViewColumn0 As New ViewColumn("FlagsEnum2", "int", principalDerivedViewView) - principalDerivedViewView.Columns.Add("FlagsEnum2", flagsEnum2ViewColumn0) - Dim idViewColumn0 As New ViewColumn("Id", "bigint", principalDerivedViewView) - principalDerivedViewView.Columns.Add("Id", idViewColumn0) - Dim principalBaseIdViewColumn0 As New ViewColumn("PrincipalBaseId", "bigint", principalDerivedViewView) With { - .IsNullable = True - } - principalDerivedViewView.Columns.Add("PrincipalBaseId", principalBaseIdViewColumn0) - Dim principalDerivedIdViewColumn0 As New ViewColumn("PrincipalDerivedId", "bigint", principalDerivedViewView) With { - .IsNullable = True - } - principalDerivedViewView.Columns.Add("PrincipalDerivedId", principalDerivedIdViewColumn0) - Dim refTypeArrayViewColumn0 As New ViewColumn("RefTypeArray", "nvarchar(max)", principalDerivedViewView) With { - .IsNullable = True - } - principalDerivedViewView.Columns.Add("RefTypeArray", refTypeArrayViewColumn0) - Dim refTypeEnumerableViewColumn0 As New ViewColumn("RefTypeEnumerable", "nvarchar(max)", principalDerivedViewView) With { - .IsNullable = True - } - principalDerivedViewView.Columns.Add("RefTypeEnumerable", refTypeEnumerableViewColumn0) - Dim refTypeIListViewColumn0 As New ViewColumn("RefTypeIList", "nvarchar(max)", principalDerivedViewView) With { - .IsNullable = True - } - principalDerivedViewView.Columns.Add("RefTypeIList", refTypeIListViewColumn0) - Dim refTypeListViewColumn0 As New ViewColumn("RefTypeList", "nvarchar(max)", principalDerivedViewView) With { - .IsNullable = True - } - principalDerivedViewView.Columns.Add("RefTypeList", refTypeListViewColumn0) - Dim valueTypeArrayViewColumn0 As New ViewColumn("ValueTypeArray", "nvarchar(max)", principalDerivedViewView) With { - .IsNullable = True - } - principalDerivedViewView.Columns.Add("ValueTypeArray", valueTypeArrayViewColumn0) - Dim valueTypeEnumerableViewColumn0 As New ViewColumn("ValueTypeEnumerable", "nvarchar(max)", principalDerivedViewView) With { - .IsNullable = True - } - principalDerivedViewView.Columns.Add("ValueTypeEnumerable", valueTypeEnumerableViewColumn0) - Dim valueTypeIListViewColumn0 As New ViewColumn("ValueTypeIList", "nvarchar(max)", principalDerivedViewView) With { - .IsNullable = True - } - principalDerivedViewView.Columns.Add("ValueTypeIList", valueTypeIListViewColumn0) - Dim valueTypeListViewColumn0 As New ViewColumn("ValueTypeList", "nvarchar(max)", principalDerivedViewView) With { - .IsNullable = True - } - principalDerivedViewView.Columns.Add("ValueTypeList", valueTypeListViewColumn0) - relationalModel.Views.Add(("PrincipalDerivedView", "TPC"), principalDerivedViewView) - Dim principalDerivedViewViewMapping As New ViewMapping(principalDerived, principalDerivedViewView, False) - principalDerivedViewView.AddTypeMapping(principalDerivedViewViewMapping, False) - viewMappings0.Add(principalDerivedViewViewMapping) - RelationalModel.CreateViewColumnMapping(idViewColumn0, principalDerived.FindProperty("Id"), principalDerivedViewViewMapping) - RelationalModel.CreateViewColumnMapping(enum1ViewColumn0, principalDerived.FindProperty("Enum1"), principalDerivedViewViewMapping) - RelationalModel.CreateViewColumnMapping(enum2ViewColumn0, principalDerived.FindProperty("Enum2"), principalDerivedViewViewMapping) - RelationalModel.CreateViewColumnMapping(flagsEnum1ViewColumn0, principalDerived.FindProperty("FlagsEnum1"), principalDerivedViewViewMapping) - RelationalModel.CreateViewColumnMapping(flagsEnum2ViewColumn0, principalDerived.FindProperty("FlagsEnum2"), principalDerivedViewViewMapping) - RelationalModel.CreateViewColumnMapping(principalBaseIdViewColumn0, principalDerived.FindProperty("PrincipalBaseId"), principalDerivedViewViewMapping) - RelationalModel.CreateViewColumnMapping(principalDerivedIdViewColumn0, principalDerived.FindProperty("PrincipalDerivedId"), principalDerivedViewViewMapping) - RelationalModel.CreateViewColumnMapping(refTypeArrayViewColumn0, principalDerived.FindProperty("RefTypeArray"), principalDerivedViewViewMapping) - RelationalModel.CreateViewColumnMapping(refTypeEnumerableViewColumn0, principalDerived.FindProperty("RefTypeEnumerable"), principalDerivedViewViewMapping) - RelationalModel.CreateViewColumnMapping(refTypeIListViewColumn0, principalDerived.FindProperty("RefTypeIList"), principalDerivedViewViewMapping) - RelationalModel.CreateViewColumnMapping(refTypeListViewColumn0, principalDerived.FindProperty("RefTypeList"), principalDerivedViewViewMapping) - RelationalModel.CreateViewColumnMapping(valueTypeArrayViewColumn0, principalDerived.FindProperty("ValueTypeArray"), principalDerivedViewViewMapping) - RelationalModel.CreateViewColumnMapping(valueTypeEnumerableViewColumn0, principalDerived.FindProperty("ValueTypeEnumerable"), principalDerivedViewViewMapping) - RelationalModel.CreateViewColumnMapping(valueTypeIListViewColumn0, principalDerived.FindProperty("ValueTypeIList"), principalDerivedViewViewMapping) - RelationalModel.CreateViewColumnMapping(valueTypeListViewColumn0, principalDerived.FindProperty("ValueTypeList"), principalDerivedViewViewMapping) - - Dim deleteSprocMappings0 As New List(Of StoredProcedureMapping)() - principalDerived.SetRuntimeAnnotation("Relational:DeleteStoredProcedureMappings", deleteSprocMappings0) - Dim derived_DeleteStoreSproc As New StoreStoredProcedure("Derived_Delete", "TPC", relationalModel) - Dim id_OriginalParameter1 As New StoreStoredProcedureParameter("Id_Original", "bigint", 0, derived_DeleteStoreSproc, System.Data.ParameterDirection.Input) - derived_DeleteStoreSproc.AddParameter(id_OriginalParameter1) - derived_DeleteStoreSproc.AddStoredProcedure(DirectCast(principalDerived.GetDeleteStoredProcedure(), IRuntimeStoredProcedure)) - relationalModel.StoredProcedures.Add(("Derived_Delete", "TPC"), derived_DeleteStoreSproc) - Dim derived_DeleteDSproc = DirectCast(principalDerived.GetDeleteStoredProcedure(), IRuntimeStoredProcedure) - Dim derived_DeleteSprocMapping As New StoredProcedureMapping(principalDerived, derived_DeleteStoreSproc, DirectCast(principalDerived.GetDeleteStoredProcedure(), IRuntimeStoredProcedure), principalDerivedTableMapping, False) - derived_DeleteStoreSproc.AddTypeMapping(derived_DeleteSprocMapping, False) - deleteSprocMappings0.Add(derived_DeleteSprocMapping) - principalDerivedTableMapping.DeleteStoredProcedureMapping = derived_DeleteSprocMapping - RelationalModel.CreateStoredProcedureParameterMapping(id_OriginalParameter1, derived_DeleteDSproc.FindParameter("Id_Original"), principalDerived.FindProperty("Id"), derived_DeleteSprocMapping) - - Dim insertSprocMappings0 As New List(Of StoredProcedureMapping)() - principalDerived.SetRuntimeAnnotation("Relational:InsertStoredProcedureMappings", insertSprocMappings0) - Dim derived_InsertStoreSproc As New StoreStoredProcedure("Derived_Insert", "TPC", relationalModel) - Dim principalBaseIdParameter1 As New StoreStoredProcedureParameter("PrincipalBaseId", "bigint", 0, derived_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - derived_InsertStoreSproc.AddParameter(principalBaseIdParameter1) - Dim principalDerivedIdParameter1 As New StoreStoredProcedureParameter("PrincipalDerivedId", "bigint", 1, derived_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - derived_InsertStoreSproc.AddParameter(principalDerivedIdParameter1) - Dim enum1Parameter1 As New StoreStoredProcedureParameter("Enum1", "int", 2, derived_InsertStoreSproc, System.Data.ParameterDirection.Input) - derived_InsertStoreSproc.AddParameter(enum1Parameter1) - Dim enum2Parameter1 As New StoreStoredProcedureParameter("Enum2", "int", 3, derived_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - derived_InsertStoreSproc.AddParameter(enum2Parameter1) - Dim flagsEnum1Parameter1 As New StoreStoredProcedureParameter("FlagsEnum1", "int", 4, derived_InsertStoreSproc, System.Data.ParameterDirection.Input) - derived_InsertStoreSproc.AddParameter(flagsEnum1Parameter1) - Dim flagsEnum2Parameter1 As New StoreStoredProcedureParameter("FlagsEnum2", "int", 5, derived_InsertStoreSproc, System.Data.ParameterDirection.Input) - derived_InsertStoreSproc.AddParameter(flagsEnum2Parameter1) - Dim valueTypeListParameter1 As New StoreStoredProcedureParameter("ValueTypeList", "nvarchar(max)", 6, derived_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - derived_InsertStoreSproc.AddParameter(valueTypeListParameter1) - Dim valueTypeIListParameter1 As New StoreStoredProcedureParameter("ValueTypeIList", "nvarchar(max)", 7, derived_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - derived_InsertStoreSproc.AddParameter(valueTypeIListParameter1) - Dim valueTypeArrayParameter1 As New StoreStoredProcedureParameter("ValueTypeArray", "nvarchar(max)", 8, derived_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - derived_InsertStoreSproc.AddParameter(valueTypeArrayParameter1) - Dim valueTypeEnumerableParameter1 As New StoreStoredProcedureParameter("ValueTypeEnumerable", "nvarchar(max)", 9, derived_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - derived_InsertStoreSproc.AddParameter(valueTypeEnumerableParameter1) - Dim refTypeListParameter1 As New StoreStoredProcedureParameter("RefTypeList", "nvarchar(max)", 10, derived_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - derived_InsertStoreSproc.AddParameter(refTypeListParameter1) - Dim refTypeIListParameter1 As New StoreStoredProcedureParameter("RefTypeIList", "nvarchar(max)", 11, derived_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - derived_InsertStoreSproc.AddParameter(refTypeIListParameter1) - Dim refTypeArrayParameter1 As New StoreStoredProcedureParameter("RefTypeArray", "nvarchar(max)", 12, derived_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - derived_InsertStoreSproc.AddParameter(refTypeArrayParameter1) - Dim refTypeEnumerableParameter1 As New StoreStoredProcedureParameter("RefTypeEnumerable", "nvarchar(max)", 13, derived_InsertStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - derived_InsertStoreSproc.AddParameter(refTypeEnumerableParameter1) - Dim derivedIdFunctionColumn As New StoreStoredProcedureResultColumn("DerivedId", "bigint", 0, derived_InsertStoreSproc) - derived_InsertStoreSproc.AddResultColumn(derivedIdFunctionColumn) - derived_InsertStoreSproc.AddStoredProcedure(DirectCast(principalDerived.GetInsertStoredProcedure(), IRuntimeStoredProcedure)) - relationalModel.StoredProcedures.Add(("Derived_Insert", "TPC"), derived_InsertStoreSproc) - Dim derived_InsertISproc = DirectCast(principalDerived.GetInsertStoredProcedure(), IRuntimeStoredProcedure) - Dim derived_InsertSprocMapping As New StoredProcedureMapping(principalDerived, derived_InsertStoreSproc, DirectCast(principalDerived.GetInsertStoredProcedure(), IRuntimeStoredProcedure), principalDerivedTableMapping, False) - derived_InsertStoreSproc.AddTypeMapping(derived_InsertSprocMapping, False) - insertSprocMappings0.Add(derived_InsertSprocMapping) - principalDerivedTableMapping.InsertStoredProcedureMapping = derived_InsertSprocMapping - RelationalModel.CreateStoredProcedureParameterMapping(enum1Parameter1, derived_InsertISproc.FindParameter("Enum1"), principalDerived.FindProperty("Enum1"), derived_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(enum2Parameter1, derived_InsertISproc.FindParameter("Enum2"), principalDerived.FindProperty("Enum2"), derived_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(flagsEnum1Parameter1, derived_InsertISproc.FindParameter("FlagsEnum1"), principalDerived.FindProperty("FlagsEnum1"), derived_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(flagsEnum2Parameter1, derived_InsertISproc.FindParameter("FlagsEnum2"), principalDerived.FindProperty("FlagsEnum2"), derived_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(principalBaseIdParameter1, derived_InsertISproc.FindParameter("PrincipalBaseId"), principalDerived.FindProperty("PrincipalBaseId"), derived_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(principalDerivedIdParameter1, derived_InsertISproc.FindParameter("PrincipalDerivedId"), principalDerived.FindProperty("PrincipalDerivedId"), derived_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeArrayParameter1, derived_InsertISproc.FindParameter("RefTypeArray"), principalDerived.FindProperty("RefTypeArray"), derived_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeEnumerableParameter1, derived_InsertISproc.FindParameter("RefTypeEnumerable"), principalDerived.FindProperty("RefTypeEnumerable"), derived_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeIListParameter1, derived_InsertISproc.FindParameter("RefTypeIList"), principalDerived.FindProperty("RefTypeIList"), derived_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeListParameter1, derived_InsertISproc.FindParameter("RefTypeList"), principalDerived.FindProperty("RefTypeList"), derived_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeArrayParameter1, derived_InsertISproc.FindParameter("ValueTypeArray"), principalDerived.FindProperty("ValueTypeArray"), derived_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeEnumerableParameter1, derived_InsertISproc.FindParameter("ValueTypeEnumerable"), principalDerived.FindProperty("ValueTypeEnumerable"), derived_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeIListParameter1, derived_InsertISproc.FindParameter("ValueTypeIList"), principalDerived.FindProperty("ValueTypeIList"), derived_InsertSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeListParameter1, derived_InsertISproc.FindParameter("ValueTypeList"), principalDerived.FindProperty("ValueTypeList"), derived_InsertSprocMapping) - RelationalModel.CreateStoredProcedureResultColumnMapping(derivedIdFunctionColumn, derived_InsertISproc.FindResultColumn("DerivedId"), principalDerived.FindProperty("Id"), derived_InsertSprocMapping) - - Dim updateSprocMappings0 As New List(Of StoredProcedureMapping)() - principalDerived.SetRuntimeAnnotation("Relational:UpdateStoredProcedureMappings", updateSprocMappings0) - Dim derived_UpdateStoreSproc As New StoreStoredProcedure("Derived_Update", "Derived", relationalModel) - Dim principalBaseIdParameter2 As New StoreStoredProcedureParameter("PrincipalBaseId", "bigint", 0, derived_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - derived_UpdateStoreSproc.AddParameter(principalBaseIdParameter2) - Dim principalDerivedIdParameter2 As New StoreStoredProcedureParameter("PrincipalDerivedId", "bigint", 1, derived_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - derived_UpdateStoreSproc.AddParameter(principalDerivedIdParameter2) - Dim enum1Parameter2 As New StoreStoredProcedureParameter("Enum1", "int", 2, derived_UpdateStoreSproc, System.Data.ParameterDirection.Input) - derived_UpdateStoreSproc.AddParameter(enum1Parameter2) - Dim enum2Parameter2 As New StoreStoredProcedureParameter("Enum2", "int", 3, derived_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - derived_UpdateStoreSproc.AddParameter(enum2Parameter2) - Dim flagsEnum1Parameter2 As New StoreStoredProcedureParameter("FlagsEnum1", "int", 4, derived_UpdateStoreSproc, System.Data.ParameterDirection.Input) - derived_UpdateStoreSproc.AddParameter(flagsEnum1Parameter2) - Dim flagsEnum2Parameter2 As New StoreStoredProcedureParameter("FlagsEnum2", "int", 5, derived_UpdateStoreSproc, System.Data.ParameterDirection.Input) - derived_UpdateStoreSproc.AddParameter(flagsEnum2Parameter2) - Dim valueTypeListParameter2 As New StoreStoredProcedureParameter("ValueTypeList", "nvarchar(max)", 6, derived_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - derived_UpdateStoreSproc.AddParameter(valueTypeListParameter2) - Dim valueTypeIListParameter2 As New StoreStoredProcedureParameter("ValueTypeIList", "nvarchar(max)", 7, derived_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - derived_UpdateStoreSproc.AddParameter(valueTypeIListParameter2) - Dim valueTypeArrayParameter2 As New StoreStoredProcedureParameter("ValueTypeArray", "nvarchar(max)", 8, derived_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - derived_UpdateStoreSproc.AddParameter(valueTypeArrayParameter2) - Dim valueTypeEnumerableParameter2 As New StoreStoredProcedureParameter("ValueTypeEnumerable", "nvarchar(max)", 9, derived_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - derived_UpdateStoreSproc.AddParameter(valueTypeEnumerableParameter2) - Dim refTypeListParameter2 As New StoreStoredProcedureParameter("RefTypeList", "nvarchar(max)", 10, derived_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - derived_UpdateStoreSproc.AddParameter(refTypeListParameter2) - Dim refTypeIListParameter2 As New StoreStoredProcedureParameter("RefTypeIList", "nvarchar(max)", 11, derived_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - derived_UpdateStoreSproc.AddParameter(refTypeIListParameter2) - Dim refTypeArrayParameter2 As New StoreStoredProcedureParameter("RefTypeArray", "nvarchar(max)", 12, derived_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - derived_UpdateStoreSproc.AddParameter(refTypeArrayParameter2) - Dim refTypeEnumerableParameter2 As New StoreStoredProcedureParameter("RefTypeEnumerable", "nvarchar(max)", 13, derived_UpdateStoreSproc, System.Data.ParameterDirection.Input) With { - .IsNullable = True - } - derived_UpdateStoreSproc.AddParameter(refTypeEnumerableParameter2) - Dim id_OriginalParameter2 As New StoreStoredProcedureParameter("Id_Original", "bigint", 14, derived_UpdateStoreSproc, System.Data.ParameterDirection.Input) - derived_UpdateStoreSproc.AddParameter(id_OriginalParameter2) - derived_UpdateStoreSproc.AddStoredProcedure(DirectCast(principalDerived.GetUpdateStoredProcedure(), IRuntimeStoredProcedure)) - relationalModel.StoredProcedures.Add(("Derived_Update", "Derived"), derived_UpdateStoreSproc) - Dim derived_UpdateUSproc = DirectCast(principalDerived.GetUpdateStoredProcedure(), IRuntimeStoredProcedure) - Dim derived_UpdateSprocMapping As New StoredProcedureMapping(principalDerived, derived_UpdateStoreSproc, DirectCast(principalDerived.GetUpdateStoredProcedure(), IRuntimeStoredProcedure), principalDerivedTableMapping, False) - derived_UpdateStoreSproc.AddTypeMapping(derived_UpdateSprocMapping, False) - updateSprocMappings0.Add(derived_UpdateSprocMapping) - principalDerivedTableMapping.UpdateStoredProcedureMapping = derived_UpdateSprocMapping - RelationalModel.CreateStoredProcedureParameterMapping(id_OriginalParameter2, derived_UpdateUSproc.FindParameter("Id_Original"), principalDerived.FindProperty("Id"), derived_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(enum1Parameter2, derived_UpdateUSproc.FindParameter("Enum1"), principalDerived.FindProperty("Enum1"), derived_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(enum2Parameter2, derived_UpdateUSproc.FindParameter("Enum2"), principalDerived.FindProperty("Enum2"), derived_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(flagsEnum1Parameter2, derived_UpdateUSproc.FindParameter("FlagsEnum1"), principalDerived.FindProperty("FlagsEnum1"), derived_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(flagsEnum2Parameter2, derived_UpdateUSproc.FindParameter("FlagsEnum2"), principalDerived.FindProperty("FlagsEnum2"), derived_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(principalBaseIdParameter2, derived_UpdateUSproc.FindParameter("PrincipalBaseId"), principalDerived.FindProperty("PrincipalBaseId"), derived_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(principalDerivedIdParameter2, derived_UpdateUSproc.FindParameter("PrincipalDerivedId"), principalDerived.FindProperty("PrincipalDerivedId"), derived_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeArrayParameter2, derived_UpdateUSproc.FindParameter("RefTypeArray"), principalDerived.FindProperty("RefTypeArray"), derived_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeEnumerableParameter2, derived_UpdateUSproc.FindParameter("RefTypeEnumerable"), principalDerived.FindProperty("RefTypeEnumerable"), derived_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeIListParameter2, derived_UpdateUSproc.FindParameter("RefTypeIList"), principalDerived.FindProperty("RefTypeIList"), derived_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(refTypeListParameter2, derived_UpdateUSproc.FindParameter("RefTypeList"), principalDerived.FindProperty("RefTypeList"), derived_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeArrayParameter2, derived_UpdateUSproc.FindParameter("ValueTypeArray"), principalDerived.FindProperty("ValueTypeArray"), derived_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeEnumerableParameter2, derived_UpdateUSproc.FindParameter("ValueTypeEnumerable"), principalDerived.FindProperty("ValueTypeEnumerable"), derived_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeIListParameter2, derived_UpdateUSproc.FindParameter("ValueTypeIList"), principalDerived.FindProperty("ValueTypeIList"), derived_UpdateSprocMapping) - RelationalModel.CreateStoredProcedureParameterMapping(valueTypeListParameter2, derived_UpdateUSproc.FindParameter("ValueTypeList"), principalDerived.FindProperty("ValueTypeList"), derived_UpdateSprocMapping) - Dim fK_DependentBasebyte_PrincipalDerived_PrincipalId As New ForeignKeyConstraint( - "FK_DependentBase_PrincipalDerived_PrincipalId", dependentBasebyteTable, principalDerivedTable, - {principalIdColumn}, - principalDerivedTable.FindUniqueConstraint("PK_PrincipalDerived"), ReferentialAction.NoAction) - Dim fK_DependentBasebyte_PrincipalDerived_PrincipalIdFk = RelationalModel.GetForeignKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", - {"PrincipalId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", - {"Id"}) - fK_DependentBasebyte_PrincipalDerived_PrincipalId.MappedForeignKeys.Add(fK_DependentBasebyte_PrincipalDerived_PrincipalIdFk) - RelationalModel.GetOrCreateForeignKeyConstraints(fK_DependentBasebyte_PrincipalDerived_PrincipalIdFk).Add(fK_DependentBasebyte_PrincipalDerived_PrincipalId) - dependentBasebyteTable.ForeignKeyConstraints.Add(fK_DependentBasebyte_PrincipalDerived_PrincipalId) - principalDerivedTable.ReferencingForeignKeyConstraints.Add(fK_DependentBasebyte_PrincipalDerived_PrincipalId) - Dim fK_PrincipalBase_PrincipalDerived_PrincipalDerivedDependentBasebyteId As New ForeignKeyConstraint( - "FK_PrincipalBase_PrincipalDerived_PrincipalDerived>Id", principalBaseTable, principalDerivedTable, - {principalDerivedDependentBasebyteIdColumn}, - principalDerivedTable.FindUniqueConstraint("PK_PrincipalDerived"), ReferentialAction.NoAction) - Dim fK_PrincipalBase_PrincipalDerived_PrincipalDerivedDependentBasebyteIdFk = RelationalModel.GetForeignKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"PrincipalDerivedId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", - {"Id"}) - fK_PrincipalBase_PrincipalDerived_PrincipalDerivedDependentBasebyteId.MappedForeignKeys.Add(fK_PrincipalBase_PrincipalDerived_PrincipalDerivedDependentBasebyteIdFk) - RelationalModel.GetOrCreateForeignKeyConstraints(fK_PrincipalBase_PrincipalDerived_PrincipalDerivedDependentBasebyteIdFk).Add(fK_PrincipalBase_PrincipalDerived_PrincipalDerivedDependentBasebyteId) - principalBaseTable.ForeignKeyConstraints.Add(fK_PrincipalBase_PrincipalDerived_PrincipalDerivedDependentBasebyteId) - principalDerivedTable.ReferencingForeignKeyConstraints.Add(fK_PrincipalBase_PrincipalDerived_PrincipalDerivedDependentBasebyteId) - Dim fK_PrincipalDerived_PrincipalDerived_PrincipalDerivedDependentBasebyteId As New ForeignKeyConstraint( - "FK_PrincipalDerived_PrincipalDerived_PrincipalDerived>Id", principalDerivedTable, principalDerivedTable, - {principalDerivedDependentBasebyteIdColumn0}, - principalDerivedTable.FindUniqueConstraint("PK_PrincipalDerived"), ReferentialAction.NoAction) - Dim fK_PrincipalDerived_PrincipalDerived_PrincipalDerivedDependentBasebyteIdFk = RelationalModel.GetForeignKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"PrincipalDerivedId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", - {"Id"}) - fK_PrincipalDerived_PrincipalDerived_PrincipalDerivedDependentBasebyteId.MappedForeignKeys.Add(fK_PrincipalDerived_PrincipalDerived_PrincipalDerivedDependentBasebyteIdFk) - RelationalModel.GetOrCreateForeignKeyConstraints(fK_PrincipalDerived_PrincipalDerived_PrincipalDerivedDependentBasebyteIdFk).Add(fK_PrincipalDerived_PrincipalDerived_PrincipalDerivedDependentBasebyteId) - principalDerivedTable.ForeignKeyConstraints.Add(fK_PrincipalDerived_PrincipalDerived_PrincipalDerivedDependentBasebyteId) - principalDerivedTable.ReferencingForeignKeyConstraints.Add(fK_PrincipalDerived_PrincipalDerived_PrincipalDerivedDependentBasebyteId) - Return relationalModel.MakeReadOnly() - End Function - End Class -End Namespace -]]>.Value - - Dim e1 = - -Imports System -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class DependentBaseEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?)), - baseEntityType) - - Dim id = entityType.AddProperty( - "Id", - GetType(Byte?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?)).GetProperty("Id", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?)).GetField("_Id", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - afterSaveBehavior:=PropertySaveBehavior.Throw) - id.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte)))), - New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte)))), - New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - id.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim principalId = entityType.AddProperty( - "PrincipalId", - GetType(Long?), - nullable:=True) - principalId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - principalId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim key = entityType.AddKey( - {id}) - entityType.SetPrimaryKey(key) - - Dim index = entityType.AddIndex( - {principalId}, - unique:=True) - - Return entityType - End Function - - Public Shared Function CreateForeignKey1(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("PrincipalId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("Id")}), - principalEntityType, - deleteBehavior:=DeleteBehavior.ClientCascade, - unique:=True, - requiredDependent:=True) - - Dim principal = declaringEntityType.AddNavigation("Principal", - runtimeForeignKey, - onDependent:=True, - GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?)).GetProperty("Principal", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?)).GetField("_Principal", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - - Dim dependent = principalEntityType.AddNavigation("Dependent", - runtimeForeignKey, - onDependent:=False, - GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))).GetProperty("Dependent", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))).GetField("_Dependent", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - - Return runtimeForeignKey - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", "TPC") - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "DependentBase") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim e2 = - -Imports System -Imports System.Collections.Generic -Imports System.Net -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class PrincipalBaseEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase), - baseEntityType, - discriminatorValue:="PrincipalBase") - - Dim id = entityType.AddProperty( - "Id", - GetType(Long?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Id", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_Id", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueGenerated:=ValueGenerated.OnAdd, - afterSaveBehavior:=PropertySaveBehavior.Throw) - id.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim [overrides] As New StoreObjectDictionary(Of RuntimeRelationalPropertyOverrides)() - Dim idDerived_Insert As New RuntimeRelationalPropertyOverrides( - id, - StoreObjectIdentifier.InsertStoredProcedure("Derived_Insert", "TPC"), - True, - "DerivedId") - [overrides].GetType().GetMethod("Add").Invoke([overrides], {StoreObjectIdentifier.InsertStoredProcedure("Derived_Insert", "TPC"), idDerived_Insert}) - Dim idPrincipalBaseView As New RuntimeRelationalPropertyOverrides( - id, - StoreObjectIdentifier.View("PrincipalBaseView", "TPC"), - False, - Nothing) - idPrincipalBaseView.AddAnnotation("foo", "bar2") - [overrides].GetType().GetMethod("Add").Invoke([overrides], {StoreObjectIdentifier.View("PrincipalBaseView", "TPC"), idPrincipalBaseView}) - id.AddAnnotation("Relational:RelationalOverrides", [overrides]) - - id.AddAnnotation("Relational:DefaultValueSql", "NEXT VALUE FOR [TPC].[PrincipalBaseSequence]") - id.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.Sequence) - - Dim enum1 = entityType.AddProperty( - "Enum1", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Enum1", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_Enum1", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enum1.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum))), - Type.Missing}), CoreTypeMapping) - enum1.SetSentinelFromProviderValue(0) - enum1.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim enum2 = entityType.AddProperty( - "Enum2", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.AnEnum?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Enum2", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_Enum2", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum2.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)))), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum))), - Type.Missing}), CoreTypeMapping) - enum2.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim flagsEnum1 = entityType.AddProperty( - "FlagsEnum1", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("FlagsEnum1", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_FlagsEnum1", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - flagsEnum1.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum))), - Type.Missing}), CoreTypeMapping) - flagsEnum1.SetSentinelFromProviderValue(0) - flagsEnum1.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim flagsEnum2 = entityType.AddProperty( - "FlagsEnum2", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("FlagsEnum2", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_FlagsEnum2", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - flagsEnum2.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum))), - Type.Missing}), CoreTypeMapping) - flagsEnum2.SetSentinelFromProviderValue(0) - flagsEnum2.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim principalBaseId = entityType.AddProperty( - "PrincipalBaseId", - GetType(Long?), - nullable:=True) - principalBaseId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - principalBaseId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim principalDerivedId = entityType.AddProperty( - "PrincipalDerivedId", - GetType(Long?), - nullable:=True) - principalDerivedId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerLongTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - principalDerivedId.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeArray = entityType.AddProperty( - "RefTypeArray", - GetType(IPAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("RefTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_RefTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeEnumerable = entityType.AddProperty( - "RefTypeEnumerable", - GetType(IEnumerable(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("RefTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_RefTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeEnumerable.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeIList = entityType.AddProperty( - "RefTypeIList", - GetType(IList(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("RefTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_RefTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeIList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim refTypeList = entityType.AddProperty( - "RefTypeList", - GetType(List(Of IPAddress)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("RefTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_RefTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(45)", - size:=45, - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - StoreTypePostfix.None}), CoreTypeMapping) - refTypeList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeArray = entityType.AddProperty( - "ValueTypeArray", - GetType(Date()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("ValueTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ValueTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Date)(New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - JsonDateTimeReaderWriter.Instance)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerDateTimeTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - JsonDateTimeReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeArray.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeEnumerable = entityType.AddProperty( - "ValueTypeEnumerable", - GetType(IEnumerable(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("ValueTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ValueTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeEnumerable.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeIList = entityType.AddProperty( - "ValueTypeIList", - GetType(IList(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("ValueTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ValueTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeIList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim valueTypeList = entityType.AddProperty( - "ValueTypeList", - GetType(List(Of Short)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("ValueTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ValueTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nvarchar(max)", - unicode:=True, - dbType:=System.Data.DbType.String), - Type.Missing, - New CollectionToJsonStringConverter(Of Short)(New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerShortTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance), - StoreTypePostfix.None}), CoreTypeMapping) - valueTypeList.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim key = entityType.AddKey( - {id}) - entityType.SetPrimaryKey(key) - - Dim index = entityType.AddIndex( - {principalDerivedId}) - - Dim principalIndex = entityType.AddIndex( - {principalBaseId}, - name:="PrincipalIndex", - unique:=True) - principalIndex.AddAnnotation("Relational:Name", "PIX") - - Return entityType - End Function - - Public Shared Function CreateForeignKey1(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("PrincipalBaseId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("Id")}), - principalEntityType) - - Dim deriveds = principalEntityType.AddNavigation("Deriveds", - runtimeForeignKey, - onDependent:=False, - GetType(ICollection(Of VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Deriveds", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_Deriveds", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - - Return runtimeForeignKey - End Function - - Public Shared Function CreateForeignKey2(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("PrincipalDerivedId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("Id")}), - principalEntityType) - - Dim principals = principalEntityType.AddNavigation("Principals", - runtimeForeignKey, - onDependent:=False, - GetType(ICollection(Of VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))).GetProperty("Principals", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))).GetField("_Principals", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - - Return runtimeForeignKey - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - Dim insertSproc As New RuntimeStoredProcedure( - entityType, - "PrincipalBase_Insert", - "TPC", - False) - - Dim principalBaseId = insertSproc.AddParameter( - "PrincipalBaseId", System.Data.ParameterDirection.Input, False, "PrincipalBaseId", False) - Dim principalDerivedId = insertSproc.AddParameter( - "PrincipalDerivedId", System.Data.ParameterDirection.Input, False, "PrincipalDerivedId", False) - Dim enum1 = insertSproc.AddParameter( - "Enum1", System.Data.ParameterDirection.Input, False, "Enum1", False) - Dim enum2 = insertSproc.AddParameter( - "Enum2", System.Data.ParameterDirection.Input, False, "Enum2", False) - Dim flagsEnum1 = insertSproc.AddParameter( - "FlagsEnum1", System.Data.ParameterDirection.Input, False, "FlagsEnum1", False) - Dim flagsEnum2 = insertSproc.AddParameter( - "FlagsEnum2", System.Data.ParameterDirection.Input, False, "FlagsEnum2", False) - Dim valueTypeList = insertSproc.AddParameter( - "ValueTypeList", System.Data.ParameterDirection.Input, False, "ValueTypeList", False) - Dim valueTypeIList = insertSproc.AddParameter( - "ValueTypeIList", System.Data.ParameterDirection.Input, False, "ValueTypeIList", False) - Dim valueTypeArray = insertSproc.AddParameter( - "ValueTypeArray", System.Data.ParameterDirection.Input, False, "ValueTypeArray", False) - Dim valueTypeEnumerable = insertSproc.AddParameter( - "ValueTypeEnumerable", System.Data.ParameterDirection.Input, False, "ValueTypeEnumerable", False) - Dim refTypeList = insertSproc.AddParameter( - "RefTypeList", System.Data.ParameterDirection.Input, False, "RefTypeList", False) - Dim refTypeIList = insertSproc.AddParameter( - "RefTypeIList", System.Data.ParameterDirection.Input, False, "RefTypeIList", False) - Dim refTypeArray = insertSproc.AddParameter( - "RefTypeArray", System.Data.ParameterDirection.Input, False, "RefTypeArray", False) - Dim refTypeEnumerable = insertSproc.AddParameter( - "RefTypeEnumerable", System.Data.ParameterDirection.Input, False, "RefTypeEnumerable", False) - Dim id = insertSproc.AddParameter( - "BaseId", System.Data.ParameterDirection.Output, False, "Id", False) - id.AddAnnotation("foo", "bar") - insertSproc.AddAnnotation("foo", "bar1") - entityType.AddAnnotation("Relational:InsertStoredProcedure", insertSproc) - - Dim deleteSproc As New RuntimeStoredProcedure( - entityType, - "PrincipalBase_Delete", - "TPC", - True) - - Dim id0 = deleteSproc.AddParameter( - "Id_Original", System.Data.ParameterDirection.Input, False, "Id", True) - entityType.AddAnnotation("Relational:DeleteStoredProcedure", deleteSproc) - - Dim updateSproc As New RuntimeStoredProcedure( - entityType, - "PrincipalBase_Update", - "TPC", - False) - - Dim principalBaseId0 = updateSproc.AddParameter( - "PrincipalBaseId", System.Data.ParameterDirection.Input, False, "PrincipalBaseId", False) - Dim principalDerivedId0 = updateSproc.AddParameter( - "PrincipalDerivedId", System.Data.ParameterDirection.Input, False, "PrincipalDerivedId", False) - Dim enum10 = updateSproc.AddParameter( - "Enum1", System.Data.ParameterDirection.Input, False, "Enum1", False) - Dim enum20 = updateSproc.AddParameter( - "Enum2", System.Data.ParameterDirection.Input, False, "Enum2", False) - Dim flagsEnum10 = updateSproc.AddParameter( - "FlagsEnum1", System.Data.ParameterDirection.Input, False, "FlagsEnum1", False) - Dim flagsEnum20 = updateSproc.AddParameter( - "FlagsEnum2", System.Data.ParameterDirection.Input, False, "FlagsEnum2", False) - Dim valueTypeList0 = updateSproc.AddParameter( - "ValueTypeList", System.Data.ParameterDirection.Input, False, "ValueTypeList", False) - Dim valueTypeIList0 = updateSproc.AddParameter( - "ValueTypeIList", System.Data.ParameterDirection.Input, False, "ValueTypeIList", False) - Dim valueTypeArray0 = updateSproc.AddParameter( - "ValueTypeArray", System.Data.ParameterDirection.Input, False, "ValueTypeArray", False) - Dim valueTypeEnumerable0 = updateSproc.AddParameter( - "ValueTypeEnumerable", System.Data.ParameterDirection.Input, False, "ValueTypeEnumerable", False) - Dim refTypeList0 = updateSproc.AddParameter( - "RefTypeList", System.Data.ParameterDirection.Input, False, "RefTypeList", False) - Dim refTypeIList0 = updateSproc.AddParameter( - "RefTypeIList", System.Data.ParameterDirection.Input, False, "RefTypeIList", False) - Dim refTypeArray0 = updateSproc.AddParameter( - "RefTypeArray", System.Data.ParameterDirection.Input, False, "RefTypeArray", False) - Dim refTypeEnumerable0 = updateSproc.AddParameter( - "RefTypeEnumerable", System.Data.ParameterDirection.Input, False, "RefTypeEnumerable", False) - Dim id1 = updateSproc.AddParameter( - "Id_Original", System.Data.ParameterDirection.Input, False, "Id", True) - entityType.AddAnnotation("Relational:UpdateStoredProcedure", updateSproc) - - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:MappingStrategy", "TPC") - entityType.AddAnnotation("Relational:Schema", "TPC") - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "PrincipalBase") - entityType.AddAnnotation("Relational:ViewDefinitionSql", Nothing) - entityType.AddAnnotation("Relational:ViewName", "PrincipalBaseView") - entityType.AddAnnotation("Relational:ViewSchema", "TPC") - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim e3 = - -Imports System -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class PrincipalDerivedEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))), - baseEntityType, - discriminatorValue:="PrincipalDerived>") - - Return entityType - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - Dim insertSproc As New RuntimeStoredProcedure( - entityType, - "Derived_Insert", - "TPC", - False) - - Dim principalBaseId = insertSproc.AddParameter( - "PrincipalBaseId", System.Data.ParameterDirection.Input, False, "PrincipalBaseId", False) - Dim principalDerivedId = insertSproc.AddParameter( - "PrincipalDerivedId", System.Data.ParameterDirection.Input, False, "PrincipalDerivedId", False) - Dim enum1 = insertSproc.AddParameter( - "Enum1", System.Data.ParameterDirection.Input, False, "Enum1", False) - Dim enum2 = insertSproc.AddParameter( - "Enum2", System.Data.ParameterDirection.Input, False, "Enum2", False) - Dim flagsEnum1 = insertSproc.AddParameter( - "FlagsEnum1", System.Data.ParameterDirection.Input, False, "FlagsEnum1", False) - Dim flagsEnum2 = insertSproc.AddParameter( - "FlagsEnum2", System.Data.ParameterDirection.Input, False, "FlagsEnum2", False) - Dim valueTypeList = insertSproc.AddParameter( - "ValueTypeList", System.Data.ParameterDirection.Input, False, "ValueTypeList", False) - Dim valueTypeIList = insertSproc.AddParameter( - "ValueTypeIList", System.Data.ParameterDirection.Input, False, "ValueTypeIList", False) - Dim valueTypeArray = insertSproc.AddParameter( - "ValueTypeArray", System.Data.ParameterDirection.Input, False, "ValueTypeArray", False) - Dim valueTypeEnumerable = insertSproc.AddParameter( - "ValueTypeEnumerable", System.Data.ParameterDirection.Input, False, "ValueTypeEnumerable", False) - Dim refTypeList = insertSproc.AddParameter( - "RefTypeList", System.Data.ParameterDirection.Input, False, "RefTypeList", False) - Dim refTypeIList = insertSproc.AddParameter( - "RefTypeIList", System.Data.ParameterDirection.Input, False, "RefTypeIList", False) - Dim refTypeArray = insertSproc.AddParameter( - "RefTypeArray", System.Data.ParameterDirection.Input, False, "RefTypeArray", False) - Dim refTypeEnumerable = insertSproc.AddParameter( - "RefTypeEnumerable", System.Data.ParameterDirection.Input, False, "RefTypeEnumerable", False) - Dim derivedId = insertSproc.AddResultColumn( - "DerivedId", False, "Id") - derivedId.AddAnnotation("foo", "bar3") - entityType.AddAnnotation("Relational:InsertStoredProcedure", insertSproc) - - Dim deleteSproc As New RuntimeStoredProcedure( - entityType, - "Derived_Delete", - "TPC", - False) - - Dim id = deleteSproc.AddParameter( - "Id_Original", System.Data.ParameterDirection.Input, False, "Id", True) - entityType.AddAnnotation("Relational:DeleteStoredProcedure", deleteSproc) - - Dim updateSproc As New RuntimeStoredProcedure( - entityType, - "Derived_Update", - "Derived", - False) - - Dim principalBaseId0 = updateSproc.AddParameter( - "PrincipalBaseId", System.Data.ParameterDirection.Input, False, "PrincipalBaseId", False) - Dim principalDerivedId0 = updateSproc.AddParameter( - "PrincipalDerivedId", System.Data.ParameterDirection.Input, False, "PrincipalDerivedId", False) - Dim enum10 = updateSproc.AddParameter( - "Enum1", System.Data.ParameterDirection.Input, False, "Enum1", False) - Dim enum20 = updateSproc.AddParameter( - "Enum2", System.Data.ParameterDirection.Input, False, "Enum2", False) - Dim flagsEnum10 = updateSproc.AddParameter( - "FlagsEnum1", System.Data.ParameterDirection.Input, False, "FlagsEnum1", False) - Dim flagsEnum20 = updateSproc.AddParameter( - "FlagsEnum2", System.Data.ParameterDirection.Input, False, "FlagsEnum2", False) - Dim valueTypeList0 = updateSproc.AddParameter( - "ValueTypeList", System.Data.ParameterDirection.Input, False, "ValueTypeList", False) - Dim valueTypeIList0 = updateSproc.AddParameter( - "ValueTypeIList", System.Data.ParameterDirection.Input, False, "ValueTypeIList", False) - Dim valueTypeArray0 = updateSproc.AddParameter( - "ValueTypeArray", System.Data.ParameterDirection.Input, False, "ValueTypeArray", False) - Dim valueTypeEnumerable0 = updateSproc.AddParameter( - "ValueTypeEnumerable", System.Data.ParameterDirection.Input, False, "ValueTypeEnumerable", False) - Dim refTypeList0 = updateSproc.AddParameter( - "RefTypeList", System.Data.ParameterDirection.Input, False, "RefTypeList", False) - Dim refTypeIList0 = updateSproc.AddParameter( - "RefTypeIList", System.Data.ParameterDirection.Input, False, "RefTypeIList", False) - Dim refTypeArray0 = updateSproc.AddParameter( - "RefTypeArray", System.Data.ParameterDirection.Input, False, "RefTypeArray", False) - Dim refTypeEnumerable0 = updateSproc.AddParameter( - "RefTypeEnumerable", System.Data.ParameterDirection.Input, False, "RefTypeEnumerable", False) - Dim id0 = updateSproc.AddParameter( - "Id_Original", System.Data.ParameterDirection.Input, False, "Id", True) - entityType.AddAnnotation("Relational:UpdateStoredProcedure", updateSproc) - - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", "TPC") - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "PrincipalDerived") - entityType.AddAnnotation("Relational:ViewDefinitionSql", Nothing) - entityType.AddAnnotation("Relational:ViewName", "PrincipalDerivedView") - entityType.AddAnnotation("Relational:ViewSchema", "TPC") - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Test( - New TpcContext(), - CreateCompiledModelCodeGenerationOptions(), - Sub(code) - Assert.Collection( - code, - Sub(c) AssertFileContents("TpcContextModel.vb", rm1, c), - Sub(c) AssertFileContents("TpcContextModelBuilder.vb", rm2, c), - Sub(c) AssertFileContents("DependentBaseEntityType.vb", e1, c), - Sub(c) AssertFileContents("PrincipalBaseEntityType.vb", e2, c), - Sub(c) AssertFileContents("PrincipalDerivedEntityType.vb", e3, c)) - End Sub, - Sub(Model) - Assert.Equal("TPC", Model.GetDefaultSchema()) - Assert.Null(Model(SqlServerAnnotationNames.MaxDatabaseSize)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() Model.GetDatabaseMaxSize()).Message) - Assert.Null(Model(SqlServerAnnotationNames.PerformanceLevelSql)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() Model.GetPerformanceLevelSql()).Message) - Assert.Null(Model(SqlServerAnnotationNames.ServiceTierSql)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() Model.GetServiceTierSql()).Message) - - Dim PrincipalBase = Model.FindEntityType(GetType(PrincipalBase)) - Dim id = PrincipalBase.FindProperty("Id") - - Assert.Equal("Id", id.GetColumnName()) - Assert.Equal("PrincipalBase", PrincipalBase.GetTableName()) - Assert.Equal("TPC", PrincipalBase.GetSchema()) - Assert.Equal("Id", id.GetColumnName(StoreObjectIdentifier.Create(PrincipalBase, StoreObjectType.Table).Value)) - Assert.Null(id.FindOverrides(StoreObjectIdentifier.Create(PrincipalBase, StoreObjectType.Table).Value)) - - Assert.Equal("PrincipalBaseView", PrincipalBase.GetViewName()) - Assert.Equal("TPC", PrincipalBase.GetViewSchema()) - Assert.Equal("Id", id.GetColumnName(StoreObjectIdentifier.Create(PrincipalBase, StoreObjectType.View).Value)) - Assert.Equal( - "bar2", - id.FindOverrides(StoreObjectIdentifier.Create(PrincipalBase, StoreObjectType.View).Value)("foo")) - - Dim principalBaseId = PrincipalBase.FindProperty("PrincipalBaseId") - - Dim alternateIndex = PrincipalBase.GetIndexes().Last() - Assert.Same(principalBaseId, alternateIndex.Properties.Single()) - Assert.True(alternateIndex.IsUnique) - Assert.Equal("PrincipalIndex", alternateIndex.Name) - Assert.Equal("PIX", alternateIndex.GetDatabaseName()) - Assert.Null(alternateIndex(RelationalAnnotationNames.Filter)) - Assert.Null(alternateIndex.GetFilter()) - Assert.Null(alternateIndex(SqlServerAnnotationNames.Clustered)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() alternateIndex.IsClustered()).Message) - Assert.Null(alternateIndex(SqlServerAnnotationNames.CreatedOnline)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() alternateIndex.IsCreatedOnline()).Message) - Assert.Null(alternateIndex(SqlServerAnnotationNames.FillFactor)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() alternateIndex.GetFillFactor()).Message) - Assert.Null(alternateIndex(SqlServerAnnotationNames.Include)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() alternateIndex.GetIncludeProperties()).Message) - Assert.Null(alternateIndex(SqlServerAnnotationNames.SortInTempDb)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() alternateIndex.GetSortInTempDb()).Message) - Assert.Null(alternateIndex(SqlServerAnnotationNames.DataCompression)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() alternateIndex.GetDataCompression()).Message) - - Assert.Equal({alternateIndex}, principalBaseId.GetContainingIndexes()) - - Dim insertSproc = PrincipalBase.GetInsertStoredProcedure() - Assert.Equal("PrincipalBase_Insert", insertSproc.Name) - Assert.Equal("TPC", insertSproc.Schema) - Assert.Equal( - {"PrincipalBaseId", - "PrincipalDerivedId", - "Enum1", - "Enum2", - "FlagsEnum1", - "FlagsEnum2", - "ValueTypeList", - "ValueTypeIList", - "ValueTypeArray", - "ValueTypeEnumerable", - "RefTypeList", - "RefTypeIList", - "RefTypeArray", - "RefTypeEnumerable", - "Id"}, - insertSproc.Parameters.Select(Function(p) p.PropertyName)) - Assert.Empty(insertSproc.ResultColumns) - Assert.False(insertSproc.IsRowsAffectedReturned) - Assert.Equal("bar1", insertSproc("foo")) - Assert.Same(PrincipalBase, insertSproc.EntityType) - Assert.Equal("BaseId", insertSproc.Parameters.Last().Name) - Assert.Equal("bar", insertSproc.Parameters.Last()("foo")) - Assert.Null(id.FindOverrides(StoreObjectIdentifier.Create(PrincipalBase, StoreObjectType.InsertStoredProcedure).Value)) - - Dim updateSproc = PrincipalBase.GetUpdateStoredProcedure() - Assert.Equal("PrincipalBase_Update", updateSproc.Name) - Assert.Equal("TPC", updateSproc.Schema) - Assert.Equal( - {"PrincipalBaseId", - "PrincipalDerivedId", - "Enum1", - "Enum2", - "FlagsEnum1", - "FlagsEnum2", - "ValueTypeList", - "ValueTypeIList", - "ValueTypeArray", - "ValueTypeEnumerable", - "RefTypeList", - "RefTypeIList", - "RefTypeArray", - "RefTypeEnumerable", - "Id"}, - updateSproc.Parameters.Select(Function(p) p.PropertyName)) - Assert.Empty(updateSproc.ResultColumns) - Assert.False(updateSproc.IsRowsAffectedReturned) - Assert.Empty(updateSproc.GetAnnotations()) - Assert.Same(PrincipalBase, updateSproc.EntityType) - Assert.Equal("Id_Original", updateSproc.Parameters.Last().Name) - Assert.Null(id.FindOverrides(StoreObjectIdentifier.Create(PrincipalBase, StoreObjectType.UpdateStoredProcedure).Value)) - - Dim deleteSproc = PrincipalBase.GetDeleteStoredProcedure() - Assert.Equal("PrincipalBase_Delete", deleteSproc.Name) - Assert.Equal("TPC", deleteSproc.Schema) - Assert.Equal({"Id_Original"}, deleteSproc.Parameters.Select(Function(p) p.Name)) - Assert.Empty(deleteSproc.ResultColumns) - Assert.True(deleteSproc.IsRowsAffectedReturned) - Assert.Same(PrincipalBase, deleteSproc.EntityType) - Assert.Equal("Id_Original", deleteSproc.Parameters.Last().Name) - Assert.Null(id.FindOverrides(StoreObjectIdentifier.Create(PrincipalBase, StoreObjectType.DeleteStoredProcedure).Value)) - - Assert.Equal("PrincipalBase", PrincipalBase.GetDiscriminatorValue()) - Assert.Null(PrincipalBase.FindDiscriminatorProperty()) - Assert.Equal("TPC", PrincipalBase.GetMappingStrategy()) - - Dim selfRefNavigation = PrincipalBase.GetDeclaredNavigations().Last() - Assert.Equal("Deriveds", selfRefNavigation.Name) - Assert.True(selfRefNavigation.IsCollection) - Assert.False(selfRefNavigation.IsOnDependent) - Assert.Equal(PrincipalBase, selfRefNavigation.TargetEntityType) - Assert.Null(selfRefNavigation.Inverse) - - Dim PrincipalDerived = Model.FindEntityType(GetType(PrincipalDerived(Of DependentBase(Of Byte?)))) - Assert.Equal(PrincipalBase, PrincipalDerived.BaseType) - - Assert.Equal("PrincipalDerived", PrincipalDerived.GetTableName()) - Assert.Equal("TPC", PrincipalDerived.GetSchema()) - Assert.Equal("PrincipalDerivedView", PrincipalDerived.GetViewName()) - Assert.Equal("TPC", PrincipalBase.GetViewSchema()) - - insertSproc = PrincipalDerived.GetInsertStoredProcedure() - Assert.Equal("Derived_Insert", insertSproc.Name) - Assert.Equal("TPC", insertSproc.Schema) - Assert.Equal( - {"PrincipalBaseId", - "PrincipalDerivedId", - "Enum1", - "Enum2", - "FlagsEnum1", - "FlagsEnum2", - "ValueTypeList", - "ValueTypeIList", - "ValueTypeArray", - "ValueTypeEnumerable", - "RefTypeList", - "RefTypeIList", - "RefTypeArray", - "RefTypeEnumerable"}, - insertSproc.Parameters.Select(Function(p) p.PropertyName)) - Assert.Equal({"Id"}, insertSproc.ResultColumns.Select(Function(p) p.PropertyName)) - Assert.Null(insertSproc("foo")) - Assert.Same(PrincipalDerived, insertSproc.EntityType) - Assert.Equal("DerivedId", insertSproc.ResultColumns.Last().Name) - Assert.Equal( - "DerivedId", - id.GetColumnName(StoreObjectIdentifier.Create(PrincipalDerived, StoreObjectType.InsertStoredProcedure).Value)) - Assert.Equal("bar3", insertSproc.ResultColumns.Last()("foo")) - Assert.Null( - id.FindOverrides( - StoreObjectIdentifier.Create(PrincipalDerived, StoreObjectType.InsertStoredProcedure).Value)("foo")) - - updateSproc = PrincipalDerived.GetUpdateStoredProcedure() - Assert.Equal("Derived_Update", updateSproc.Name) - Assert.Equal("Derived", updateSproc.Schema) - Assert.Equal( - {"PrincipalBaseId", - "PrincipalDerivedId", - "Enum1", - "Enum2", - "FlagsEnum1", - "FlagsEnum2", - "ValueTypeList", - "ValueTypeIList", - "ValueTypeArray", - "ValueTypeEnumerable", - "RefTypeList", - "RefTypeIList", - "RefTypeArray", - "RefTypeEnumerable", - "Id"}, - updateSproc.Parameters.Select(Function(p) p.PropertyName)) - Assert.Empty(updateSproc.ResultColumns) - Assert.Empty(updateSproc.GetAnnotations()) - Assert.Same(PrincipalDerived, updateSproc.EntityType) - Assert.Equal("Id_Original", updateSproc.Parameters.Last().Name) - Assert.Null( - id.FindOverrides(StoreObjectIdentifier.Create(PrincipalDerived, StoreObjectType.UpdateStoredProcedure).Value)) - - deleteSproc = PrincipalDerived.GetDeleteStoredProcedure() - Assert.Equal("Derived_Delete", deleteSproc.Name) - Assert.Equal("TPC", deleteSproc.Schema) - Assert.Equal({"Id"}, deleteSproc.Parameters.Select(Function(p) p.PropertyName)) - Assert.Empty(deleteSproc.ResultColumns) - Assert.Same(PrincipalDerived, deleteSproc.EntityType) - Assert.Equal("Id_Original", deleteSproc.Parameters.Last().Name) - Assert.Null( - id.FindOverrides(StoreObjectIdentifier.Create(PrincipalDerived, StoreObjectType.DeleteStoredProcedure).Value)) - - Assert.Equal("PrincipalDerived>", PrincipalDerived.GetDiscriminatorValue()) - Assert.Null(PrincipalDerived.FindDiscriminatorProperty()) - Assert.Equal("TPC", PrincipalDerived.GetMappingStrategy()) - - Assert.Equal(2, PrincipalDerived.GetDeclaredNavigations().Count()) - Dim derivedNavigation = PrincipalDerived.GetDeclaredNavigations().Last() - Assert.Equal("Principals", derivedNavigation.Name) - Assert.True(derivedNavigation.IsCollection) - Assert.False(derivedNavigation.IsOnDependent) - Assert.Equal(PrincipalBase, derivedNavigation.TargetEntityType) - Assert.Null(derivedNavigation.Inverse) - - Dim dependentNavigation = PrincipalDerived.GetDeclaredNavigations().First() - Assert.Equal("Dependent", dependentNavigation.Name) - Assert.Equal("Dependent", dependentNavigation.PropertyInfo.Name) - Assert.Equal("_Dependent", dependentNavigation.FieldInfo.Name) - Assert.False(dependentNavigation.IsCollection) - Assert.False(dependentNavigation.IsEagerLoaded) - Assert.True(dependentNavigation.LazyLoadingEnabled) - Assert.False(dependentNavigation.IsOnDependent) - Assert.Equal(PrincipalDerived, dependentNavigation.DeclaringEntityType) - Assert.Equal("Principal", dependentNavigation.Inverse.Name) - - Dim dependentForeignKey = dependentNavigation.ForeignKey - Assert.False(dependentForeignKey.IsOwnership) - Assert.False(dependentForeignKey.IsRequired) - Assert.True(dependentForeignKey.IsRequiredDependent) - Assert.True(dependentForeignKey.IsUnique) - Assert.Same(PrincipalDerived, dependentForeignKey.PrincipalEntityType) - Assert.Same(dependentNavigation.Inverse, dependentForeignKey.DependentToPrincipal) - Assert.Same(dependentNavigation, dependentForeignKey.PrincipalToDependent) - Assert.Equal(DeleteBehavior.ClientCascade, dependentForeignKey.DeleteBehavior) - Assert.Equal({"PrincipalId"}, dependentForeignKey.Properties.Select(Function(p) p.Name)) - - Dim DependentBase = dependentNavigation.TargetEntityType - - Assert.True(DependentBase.GetIsDiscriminatorMappingComplete()) - Assert.Null(DependentBase.FindDiscriminatorProperty()) - - Assert.Same(dependentForeignKey, DependentBase.GetForeignKeys().Single()) - - Assert.Equal( - { - DependentBase, - PrincipalBase, - PrincipalDerived - }, - Model.GetEntityTypes()) - - Dim principalBaseSequence = Model.FindSequence("PrincipalBaseSequence") - Assert.Equal("TPC", principalBaseSequence.Schema) - End Sub, - GetType(SqlServerNetTopologySuiteDesignTimeServices)) - End Sub - - Public Class TpcContext - Inherits SqlServerContextBase - - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - MyBase.OnModelCreating(modelBuilder) - - modelBuilder.HasDefaultSchema("TPC"). - HasDatabaseMaxSize("20TB"). - HasPerformanceLevel("High"). - HasServiceTier("AB") - - modelBuilder.Entity(Of PrincipalBase)( - Sub(eb) - eb.Ignore(Function(e) e.Owned) - - eb.UseTpcMappingStrategy() - - eb.ToTable("PrincipalBase") - eb.ToView("PrincipalBaseView", Sub(tb) tb.Property(Function(e) e.Id).HasAnnotation("foo", "bar2")) - - eb.InsertUsingStoredProcedure(Sub(s) s. - HasParameter("PrincipalBaseId"). - HasParameter("PrincipalDerivedId"). - HasParameter("Enum1"). - HasParameter("Enum2"). - HasParameter("FlagsEnum1"). - HasParameter("FlagsEnum2"). - HasParameter("ValueTypeList"). - HasParameter("ValueTypeIList"). - HasParameter("ValueTypeArray"). - HasParameter("ValueTypeEnumerable"). - HasParameter("RefTypeList"). - HasParameter("RefTypeIList"). - HasParameter("RefTypeArray"). - HasParameter("RefTypeEnumerable"). - HasParameter(Function(p) p.Id, Function(pb) pb.HasName("BaseId").IsOutput().HasAnnotation("foo", "bar")). - HasAnnotation("foo", "bar1")) - eb.UpdateUsingStoredProcedure(Sub(s) s. - HasParameter("PrincipalBaseId"). - HasParameter("PrincipalDerivedId"). - HasParameter("Enum1"). - HasParameter("Enum2"). - HasParameter("FlagsEnum1"). - HasParameter("FlagsEnum2"). - HasParameter("ValueTypeList"). - HasParameter("ValueTypeIList"). - HasParameter("ValueTypeArray"). - HasParameter("ValueTypeEnumerable"). - HasParameter("RefTypeList"). - HasParameter("RefTypeIList"). - HasParameter("RefTypeArray"). - HasParameter("RefTypeEnumerable"). - HasOriginalValueParameter(Function(p) p.Id)) - eb.DeleteUsingStoredProcedure(Sub(s) s. - HasRowsAffectedReturnValue(). - HasOriginalValueParameter(Function(p) p.Id)) - - eb.HasIndex({"PrincipalBaseId"}, "PrincipalIndex"). - IsUnique(). - HasDatabaseName("PIX"). - IsClustered(). - HasFilter("AlternateId <> NULL"). - IsCreatedOnline(). - HasFillFactor(40). - IncludeProperties(Function(e) e.Id). - SortInTempDb(). - UseDataCompression(DataCompressionType.Page) - End Sub) - - modelBuilder.Entity(Of PrincipalDerived(Of DependentBase(Of Byte?)))( - Sub(eb) - eb.HasOne(Function(e) e.Dependent).WithOne(Function(e) e.Principal). - HasForeignKey(Of DependentBase(Of Byte?))(). - OnDelete(DeleteBehavior.ClientCascade) - - eb.Navigation(Function(e) e.Dependent).IsRequired() - - eb.ToTable("PrincipalDerived") - eb.ToView("PrincipalDerivedView") - - eb.InsertUsingStoredProcedure("Derived_Insert", Sub(s) s. - HasParameter("PrincipalBaseId"). - HasParameter("PrincipalDerivedId"). - HasParameter("Enum1"). - HasParameter("Enum2"). - HasParameter("FlagsEnum1"). - HasParameter("FlagsEnum2"). - HasParameter("ValueTypeList"). - HasParameter("ValueTypeIList"). - HasParameter("ValueTypeArray"). - HasParameter("ValueTypeEnumerable"). - HasParameter("RefTypeList"). - HasParameter("RefTypeIList"). - HasParameter("RefTypeArray"). - HasParameter("RefTypeEnumerable"). - HasResultColumn(Function(p) p.Id, Function(pb) pb.HasName("DerivedId").HasAnnotation("foo", "bar3"))) - eb.UpdateUsingStoredProcedure("Derived_Update", "Derived", Sub(s) s. - HasParameter("PrincipalBaseId"). - HasParameter("PrincipalDerivedId"). - HasParameter("Enum1"). - HasParameter("Enum2"). - HasParameter("FlagsEnum1"). - HasParameter("FlagsEnum2"). - HasParameter("ValueTypeList"). - HasParameter("ValueTypeIList"). - HasParameter("ValueTypeArray"). - HasParameter("ValueTypeEnumerable"). - HasParameter("RefTypeList"). - HasParameter("RefTypeIList"). - HasParameter("RefTypeArray"). - HasParameter("RefTypeEnumerable"). - HasOriginalValueParameter(Function(p) p.Id)) - eb.DeleteUsingStoredProcedure("Derived_Delete", Sub(s) s. - HasOriginalValueParameter(Function(p) p.Id)) - End Sub) - - modelBuilder.Entity(Of DependentBase(Of Byte?))( - Sub(eb) - eb.Property(Of Byte?)("Id") - End Sub) - End Sub - End Class - - Public Class CustomValueComparer(Of T) - Inherits ValueComparer(Of T) - - Public Sub New() - MyBase.New(False) - End Sub - End Class - - Public MustInherit Class AbstractBase - Public Property Id As Integer - End Class - - Public Enum AnEnum - A = 1 - B - End Enum - - Public Enum AFlagsEnum - A = 1 - B = 2 - C = 4 - End Enum - - Public Class ManyTypes - Public Property Id As ManyTypesId - Public Property Bool As Boolean - Public Property UInt8 As Byte - Public Property UInt16 As UShort - Public Property UInt32 As UInteger - Public Property UInt64 As ULong - Public Property Int8 As SByte - Public Property Int16 As Short - Public Property Int32 As Integer - Public Property Int64 As Long - Public Property [Char] As Char - Public Property [Decimal] As Decimal - Public Property [Double] As Double - Public Property aFloat As Single - Public Property Guid As Guid - Public Property aDateTime As DateTime - Public Property aDateOnly As DateOnly - Public Property aTimeOnly As TimeOnly - Public Property aTimeSpan As TimeSpan - Public Property [String] As String - Public Property Bytes As Byte() - Public Property Uri As Uri - Public Property anIPAddress As IPAddress - Public Property aPhysicalAddress As PhysicalAddress - - Public Property NullableBool As Boolean? - Public Property NullableUInt8 As Byte? - Public Property NullableUInt16 As UShort? - Public Property NullableUInt32 As UInteger? - Public Property NullableUInt64 As ULong? - Public Property NullableInt8 As SByte? - Public Property NullableInt16 As Short? - Public Property NullableInt32 As Integer? - Public Property NullableInt64 As Long? - Public Property NullableChar As Char? - Public Property NullableDecimal As Decimal? - Public Property NullableDouble As Double? - Public Property NullableFloat As Single? - Public Property NullableGuid As Guid? - Public Property NullableDateTime As DateTime? - Public Property NullableDateOnly As DateOnly? - Public Property NullableTimeOnly As TimeOnly? - Public Property NullableTimeSpan As TimeSpan? - Public Property NullableString As String - Public Property NullableBytes As Byte() - Public Property NullableUri As Uri - Public Property NullableIPAddress As IPAddress - Public Property NullablePhysicalAddress As PhysicalAddress - - Public Property BoolArray As Boolean() - Public Property UInt8Array As Byte() - Public Property UInt16Array As UShort() - Public Property UInt32Array As UInteger() - Public Property UInt64Array As ULong() - Public Property Int8Array As SByte() - Public Property Int16Array As Short() - Public Property Int32Array As Integer() - Public Property Int64Array As Long() - Public Property CharArray As Char() - Public Property DecimalArray As Decimal() - Public Property DoubleArray As Double() - Public Property FloatArray As Single() - Public Property GuidArray As Guid() - Public Property DateTimeArray As DateTime() - Public Property DateOnlyArray As DateOnly() - Public Property TimeOnlyArray As TimeOnly() - Public Property TimeSpanArray As TimeSpan() - Public Property StringArray As String() - Public Property BytesArray As Byte()() - Public Property UriArray As Uri() - Public Property IPAddressArray As IPAddress() - Public Property PhysicalAddressArray As PhysicalAddress() - - Public Property NullableBoolArray As Boolean?() - Public Property NullableUInt8Array As Byte?() - Public Property NullableUInt16Array As UShort?() - Public Property NullableUInt32Array As UInteger?() - Public Property NullableUInt64Array As ULong?() - Public Property NullableInt8Array As SByte?() - Public Property NullableInt16Array As Short?() - Public Property NullableInt32Array As Integer?() - Public Property NullableInt64Array As Long?() - Public Property NullableCharArray As Char?() - Public Property NullableDecimalArray As Decimal?() - Public Property NullableDoubleArray As Double?() - Public Property NullableFloatArray As Single?() - Public Property NullableGuidArray As Guid?() - Public Property NullableDateTimeArray As DateTime?() - Public Property NullableDateOnlyArray As DateOnly?() - Public Property NullableTimeOnlyArray As TimeOnly?() - Public Property NullableTimeSpanArray As TimeSpan?() - Public Property NullableStringArray As String() - Public Property NullableBytesArray As Byte()() - Public Property NullableUriArray As Uri() - Public Property NullableIPAddressArray As IPAddress() - Public Property NullablePhysicalAddressArray As PhysicalAddress() - - Public Property Enum8 As Enum8 - Public Property Enum16 As Enum16 - Public Property Enum32 As Enum32 - Public Property Enum64 As Enum64 - Public Property EnumU8 As EnumU8 - Public Property EnumU16 As EnumU16 - Public Property EnumU32 As EnumU32 - Public Property EnumU64 As EnumU64 - - Public Property Enum8AsString As Enum8 - Public Property Enum16AsString As Enum16 - Public Property Enum32AsString As Enum32 - Public Property Enum64AsString As Enum64 - Public Property EnumU8AsString As EnumU8 - Public Property EnumU16AsString As EnumU16 - Public Property EnumU32AsString As EnumU32 - Public Property EnumU64AsString As EnumU64 - - Public Property NullableEnum8 As Enum8? - Public Property NullableEnum16 As Enum16? - Public Property NullableEnum32 As Enum32? - Public Property NullableEnum64 As Enum64? - Public Property NullableEnumU8 As EnumU8? - Public Property NullableEnumU16 As EnumU16? - Public Property NullableEnumU32 As EnumU32? - Public Property NullableEnumU64 As EnumU64? - - Public Property NullableEnum8AsString As Enum8? - Public Property NullableEnum16AsString As Enum16? - Public Property NullableEnum32AsString As Enum32? - Public Property NullableEnum64AsString As Enum64? - Public Property NullableEnumU8AsString As EnumU8? - Public Property NullableEnumU16AsString As EnumU16? - Public Property NullableEnumU32AsString As EnumU32? - Public Property NullableEnumU64AsString As EnumU64? - - Public Property Enum8Collection As List(Of Enum8) - Public Property Enum16Collection As List(Of Enum16) - Public Property Enum32Collection As List(Of Enum32) - Public Property Enum64Collection As List(Of Enum64) - Public Property EnumU8Collection As List(Of EnumU8) - Public Property EnumU16Collection As List(Of EnumU16) - Public Property EnumU32Collection As List(Of EnumU32) - Public Property EnumU64Collection As List(Of EnumU64) - - Public Property Enum8AsStringCollection As List(Of Enum8) - Public Property Enum16AsStringCollection As List(Of Enum16) - Public Property Enum32AsStringCollection As List(Of Enum32) - Public Property Enum64AsStringCollection As List(Of Enum64) - Public Property EnumU8AsStringCollection As List(Of EnumU8) - Public Property EnumU16AsStringCollection As List(Of EnumU16) - Public Property EnumU32AsStringCollection As List(Of EnumU32) - Public Property EnumU64AsStringCollection As List(Of EnumU64) - - Public Property NullableEnum8Collection As List(Of Enum8?) - Public Property NullableEnum16Collection As List(Of Enum16?) - Public Property NullableEnum32Collection As List(Of Enum32?) - Public Property NullableEnum64Collection As List(Of Enum64?) - Public Property NullableEnumU8Collection As List(Of EnumU8?) - Public Property NullableEnumU16Collection As List(Of EnumU16?) - Public Property NullableEnumU32Collection As List(Of EnumU32?) - Public Property NullableEnumU64Collection As List(Of EnumU64?) - - Public Property NullableEnum8AsStringCollection As List(Of Enum8?) - Public Property NullableEnum16AsStringCollection As List(Of Enum16?) - Public Property NullableEnum32AsStringCollection As List(Of Enum32?) - Public Property NullableEnum64AsStringCollection As List(Of Enum64?) - Public Property NullableEnumU8AsStringCollection As List(Of EnumU8?) - Public Property NullableEnumU16AsStringCollection As List(Of EnumU16?) - Public Property NullableEnumU32AsStringCollection As List(Of EnumU32?) - Public Property NullableEnumU64AsStringCollection As List(Of EnumU64?) - - Public Property Enum8Array As Enum8() - Public Property Enum16Array As Enum16() - Public Property Enum32Array As Enum32() - Public Property Enum64Array As Enum64() - Public Property EnumU8Array As EnumU8() - Public Property EnumU16Array As EnumU16() - Public Property EnumU32Array As EnumU32() - Public Property EnumU64Array As EnumU64() - - Public Property Enum8AsStringArray As Enum8() - Public Property Enum16AsStringArray As Enum16() - Public Property Enum32AsStringArray As Enum32() - Public Property Enum64AsStringArray As Enum64() - Public Property EnumU8AsStringArray As EnumU8() - Public Property EnumU16AsStringArray As EnumU16() - Public Property EnumU32AsStringArray As EnumU32() - Public Property EnumU64AsStringArray As EnumU64() - - Public Property NullableEnum8Array As Enum8?() - Public Property NullableEnum16Array As Enum16?() - Public Property NullableEnum32Array As Enum32?() - Public Property NullableEnum64Array As Enum64?() - Public Property NullableEnumU8Array As EnumU8?() - Public Property NullableEnumU16Array As EnumU16?() - Public Property NullableEnumU32Array As EnumU32?() - Public Property NullableEnumU64Array As EnumU64?() - - Public Property NullableEnum8AsStringArray As Enum8?() - Public Property NullableEnum16AsStringArray As Enum16?() - Public Property NullableEnum32AsStringArray As Enum32?() - Public Property NullableEnum64AsStringArray As Enum64?() - Public Property NullableEnumU8AsStringArray As EnumU8?() - Public Property NullableEnumU16AsStringArray As EnumU16?() - Public Property NullableEnumU32AsStringArray As EnumU32?() - Public Property NullableEnumU64AsStringArray As EnumU64?() - - Public Property BoolToStringConverterProperty As Boolean - Public Property BoolToTwoValuesConverterProperty As Boolean - Public Property BoolToZeroOneConverterProperty As Boolean - Public Property BytesToStringConverterProperty As Byte() - Public Property CastingConverterProperty As Integer - Public Property CharToStringConverterProperty As Char - Public Property DateOnlyToStringConverterProperty As DateOnly - Public Property DateTimeOffsetToBinaryConverterProperty As DateTimeOffset - Public Property DateTimeOffsetToBytesConverterProperty As DateTimeOffset - Public Property DateTimeOffsetToStringConverterProperty As DateTimeOffset - Public Property DateTimeToBinaryConverterProperty As DateTime - Public Property DateTimeToStringConverterProperty As DateTime - Public Property DateTimeToTicksConverterProperty As DateTime - Public Property EnumToNumberConverterProperty As Enum32 - Public Property EnumToStringConverterProperty As Enum32 - Public Property GuidToBytesConverterProperty As Guid - Public Property GuidToStringConverterProperty As Guid - Public Property IPAddressToBytesConverterProperty As IPAddress - Public Property IPAddressToStringConverterProperty As IPAddress - Public Property IntNumberToBytesConverterProperty As Integer - Public Property DecimalNumberToBytesConverterProperty As Decimal - Public Property DoubleNumberToBytesConverterProperty As Double - Public Property IntNumberToStringConverterProperty As Integer - Public Property DecimalNumberToStringConverterProperty As Decimal - Public Property DoubleNumberToStringConverterProperty As Double - Public Property PhysicalAddressToBytesConverterProperty As PhysicalAddress - Public Property PhysicalAddressToStringConverterProperty As PhysicalAddress - Public Property StringToBoolConverterProperty As String - Public Property StringToBytesConverterProperty As String - Public Property StringToCharConverterProperty As String - Public Property StringToDateOnlyConverterProperty As String - Public Property StringToDateTimeConverterProperty As String - Public Property StringToDateTimeOffsetConverterProperty As String - Public Property StringToEnumConverterProperty As String - Public Property StringToGuidConverterProperty As String - Public Property StringToIntNumberConverterProperty As String - Public Property StringToDecimalNumberConverterProperty As String - Public Property StringToDoubleNumberConverterProperty As String - Public Property StringToTimeOnlyConverterProperty As String - Public Property StringToTimeSpanConverterProperty As String - Public Property StringToUriConverterProperty As String - Public Property TimeOnlyToStringConverterProperty As TimeOnly - Public Property TimeOnlyToTicksConverterProperty As TimeOnly - Public Property TimeSpanToStringConverterProperty As TimeSpan - Public Property TimeSpanToTicksConverterProperty As TimeSpan - Public Property UriToStringConverterProperty As Uri - - Public Property NullIntToNullStringConverterProperty As Integer? - End Class - - Public Structure ManyTypesId - ReadOnly Property Id As Integer - - Sub New(id As Integer) - Me.Id = id - End Sub - End Structure - - Public Class ManyTypesIdConverter - Inherits ValueConverter(Of ManyTypesId, Integer) - - Public Sub New() - MyBase.New(Function(v) v.Id, Function(v) New ManyTypesId(v)) - End Sub - End Class - - Public Enum Enum8 As SByte - Min = SByte.MinValue - [Default] = 0 - One = 1 - Max = SByte.MaxValue - End Enum - - Public Enum Enum16 As Short - Min = Short.MinValue - [Default] = 0 - One = 1 - Max = Short.MaxValue - End Enum - - Public Enum Enum32 - Min = Integer.MinValue - [Default] = 0 - One = 1 - Max = Integer.MaxValue - End Enum - - Public Enum Enum64 As Long - Min = Long.MinValue - [Default] = 0 - One = 1 - Max = Long.MaxValue - End Enum - - Public Enum EnumU8 As Byte - Min = Byte.MinValue - [Default] = 0 - One = 1 - Max = Byte.MaxValue - End Enum - - Public Enum EnumU16 As UShort - Min = UShort.MinValue - [Default] = 0 - One = 1 - Max = UShort.MaxValue - End Enum - - Public Enum EnumU32 As UInteger - Min = UInteger.MinValue - [Default] = 0 - One = 1 - Max = UInteger.MaxValue - End Enum - - Public Enum EnumU64 As ULong - Min = ULong.MinValue - [Default] = 0 - One = 1 - Max = ULong.MaxValue - End Enum - - Public Class PrincipalBase - Inherits AbstractBase - - Public Shadows Property Id As Long? - Public AlternateId As Guid - - Public Property Enum1 As AnEnum - Public Property Enum2 As AnEnum? - Public Property FlagsEnum1 As AFlagsEnum - Public Property FlagsEnum2 As AFlagsEnum - - Public Property ValueTypeList As List(Of Short) - Public Property ValueTypeIList As IList(Of Byte) - Public Property ValueTypeArray As DateTime() - Public Property ValueTypeEnumerable As IEnumerable(Of Byte) - - Public Property RefTypeList As List(Of IPAddress) - Public Property RefTypeIList As IList(Of String) - Public Property RefTypeArray As IPAddress() - Public Property RefTypeEnumerable As IEnumerable(Of String) - - Private _ownedField As OwnedType - Public Property Owned As OwnedType - Get - Return _ownedField - End Get - Set - _ownedField = Value - End Set - End Property - - Public Property Deriveds As ICollection(Of PrincipalBase) - End Class - - Public Class PrincipalDerived(Of TDependent) - Inherits PrincipalBase - - Public Property Dependent As TDependent - Protected ManyOwned As ICollection(Of OwnedType) - Public Property Principals As ICollection(Of PrincipalBase) - End Class - - Public Class DependentBase(Of TKey) - Inherits AbstractBase - - Public Sub New(id As TKey) - id = id - End Sub - - Private Shadows ReadOnly Property Id As TKey - Public Property Principal As PrincipalDerived(Of DependentBase(Of TKey)) - End Class - - Public Class DependentDerived(Of TKey) - Inherits DependentBase(Of TKey) - - Public Sub New(Id As TKey) - MyBase.New(Id) - End Sub - - Private Property Data As String - End Class - - Public Class OwnedType - Implements INotifyPropertyChanged, INotifyPropertyChanging - - Private _context As Microsoft.EntityFrameworkCore.DbContext - - Public Sub New() - End Sub - - Public Sub New(context As Microsoft.EntityFrameworkCore.DbContext) - Me.Context = context - End Sub - - Public Property Context As Microsoft.EntityFrameworkCore.DbContext - Get - Return _context - End Get - Set - RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs("Context")) - _context = Value - RaiseEvent PropertyChanging(Me, New PropertyChangingEventArgs("Context")) - End Set - End Property - - Public Property Number As Integer - - - Public Property Principal As PrincipalBase - - Private _details As String - Private _valueTypeList As List(Of Short) - Private _valueTypeArray As DateTime() - Private _valueTypeEnumerable As IEnumerable(Of Byte) - Private _refTypeList As List(Of IPAddress) - Private _refTypeIList As IList(Of String) - Private _refTypeArray As IPAddress() - Private _refTypeEnumerable As IEnumerable(Of String) - - Public Property Details As String - Get - Return _details - End Get - Set - _details = Value - End Set - End Property - - Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged - Public Event PropertyChanging As PropertyChangingEventHandler Implements INotifyPropertyChanging.PropertyChanging - - Public Property ValueTypeList As List(Of Short) - Get - Return _valueTypeList - End Get - Set - RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(NameOf(ValueTypeList))) - _valueTypeList = Value - RaiseEvent PropertyChanging(Me, New PropertyChangingEventArgs(NameOf(ValueTypeList))) - End Set - End Property - - Public Property ValueTypeIList As IList(Of Byte) - - Public Property ValueTypeArray As DateTime() - Get - Return _valueTypeArray - End Get - Set - RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(NameOf(ValueTypeArray))) - _valueTypeArray = Value - RaiseEvent PropertyChanging(Me, New PropertyChangingEventArgs(NameOf(ValueTypeArray))) - End Set - End Property - - Public Property ValueTypeEnumerable As IEnumerable(Of Byte) - Get - Return _valueTypeEnumerable - End Get - Set - RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(NameOf(ValueTypeEnumerable))) - _valueTypeEnumerable = Value - RaiseEvent PropertyChanging(Me, New PropertyChangingEventArgs(NameOf(ValueTypeEnumerable))) - End Set - End Property - - Public Property RefTypeList As List(Of IPAddress) - Get - Return _refTypeList - End Get - Set - RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(NameOf(RefTypeList))) - _refTypeList = Value - RaiseEvent PropertyChanging(Me, New PropertyChangingEventArgs(NameOf(RefTypeList))) - End Set - End Property - - Public Property RefTypeIList As IList(Of String) - Get - Return _refTypeIList - End Get - Set - RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(NameOf(RefTypeIList))) - _refTypeIList = Value - RaiseEvent PropertyChanging(Me, New PropertyChangingEventArgs(NameOf(RefTypeIList))) - End Set - End Property - - Public Property RefTypeArray As IPAddress() - Get - Return _refTypeArray - End Get - Set - RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(NameOf(RefTypeArray))) - _refTypeArray = Value - RaiseEvent PropertyChanging(Me, New PropertyChangingEventArgs(NameOf(RefTypeArray))) - End Set - End Property - - Public Property RefTypeEnumerable As IEnumerable(Of String) - Get - Return _refTypeEnumerable - End Get - Set - RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(NameOf(RefTypeEnumerable))) - _refTypeEnumerable = Value - RaiseEvent PropertyChanging(Me, New PropertyChangingEventArgs(NameOf(RefTypeEnumerable))) - End Set - End Property - End Class - - - Public Sub DbFunctions() - - Dim rm1 = - -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - - Public Partial Class DbFunctionContextModel - Inherits RuntimeModel - - Private Shared ReadOnly _useOldBehavior31751 As Boolean - - Private Shared _Instance As DbFunctionContextModel - Public Shared ReadOnly Property Instance As IModel - Get - Return _Instance - End Get - End Property - - Shared Sub New() - Dim enabled31751 As Boolean - _useOldBehavior31751 = System.AppContext.TryGetSwitch("Microsoft.EntityFrameworkCore.Issue31751", enabled31751) AndAlso enabled31751 - - Dim model As New DbFunctionContextModel() - If _useOldBehavior31751 Then - model.Initialize() - Else - Dim thread = New System.Threading.Thread(Sub() model.Initialize(), 10 * 1024 * 1024) - thread.Start() - thread.Join() - End If - - model.Customize() - _Instance = model - End Sub - - Partial Private Sub Initialize() - End Sub - - Partial Private Sub Customize() - End Sub - End Class -End Namespace -]]>.Value - - Dim rm2 = - -Imports System -Imports System.Collections.Generic -Imports System.Linq -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Metadata.Internal -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Public Partial Class DbFunctionContextModel - - Private Sub Initialize() - Dim data = DataEntityType.Create(Me) - Dim [object] = ObjectEntityType.Create(Me) - - DataEntityType.CreateAnnotations(data) - ObjectEntityType.CreateAnnotations([object]) - - Dim typeConfig = Me.AddTypeMappingConfiguration( - GetType(String), - maxLength:=256) - typeConfig.AddAnnotation("Relational:IsFixedLength", True) - - Dim functions As New SortedDictionary(Of String, IDbFunction)() - Dim getCount As New RuntimeDbFunction( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DbFunctionContext.GetCount(System.Guid?,string)", - Me, - GetType(Integer), - "CustomerOrderCount", - schema:="dbf", - storeType:="int", - methodInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DbFunctionContext).GetMethod( - "GetCount", - BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly, - Nothing, - {GetType(Guid?), GetType(String)}, - Nothing), - scalar:=True) - - Dim id = getCount.AddParameter( - "id", - GetType(Guid?), - True, - "uniqueidentifier") - id.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(GuidTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="uniqueidentifier"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - id.AddAnnotation("MyAnnotation", {1L}) - - Dim condition = getCount.AddParameter( - "condition", - GetType(String), - False, - "nchar(256)") - condition.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nchar(256)", - size:=256, - unicode:=True, - fixedLength:=True, - dbType:=System.Data.DbType.StringFixedLength), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - getCount.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - functions("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DbFunctionContext.GetCount(System.Guid?,string)") = getCount - - Dim getData As New RuntimeDbFunction( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DbFunctionContext.GetData()", - Me, - GetType(IQueryable(Of VisualBasicRuntimeModelCodeGeneratorTest.Data)), - "GetAllData", - schema:="dbo", - methodInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DbFunctionContext).GetMethod( - "GetData", - BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly, - Nothing, - {}, - Nothing)) - - functions("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DbFunctionContext.GetData()") = getData - - Dim getData0 As New RuntimeDbFunction( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DbFunctionContext.GetData(int)", - Me, - GetType(IQueryable(Of VisualBasicRuntimeModelCodeGeneratorTest.Data)), - "GetData", - schema:="dbo", - methodInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DbFunctionContext).GetMethod( - "GetData", - BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly, - Nothing, - {GetType(Integer)}, - Nothing)) - - Dim id0 = getData0.AddParameter( - "id", - GetType(Integer), - False, - "int") - id0.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - functions("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DbFunctionContext.GetData(int)") = getData0 - - Dim isDateShared As New RuntimeDbFunction( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DbFunctionContext.IsDateShared(string)", - Me, - GetType(Boolean), - "IsDate", - storeType:="bit", - methodInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DbFunctionContext).GetMethod( - "IsDateShared", - BindingFlags.Public Or BindingFlags.Static Or BindingFlags.DeclaredOnly, - Nothing, - {GetType(String)}, - Nothing), - scalar:=True, - nullable:=True, - builtIn:=True) - - Dim aDate = isDateShared.AddParameter( - "aDate", - GetType(String), - False, - "nchar(256)") - aDate.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="nchar(256)", - size:=256, - unicode:=True, - fixedLength:=True, - dbType:=System.Data.DbType.StringFixedLength), - Type.Missing, - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - isDateShared.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerBoolTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - isDateShared.AddAnnotation("MyGuid", New Guid("00000000-0000-0000-0000-000000000000")) - functions("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DbFunctionContext.IsDateShared(string)") = isDateShared - - Dim getBlobs As New RuntimeDbFunction( - "GetBlobs()", - Me, - GetType(IQueryable(Of Object)), - "GetBlobs", - schema:="dbo") - - functions("GetBlobs()") = getBlobs - - AddAnnotation("Relational:DbFunctions", functions) - AddAnnotation("Relational:MaxIdentifierLength", 128) - AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.IdentityColumn) - AddRuntimeAnnotation("Relational:RelationalModel", CreateRelationalModel()) - End Sub - - Private Function CreateRelationalModel() As IRelationalModel - Dim relationalModel As New RelationalModel(Me) - - Dim data = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data") - - Dim defaultTableMappings As New List(Of TableMappingBase(Of ColumnMappingBase))() - data.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data", Nothing, relationalModel) - Dim blobColumnBase As New ColumnBase(Of ColumnMappingBase)("Blob", "varbinary(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase.Columns.Add("Blob", blobColumnBase) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase As New TableMappingBase(Of ColumnMappingBase)(data, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase, False) - defaultTableMappings.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(blobColumnBase, ColumnBase(Of ColumnMappingBase)), data.FindProperty("Blob"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase) - - Dim functionMappings As New List(Of FunctionMapping)() - data.SetRuntimeAnnotation("Relational:FunctionMappings", functionMappings) - Dim getAllData = DirectCast(Me.FindDbFunction("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DbFunctionContext.GetData()"), IRuntimeDbFunction) - Dim getAllDataFunction As New StoreFunction(getAllData, relationalModel) - Dim blobFunctionColumn As New FunctionColumn("Blob", "varbinary(max)", getAllDataFunction) With { - .IsNullable = True - } - getAllDataFunction.Columns.Add("Blob", blobFunctionColumn) - relationalModel.Functions.Add( - ("GetAllData", "dbo", System.Array.Empty(Of String)), - getAllDataFunction) - Dim getAllDataFunctionMapping As New FunctionMapping(data, getAllDataFunction, getAllData, True) - getAllDataFunction.AddTypeMapping(getAllDataFunctionMapping, False) - functionMappings.Add(getAllDataFunctionMapping) - getAllDataFunctionMapping.IsDefaultFunctionMapping = True - RelationalModel.CreateFunctionColumnMapping(blobFunctionColumn, data.FindProperty("Blob"), getAllDataFunctionMapping) - Dim getData = DirectCast(Me.FindDbFunction("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DbFunctionContext.GetData(int)"), IRuntimeDbFunction) - Dim getDataFunction As New StoreFunction(getData, relationalModel) - Dim idFunctionParameter = getDataFunction.FindParameter("id") - Dim blobFunctionColumn0 As New FunctionColumn("Blob", "varbinary(max)", getDataFunction) With { - .IsNullable = True - } - getDataFunction.Columns.Add("Blob", blobFunctionColumn0) - relationalModel.Functions.Add( - ("GetData", "dbo", {"int"}), - getDataFunction) - Dim getDataFunctionMapping As New FunctionMapping(data, getDataFunction, getData, True) - getDataFunction.AddTypeMapping(getDataFunctionMapping, False) - functionMappings.Add(getDataFunctionMapping) - RelationalModel.CreateFunctionColumnMapping(blobFunctionColumn0, data.FindProperty("Blob"), getDataFunctionMapping) - - Dim [object] = FindEntityType("object") - - Dim defaultTableMappings0 As New List(Of TableMappingBase(Of ColumnMappingBase))() - [object].SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings0) - Dim objectTableBase As New TableBase("object", Nothing, relationalModel) - relationalModel.DefaultTables.Add("object", objectTableBase) - Dim objectMappingBase As New TableMappingBase(Of ColumnMappingBase)([object], objectTableBase, True) - objectTableBase.AddTypeMapping(objectMappingBase, False) - defaultTableMappings0.Add(objectMappingBase) - - Dim functionMappings0 As New List(Of FunctionMapping)() - [object].SetRuntimeAnnotation("Relational:FunctionMappings", functionMappings0) - Dim getBlobs = DirectCast(Me.FindDbFunction("GetBlobs()"), IRuntimeDbFunction) - Dim getBlobsFunction As New StoreFunction(getBlobs, relationalModel) - relationalModel.Functions.Add( - ("GetBlobs", "dbo", System.Array.Empty(Of String)), - getBlobsFunction) - Dim getBlobsFunctionMapping As New FunctionMapping([object], getBlobsFunction, getBlobs, True) - getBlobsFunction.AddTypeMapping(getBlobsFunctionMapping, False) - functionMappings0.Add(getBlobsFunctionMapping) - getBlobsFunctionMapping.IsDefaultFunctionMapping = True - Dim customerOrderCount = DirectCast(Me.FindDbFunction("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DbFunctionContext.GetCount(System.Guid?,string)"), IRuntimeDbFunction) - Dim customerOrderCountFunction As New StoreFunction(customerOrderCount, relationalModel) - Dim idFunctionParameter0 = customerOrderCountFunction.FindParameter("id") - Dim conditionFunctionParameter = customerOrderCountFunction.FindParameter("condition") - relationalModel.Functions.Add( - ("CustomerOrderCount", "dbf", {"uniqueidentifier", "nchar(256)"}), - customerOrderCountFunction) - Dim isDate = DirectCast(Me.FindDbFunction("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DbFunctionContext.IsDateShared(string)"), IRuntimeDbFunction) - Dim isDateFunction As New StoreFunction(isDate, relationalModel) - Dim aDateFunctionParameter = isDateFunction.FindParameter("aDate") - relationalModel.Functions.Add( - ("IsDate", Nothing, {"nchar(256)"}), - isDateFunction) - Return relationalModel.MakeReadOnly() - End Function - End Class -End Namespace -]]>.Value - - Dim e1 = - -Imports System -Imports System.Collections -Imports System.Linq -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class DataEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Data), - baseEntityType) - - Dim blob = entityType.AddProperty( - "Blob", - GetType(Byte()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.Data).GetProperty("Blob", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.Data).GetField("_Blob", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - blob.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(max)"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - blob.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Return entityType - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DbFunctionContext.GetData()") - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", Nothing) - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - Dim e2 = - -Imports System -Imports System.Reflection -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class ObjectEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "object", - GetType(Object), - baseEntityType) - - Return entityType - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", "GetBlobs()") - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", Nothing) - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Test( - New DbFunctionContext(), - CreateCompiledModelCodeGenerationOptions(), - Sub(code) - Assert.Collection( - code, - Sub(c) AssertFileContents("DbFunctionContextModel.vb", rm1, c), - Sub(c) AssertFileContents("DbFunctionContextModelBuilder.vb", rm2, c), - Sub(c) AssertFileContents("DataEntityType.vb", e1, c), - Sub(c) AssertFileContents("ObjectEntityType.vb", e2, c)) - End Sub, - Sub(model) - Assert.Equal(5, model.GetDbFunctions().Count()) - - Dim getCount = model.FindDbFunction(GetType(DbFunctionContext).GetMethod("GetCount", BindingFlags.NonPublic Or BindingFlags.Instance)) - Assert.Equal("CustomerOrderCount", getCount.Name) - Assert.Same(model, getCount.Model) - Assert.Same(model, (DirectCast(getCount, IReadOnlyDbFunction)).Model) - Assert.Equal(GetType(DbFunctionContext).FullName & ".GetCount(System.Guid?,string)", getCount.ModelName) - Assert.Equal("dbf", getCount.Schema) - Assert.False(getCount.IsNullable) - Assert.True(getCount.IsScalar) - Assert.False(getCount.IsBuiltIn) - Assert.False(getCount.IsAggregate) - Assert.Null(getCount.Translation) - Assert.Equal("int", getCount.TypeMapping?.StoreType) - Assert.Equal(GetType(Integer), getCount.ReturnType) - Assert.Equal("GetCount", getCount.MethodInfo.Name) - Assert.Empty(getCount.GetAnnotations()) - Assert.Empty(getCount.GetRuntimeAnnotations()) - Assert.Equal("CustomerOrderCount", getCount.StoreFunction.Name) - Assert.False(getCount.StoreFunction.IsShared) - Assert.NotNull(getCount.ToString()) - Assert.Equal(getCount.Parameters, DirectCast(getCount, IReadOnlyDbFunction).Parameters) - Assert.Equal(2, getCount.Parameters.Count) - - Dim getCountParameter1 = getCount.Parameters(0) - Assert.Same(getCount, getCountParameter1.Function) - Assert.Same(getCount, DirectCast(getCountParameter1, IReadOnlyDbFunctionParameter).Function) - Assert.Equal("id", getCountParameter1.Name) - Assert.Equal("uniqueidentifier", getCountParameter1.StoreType) - Assert.Equal("uniqueidentifier", DirectCast(getCountParameter1, IReadOnlyDbFunctionParameter).StoreType) - Assert.True(getCountParameter1.PropagatesNullability) - Assert.Equal(GetType(Guid?), getCountParameter1.ClrType) - Assert.Equal("uniqueidentifier", getCountParameter1.TypeMapping.StoreType) - Assert.Single(getCountParameter1.GetAnnotations()) - Assert.Equal({1L}, getCountParameter1("MyAnnotation")) - Assert.Equal("id", getCountParameter1.StoreFunctionParameter.Name) - Assert.Equal("uniqueidentifier", getCountParameter1.StoreFunctionParameter.StoreType) - Assert.NotNull(getCountParameter1.ToString()) - - Dim getCountParameter2 = getCount.Parameters(1) - Assert.Same(getCount, getCountParameter2.Function) - Assert.Equal("condition", getCountParameter2.Name) - Assert.Equal("nchar(256)", getCountParameter2.StoreType) - Assert.False(getCountParameter2.PropagatesNullability) - Assert.Equal(GetType(String), getCountParameter2.ClrType) - Assert.Equal("nchar(256)", getCountParameter2.TypeMapping.StoreType) - Assert.Equal("condition", getCountParameter2.StoreFunctionParameter.Name) - Assert.Equal("nchar(256)", getCountParameter2.StoreFunctionParameter.StoreType) - Assert.NotNull(getCountParameter2.ToString()) - - Dim isDate = model.FindDbFunction(GetType(DbFunctionContext).GetMethod("IsDateShared")) - Assert.Equal("IsDate", isDate.Name) - Assert.Null(isDate.Schema) - Assert.Equal(GetType(DbFunctionContext).FullName & ".IsDateShared(string)", isDate.ModelName) - Assert.True(isDate.IsNullable) - Assert.True(isDate.IsScalar) - Assert.True(isDate.IsBuiltIn) - Assert.False(isDate.IsAggregate) - Assert.Null(isDate.Translation) - Assert.Equal(GetType(Boolean), isDate.ReturnType) - Assert.Equal("IsDateShared", isDate.MethodInfo.Name) - Assert.Single(isDate.GetAnnotations()) - Assert.Equal(New Guid(), isDate("MyGuid")) - Assert.Empty(isDate.GetRuntimeAnnotations()) - Assert.Equal("bit", isDate.StoreFunction.ReturnType) - Assert.Empty(isDate.StoreFunction.EntityTypeMappings) - Assert.Single(isDate.Parameters) - - Dim isDateParameter = isDate.Parameters(0) - Assert.Same(isDate, isDateParameter.Function) - Assert.Equal("aDate", isDateParameter.Name) - Assert.Equal("nchar(256)", isDateParameter.StoreType) - Assert.False(isDateParameter.PropagatesNullability) - Assert.Equal(GetType(String), isDateParameter.ClrType) - Assert.Equal("nchar(256)", isDateParameter.TypeMapping.StoreType) - Assert.Equal("aDate", isDateParameter.StoreFunctionParameter.Name) - Assert.Equal("nchar(256)", isDateParameter.StoreFunctionParameter.StoreType) - - Dim getData = model.FindDbFunction( - GetType(DbFunctionContext).GetMethod("GetData", {GetType(Integer)})) - - Assert.Equal("GetData", getData.Name) - Assert.Equal("dbo", getData.Schema) - Assert.Equal(GetType(DbFunctionContext).FullName & ".GetData(int)", getData.ModelName) - Assert.False(getData.IsNullable) - Assert.False(getData.IsScalar) - Assert.False(getData.IsBuiltIn) - Assert.False(getData.IsAggregate) - Assert.Null(getData.Translation) - Assert.Equal(GetType(IQueryable(Of Data)), getData.ReturnType) - Assert.Equal("GetData", getData.MethodInfo.Name) - Assert.Empty(getData.GetAnnotations()) - Assert.Empty(getData.GetRuntimeAnnotations()) - Assert.Null(getData.TypeMapping?.StoreType) - Assert.Null(getData.StoreFunction.ReturnType) - Assert.Equal(GetType(Data), getData.StoreFunction.EntityTypeMappings.Single().TypeBase.ClrType) - Assert.Single(getData.Parameters) - - Dim getDataParameter = getData.Parameters(0) - Assert.Same(getData, getDataParameter.Function) - Assert.Equal("id", getDataParameter.Name) - Assert.Equal("int", getDataParameter.StoreType) - Assert.False(getDataParameter.PropagatesNullability) - Assert.Equal(GetType(Integer), getDataParameter.ClrType) - Assert.Equal("int", getDataParameter.TypeMapping.StoreType) - Assert.Equal("id", getDataParameter.StoreFunctionParameter.Name) - Assert.Equal("int", getDataParameter.StoreFunctionParameter.StoreType) - - Dim getDataParameterless = model.FindDbFunction(GetType(DbFunctionContext). - GetMethod("GetData", Array.Empty(Of Type))) - Assert.Equal("GetAllData", getDataParameterless.Name) - Assert.Equal("dbo", getDataParameterless.Schema) - Assert.Equal(GetType(DbFunctionContext).FullName & ".GetData()", getDataParameterless.ModelName) - Assert.False(getDataParameterless.IsNullable) - Assert.False(getDataParameterless.IsScalar) - Assert.False(getDataParameterless.IsBuiltIn) - Assert.False(getDataParameterless.IsAggregate) - Assert.Null(getDataParameterless.Translation) - Assert.Equal(GetType(IQueryable(Of Data)), getDataParameterless.ReturnType) - Assert.Equal("GetData", getDataParameterless.MethodInfo.Name) - Assert.Empty(getDataParameterless.GetAnnotations()) - Assert.Empty(getDataParameterless.GetRuntimeAnnotations()) - Assert.False(getDataParameterless.StoreFunction.IsBuiltIn) - Assert.Equal(GetType(Data), getDataParameterless.StoreFunction.EntityTypeMappings.Single().TypeBase.ClrType) - Assert.Equal(0, getDataParameterless.Parameters.Count) - - Assert.Equal(2, model.GetEntityTypes().Count()) - Dim dataEntity = model.FindEntityType(GetType(Data)) - Assert.Null(dataEntity.FindPrimaryKey()) - Dim dataEntityFunctionMapping = dataEntity.GetFunctionMappings().Single(Function(m) m.IsDefaultFunctionMapping) - Assert.True(dataEntityFunctionMapping.IncludesDerivedTypes) - Assert.Null(dataEntityFunctionMapping.IsSharedTablePrincipal) - Assert.Null(dataEntityFunctionMapping.IsSplitEntityTypePrincipal) - Assert.Same(getDataParameterless, dataEntityFunctionMapping.DbFunction) - - Dim getDataStoreFunction = dataEntityFunctionMapping.StoreFunction - Assert.Same(getDataParameterless, getDataStoreFunction.DbFunctions.Single()) - Assert.False(getDataStoreFunction.IsOptional(dataEntity)) - - Dim dataEntityOtherFunctionMapping = dataEntity.GetFunctionMappings().Single(Function(m) Not m.IsDefaultFunctionMapping) - Assert.True(dataEntityOtherFunctionMapping.IncludesDerivedTypes) - Assert.Null(dataEntityOtherFunctionMapping.IsSharedTablePrincipal) - Assert.Null(dataEntityOtherFunctionMapping.IsSplitEntityTypePrincipal) - Assert.Same(getData, dataEntityOtherFunctionMapping.DbFunction) - - Dim getDataOtherStoreFunction = dataEntityOtherFunctionMapping.StoreFunction - Assert.Same(getData, getDataOtherStoreFunction.DbFunctions.Single()) - Assert.False(getDataOtherStoreFunction.IsOptional(dataEntity)) - - Dim getBlobs = model.FindDbFunction("GetBlobs()") - Assert.Equal("dbo", getBlobs.Schema) - Assert.False(getBlobs.IsNullable) - Assert.False(getBlobs.IsScalar) - Assert.False(getBlobs.IsBuiltIn) - Assert.False(getBlobs.IsAggregate) - Assert.Null(getBlobs.Translation) - Assert.Null(getBlobs.TypeMapping) - Assert.Equal(GetType(IQueryable(Of Object)), getBlobs.ReturnType) - Assert.Null(getBlobs.MethodInfo) - Assert.Empty(getBlobs.GetAnnotations()) - Assert.Empty(getBlobs.GetRuntimeAnnotations()) - Assert.Equal("GetBlobs", getBlobs.StoreFunction.Name) - Assert.False(getBlobs.StoreFunction.IsShared) - Assert.NotNull(getBlobs.ToString()) - Assert.Empty(getBlobs.Parameters) - - Dim objectEntity = model.FindEntityType(GetType(Object)) - Assert.Null(objectEntity.FindPrimaryKey()) - Dim objectEntityFunctionMapping = objectEntity.GetFunctionMappings().Single(Function(m) m.IsDefaultFunctionMapping) - Assert.True(objectEntityFunctionMapping.IncludesDerivedTypes) - Assert.Null(objectEntityFunctionMapping.IsSharedTablePrincipal) - Assert.Null(objectEntityFunctionMapping.IsSplitEntityTypePrincipal) - Assert.Same(getBlobs, objectEntityFunctionMapping.DbFunction) - End Sub) - End Sub - - Public Class DbFunctionContext - Inherits SqlServerContextBase - - Public Shared Function IsDateShared(aDate As String) As Boolean - Throw New NotImplementedException() - End Function - - Private Function GetCount(id As Guid?, condition As String) As Integer - Throw New NotImplementedException() - End Function - - Public Function GetData(id As Integer) As IQueryable(Of Data) - Return FromExpression(Function() GetData(id)) - End Function - - Public Function GetData() As IQueryable(Of Data) - Return FromExpression(Function() GetData()) - End Function - - Protected Overrides Sub ConfigureConventions(configurationBuilder As ModelConfigurationBuilder) - configurationBuilder.DefaultTypeMapping(Of String)().HasMaxLength(256).IsFixedLength() - End Sub - - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - MyBase.OnModelCreating(modelBuilder) - - modelBuilder. - HasDbFunction(GetType(DbFunctionContext). - GetMethod(NameOf(GetCount), BindingFlags.NonPublic Or BindingFlags.Instance)). - HasName("CustomerOrderCount").HasSchema("dbf").IsNullable(False). - HasParameter("id"). - PropagatesNullability(). - Metadata.SetAnnotation("MyAnnotation", {1L}) - - modelBuilder. - HasDbFunction(GetType(DbFunctionContext). - GetMethod(NameOf(IsDateShared))). - HasName("IsDate"). - IsBuiltIn(). - Metadata. - SetAnnotation("MyGuid", New Guid()) - - modelBuilder.HasDbFunction(GetType(DbFunctionContext).GetMethod(NameOf(GetData), {GetType(Integer)})) - modelBuilder.HasDbFunction(GetType(DbFunctionContext).GetMethod(NameOf(GetData), New Type() {})) - - modelBuilder. - Entity(Of Data)(). - ToFunction(GetType(DbFunctionContext). - FullName & ".GetData()", Function(f) f.HasName("GetAllData")). - HasNoKey() - - modelBuilder.Entity(Of Object)(). - ToFunction("GetBlobs()", Function(f) f.HasName("GetBlobs")). - HasNoKey() - End Sub - End Class - - - Public Sub Sequences() - - Dim rm1 = - -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - - Public Partial Class SequencesContextModel - Inherits RuntimeModel - - Private Shared ReadOnly _useOldBehavior31751 As Boolean - - Private Shared _Instance As SequencesContextModel - Public Shared ReadOnly Property Instance As IModel - Get - Return _Instance - End Get - End Property - - Shared Sub New() - Dim enabled31751 As Boolean - _useOldBehavior31751 = System.AppContext.TryGetSwitch("Microsoft.EntityFrameworkCore.Issue31751", enabled31751) AndAlso enabled31751 - - Dim model As New SequencesContextModel() - If _useOldBehavior31751 Then - model.Initialize() - Else - Dim thread = New System.Threading.Thread(Sub() model.Initialize(), 10 * 1024 * 1024) - thread.Start() - thread.Join() - End If - - model.Customize() - _Instance = model - End Sub - - Partial Private Sub Initialize() - End Sub - - Partial Private Sub Customize() - End Sub - End Class -End Namespace -]]>.Value - - Dim rm2 = - -Imports System -Imports System.Collections.Generic -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Metadata.Internal -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Public Partial Class SequencesContextModel - - Private Sub Initialize() - Dim data = DataEntityType.Create(Me) - - DataEntityType.CreateAnnotations(data) - - Dim sequences As New SortedDictionary(Of (String, String), ISequence)() - Dim hL As New RuntimeSequence( - "HL", - Me, - GetType(Long), - schema:="S", - incrementBy:=10) - - sequences(("HL", "S")) = hL - - Dim [long] As New RuntimeSequence( - "Long", - Me, - GetType(Long), - startValue:=-4L, - incrementBy:=2, - cyclic:=True, - minValue:=-2L, - maxValue:=2L) - - sequences(("Long", Nothing)) = [long] - - AddAnnotation("Relational:Sequences", sequences) - AddAnnotation("Relational:MaxIdentifierLength", 128) - AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.IdentityColumn) - AddRuntimeAnnotation("Relational:RelationalModel", CreateRelationalModel()) - End Sub - - Private Function CreateRelationalModel() As IRelationalModel - Dim relationalModel As New RelationalModel(Me) - - Dim data = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data") - - Dim defaultTableMappings As New List(Of TableMappingBase(Of ColumnMappingBase))() - data.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data", Nothing, relationalModel) - Dim blobColumnBase As New ColumnBase(Of ColumnMappingBase)("Blob", "varbinary(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase.Columns.Add("Blob", blobColumnBase) - Dim idColumnBase As New ColumnBase(Of ColumnMappingBase)("Id", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase.Columns.Add("Id", idColumnBase) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase As New TableMappingBase(Of ColumnMappingBase)(data, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase, False) - defaultTableMappings.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase, ColumnBase(Of ColumnMappingBase)), data.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(blobColumnBase, ColumnBase(Of ColumnMappingBase)), data.FindProperty("Blob"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase) - - Dim tableMappings As New List(Of TableMapping)() - data.SetRuntimeAnnotation("Relational:TableMappings", tableMappings) - Dim dataTable As New Table("Data", Nothing, relationalModel) - Dim idColumn As New Column("Id", "int", dataTable) - dataTable.Columns.Add("Id", idColumn) - Dim blobColumn As New Column("Blob", "varbinary(max)", dataTable) With { - .IsNullable = True - } - dataTable.Columns.Add("Blob", blobColumn) - Dim pK_Data As New UniqueConstraint("PK_Data", dataTable, {idColumn}) - dataTable.PrimaryKey = pK_Data - Dim pK_DataUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data", - {"Id"}) - pK_Data.MappedKeys.Add(pK_DataUc) - RelationalModel.GetOrCreateUniqueConstraints(pK_DataUc).Add(pK_Data) - dataTable.UniqueConstraints.Add("PK_Data", pK_Data) - relationalModel.Tables.Add(("Data", Nothing), dataTable) - Dim dataTableMapping As New TableMapping(data, dataTable, True) - dataTable.AddTypeMapping(dataTableMapping, False) - tableMappings.Add(dataTableMapping) - RelationalModel.CreateColumnMapping(idColumn, data.FindProperty("Id"), dataTableMapping) - RelationalModel.CreateColumnMapping(blobColumn, data.FindProperty("Blob"), dataTableMapping) - Return relationalModel.MakeReadOnly() - End Function - End Class -End Namespace -]]>.Value - - Dim e1 = - -Imports System -Imports System.Collections -Imports System.Linq -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class DataEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Data), - baseEntityType) - - Dim id = entityType.AddProperty( - "Id", - GetType(Integer), - valueGenerated:=ValueGenerated.OnAdd, - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=0) - id.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - id.AddAnnotation("SqlServer:HiLoSequenceName", "HL") - id.AddAnnotation("SqlServer:HiLoSequenceSchema", "S") - id.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.SequenceHiLo) - - Dim blob = entityType.AddProperty( - "Blob", - GetType(Byte()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.Data).GetProperty("Blob", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.Data).GetField("_Blob", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - blob.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(max)"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - blob.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim key = entityType.AddKey( - {id}) - entityType.SetPrimaryKey(key) - - Return entityType - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "Data") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Test( - New SequencesContext(), - CreateCompiledModelCodeGenerationOptions(), - Sub(code) - Assert.Collection( - code, - Sub(c) AssertFileContents("SequencesContextModel.vb", rm1, c), - Sub(c) AssertFileContents("SequencesContextModelBuilder.vb", rm2, c), - Sub(c) AssertFileContents("DataEntityType.vb", e1, c)) - End Sub, - Sub(model) - Assert.Equal(2, model.GetSequences().Count()) - - Dim longSequence = model.FindSequence("Long") - Assert.Same(model, longSequence.Model) - Assert.Equal(GetType(Long), longSequence.Type) - Assert.True(longSequence.IsCyclic) - Assert.Equal(-4, longSequence.StartValue) - Assert.Equal(-2, longSequence.MinValue) - Assert.Equal(2, longSequence.MaxValue) - Assert.Equal(2, longSequence.IncrementBy) - Assert.NotNull(longSequence.ToString()) - - Dim hiLo = model.FindSequence("HL", "S") - Assert.Same(model, DirectCast(hiLo, IReadOnlySequence).Model) - Assert.Equal("HL", hiLo.Name) - Assert.Equal("S", hiLo.Schema) - Assert.False(hiLo.IsCyclic) - Assert.Equal(1, hiLo.StartValue) - Assert.Null(hiLo.MinValue) - Assert.Null(hiLo.MaxValue) - Assert.Equal(10, hiLo.IncrementBy) - Assert.NotNull(hiLo.ToString()) - - Assert.Single(model.GetEntityTypes()) - Dim dataEntity = model.FindEntityType(GetType(Data)) - Assert.Same(hiLo, dataEntity.FindPrimaryKey().Properties.Single().FindHiLoSequence()) - End Sub) - End Sub - - Public Class SequencesContext - Inherits SqlServerContextBase - - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - MyBase.OnModelCreating(modelBuilder) - - modelBuilder.HasSequence(Of Long)("Long"). - HasMin(-2). - HasMax(2). - IsCyclic(). - IncrementsBy(2). - StartsAt(-4) - - modelBuilder.Entity(Of Data)(Sub(eb) - eb.Property(Of Integer)("Id").UseHiLo("HL", "S") - eb.HasKey("Id") - End Sub) - End Sub - End Class - - - Public Sub Key_sequences() - - Dim rm1 = - -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - - Public Partial Class KeySequencesContextModel - Inherits RuntimeModel - - Private Shared ReadOnly _useOldBehavior31751 As Boolean - - Private Shared _Instance As KeySequencesContextModel - Public Shared ReadOnly Property Instance As IModel - Get - Return _Instance - End Get - End Property - - Shared Sub New() - Dim enabled31751 As Boolean - _useOldBehavior31751 = System.AppContext.TryGetSwitch("Microsoft.EntityFrameworkCore.Issue31751", enabled31751) AndAlso enabled31751 - - Dim model As New KeySequencesContextModel() - If _useOldBehavior31751 Then - model.Initialize() - Else - Dim thread = New System.Threading.Thread(Sub() model.Initialize(), 10 * 1024 * 1024) - thread.Start() - thread.Join() - End If - - model.Customize() - _Instance = model - End Sub - - Partial Private Sub Initialize() - End Sub - - Partial Private Sub Customize() - End Sub - End Class -End Namespace -]]>.Value - - Dim rm2 = - -Imports System -Imports System.Collections.Generic -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Metadata.Internal -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Public Partial Class KeySequencesContextModel - - Private Sub Initialize() - Dim data = DataEntityType.Create(Me) - - DataEntityType.CreateAnnotations(data) - - Dim sequences As New SortedDictionary(Of (String, String), ISequence)() - Dim keySeq As New RuntimeSequence( - "KeySeq", - Me, - GetType(Long), - schema:="KeySeqSchema") - - sequences(("KeySeq", "KeySeqSchema")) = keySeq - - AddAnnotation("Relational:Sequences", sequences) - AddAnnotation("Relational:MaxIdentifierLength", 128) - AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.IdentityColumn) - AddRuntimeAnnotation("Relational:RelationalModel", CreateRelationalModel()) - End Sub - - Private Function CreateRelationalModel() As IRelationalModel - Dim relationalModel As New RelationalModel(Me) - - Dim data = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data") - - Dim defaultTableMappings As New List(Of TableMappingBase(Of ColumnMappingBase))() - data.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data", Nothing, relationalModel) - Dim blobColumnBase As New ColumnBase(Of ColumnMappingBase)("Blob", "varbinary(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase.Columns.Add("Blob", blobColumnBase) - Dim idColumnBase As New ColumnBase(Of ColumnMappingBase)("Id", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase.Columns.Add("Id", idColumnBase) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase As New TableMappingBase(Of ColumnMappingBase)(data, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase, False) - defaultTableMappings.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase, ColumnBase(Of ColumnMappingBase)), data.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(blobColumnBase, ColumnBase(Of ColumnMappingBase)), data.FindProperty("Blob"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase) - - Dim tableMappings As New List(Of TableMapping)() - data.SetRuntimeAnnotation("Relational:TableMappings", tableMappings) - Dim dataTable As New Table("Data", Nothing, relationalModel) - Dim idColumn As New Column("Id", "int", dataTable) - dataTable.Columns.Add("Id", idColumn) - Dim blobColumn As New Column("Blob", "varbinary(max)", dataTable) With { - .IsNullable = True - } - dataTable.Columns.Add("Blob", blobColumn) - Dim pK_Data As New UniqueConstraint("PK_Data", dataTable, {idColumn}) - dataTable.PrimaryKey = pK_Data - Dim pK_DataUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data", - {"Id"}) - pK_Data.MappedKeys.Add(pK_DataUc) - RelationalModel.GetOrCreateUniqueConstraints(pK_DataUc).Add(pK_Data) - dataTable.UniqueConstraints.Add("PK_Data", pK_Data) - relationalModel.Tables.Add(("Data", Nothing), dataTable) - Dim dataTableMapping As New TableMapping(data, dataTable, True) - dataTable.AddTypeMapping(dataTableMapping, False) - tableMappings.Add(dataTableMapping) - RelationalModel.CreateColumnMapping(idColumn, data.FindProperty("Id"), dataTableMapping) - RelationalModel.CreateColumnMapping(blobColumn, data.FindProperty("Blob"), dataTableMapping) - Return relationalModel.MakeReadOnly() - End Function - End Class -End Namespace -]]>.Value - - Dim e1 = - -Imports System -Imports System.Collections -Imports System.Linq -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class DataEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Data), - baseEntityType) - - Dim id = entityType.AddProperty( - "Id", - GetType(Integer), - valueGenerated:=ValueGenerated.OnAdd, - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=0) - id.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - id.AddAnnotation("Relational:DefaultValueSql", "NEXT VALUE FOR [KeySeqSchema].[KeySeq]") - id.AddAnnotation("SqlServer:SequenceName", "KeySeq") - id.AddAnnotation("SqlServer:SequenceSchema", "KeySeqSchema") - id.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.Sequence) - - Dim blob = entityType.AddProperty( - "Blob", - GetType(Byte()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.Data).GetProperty("Blob", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.Data).GetField("_Blob", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - blob.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(max)"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - blob.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim key = entityType.AddKey( - {id}) - entityType.SetPrimaryKey(key) - - Return entityType - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "Data") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Test( - New KeySequencesContext(), - CreateCompiledModelCodeGenerationOptions(), - Sub(code) - Assert.Collection( - code, - Sub(c) AssertFileContents("KeySequencesContextModel.vb", rm1, c), - Sub(c) AssertFileContents("KeySequencesContextModelBuilder.vb", rm2, c), - Sub(c) AssertFileContents("DataEntityType.vb", e1, c)) - End Sub, - Sub(Model) - Assert.Single(Model.GetSequences()) - - Dim keySequence = Model.FindSequence("KeySeq", "KeySeqSchema") - Assert.Same(Model, DirectCast(keySequence, IReadOnlySequence).Model) - Assert.Equal("KeySeq", keySequence.Name) - Assert.Equal("KeySeqSchema", keySequence.Schema) - Assert.False(keySequence.IsCyclic) - Assert.Equal(1, keySequence.StartValue) - Assert.Null(keySequence.MinValue) - Assert.Null(keySequence.MaxValue) - Assert.Equal(1, keySequence.IncrementBy) - Assert.NotNull(keySequence.ToString()) - - Assert.Single(DirectCast(Model.GetEntityTypes(), IEnumerable)) - Dim dataEntity = Model.FindEntityType(GetType(Data)) - Assert.Same(keySequence, dataEntity.FindPrimaryKey().Properties.Single().FindSequence()) - End Sub) - End Sub - - Public Class KeySequencesContext - Inherits SqlServerContextBase - - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - MyBase.OnModelCreating(modelBuilder) - - modelBuilder.Entity(Of Data)( - Sub(eb) - eb.Property(Of Integer)("Id").UseSequence("KeySeq", "KeySeqSchema") - eb.HasKey("Id") - End Sub) - End Sub - End Class - - - Public Sub CheckConstraints() - - Dim rm1 = - -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - - Public Partial Class ConstraintsContextModel - Inherits RuntimeModel - - Private Shared ReadOnly _useOldBehavior31751 As Boolean - - Private Shared _Instance As ConstraintsContextModel - Public Shared ReadOnly Property Instance As IModel - Get - Return _Instance - End Get - End Property - - Shared Sub New() - Dim enabled31751 As Boolean - _useOldBehavior31751 = System.AppContext.TryGetSwitch("Microsoft.EntityFrameworkCore.Issue31751", enabled31751) AndAlso enabled31751 - - Dim model As New ConstraintsContextModel() - If _useOldBehavior31751 Then - model.Initialize() - Else - Dim thread = New System.Threading.Thread(Sub() model.Initialize(), 10 * 1024 * 1024) - thread.Start() - thread.Join() - End If - - model.Customize() - _Instance = model - End Sub - - Partial Private Sub Initialize() - End Sub - - Partial Private Sub Customize() - End Sub - End Class -End Namespace -]]>.Value - - Dim rm2 = - -Imports System -Imports System.Collections.Generic -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Metadata.Internal -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Public Partial Class ConstraintsContextModel - - Private Sub Initialize() - Dim data = DataEntityType.Create(Me) - - DataEntityType.CreateAnnotations(data) - - AddAnnotation("Relational:MaxIdentifierLength", 128) - AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.IdentityColumn) - AddRuntimeAnnotation("Relational:RelationalModel", CreateRelationalModel()) - End Sub - - Private Function CreateRelationalModel() As IRelationalModel - Dim relationalModel As New RelationalModel(Me) - - Dim data = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data") - - Dim defaultTableMappings As New List(Of TableMappingBase(Of ColumnMappingBase))() - data.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data", Nothing, relationalModel) - Dim blobColumnBase As New ColumnBase(Of ColumnMappingBase)("Blob", "varbinary(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase.Columns.Add("Blob", blobColumnBase) - Dim idColumnBase As New ColumnBase(Of ColumnMappingBase)("Id", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase.Columns.Add("Id", idColumnBase) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase As New TableMappingBase(Of ColumnMappingBase)(data, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase, False) - defaultTableMappings.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase, ColumnBase(Of ColumnMappingBase)), data.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(blobColumnBase, ColumnBase(Of ColumnMappingBase)), data.FindProperty("Blob"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase) - - Dim tableMappings As New List(Of TableMapping)() - data.SetRuntimeAnnotation("Relational:TableMappings", tableMappings) - Dim dataTable As New Table("Data", Nothing, relationalModel) - Dim idColumn As New Column("Id", "int", dataTable) - dataTable.Columns.Add("Id", idColumn) - Dim blobColumn As New Column("Blob", "varbinary(max)", dataTable) With { - .IsNullable = True - } - dataTable.Columns.Add("Blob", blobColumn) - Dim pK_Data As New UniqueConstraint("PK_Data", dataTable, {idColumn}) - dataTable.PrimaryKey = pK_Data - Dim pK_DataUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data", - {"Id"}) - pK_Data.MappedKeys.Add(pK_DataUc) - RelationalModel.GetOrCreateUniqueConstraints(pK_DataUc).Add(pK_Data) - dataTable.UniqueConstraints.Add("PK_Data", pK_Data) - relationalModel.Tables.Add(("Data", Nothing), dataTable) - Dim dataTableMapping As New TableMapping(data, dataTable, True) - dataTable.AddTypeMapping(dataTableMapping, False) - tableMappings.Add(dataTableMapping) - RelationalModel.CreateColumnMapping(idColumn, data.FindProperty("Id"), dataTableMapping) - RelationalModel.CreateColumnMapping(blobColumn, data.FindProperty("Blob"), dataTableMapping) - Return relationalModel.MakeReadOnly() - End Function - End Class -End Namespace -]]>.Value - - Dim e1 = - -Imports System -Imports System.Collections -Imports System.Linq -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class DataEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Data), - baseEntityType) - - Dim id = entityType.AddProperty( - "Id", - GetType(Integer), - valueGenerated:=ValueGenerated.OnAdd, - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=0) - id.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - id.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.IdentityColumn) - - Dim blob = entityType.AddProperty( - "Blob", - GetType(Byte()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.Data).GetProperty("Blob", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.Data).GetField("_Blob", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - blob.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(max)"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - blob.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim key = entityType.AddKey( - {id}) - entityType.SetPrimaryKey(key) - - Return entityType - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "Data") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Test( - New ConstraintsContext(), - CreateCompiledModelCodeGenerationOptions(), - Sub(Code) - Assert.Collection(Code, - Sub(c) AssertFileContents("ConstraintsContextModel.vb", rm1, c), - Sub(c) AssertFileContents("ConstraintsContextModelBuilder.vb", rm2, c), - Sub(c) AssertFileContents("DataEntityType.vb", e1, c)) - End Sub, - Sub(model) - Dim dataEntity = model.GetEntityTypes().Single() - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() dataEntity.GetCheckConstraints()).Message) - End Sub) - End Sub - - Public Class ConstraintsContext - Inherits SqlServerContextBase - - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - MyBase.OnModelCreating(modelBuilder) - - modelBuilder.Entity(Of Data)( - Sub(eb) - eb.Property(Of Integer)("Id") - eb.HasKey("Id") - eb.ToTable(Function(tb) tb.HasCheckConstraint("idConstraint", "Id <> 0")) - eb.ToTable(Function(tb) tb.HasCheckConstraint("anotherConstraint", "Id <> -1")) - End Sub) - End Sub - End Class - - - Public Sub Triggers() - - Dim rm1 = - -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - - Public Partial Class TriggersContextModel - Inherits RuntimeModel - - Private Shared ReadOnly _useOldBehavior31751 As Boolean - - Private Shared _Instance As TriggersContextModel - Public Shared ReadOnly Property Instance As IModel - Get - Return _Instance - End Get - End Property - - Shared Sub New() - Dim enabled31751 As Boolean - _useOldBehavior31751 = System.AppContext.TryGetSwitch("Microsoft.EntityFrameworkCore.Issue31751", enabled31751) AndAlso enabled31751 - - Dim model As New TriggersContextModel() - If _useOldBehavior31751 Then - model.Initialize() - Else - Dim thread = New System.Threading.Thread(Sub() model.Initialize(), 10 * 1024 * 1024) - thread.Start() - thread.Join() - End If - - model.Customize() - _Instance = model - End Sub - - Partial Private Sub Initialize() - End Sub - - Partial Private Sub Customize() - End Sub - End Class -End Namespace -]]>.Value - - Dim rm2 = - -Imports System -Imports System.Collections.Generic -Imports Microsoft.EntityFrameworkCore -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Metadata.Internal -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Public Partial Class TriggersContextModel - - Private Sub Initialize() - Dim data = DataEntityType.Create(Me) - - DataEntityType.CreateAnnotations(data) - - AddAnnotation("Relational:MaxIdentifierLength", 128) - AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.IdentityColumn) - AddRuntimeAnnotation("Relational:RelationalModel", CreateRelationalModel()) - End Sub - - Private Function CreateRelationalModel() As IRelationalModel - Dim relationalModel As New RelationalModel(Me) - - Dim data = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data") - - Dim defaultTableMappings As New List(Of TableMappingBase(Of ColumnMappingBase))() - data.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data", Nothing, relationalModel) - Dim blobColumnBase As New ColumnBase(Of ColumnMappingBase)("Blob", "varbinary(max)", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase.Columns.Add("Blob", blobColumnBase) - Dim idColumnBase As New ColumnBase(Of ColumnMappingBase)("Id", "int", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase.Columns.Add("Id", idColumnBase) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase As New TableMappingBase(Of ColumnMappingBase)(data, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase, False) - defaultTableMappings.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase, ColumnBase(Of ColumnMappingBase)), data.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(blobColumnBase, ColumnBase(Of ColumnMappingBase)), data.FindProperty("Blob"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase) - - Dim tableMappings As New List(Of TableMapping)() - data.SetRuntimeAnnotation("Relational:TableMappings", tableMappings) - Dim dataTable As New Table("Data", Nothing, relationalModel) - Dim idColumn As New Column("Id", "int", dataTable) - dataTable.Columns.Add("Id", idColumn) - Dim blobColumn As New Column("Blob", "varbinary(max)", dataTable) With { - .IsNullable = True - } - dataTable.Columns.Add("Blob", blobColumn) - Dim pK_Data As New UniqueConstraint("PK_Data", dataTable, {idColumn}) - dataTable.PrimaryKey = pK_Data - Dim pK_DataUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data", - {"Id"}) - pK_Data.MappedKeys.Add(pK_DataUc) - RelationalModel.GetOrCreateUniqueConstraints(pK_DataUc).Add(pK_Data) - dataTable.UniqueConstraints.Add("PK_Data", pK_Data) - dataTable.Triggers.Add("Trigger1", data.FindDeclaredTrigger("Trigger1")) - dataTable.Triggers.Add("Trigger2", data.FindDeclaredTrigger("Trigger2")) - relationalModel.Tables.Add(("Data", Nothing), dataTable) - Dim dataTableMapping As New TableMapping(data, dataTable, True) - dataTable.AddTypeMapping(dataTableMapping, False) - tableMappings.Add(dataTableMapping) - RelationalModel.CreateColumnMapping(idColumn, data.FindProperty("Id"), dataTableMapping) - RelationalModel.CreateColumnMapping(blobColumn, data.FindProperty("Blob"), dataTableMapping) - Return relationalModel.MakeReadOnly() - End Function - End Class -End Namespace -]]>.Value - - Dim e1 = - -Imports System -Imports System.Collections -Imports System.Linq -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.SqlServer.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Friend Partial Class DataEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Data), - baseEntityType) - - Dim id = entityType.AddProperty( - "Id", - GetType(Integer), - valueGenerated:=ValueGenerated.OnAdd, - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=0) - id.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - id.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.IdentityColumn) - - Dim blob = entityType.AddProperty( - "Blob", - GetType(Byte()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.Data).GetProperty("Blob", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.Data).GetField("_Blob", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - blob.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqlServerByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="varbinary(max)"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - Type.Missing, - StoreTypePostfix.None}), CoreTypeMapping) - blob.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.None) - - Dim key = entityType.AddKey( - {id}) - entityType.SetPrimaryKey(key) - - Dim trigger1 = entityType.AddTrigger( - "Trigger1") - - Dim trigger2 = entityType.AddTrigger( - "Trigger2") - - Return entityType - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "Data") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - entityType.AddAnnotation("SqlServer:UseSqlOutputClause", False) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Test( - New TriggersContext(), - CreateCompiledModelCodeGenerationOptions(), - Sub(code) - Assert.Collection(code, - Sub(c) AssertFileContents("TriggersContextModel.vb", rm1, c), - Sub(c) AssertFileContents("TriggersContextModelBuilder.vb", rm2, c), - Sub(c) AssertFileContents("DataEntityType.vb", e1, c)) - End Sub, - Sub(Model) - Dim dataEntity = Model.GetEntityTypes().Single() - - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() dataEntity.GetCheckConstraints()).Message) - End Sub) - End Sub - - Public Class TriggersContext - Inherits SqlServerContextBase - - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - MyBase.OnModelCreating(modelBuilder) - - modelBuilder.Entity(Of Data)( - Sub(eb) - eb.Property(Of Integer)("Id") - eb.HasKey("Id") - - eb.ToTable( - Sub(tb) - tb.HasTrigger("Trigger1") - tb.HasTrigger("Trigger2") - End Sub) - End Sub) - End Sub - End Class - - - Public Sub Sqlite() - - Dim rm1 = - -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.VisualBasic - -Namespace Microsoft.EntityFrameworkCore.Metadata - - Public Partial Class SqliteContextModel - Inherits RuntimeModel - - Private Shared ReadOnly _useOldBehavior31751 As Boolean - - Private Shared _Instance As SqliteContextModel - Public Shared ReadOnly Property Instance As IModel - Get - Return _Instance - End Get - End Property - - Shared Sub New() - Dim enabled31751 As Boolean - _useOldBehavior31751 = System.AppContext.TryGetSwitch("Microsoft.EntityFrameworkCore.Issue31751", enabled31751) AndAlso enabled31751 - - Dim model As New SqliteContextModel() - If _useOldBehavior31751 Then - model.Initialize() - Else - Dim thread = New System.Threading.Thread(Sub() model.Initialize(), 10 * 1024 * 1024) - thread.Start() - thread.Join() - End If - - model.Customize() - _Instance = model - End Sub - - Partial Private Sub Initialize() - End Sub - - Partial Private Sub Customize() - End Sub - End Class -End Namespace -]]>.Value - Dim rm2 = - -Imports System.Collections.Generic -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata.Internal -Imports Microsoft.EntityFrameworkCore.Migrations -Imports Microsoft.VisualBasic - -Namespace Microsoft.EntityFrameworkCore.Metadata - Public Partial Class SqliteContextModel - - Private Sub Initialize() - Dim data = DataEntityType.Create(Me) - Dim dependentBase = DependentBaseEntityType.Create(Me) - Dim manyTypes = ManyTypesEntityType.Create(Me) - Dim principalBase = PrincipalBaseEntityType.Create(Me) - Dim ownedType = OwnedTypeEntityType.Create(Me) - Dim ownedType0 = OwnedType0EntityType.Create(Me) - Dim principalBasePrincipalDerivedDependentBasebyte = PrincipalBasePrincipalDerivedDependentBasebyteEntityType.Create(Me) - Dim dependentDerived = DependentDerivedEntityType.Create(Me, dependentBase) - Dim principalDerived = PrincipalDerivedEntityType.Create(Me, principalBase) - - DependentBaseEntityType.CreateForeignKey1(dependentBase, principalBase) - DependentBaseEntityType.CreateForeignKey2(dependentBase, principalDerived) - OwnedTypeEntityType.CreateForeignKey1(ownedType, principalBase) - OwnedTypeEntityType.CreateForeignKey2(ownedType, ownedType) - OwnedType0EntityType.CreateForeignKey1(ownedType0, principalDerived) - PrincipalBasePrincipalDerivedDependentBasebyteEntityType.CreateForeignKey1(principalBasePrincipalDerivedDependentBasebyte, principalDerived) - PrincipalBasePrincipalDerivedDependentBasebyteEntityType.CreateForeignKey2(principalBasePrincipalDerivedDependentBasebyte, principalBase) - PrincipalDerivedEntityType.CreateForeignKey1(principalDerived, principalBase) - - PrincipalBaseEntityType.CreateSkipNavigation1(principalBase, principalDerived, principalBasePrincipalDerivedDependentBasebyte) - PrincipalDerivedEntityType.CreateSkipNavigation1(principalDerived, principalBase, principalBasePrincipalDerivedDependentBasebyte) - - DataEntityType.CreateAnnotations(data) - DependentBaseEntityType.CreateAnnotations(dependentBase) - ManyTypesEntityType.CreateAnnotations(manyTypes) - PrincipalBaseEntityType.CreateAnnotations(principalBase) - OwnedTypeEntityType.CreateAnnotations(ownedType) - OwnedType0EntityType.CreateAnnotations(ownedType0) - PrincipalBasePrincipalDerivedDependentBasebyteEntityType.CreateAnnotations(principalBasePrincipalDerivedDependentBasebyte) - DependentDerivedEntityType.CreateAnnotations(dependentDerived) - PrincipalDerivedEntityType.CreateAnnotations(principalDerived) - - AddRuntimeAnnotation("Relational:RelationalModel", CreateRelationalModel()) - End Sub - - Private Function CreateRelationalModel() As IRelationalModel - Dim relationalModel As New RelationalModel(Me) - - Dim data = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data") - - Dim defaultTableMappings As New List(Of TableMappingBase(Of ColumnMappingBase))() - data.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data", Nothing, relationalModel) - Dim blobColumnBase As New ColumnBase(Of ColumnMappingBase)("Blob", "BLOB", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase.Columns.Add("Blob", blobColumnBase) - Dim idColumnBase As New ColumnBase(Of ColumnMappingBase)("Id", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase.Columns.Add("Id", idColumnBase) - Dim pointColumnBase As New ColumnBase(Of ColumnMappingBase)("Point", "POINT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase.Columns.Add("Point", pointColumnBase) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase As New TableMappingBase(Of ColumnMappingBase)(data, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase, False) - defaultTableMappings.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase, ColumnBase(Of ColumnMappingBase)), data.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(blobColumnBase, ColumnBase(Of ColumnMappingBase)), data.FindProperty("Blob"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(pointColumnBase, ColumnBase(Of ColumnMappingBase)), data.FindProperty("Point"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDataMappingBase) - - Dim tableMappings As New List(Of TableMapping)() - data.SetRuntimeAnnotation("Relational:TableMappings", tableMappings) - Dim dataTable As New Table("Data", Nothing, relationalModel) - Dim idColumn As New Column("Id", "INTEGER", dataTable) - dataTable.Columns.Add("Id", idColumn) - Dim blobColumn As New Column("Blob", "BLOB", dataTable) With { - .IsNullable = True - } - dataTable.Columns.Add("Blob", blobColumn) - Dim pointColumn As New Column("Point", "POINT", dataTable) With { - .IsNullable = True - } - dataTable.Columns.Add("Point", pointColumn) - Dim pK_Data As New UniqueConstraint("PK_Data", dataTable, {idColumn}) - dataTable.PrimaryKey = pK_Data - Dim pK_DataUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data", - {"Id"}) - pK_Data.MappedKeys.Add(pK_DataUc) - RelationalModel.GetOrCreateUniqueConstraints(pK_DataUc).Add(pK_Data) - dataTable.UniqueConstraints.Add("PK_Data", pK_Data) - relationalModel.Tables.Add(("Data", Nothing), dataTable) - Dim dataTableMapping As New TableMapping(data, dataTable, True) - dataTable.AddTypeMapping(dataTableMapping, False) - tableMappings.Add(dataTableMapping) - RelationalModel.CreateColumnMapping(idColumn, data.FindProperty("Id"), dataTableMapping) - RelationalModel.CreateColumnMapping(blobColumn, data.FindProperty("Blob"), dataTableMapping) - RelationalModel.CreateColumnMapping(pointColumn, data.FindProperty("Point"), dataTableMapping) - - Dim dependentBase = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase") - - Dim defaultTableMappings0 As New List(Of TableMappingBase(Of ColumnMappingBase))() - dependentBase.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings0) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", Nothing, relationalModel) - Dim dataColumnBase As New ColumnBase(Of ColumnMappingBase)("Data", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("Data", dataColumnBase) - Dim enumDiscriminatorColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumDiscriminator", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("EnumDiscriminator", enumDiscriminatorColumnBase) - Dim idColumnBase0 As New ColumnBase(Of ColumnMappingBase)("Id", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("Id", idColumnBase0) - Dim moneyColumnBase As New ColumnBase(Of ColumnMappingBase)("Money", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("Money", moneyColumnBase) - Dim principalAlternateIdColumnBase As New ColumnBase(Of ColumnMappingBase)("PrincipalAlternateId", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("PrincipalAlternateId", principalAlternateIdColumnBase) - Dim principalIdColumnBase As New ColumnBase(Of ColumnMappingBase)("PrincipalId", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("PrincipalId", principalIdColumnBase) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase As New TableMappingBase(Of ColumnMappingBase)(dependentBase, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase, False) - defaultTableMappings0.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalAlternateIdColumnBase, ColumnBase(Of ColumnMappingBase)), dependentBase.FindProperty("PrincipalAlternateId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalIdColumnBase, ColumnBase(Of ColumnMappingBase)), dependentBase.FindProperty("PrincipalId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumDiscriminatorColumnBase, ColumnBase(Of ColumnMappingBase)), dependentBase.FindProperty("EnumDiscriminator"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase0, ColumnBase(Of ColumnMappingBase)), dependentBase.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - - Dim tableMappings0 As New List(Of TableMapping)() - dependentBase.SetRuntimeAnnotation("Relational:TableMappings", tableMappings0) - Dim dependentBasebyteTable As New Table("DependentBase", Nothing, relationalModel) - Dim principalIdColumn As New Column("PrincipalId", "INTEGER", dependentBasebyteTable) - dependentBasebyteTable.Columns.Add("PrincipalId", principalIdColumn) - Dim principalAlternateIdColumn As New Column("PrincipalAlternateId", "TEXT", dependentBasebyteTable) - dependentBasebyteTable.Columns.Add("PrincipalAlternateId", principalAlternateIdColumn) - Dim dataColumn As New Column("Data", "TEXT", dependentBasebyteTable) With { - .IsNullable = True - } - dependentBasebyteTable.Columns.Add("Data", dataColumn) - Dim enumDiscriminatorColumn As New Column("EnumDiscriminator", "INTEGER", dependentBasebyteTable) - dependentBasebyteTable.Columns.Add("EnumDiscriminator", enumDiscriminatorColumn) - Dim idColumn0 As New Column("Id", "INTEGER", dependentBasebyteTable) With { - .IsNullable = True - } - dependentBasebyteTable.Columns.Add("Id", idColumn0) - Dim moneyColumn As New Column("Money", "TEXT", dependentBasebyteTable) With { - .IsNullable = True - } - dependentBasebyteTable.Columns.Add("Money", moneyColumn) - Dim pK_DependentBasebyte As New UniqueConstraint("PK_DependentBase", dependentBasebyteTable, {principalIdColumn, principalAlternateIdColumn}) - dependentBasebyteTable.PrimaryKey = pK_DependentBasebyte - Dim pK_DependentBasebyteUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", - {"PrincipalId", "PrincipalAlternateId"}) - pK_DependentBasebyte.MappedKeys.Add(pK_DependentBasebyteUc) - RelationalModel.GetOrCreateUniqueConstraints(pK_DependentBasebyteUc).Add(pK_DependentBasebyte) - dependentBasebyteTable.UniqueConstraints.Add("PK_DependentBase", pK_DependentBasebyte) - Dim iX_DependentBasebyte_PrincipalId As New TableIndex( - "IX_DependentBase_PrincipalId", dependentBasebyteTable, {principalIdColumn}, True) - Dim iX_DependentBasebyte_PrincipalIdIx = RelationalModel.GetIndex(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", - {"PrincipalId"}) - iX_DependentBasebyte_PrincipalId.MappedIndexes.Add(iX_DependentBasebyte_PrincipalIdIx) - RelationalModel.GetOrCreateTableIndexes(iX_DependentBasebyte_PrincipalIdIx).Add(iX_DependentBasebyte_PrincipalId) - dependentBasebyteTable.Indexes.Add("IX_DependentBase_PrincipalId", iX_DependentBasebyte_PrincipalId) - relationalModel.Tables.Add(("DependentBase", Nothing), dependentBasebyteTable) - Dim dependentBasebyteTableMapping As New TableMapping(dependentBase, dependentBasebyteTable, True) With { - .IsSharedTablePrincipal = True - } - dependentBasebyteTable.AddTypeMapping(dependentBasebyteTableMapping, False) - tableMappings0.Add(dependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(principalAlternateIdColumn, dependentBase.FindProperty("PrincipalAlternateId"), dependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(principalIdColumn, dependentBase.FindProperty("PrincipalId"), dependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(enumDiscriminatorColumn, dependentBase.FindProperty("EnumDiscriminator"), dependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(idColumn0, dependentBase.FindProperty("Id"), dependentBasebyteTableMapping) - - Dim dependentDerived = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentDerived") - - Dim defaultTableMappings1 As New List(Of TableMappingBase(Of ColumnMappingBase))() - dependentDerived.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings1) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0 As New TableMappingBase(Of ColumnMappingBase)(dependentDerived, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0, False) - defaultTableMappings1.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(principalAlternateIdColumnBase, ColumnBase(Of ColumnMappingBase)), dependentDerived.FindProperty("PrincipalAlternateId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(principalIdColumnBase, ColumnBase(Of ColumnMappingBase)), dependentDerived.FindProperty("PrincipalId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(dataColumnBase, ColumnBase(Of ColumnMappingBase)), dependentDerived.FindProperty("Data"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(enumDiscriminatorColumnBase, ColumnBase(Of ColumnMappingBase)), dependentDerived.FindProperty("EnumDiscriminator"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase0, ColumnBase(Of ColumnMappingBase)), dependentDerived.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(moneyColumnBase, ColumnBase(Of ColumnMappingBase)), dependentDerived.FindProperty("Money"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase0) - - Dim tableMappings1 As New List(Of TableMapping)() - dependentDerived.SetRuntimeAnnotation("Relational:TableMappings", tableMappings1) - Dim dependentBasebyteTableMapping0 As New TableMapping(dependentDerived, dependentBasebyteTable, True) With { - .IsSharedTablePrincipal = False - } - dependentBasebyteTable.AddTypeMapping(dependentBasebyteTableMapping0, False) - tableMappings1.Add(dependentBasebyteTableMapping0) - RelationalModel.CreateColumnMapping(principalAlternateIdColumn, dependentDerived.FindProperty("PrincipalAlternateId"), dependentBasebyteTableMapping0) - RelationalModel.CreateColumnMapping(principalIdColumn, dependentDerived.FindProperty("PrincipalId"), dependentBasebyteTableMapping0) - RelationalModel.CreateColumnMapping(dataColumn, dependentDerived.FindProperty("Data"), dependentBasebyteTableMapping0) - RelationalModel.CreateColumnMapping(enumDiscriminatorColumn, dependentDerived.FindProperty("EnumDiscriminator"), dependentBasebyteTableMapping0) - RelationalModel.CreateColumnMapping(idColumn0, dependentDerived.FindProperty("Id"), dependentBasebyteTableMapping0) - RelationalModel.CreateColumnMapping(moneyColumn, dependentDerived.FindProperty("Money"), dependentBasebyteTableMapping0) - - Dim manyTypes = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+ManyTypes") - - Dim defaultTableMappings2 As New List(Of TableMappingBase(Of ColumnMappingBase))() - manyTypes.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings2) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+ManyTypes", Nothing, relationalModel) - Dim boolColumnBase As New ColumnBase(Of ColumnMappingBase)("Bool", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Bool", boolColumnBase) - Dim boolArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("BoolArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("BoolArray", boolArrayColumnBase) - Dim boolToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("BoolToStringConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("BoolToStringConverterProperty", boolToStringConverterPropertyColumnBase) - Dim boolToTwoValuesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("BoolToTwoValuesConverterProperty", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("BoolToTwoValuesConverterProperty", boolToTwoValuesConverterPropertyColumnBase) - Dim boolToZeroOneConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("BoolToZeroOneConverterProperty", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("BoolToZeroOneConverterProperty", boolToZeroOneConverterPropertyColumnBase) - Dim bytesColumnBase As New ColumnBase(Of ColumnMappingBase)("Bytes", "BLOB", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Bytes", bytesColumnBase) - Dim bytesArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("BytesArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("BytesArray", bytesArrayColumnBase) - Dim bytesToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("BytesToStringConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("BytesToStringConverterProperty", bytesToStringConverterPropertyColumnBase) - Dim castingConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("CastingConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("CastingConverterProperty", castingConverterPropertyColumnBase) - Dim charColumnBase As New ColumnBase(Of ColumnMappingBase)("Char", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Char", charColumnBase) - Dim charArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("CharArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("CharArray", charArrayColumnBase) - Dim charToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("CharToStringConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("CharToStringConverterProperty", charToStringConverterPropertyColumnBase) - Dim dateOnlyArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("DateOnlyArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateOnlyArray", dateOnlyArrayColumnBase) - Dim dateOnlyToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DateOnlyToStringConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateOnlyToStringConverterProperty", dateOnlyToStringConverterPropertyColumnBase) - Dim dateTimeArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("DateTimeArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateTimeArray", dateTimeArrayColumnBase) - Dim dateTimeOffsetToBinaryConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DateTimeOffsetToBinaryConverterProperty", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateTimeOffsetToBinaryConverterProperty", dateTimeOffsetToBinaryConverterPropertyColumnBase) - Dim dateTimeOffsetToBytesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DateTimeOffsetToBytesConverterProperty", "BLOB", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateTimeOffsetToBytesConverterProperty", dateTimeOffsetToBytesConverterPropertyColumnBase) - Dim dateTimeOffsetToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DateTimeOffsetToStringConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateTimeOffsetToStringConverterProperty", dateTimeOffsetToStringConverterPropertyColumnBase) - Dim dateTimeToBinaryConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DateTimeToBinaryConverterProperty", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateTimeToBinaryConverterProperty", dateTimeToBinaryConverterPropertyColumnBase) - Dim dateTimeToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DateTimeToStringConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateTimeToStringConverterProperty", dateTimeToStringConverterPropertyColumnBase) - Dim dateTimeToTicksConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DateTimeToTicksConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DateTimeToTicksConverterProperty", dateTimeToTicksConverterPropertyColumnBase) - Dim decimalColumnBase As New ColumnBase(Of ColumnMappingBase)("Decimal", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Decimal", decimalColumnBase) - Dim decimalArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("DecimalArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DecimalArray", decimalArrayColumnBase) - Dim decimalNumberToBytesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DecimalNumberToBytesConverterProperty", "BLOB", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DecimalNumberToBytesConverterProperty", decimalNumberToBytesConverterPropertyColumnBase) - Dim decimalNumberToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DecimalNumberToStringConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DecimalNumberToStringConverterProperty", decimalNumberToStringConverterPropertyColumnBase) - Dim doubleColumnBase As New ColumnBase(Of ColumnMappingBase)("Double", "REAL", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Double", doubleColumnBase) - Dim doubleArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("DoubleArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DoubleArray", doubleArrayColumnBase) - Dim doubleNumberToBytesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DoubleNumberToBytesConverterProperty", "BLOB", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DoubleNumberToBytesConverterProperty", doubleNumberToBytesConverterPropertyColumnBase) - Dim doubleNumberToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("DoubleNumberToStringConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("DoubleNumberToStringConverterProperty", doubleNumberToStringConverterPropertyColumnBase) - Dim enum16ColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum16", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum16", enum16ColumnBase) - Dim enum16ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum16Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum16Array", enum16ArrayColumnBase) - Dim enum16AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum16AsString", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum16AsString", enum16AsStringColumnBase) - Dim enum16AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum16AsStringArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum16AsStringArray", enum16AsStringArrayColumnBase) - Dim enum16AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum16AsStringCollection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum16AsStringCollection", enum16AsStringCollectionColumnBase) - Dim enum16CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum16Collection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum16Collection", enum16CollectionColumnBase) - Dim enum32ColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum32", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum32", enum32ColumnBase) - Dim enum32ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum32Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum32Array", enum32ArrayColumnBase) - Dim enum32AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum32AsString", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum32AsString", enum32AsStringColumnBase) - Dim enum32AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum32AsStringArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum32AsStringArray", enum32AsStringArrayColumnBase) - Dim enum32AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum32AsStringCollection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum32AsStringCollection", enum32AsStringCollectionColumnBase) - Dim enum32CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum32Collection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum32Collection", enum32CollectionColumnBase) - Dim enum64ColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum64", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum64", enum64ColumnBase) - Dim enum64ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum64Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum64Array", enum64ArrayColumnBase) - Dim enum64AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum64AsString", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum64AsString", enum64AsStringColumnBase) - Dim enum64AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum64AsStringArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum64AsStringArray", enum64AsStringArrayColumnBase) - Dim enum64AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum64AsStringCollection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum64AsStringCollection", enum64AsStringCollectionColumnBase) - Dim enum64CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum64Collection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum64Collection", enum64CollectionColumnBase) - Dim enum8ColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum8", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum8", enum8ColumnBase) - Dim enum8ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum8Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum8Array", enum8ArrayColumnBase) - Dim enum8AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum8AsString", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum8AsString", enum8AsStringColumnBase) - Dim enum8AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum8AsStringArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum8AsStringArray", enum8AsStringArrayColumnBase) - Dim enum8AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum8AsStringCollection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum8AsStringCollection", enum8AsStringCollectionColumnBase) - Dim enum8CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum8Collection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Enum8Collection", enum8CollectionColumnBase) - Dim enumToNumberConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumToNumberConverterProperty", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumToNumberConverterProperty", enumToNumberConverterPropertyColumnBase) - Dim enumToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumToStringConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumToStringConverterProperty", enumToStringConverterPropertyColumnBase) - Dim enumU16ColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU16", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU16", enumU16ColumnBase) - Dim enumU16ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU16Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU16Array", enumU16ArrayColumnBase) - Dim enumU16AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU16AsString", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU16AsString", enumU16AsStringColumnBase) - Dim enumU16AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU16AsStringArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU16AsStringArray", enumU16AsStringArrayColumnBase) - Dim enumU16AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU16AsStringCollection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU16AsStringCollection", enumU16AsStringCollectionColumnBase) - Dim enumU16CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU16Collection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU16Collection", enumU16CollectionColumnBase) - Dim enumU32ColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU32", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU32", enumU32ColumnBase) - Dim enumU32ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU32Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU32Array", enumU32ArrayColumnBase) - Dim enumU32AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU32AsString", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU32AsString", enumU32AsStringColumnBase) - Dim enumU32AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU32AsStringArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU32AsStringArray", enumU32AsStringArrayColumnBase) - Dim enumU32AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU32AsStringCollection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU32AsStringCollection", enumU32AsStringCollectionColumnBase) - Dim enumU32CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU32Collection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU32Collection", enumU32CollectionColumnBase) - Dim enumU64ColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU64", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU64", enumU64ColumnBase) - Dim enumU64ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU64Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU64Array", enumU64ArrayColumnBase) - Dim enumU64AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU64AsString", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU64AsString", enumU64AsStringColumnBase) - Dim enumU64AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU64AsStringArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU64AsStringArray", enumU64AsStringArrayColumnBase) - Dim enumU64AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU64AsStringCollection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU64AsStringCollection", enumU64AsStringCollectionColumnBase) - Dim enumU64CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU64Collection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU64Collection", enumU64CollectionColumnBase) - Dim enumU8ColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU8", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU8", enumU8ColumnBase) - Dim enumU8ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU8Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU8Array", enumU8ArrayColumnBase) - Dim enumU8AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU8AsString", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU8AsString", enumU8AsStringColumnBase) - Dim enumU8AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU8AsStringArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU8AsStringArray", enumU8AsStringArrayColumnBase) - Dim enumU8AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU8AsStringCollection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU8AsStringCollection", enumU8AsStringCollectionColumnBase) - Dim enumU8CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("EnumU8Collection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("EnumU8Collection", enumU8CollectionColumnBase) - Dim floatArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("FloatArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("FloatArray", floatArrayColumnBase) - Dim guidColumnBase As New ColumnBase(Of ColumnMappingBase)("Guid", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Guid", guidColumnBase) - Dim guidArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("GuidArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("GuidArray", guidArrayColumnBase) - Dim guidToBytesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("GuidToBytesConverterProperty", "BLOB", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("GuidToBytesConverterProperty", guidToBytesConverterPropertyColumnBase) - Dim guidToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("GuidToStringConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("GuidToStringConverterProperty", guidToStringConverterPropertyColumnBase) - Dim iPAddressArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("IPAddressArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("IPAddressArray", iPAddressArrayColumnBase) - Dim iPAddressToBytesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("IPAddressToBytesConverterProperty", "BLOB", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("IPAddressToBytesConverterProperty", iPAddressToBytesConverterPropertyColumnBase) - Dim iPAddressToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("IPAddressToStringConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("IPAddressToStringConverterProperty", iPAddressToStringConverterPropertyColumnBase) - Dim idColumnBase1 As New ColumnBase(Of ColumnMappingBase)("Id", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Id", idColumnBase1) - Dim int16ColumnBase As New ColumnBase(Of ColumnMappingBase)("Int16", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Int16", int16ColumnBase) - Dim int16ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Int16Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Int16Array", int16ArrayColumnBase) - Dim int32ColumnBase As New ColumnBase(Of ColumnMappingBase)("Int32", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Int32", int32ColumnBase) - Dim int32ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Int32Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Int32Array", int32ArrayColumnBase) - Dim int64ColumnBase As New ColumnBase(Of ColumnMappingBase)("Int64", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Int64", int64ColumnBase) - Dim int64ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Int64Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Int64Array", int64ArrayColumnBase) - Dim int8ColumnBase As New ColumnBase(Of ColumnMappingBase)("Int8", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Int8", int8ColumnBase) - Dim int8ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("Int8Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Int8Array", int8ArrayColumnBase) - Dim intNumberToBytesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("IntNumberToBytesConverterProperty", "BLOB", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("IntNumberToBytesConverterProperty", intNumberToBytesConverterPropertyColumnBase) - Dim intNumberToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("IntNumberToStringConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("IntNumberToStringConverterProperty", intNumberToStringConverterPropertyColumnBase) - Dim nullIntToNullStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("NullIntToNullStringConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullIntToNullStringConverterProperty", nullIntToNullStringConverterPropertyColumnBase) - Dim nullableBoolColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableBool", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableBool", nullableBoolColumnBase) - Dim nullableBoolArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableBoolArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableBoolArray", nullableBoolArrayColumnBase) - Dim nullableBytesColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableBytes", "BLOB", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableBytes", nullableBytesColumnBase) - Dim nullableBytesArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableBytesArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableBytesArray", nullableBytesArrayColumnBase) - Dim nullableCharColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableChar", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableChar", nullableCharColumnBase) - Dim nullableCharArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableCharArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableCharArray", nullableCharArrayColumnBase) - Dim nullableDateOnlyColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableDateOnly", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableDateOnly", nullableDateOnlyColumnBase) - Dim nullableDateOnlyArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableDateOnlyArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableDateOnlyArray", nullableDateOnlyArrayColumnBase) - Dim nullableDateTimeColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableDateTime", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableDateTime", nullableDateTimeColumnBase) - Dim nullableDateTimeArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableDateTimeArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableDateTimeArray", nullableDateTimeArrayColumnBase) - Dim nullableDecimalColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableDecimal", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableDecimal", nullableDecimalColumnBase) - Dim nullableDecimalArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableDecimalArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableDecimalArray", nullableDecimalArrayColumnBase) - Dim nullableDoubleColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableDouble", "REAL", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableDouble", nullableDoubleColumnBase) - Dim nullableDoubleArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableDoubleArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableDoubleArray", nullableDoubleArrayColumnBase) - Dim nullableEnum16ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum16", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum16", nullableEnum16ColumnBase) - Dim nullableEnum16ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum16Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum16Array", nullableEnum16ArrayColumnBase) - Dim nullableEnum16AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum16AsString", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum16AsString", nullableEnum16AsStringColumnBase) - Dim nullableEnum16AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum16AsStringArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum16AsStringArray", nullableEnum16AsStringArrayColumnBase) - Dim nullableEnum16AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum16AsStringCollection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum16AsStringCollection", nullableEnum16AsStringCollectionColumnBase) - Dim nullableEnum16CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum16Collection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum16Collection", nullableEnum16CollectionColumnBase) - Dim nullableEnum32ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum32", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum32", nullableEnum32ColumnBase) - Dim nullableEnum32ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum32Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum32Array", nullableEnum32ArrayColumnBase) - Dim nullableEnum32AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum32AsString", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum32AsString", nullableEnum32AsStringColumnBase) - Dim nullableEnum32AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum32AsStringArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum32AsStringArray", nullableEnum32AsStringArrayColumnBase) - Dim nullableEnum32AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum32AsStringCollection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum32AsStringCollection", nullableEnum32AsStringCollectionColumnBase) - Dim nullableEnum32CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum32Collection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum32Collection", nullableEnum32CollectionColumnBase) - Dim nullableEnum64ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum64", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum64", nullableEnum64ColumnBase) - Dim nullableEnum64ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum64Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum64Array", nullableEnum64ArrayColumnBase) - Dim nullableEnum64AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum64AsString", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum64AsString", nullableEnum64AsStringColumnBase) - Dim nullableEnum64AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum64AsStringArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum64AsStringArray", nullableEnum64AsStringArrayColumnBase) - Dim nullableEnum64AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum64AsStringCollection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum64AsStringCollection", nullableEnum64AsStringCollectionColumnBase) - Dim nullableEnum64CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum64Collection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum64Collection", nullableEnum64CollectionColumnBase) - Dim nullableEnum8ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum8", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum8", nullableEnum8ColumnBase) - Dim nullableEnum8ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum8Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum8Array", nullableEnum8ArrayColumnBase) - Dim nullableEnum8AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum8AsString", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum8AsString", nullableEnum8AsStringColumnBase) - Dim nullableEnum8AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum8AsStringArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum8AsStringArray", nullableEnum8AsStringArrayColumnBase) - Dim nullableEnum8AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum8AsStringCollection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum8AsStringCollection", nullableEnum8AsStringCollectionColumnBase) - Dim nullableEnum8CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnum8Collection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnum8Collection", nullableEnum8CollectionColumnBase) - Dim nullableEnumU16ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU16", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU16", nullableEnumU16ColumnBase) - Dim nullableEnumU16ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU16Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU16Array", nullableEnumU16ArrayColumnBase) - Dim nullableEnumU16AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU16AsString", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU16AsString", nullableEnumU16AsStringColumnBase) - Dim nullableEnumU16AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU16AsStringArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU16AsStringArray", nullableEnumU16AsStringArrayColumnBase) - Dim nullableEnumU16AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU16AsStringCollection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU16AsStringCollection", nullableEnumU16AsStringCollectionColumnBase) - Dim nullableEnumU16CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU16Collection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU16Collection", nullableEnumU16CollectionColumnBase) - Dim nullableEnumU32ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU32", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU32", nullableEnumU32ColumnBase) - Dim nullableEnumU32ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU32Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU32Array", nullableEnumU32ArrayColumnBase) - Dim nullableEnumU32AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU32AsString", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU32AsString", nullableEnumU32AsStringColumnBase) - Dim nullableEnumU32AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU32AsStringArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU32AsStringArray", nullableEnumU32AsStringArrayColumnBase) - Dim nullableEnumU32AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU32AsStringCollection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU32AsStringCollection", nullableEnumU32AsStringCollectionColumnBase) - Dim nullableEnumU32CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU32Collection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU32Collection", nullableEnumU32CollectionColumnBase) - Dim nullableEnumU64ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU64", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU64", nullableEnumU64ColumnBase) - Dim nullableEnumU64ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU64Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU64Array", nullableEnumU64ArrayColumnBase) - Dim nullableEnumU64AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU64AsString", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU64AsString", nullableEnumU64AsStringColumnBase) - Dim nullableEnumU64AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU64AsStringArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU64AsStringArray", nullableEnumU64AsStringArrayColumnBase) - Dim nullableEnumU64AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU64AsStringCollection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU64AsStringCollection", nullableEnumU64AsStringCollectionColumnBase) - Dim nullableEnumU64CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU64Collection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU64Collection", nullableEnumU64CollectionColumnBase) - Dim nullableEnumU8ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU8", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU8", nullableEnumU8ColumnBase) - Dim nullableEnumU8ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU8Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU8Array", nullableEnumU8ArrayColumnBase) - Dim nullableEnumU8AsStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU8AsString", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU8AsString", nullableEnumU8AsStringColumnBase) - Dim nullableEnumU8AsStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU8AsStringArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU8AsStringArray", nullableEnumU8AsStringArrayColumnBase) - Dim nullableEnumU8AsStringCollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU8AsStringCollection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU8AsStringCollection", nullableEnumU8AsStringCollectionColumnBase) - Dim nullableEnumU8CollectionColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableEnumU8Collection", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableEnumU8Collection", nullableEnumU8CollectionColumnBase) - Dim nullableFloatColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableFloat", "REAL", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableFloat", nullableFloatColumnBase) - Dim nullableFloatArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableFloatArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableFloatArray", nullableFloatArrayColumnBase) - Dim nullableGuidColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableGuid", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableGuid", nullableGuidColumnBase) - Dim nullableGuidArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableGuidArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableGuidArray", nullableGuidArrayColumnBase) - Dim nullableIPAddressColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableIPAddress", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableIPAddress", nullableIPAddressColumnBase) - Dim nullableIPAddressArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableIPAddressArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableIPAddressArray", nullableIPAddressArrayColumnBase) - Dim nullableInt16ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableInt16", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableInt16", nullableInt16ColumnBase) - Dim nullableInt16ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableInt16Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableInt16Array", nullableInt16ArrayColumnBase) - Dim nullableInt32ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableInt32", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableInt32", nullableInt32ColumnBase) - Dim nullableInt32ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableInt32Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableInt32Array", nullableInt32ArrayColumnBase) - Dim nullableInt64ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableInt64", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableInt64", nullableInt64ColumnBase) - Dim nullableInt64ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableInt64Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableInt64Array", nullableInt64ArrayColumnBase) - Dim nullableInt8ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableInt8", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableInt8", nullableInt8ColumnBase) - Dim nullableInt8ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableInt8Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableInt8Array", nullableInt8ArrayColumnBase) - Dim nullablePhysicalAddressColumnBase As New ColumnBase(Of ColumnMappingBase)("NullablePhysicalAddress", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullablePhysicalAddress", nullablePhysicalAddressColumnBase) - Dim nullablePhysicalAddressArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullablePhysicalAddressArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullablePhysicalAddressArray", nullablePhysicalAddressArrayColumnBase) - Dim nullableStringColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableString", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableString", nullableStringColumnBase) - Dim nullableStringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableStringArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableStringArray", nullableStringArrayColumnBase) - Dim nullableTimeOnlyColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableTimeOnly", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableTimeOnly", nullableTimeOnlyColumnBase) - Dim nullableTimeOnlyArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableTimeOnlyArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableTimeOnlyArray", nullableTimeOnlyArrayColumnBase) - Dim nullableTimeSpanColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableTimeSpan", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableTimeSpan", nullableTimeSpanColumnBase) - Dim nullableTimeSpanArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableTimeSpanArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableTimeSpanArray", nullableTimeSpanArrayColumnBase) - Dim nullableUInt16ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUInt16", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUInt16", nullableUInt16ColumnBase) - Dim nullableUInt16ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUInt16Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUInt16Array", nullableUInt16ArrayColumnBase) - Dim nullableUInt32ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUInt32", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUInt32", nullableUInt32ColumnBase) - Dim nullableUInt32ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUInt32Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUInt32Array", nullableUInt32ArrayColumnBase) - Dim nullableUInt64ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUInt64", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUInt64", nullableUInt64ColumnBase) - Dim nullableUInt64ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUInt64Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUInt64Array", nullableUInt64ArrayColumnBase) - Dim nullableUInt8ColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUInt8", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUInt8", nullableUInt8ColumnBase) - Dim nullableUInt8ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUInt8Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUInt8Array", nullableUInt8ArrayColumnBase) - Dim nullableUriColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUri", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUri", nullableUriColumnBase) - Dim nullableUriArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("NullableUriArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("NullableUriArray", nullableUriArrayColumnBase) - Dim physicalAddressArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("PhysicalAddressArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("PhysicalAddressArray", physicalAddressArrayColumnBase) - Dim physicalAddressToBytesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("PhysicalAddressToBytesConverterProperty", "BLOB", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("PhysicalAddressToBytesConverterProperty", physicalAddressToBytesConverterPropertyColumnBase) - Dim physicalAddressToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("PhysicalAddressToStringConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("PhysicalAddressToStringConverterProperty", physicalAddressToStringConverterPropertyColumnBase) - Dim stringColumnBase As New ColumnBase(Of ColumnMappingBase)("String", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("String", stringColumnBase) - Dim stringArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("StringArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringArray", stringArrayColumnBase) - Dim stringToBoolConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToBoolConverterProperty", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToBoolConverterProperty", stringToBoolConverterPropertyColumnBase) - Dim stringToBytesConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToBytesConverterProperty", "BLOB", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToBytesConverterProperty", stringToBytesConverterPropertyColumnBase) - Dim stringToCharConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToCharConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToCharConverterProperty", stringToCharConverterPropertyColumnBase) - Dim stringToDateOnlyConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToDateOnlyConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToDateOnlyConverterProperty", stringToDateOnlyConverterPropertyColumnBase) - Dim stringToDateTimeConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToDateTimeConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToDateTimeConverterProperty", stringToDateTimeConverterPropertyColumnBase) - Dim stringToDateTimeOffsetConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToDateTimeOffsetConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToDateTimeOffsetConverterProperty", stringToDateTimeOffsetConverterPropertyColumnBase) - Dim stringToDecimalNumberConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToDecimalNumberConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToDecimalNumberConverterProperty", stringToDecimalNumberConverterPropertyColumnBase) - Dim stringToDoubleNumberConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToDoubleNumberConverterProperty", "REAL", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToDoubleNumberConverterProperty", stringToDoubleNumberConverterPropertyColumnBase) - Dim stringToEnumConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToEnumConverterProperty", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToEnumConverterProperty", stringToEnumConverterPropertyColumnBase) - Dim stringToGuidConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToGuidConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToGuidConverterProperty", stringToGuidConverterPropertyColumnBase) - Dim stringToIntNumberConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToIntNumberConverterProperty", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToIntNumberConverterProperty", stringToIntNumberConverterPropertyColumnBase) - Dim stringToTimeOnlyConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToTimeOnlyConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToTimeOnlyConverterProperty", stringToTimeOnlyConverterPropertyColumnBase) - Dim stringToTimeSpanConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToTimeSpanConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToTimeSpanConverterProperty", stringToTimeSpanConverterPropertyColumnBase) - Dim stringToUriConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("StringToUriConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("StringToUriConverterProperty", stringToUriConverterPropertyColumnBase) - Dim timeOnlyArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("TimeOnlyArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("TimeOnlyArray", timeOnlyArrayColumnBase) - Dim timeOnlyToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("TimeOnlyToStringConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("TimeOnlyToStringConverterProperty", timeOnlyToStringConverterPropertyColumnBase) - Dim timeOnlyToTicksConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("TimeOnlyToTicksConverterProperty", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("TimeOnlyToTicksConverterProperty", timeOnlyToTicksConverterPropertyColumnBase) - Dim timeSpanArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("TimeSpanArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("TimeSpanArray", timeSpanArrayColumnBase) - Dim timeSpanToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("TimeSpanToStringConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("TimeSpanToStringConverterProperty", timeSpanToStringConverterPropertyColumnBase) - Dim timeSpanToTicksConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("TimeSpanToTicksConverterProperty", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("TimeSpanToTicksConverterProperty", timeSpanToTicksConverterPropertyColumnBase) - Dim uInt16ColumnBase As New ColumnBase(Of ColumnMappingBase)("UInt16", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UInt16", uInt16ColumnBase) - Dim uInt16ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("UInt16Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UInt16Array", uInt16ArrayColumnBase) - Dim uInt32ColumnBase As New ColumnBase(Of ColumnMappingBase)("UInt32", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UInt32", uInt32ColumnBase) - Dim uInt32ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("UInt32Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UInt32Array", uInt32ArrayColumnBase) - Dim uInt64ColumnBase As New ColumnBase(Of ColumnMappingBase)("UInt64", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UInt64", uInt64ColumnBase) - Dim uInt64ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("UInt64Array", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UInt64Array", uInt64ArrayColumnBase) - Dim uInt8ColumnBase As New ColumnBase(Of ColumnMappingBase)("UInt8", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UInt8", uInt8ColumnBase) - Dim uInt8ArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("UInt8Array", "BLOB", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UInt8Array", uInt8ArrayColumnBase) - Dim uriColumnBase As New ColumnBase(Of ColumnMappingBase)("Uri", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("Uri", uriColumnBase) - Dim uriArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("UriArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UriArray", uriArrayColumnBase) - Dim uriToStringConverterPropertyColumnBase As New ColumnBase(Of ColumnMappingBase)("UriToStringConverterProperty", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("UriToStringConverterProperty", uriToStringConverterPropertyColumnBase) - Dim aDateOnlyColumnBase As New ColumnBase(Of ColumnMappingBase)("aDateOnly", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("aDateOnly", aDateOnlyColumnBase) - Dim aDateTimeColumnBase As New ColumnBase(Of ColumnMappingBase)("aDateTime", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("aDateTime", aDateTimeColumnBase) - Dim aFloatColumnBase As New ColumnBase(Of ColumnMappingBase)("aFloat", "REAL", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("aFloat", aFloatColumnBase) - Dim aPhysicalAddressColumnBase As New ColumnBase(Of ColumnMappingBase)("aPhysicalAddress", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("aPhysicalAddress", aPhysicalAddressColumnBase) - Dim aTimeOnlyColumnBase As New ColumnBase(Of ColumnMappingBase)("aTimeOnly", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("aTimeOnly", aTimeOnlyColumnBase) - Dim aTimeSpanColumnBase As New ColumnBase(Of ColumnMappingBase)("aTimeSpan", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("aTimeSpan", aTimeSpanColumnBase) - Dim anIPAddressColumnBase As New ColumnBase(Of ColumnMappingBase)("anIPAddress", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.Columns.Add("anIPAddress", anIPAddressColumnBase) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+ManyTypes", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase As New TableMappingBase(Of ColumnMappingBase)(manyTypes, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase, False) - defaultTableMappings2.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase1, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(boolColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Bool"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(boolArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("BoolArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(boolToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("BoolToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(boolToTwoValuesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("BoolToTwoValuesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(boolToZeroOneConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("BoolToZeroOneConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(bytesColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Bytes"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(bytesArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("BytesArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(bytesToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("BytesToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(castingConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("CastingConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(charColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Char"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(charArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("CharArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(charToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("CharToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateOnlyArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateOnlyArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateOnlyToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateOnlyToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateTimeArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateTimeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateTimeOffsetToBinaryConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateTimeOffsetToBinaryConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateTimeOffsetToBytesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateTimeOffsetToBytesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateTimeOffsetToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateTimeOffsetToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateTimeToBinaryConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateTimeToBinaryConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateTimeToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateTimeToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(dateTimeToTicksConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DateTimeToTicksConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(decimalColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Decimal"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(decimalArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DecimalArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(decimalNumberToBytesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DecimalNumberToBytesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(decimalNumberToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DecimalNumberToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(doubleColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Double"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(doubleArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DoubleArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(doubleNumberToBytesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DoubleNumberToBytesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(doubleNumberToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("DoubleNumberToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum16ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum16"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum16ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum16Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum16AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum16AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum16AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum16AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum16AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum16AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum16CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum16Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum32ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum32"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum32ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum32Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum32AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum32AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum32AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum32AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum32AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum32AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum32CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum32Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum64ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum64"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum64ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum64Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum64AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum64AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum64AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum64AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum64AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum64AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum64CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum64Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum8ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum8"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum8ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum8Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum8AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum8AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum8AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum8AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum8AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum8AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum8CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Enum8Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumToNumberConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumToNumberConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU16ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU16"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU16ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU16Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU16AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU16AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU16AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU16AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU16AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU16AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU16CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU16Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU32ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU32"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU32ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU32Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU32AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU32AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU32AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU32AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU32AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU32AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU32CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU32Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU64ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU64"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU64ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU64Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU64AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU64AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU64AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU64AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU64AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU64AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU64CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU64Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU8ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU8"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU8ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU8Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU8AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU8AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU8AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU8AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU8AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU8AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enumU8CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("EnumU8Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(floatArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("FloatArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(guidColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Guid"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(guidArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("GuidArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(guidToBytesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("GuidToBytesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(guidToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("GuidToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(iPAddressArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("IPAddressArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(iPAddressToBytesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("IPAddressToBytesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(iPAddressToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("IPAddressToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(int16ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Int16"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(int16ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Int16Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(int32ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Int32"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(int32ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Int32Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(int64ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Int64"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(int64ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Int64Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(int8ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Int8"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(int8ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Int8Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(intNumberToBytesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("IntNumberToBytesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(intNumberToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("IntNumberToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullIntToNullStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullIntToNullStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableBoolColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableBool"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableBoolArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableBoolArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableBytesColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableBytes"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableBytesArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableBytesArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableCharColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableChar"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableCharArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableCharArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableDateOnlyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableDateOnly"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableDateOnlyArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableDateOnlyArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableDateTimeColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableDateTime"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableDateTimeArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableDateTimeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableDecimalColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableDecimal"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableDecimalArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableDecimalArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableDoubleColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableDouble"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableDoubleArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableDoubleArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum16ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum16"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum16ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum16Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum16AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum16AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum16AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum16AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum16AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum16AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum16CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum16Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum32ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum32"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum32ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum32Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum32AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum32AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum32AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum32AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum32AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum32AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum32CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum32Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum64ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum64"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum64ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum64Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum64AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum64AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum64AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum64AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum64AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum64AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum64CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum64Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum8ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum8"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum8ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum8Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum8AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum8AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum8AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum8AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum8AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum8AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnum8CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnum8Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU16ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU16"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU16ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU16Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU16AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU16AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU16AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU16AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU16AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU16AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU16CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU16Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU32ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU32"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU32ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU32Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU32AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU32AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU32AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU32AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU32AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU32AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU32CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU32Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU64ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU64"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU64ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU64Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU64AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU64AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU64AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU64AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU64AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU64AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU64CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU64Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU8ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU8"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU8ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU8Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU8AsStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU8AsString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU8AsStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU8AsStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU8AsStringCollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU8AsStringCollection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableEnumU8CollectionColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableEnumU8Collection"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableFloatColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableFloat"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableFloatArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableFloatArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableGuidColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableGuid"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableGuidArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableGuidArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableIPAddressColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableIPAddress"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableIPAddressArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableIPAddressArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableInt16ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableInt16"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableInt16ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableInt16Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableInt32ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableInt32"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableInt32ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableInt32Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableInt64ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableInt64"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableInt64ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableInt64Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableInt8ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableInt8"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableInt8ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableInt8Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullablePhysicalAddressColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullablePhysicalAddress"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullablePhysicalAddressArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullablePhysicalAddressArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableStringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableString"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableStringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableStringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableTimeOnlyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableTimeOnly"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableTimeOnlyArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableTimeOnlyArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableTimeSpanColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableTimeSpan"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableTimeSpanArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableTimeSpanArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUInt16ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUInt16"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUInt16ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUInt16Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUInt32ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUInt32"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUInt32ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUInt32Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUInt64ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUInt64"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUInt64ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUInt64Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUInt8ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUInt8"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUInt8ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUInt8Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUriColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUri"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(nullableUriArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("NullableUriArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(physicalAddressArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("PhysicalAddressArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(physicalAddressToBytesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("PhysicalAddressToBytesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(physicalAddressToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("PhysicalAddressToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("String"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToBoolConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToBoolConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToBytesConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToBytesConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToCharConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToCharConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToDateOnlyConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToDateOnlyConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToDateTimeConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToDateTimeConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToDateTimeOffsetConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToDateTimeOffsetConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToDecimalNumberConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToDecimalNumberConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToDoubleNumberConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToDoubleNumberConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToEnumConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToEnumConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToGuidConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToGuidConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToIntNumberConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToIntNumberConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToTimeOnlyConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToTimeOnlyConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToTimeSpanConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToTimeSpanConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(stringToUriConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("StringToUriConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(timeOnlyArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("TimeOnlyArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(timeOnlyToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("TimeOnlyToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(timeOnlyToTicksConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("TimeOnlyToTicksConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(timeSpanArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("TimeSpanArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(timeSpanToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("TimeSpanToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(timeSpanToTicksConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("TimeSpanToTicksConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uInt16ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UInt16"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uInt16ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UInt16Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uInt32ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UInt32"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uInt32ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UInt32Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uInt64ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UInt64"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uInt64ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UInt64Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uInt8ColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UInt8"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uInt8ArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UInt8Array"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uriColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("Uri"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uriArrayColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UriArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(uriToStringConverterPropertyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("UriToStringConverterProperty"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(aDateOnlyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("aDateOnly"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(aDateTimeColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("aDateTime"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(aFloatColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("aFloat"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(aPhysicalAddressColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("aPhysicalAddress"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(aTimeOnlyColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("aTimeOnly"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(aTimeSpanColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("aTimeSpan"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(anIPAddressColumnBase, ColumnBase(Of ColumnMappingBase)), manyTypes.FindProperty("anIPAddress"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestManyTypesMappingBase) - - Dim tableMappings2 As New List(Of TableMapping)() - manyTypes.SetRuntimeAnnotation("Relational:TableMappings", tableMappings2) - Dim manyTypesTable As New Table("ManyTypes", Nothing, relationalModel) - Dim idColumn1 As New Column("Id", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("Id", idColumn1) - Dim boolColumn As New Column("Bool", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("Bool", boolColumn) - Dim boolArrayColumn As New Column("BoolArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("BoolArray", boolArrayColumn) - Dim boolToStringConverterPropertyColumn As New Column("BoolToStringConverterProperty", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("BoolToStringConverterProperty", boolToStringConverterPropertyColumn) - Dim boolToTwoValuesConverterPropertyColumn As New Column("BoolToTwoValuesConverterProperty", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("BoolToTwoValuesConverterProperty", boolToTwoValuesConverterPropertyColumn) - Dim boolToZeroOneConverterPropertyColumn As New Column("BoolToZeroOneConverterProperty", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("BoolToZeroOneConverterProperty", boolToZeroOneConverterPropertyColumn) - Dim bytesColumn As New Column("Bytes", "BLOB", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Bytes", bytesColumn) - Dim bytesArrayColumn As New Column("BytesArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("BytesArray", bytesArrayColumn) - Dim bytesToStringConverterPropertyColumn As New Column("BytesToStringConverterProperty", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("BytesToStringConverterProperty", bytesToStringConverterPropertyColumn) - Dim castingConverterPropertyColumn As New Column("CastingConverterProperty", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("CastingConverterProperty", castingConverterPropertyColumn) - Dim charColumn As New Column("Char", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("Char", charColumn) - Dim charArrayColumn As New Column("CharArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("CharArray", charArrayColumn) - Dim charToStringConverterPropertyColumn As New Column("CharToStringConverterProperty", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("CharToStringConverterProperty", charToStringConverterPropertyColumn) - Dim dateOnlyArrayColumn As New Column("DateOnlyArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("DateOnlyArray", dateOnlyArrayColumn) - Dim dateOnlyToStringConverterPropertyColumn As New Column("DateOnlyToStringConverterProperty", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("DateOnlyToStringConverterProperty", dateOnlyToStringConverterPropertyColumn) - Dim dateTimeArrayColumn As New Column("DateTimeArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("DateTimeArray", dateTimeArrayColumn) - Dim dateTimeOffsetToBinaryConverterPropertyColumn As New Column("DateTimeOffsetToBinaryConverterProperty", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("DateTimeOffsetToBinaryConverterProperty", dateTimeOffsetToBinaryConverterPropertyColumn) - Dim dateTimeOffsetToBytesConverterPropertyColumn As New Column("DateTimeOffsetToBytesConverterProperty", "BLOB", manyTypesTable) - manyTypesTable.Columns.Add("DateTimeOffsetToBytesConverterProperty", dateTimeOffsetToBytesConverterPropertyColumn) - Dim dateTimeOffsetToStringConverterPropertyColumn As New Column("DateTimeOffsetToStringConverterProperty", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("DateTimeOffsetToStringConverterProperty", dateTimeOffsetToStringConverterPropertyColumn) - Dim dateTimeToBinaryConverterPropertyColumn As New Column("DateTimeToBinaryConverterProperty", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("DateTimeToBinaryConverterProperty", dateTimeToBinaryConverterPropertyColumn) - Dim dateTimeToStringConverterPropertyColumn As New Column("DateTimeToStringConverterProperty", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("DateTimeToStringConverterProperty", dateTimeToStringConverterPropertyColumn) - Dim dateTimeToTicksConverterPropertyColumn As New Column("DateTimeToTicksConverterProperty", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("DateTimeToTicksConverterProperty", dateTimeToTicksConverterPropertyColumn) - Dim decimalColumn As New Column("Decimal", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("Decimal", decimalColumn) - Dim decimalArrayColumn As New Column("DecimalArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("DecimalArray", decimalArrayColumn) - Dim decimalNumberToBytesConverterPropertyColumn As New Column("DecimalNumberToBytesConverterProperty", "BLOB", manyTypesTable) - manyTypesTable.Columns.Add("DecimalNumberToBytesConverterProperty", decimalNumberToBytesConverterPropertyColumn) - Dim decimalNumberToStringConverterPropertyColumn As New Column("DecimalNumberToStringConverterProperty", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("DecimalNumberToStringConverterProperty", decimalNumberToStringConverterPropertyColumn) - Dim doubleColumn As New Column("Double", "REAL", manyTypesTable) - manyTypesTable.Columns.Add("Double", doubleColumn) - Dim doubleArrayColumn As New Column("DoubleArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("DoubleArray", doubleArrayColumn) - Dim doubleNumberToBytesConverterPropertyColumn As New Column("DoubleNumberToBytesConverterProperty", "BLOB", manyTypesTable) - manyTypesTable.Columns.Add("DoubleNumberToBytesConverterProperty", doubleNumberToBytesConverterPropertyColumn) - Dim doubleNumberToStringConverterPropertyColumn As New Column("DoubleNumberToStringConverterProperty", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("DoubleNumberToStringConverterProperty", doubleNumberToStringConverterPropertyColumn) - Dim enum16Column As New Column("Enum16", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("Enum16", enum16Column) - Dim enum16ArrayColumn As New Column("Enum16Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum16Array", enum16ArrayColumn) - Dim enum16AsStringColumn As New Column("Enum16AsString", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("Enum16AsString", enum16AsStringColumn) - Dim enum16AsStringArrayColumn As New Column("Enum16AsStringArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum16AsStringArray", enum16AsStringArrayColumn) - Dim enum16AsStringCollectionColumn As New Column("Enum16AsStringCollection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum16AsStringCollection", enum16AsStringCollectionColumn) - Dim enum16CollectionColumn As New Column("Enum16Collection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum16Collection", enum16CollectionColumn) - Dim enum32Column As New Column("Enum32", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("Enum32", enum32Column) - Dim enum32ArrayColumn As New Column("Enum32Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum32Array", enum32ArrayColumn) - Dim enum32AsStringColumn As New Column("Enum32AsString", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("Enum32AsString", enum32AsStringColumn) - Dim enum32AsStringArrayColumn As New Column("Enum32AsStringArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum32AsStringArray", enum32AsStringArrayColumn) - Dim enum32AsStringCollectionColumn As New Column("Enum32AsStringCollection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum32AsStringCollection", enum32AsStringCollectionColumn) - Dim enum32CollectionColumn As New Column("Enum32Collection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum32Collection", enum32CollectionColumn) - Dim enum64Column As New Column("Enum64", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("Enum64", enum64Column) - Dim enum64ArrayColumn As New Column("Enum64Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum64Array", enum64ArrayColumn) - Dim enum64AsStringColumn As New Column("Enum64AsString", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("Enum64AsString", enum64AsStringColumn) - Dim enum64AsStringArrayColumn As New Column("Enum64AsStringArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum64AsStringArray", enum64AsStringArrayColumn) - Dim enum64AsStringCollectionColumn As New Column("Enum64AsStringCollection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum64AsStringCollection", enum64AsStringCollectionColumn) - Dim enum64CollectionColumn As New Column("Enum64Collection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum64Collection", enum64CollectionColumn) - Dim enum8Column As New Column("Enum8", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("Enum8", enum8Column) - Dim enum8ArrayColumn As New Column("Enum8Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum8Array", enum8ArrayColumn) - Dim enum8AsStringColumn As New Column("Enum8AsString", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("Enum8AsString", enum8AsStringColumn) - Dim enum8AsStringArrayColumn As New Column("Enum8AsStringArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum8AsStringArray", enum8AsStringArrayColumn) - Dim enum8AsStringCollectionColumn As New Column("Enum8AsStringCollection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum8AsStringCollection", enum8AsStringCollectionColumn) - Dim enum8CollectionColumn As New Column("Enum8Collection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Enum8Collection", enum8CollectionColumn) - Dim enumToNumberConverterPropertyColumn As New Column("EnumToNumberConverterProperty", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("EnumToNumberConverterProperty", enumToNumberConverterPropertyColumn) - Dim enumToStringConverterPropertyColumn As New Column("EnumToStringConverterProperty", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("EnumToStringConverterProperty", enumToStringConverterPropertyColumn) - Dim enumU16Column As New Column("EnumU16", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("EnumU16", enumU16Column) - Dim enumU16ArrayColumn As New Column("EnumU16Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU16Array", enumU16ArrayColumn) - Dim enumU16AsStringColumn As New Column("EnumU16AsString", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("EnumU16AsString", enumU16AsStringColumn) - Dim enumU16AsStringArrayColumn As New Column("EnumU16AsStringArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU16AsStringArray", enumU16AsStringArrayColumn) - Dim enumU16AsStringCollectionColumn As New Column("EnumU16AsStringCollection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU16AsStringCollection", enumU16AsStringCollectionColumn) - Dim enumU16CollectionColumn As New Column("EnumU16Collection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU16Collection", enumU16CollectionColumn) - Dim enumU32Column As New Column("EnumU32", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("EnumU32", enumU32Column) - Dim enumU32ArrayColumn As New Column("EnumU32Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU32Array", enumU32ArrayColumn) - Dim enumU32AsStringColumn As New Column("EnumU32AsString", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("EnumU32AsString", enumU32AsStringColumn) - Dim enumU32AsStringArrayColumn As New Column("EnumU32AsStringArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU32AsStringArray", enumU32AsStringArrayColumn) - Dim enumU32AsStringCollectionColumn As New Column("EnumU32AsStringCollection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU32AsStringCollection", enumU32AsStringCollectionColumn) - Dim enumU32CollectionColumn As New Column("EnumU32Collection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU32Collection", enumU32CollectionColumn) - Dim enumU64Column As New Column("EnumU64", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("EnumU64", enumU64Column) - Dim enumU64ArrayColumn As New Column("EnumU64Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU64Array", enumU64ArrayColumn) - Dim enumU64AsStringColumn As New Column("EnumU64AsString", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("EnumU64AsString", enumU64AsStringColumn) - Dim enumU64AsStringArrayColumn As New Column("EnumU64AsStringArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU64AsStringArray", enumU64AsStringArrayColumn) - Dim enumU64AsStringCollectionColumn As New Column("EnumU64AsStringCollection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU64AsStringCollection", enumU64AsStringCollectionColumn) - Dim enumU64CollectionColumn As New Column("EnumU64Collection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU64Collection", enumU64CollectionColumn) - Dim enumU8Column As New Column("EnumU8", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("EnumU8", enumU8Column) - Dim enumU8ArrayColumn As New Column("EnumU8Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU8Array", enumU8ArrayColumn) - Dim enumU8AsStringColumn As New Column("EnumU8AsString", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("EnumU8AsString", enumU8AsStringColumn) - Dim enumU8AsStringArrayColumn As New Column("EnumU8AsStringArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU8AsStringArray", enumU8AsStringArrayColumn) - Dim enumU8AsStringCollectionColumn As New Column("EnumU8AsStringCollection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU8AsStringCollection", enumU8AsStringCollectionColumn) - Dim enumU8CollectionColumn As New Column("EnumU8Collection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("EnumU8Collection", enumU8CollectionColumn) - Dim floatArrayColumn As New Column("FloatArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("FloatArray", floatArrayColumn) - Dim guidColumn As New Column("Guid", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("Guid", guidColumn) - Dim guidArrayColumn As New Column("GuidArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("GuidArray", guidArrayColumn) - Dim guidToBytesConverterPropertyColumn As New Column("GuidToBytesConverterProperty", "BLOB", manyTypesTable) - manyTypesTable.Columns.Add("GuidToBytesConverterProperty", guidToBytesConverterPropertyColumn) - Dim guidToStringConverterPropertyColumn As New Column("GuidToStringConverterProperty", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("GuidToStringConverterProperty", guidToStringConverterPropertyColumn) - Dim iPAddressArrayColumn As New Column("IPAddressArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("IPAddressArray", iPAddressArrayColumn) - Dim iPAddressToBytesConverterPropertyColumn As New Column("IPAddressToBytesConverterProperty", "BLOB", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("IPAddressToBytesConverterProperty", iPAddressToBytesConverterPropertyColumn) - Dim iPAddressToStringConverterPropertyColumn As New Column("IPAddressToStringConverterProperty", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("IPAddressToStringConverterProperty", iPAddressToStringConverterPropertyColumn) - Dim int16Column As New Column("Int16", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("Int16", int16Column) - Dim int16ArrayColumn As New Column("Int16Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Int16Array", int16ArrayColumn) - Dim int32Column As New Column("Int32", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("Int32", int32Column) - Dim int32ArrayColumn As New Column("Int32Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Int32Array", int32ArrayColumn) - Dim int64Column As New Column("Int64", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("Int64", int64Column) - Dim int64ArrayColumn As New Column("Int64Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Int64Array", int64ArrayColumn) - Dim int8Column As New Column("Int8", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("Int8", int8Column) - Dim int8ArrayColumn As New Column("Int8Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Int8Array", int8ArrayColumn) - Dim intNumberToBytesConverterPropertyColumn As New Column("IntNumberToBytesConverterProperty", "BLOB", manyTypesTable) - manyTypesTable.Columns.Add("IntNumberToBytesConverterProperty", intNumberToBytesConverterPropertyColumn) - Dim intNumberToStringConverterPropertyColumn As New Column("IntNumberToStringConverterProperty", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("IntNumberToStringConverterProperty", intNumberToStringConverterPropertyColumn) - Dim nullIntToNullStringConverterPropertyColumn As New Column("NullIntToNullStringConverterProperty", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullIntToNullStringConverterProperty", nullIntToNullStringConverterPropertyColumn) - Dim nullableBoolColumn As New Column("NullableBool", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableBool", nullableBoolColumn) - Dim nullableBoolArrayColumn As New Column("NullableBoolArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableBoolArray", nullableBoolArrayColumn) - Dim nullableBytesColumn As New Column("NullableBytes", "BLOB", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableBytes", nullableBytesColumn) - Dim nullableBytesArrayColumn As New Column("NullableBytesArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableBytesArray", nullableBytesArrayColumn) - Dim nullableCharColumn As New Column("NullableChar", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableChar", nullableCharColumn) - Dim nullableCharArrayColumn As New Column("NullableCharArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableCharArray", nullableCharArrayColumn) - Dim nullableDateOnlyColumn As New Column("NullableDateOnly", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableDateOnly", nullableDateOnlyColumn) - Dim nullableDateOnlyArrayColumn As New Column("NullableDateOnlyArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableDateOnlyArray", nullableDateOnlyArrayColumn) - Dim nullableDateTimeColumn As New Column("NullableDateTime", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableDateTime", nullableDateTimeColumn) - Dim nullableDateTimeArrayColumn As New Column("NullableDateTimeArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableDateTimeArray", nullableDateTimeArrayColumn) - Dim nullableDecimalColumn As New Column("NullableDecimal", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableDecimal", nullableDecimalColumn) - Dim nullableDecimalArrayColumn As New Column("NullableDecimalArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableDecimalArray", nullableDecimalArrayColumn) - Dim nullableDoubleColumn As New Column("NullableDouble", "REAL", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableDouble", nullableDoubleColumn) - Dim nullableDoubleArrayColumn As New Column("NullableDoubleArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableDoubleArray", nullableDoubleArrayColumn) - Dim nullableEnum16Column As New Column("NullableEnum16", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum16", nullableEnum16Column) - Dim nullableEnum16ArrayColumn As New Column("NullableEnum16Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum16Array", nullableEnum16ArrayColumn) - Dim nullableEnum16AsStringColumn As New Column("NullableEnum16AsString", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum16AsString", nullableEnum16AsStringColumn) - Dim nullableEnum16AsStringArrayColumn As New Column("NullableEnum16AsStringArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum16AsStringArray", nullableEnum16AsStringArrayColumn) - Dim nullableEnum16AsStringCollectionColumn As New Column("NullableEnum16AsStringCollection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum16AsStringCollection", nullableEnum16AsStringCollectionColumn) - Dim nullableEnum16CollectionColumn As New Column("NullableEnum16Collection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum16Collection", nullableEnum16CollectionColumn) - Dim nullableEnum32Column As New Column("NullableEnum32", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum32", nullableEnum32Column) - Dim nullableEnum32ArrayColumn As New Column("NullableEnum32Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum32Array", nullableEnum32ArrayColumn) - Dim nullableEnum32AsStringColumn As New Column("NullableEnum32AsString", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum32AsString", nullableEnum32AsStringColumn) - Dim nullableEnum32AsStringArrayColumn As New Column("NullableEnum32AsStringArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum32AsStringArray", nullableEnum32AsStringArrayColumn) - Dim nullableEnum32AsStringCollectionColumn As New Column("NullableEnum32AsStringCollection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum32AsStringCollection", nullableEnum32AsStringCollectionColumn) - Dim nullableEnum32CollectionColumn As New Column("NullableEnum32Collection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum32Collection", nullableEnum32CollectionColumn) - Dim nullableEnum64Column As New Column("NullableEnum64", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum64", nullableEnum64Column) - Dim nullableEnum64ArrayColumn As New Column("NullableEnum64Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum64Array", nullableEnum64ArrayColumn) - Dim nullableEnum64AsStringColumn As New Column("NullableEnum64AsString", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum64AsString", nullableEnum64AsStringColumn) - Dim nullableEnum64AsStringArrayColumn As New Column("NullableEnum64AsStringArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum64AsStringArray", nullableEnum64AsStringArrayColumn) - Dim nullableEnum64AsStringCollectionColumn As New Column("NullableEnum64AsStringCollection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum64AsStringCollection", nullableEnum64AsStringCollectionColumn) - Dim nullableEnum64CollectionColumn As New Column("NullableEnum64Collection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum64Collection", nullableEnum64CollectionColumn) - Dim nullableEnum8Column As New Column("NullableEnum8", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum8", nullableEnum8Column) - Dim nullableEnum8ArrayColumn As New Column("NullableEnum8Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum8Array", nullableEnum8ArrayColumn) - Dim nullableEnum8AsStringColumn As New Column("NullableEnum8AsString", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum8AsString", nullableEnum8AsStringColumn) - Dim nullableEnum8AsStringArrayColumn As New Column("NullableEnum8AsStringArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum8AsStringArray", nullableEnum8AsStringArrayColumn) - Dim nullableEnum8AsStringCollectionColumn As New Column("NullableEnum8AsStringCollection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum8AsStringCollection", nullableEnum8AsStringCollectionColumn) - Dim nullableEnum8CollectionColumn As New Column("NullableEnum8Collection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnum8Collection", nullableEnum8CollectionColumn) - Dim nullableEnumU16Column As New Column("NullableEnumU16", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU16", nullableEnumU16Column) - Dim nullableEnumU16ArrayColumn As New Column("NullableEnumU16Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU16Array", nullableEnumU16ArrayColumn) - Dim nullableEnumU16AsStringColumn As New Column("NullableEnumU16AsString", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU16AsString", nullableEnumU16AsStringColumn) - Dim nullableEnumU16AsStringArrayColumn As New Column("NullableEnumU16AsStringArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU16AsStringArray", nullableEnumU16AsStringArrayColumn) - Dim nullableEnumU16AsStringCollectionColumn As New Column("NullableEnumU16AsStringCollection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU16AsStringCollection", nullableEnumU16AsStringCollectionColumn) - Dim nullableEnumU16CollectionColumn As New Column("NullableEnumU16Collection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU16Collection", nullableEnumU16CollectionColumn) - Dim nullableEnumU32Column As New Column("NullableEnumU32", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU32", nullableEnumU32Column) - Dim nullableEnumU32ArrayColumn As New Column("NullableEnumU32Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU32Array", nullableEnumU32ArrayColumn) - Dim nullableEnumU32AsStringColumn As New Column("NullableEnumU32AsString", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU32AsString", nullableEnumU32AsStringColumn) - Dim nullableEnumU32AsStringArrayColumn As New Column("NullableEnumU32AsStringArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU32AsStringArray", nullableEnumU32AsStringArrayColumn) - Dim nullableEnumU32AsStringCollectionColumn As New Column("NullableEnumU32AsStringCollection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU32AsStringCollection", nullableEnumU32AsStringCollectionColumn) - Dim nullableEnumU32CollectionColumn As New Column("NullableEnumU32Collection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU32Collection", nullableEnumU32CollectionColumn) - Dim nullableEnumU64Column As New Column("NullableEnumU64", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU64", nullableEnumU64Column) - Dim nullableEnumU64ArrayColumn As New Column("NullableEnumU64Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU64Array", nullableEnumU64ArrayColumn) - Dim nullableEnumU64AsStringColumn As New Column("NullableEnumU64AsString", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU64AsString", nullableEnumU64AsStringColumn) - Dim nullableEnumU64AsStringArrayColumn As New Column("NullableEnumU64AsStringArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU64AsStringArray", nullableEnumU64AsStringArrayColumn) - Dim nullableEnumU64AsStringCollectionColumn As New Column("NullableEnumU64AsStringCollection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU64AsStringCollection", nullableEnumU64AsStringCollectionColumn) - Dim nullableEnumU64CollectionColumn As New Column("NullableEnumU64Collection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU64Collection", nullableEnumU64CollectionColumn) - Dim nullableEnumU8Column As New Column("NullableEnumU8", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU8", nullableEnumU8Column) - Dim nullableEnumU8ArrayColumn As New Column("NullableEnumU8Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU8Array", nullableEnumU8ArrayColumn) - Dim nullableEnumU8AsStringColumn As New Column("NullableEnumU8AsString", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU8AsString", nullableEnumU8AsStringColumn) - Dim nullableEnumU8AsStringArrayColumn As New Column("NullableEnumU8AsStringArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU8AsStringArray", nullableEnumU8AsStringArrayColumn) - Dim nullableEnumU8AsStringCollectionColumn As New Column("NullableEnumU8AsStringCollection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU8AsStringCollection", nullableEnumU8AsStringCollectionColumn) - Dim nullableEnumU8CollectionColumn As New Column("NullableEnumU8Collection", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableEnumU8Collection", nullableEnumU8CollectionColumn) - Dim nullableFloatColumn As New Column("NullableFloat", "REAL", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableFloat", nullableFloatColumn) - Dim nullableFloatArrayColumn As New Column("NullableFloatArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableFloatArray", nullableFloatArrayColumn) - Dim nullableGuidColumn As New Column("NullableGuid", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableGuid", nullableGuidColumn) - Dim nullableGuidArrayColumn As New Column("NullableGuidArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableGuidArray", nullableGuidArrayColumn) - Dim nullableIPAddressColumn As New Column("NullableIPAddress", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableIPAddress", nullableIPAddressColumn) - Dim nullableIPAddressArrayColumn As New Column("NullableIPAddressArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableIPAddressArray", nullableIPAddressArrayColumn) - Dim nullableInt16Column As New Column("NullableInt16", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableInt16", nullableInt16Column) - Dim nullableInt16ArrayColumn As New Column("NullableInt16Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableInt16Array", nullableInt16ArrayColumn) - Dim nullableInt32Column As New Column("NullableInt32", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableInt32", nullableInt32Column) - Dim nullableInt32ArrayColumn As New Column("NullableInt32Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableInt32Array", nullableInt32ArrayColumn) - Dim nullableInt64Column As New Column("NullableInt64", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableInt64", nullableInt64Column) - Dim nullableInt64ArrayColumn As New Column("NullableInt64Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableInt64Array", nullableInt64ArrayColumn) - Dim nullableInt8Column As New Column("NullableInt8", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableInt8", nullableInt8Column) - Dim nullableInt8ArrayColumn As New Column("NullableInt8Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableInt8Array", nullableInt8ArrayColumn) - Dim nullablePhysicalAddressColumn As New Column("NullablePhysicalAddress", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullablePhysicalAddress", nullablePhysicalAddressColumn) - Dim nullablePhysicalAddressArrayColumn As New Column("NullablePhysicalAddressArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullablePhysicalAddressArray", nullablePhysicalAddressArrayColumn) - Dim nullableStringColumn As New Column("NullableString", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableString", nullableStringColumn) - Dim nullableStringArrayColumn As New Column("NullableStringArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableStringArray", nullableStringArrayColumn) - Dim nullableTimeOnlyColumn As New Column("NullableTimeOnly", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableTimeOnly", nullableTimeOnlyColumn) - Dim nullableTimeOnlyArrayColumn As New Column("NullableTimeOnlyArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableTimeOnlyArray", nullableTimeOnlyArrayColumn) - Dim nullableTimeSpanColumn As New Column("NullableTimeSpan", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableTimeSpan", nullableTimeSpanColumn) - Dim nullableTimeSpanArrayColumn As New Column("NullableTimeSpanArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableTimeSpanArray", nullableTimeSpanArrayColumn) - Dim nullableUInt16Column As New Column("NullableUInt16", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUInt16", nullableUInt16Column) - Dim nullableUInt16ArrayColumn As New Column("NullableUInt16Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUInt16Array", nullableUInt16ArrayColumn) - Dim nullableUInt32Column As New Column("NullableUInt32", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUInt32", nullableUInt32Column) - Dim nullableUInt32ArrayColumn As New Column("NullableUInt32Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUInt32Array", nullableUInt32ArrayColumn) - Dim nullableUInt64Column As New Column("NullableUInt64", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUInt64", nullableUInt64Column) - Dim nullableUInt64ArrayColumn As New Column("NullableUInt64Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUInt64Array", nullableUInt64ArrayColumn) - Dim nullableUInt8Column As New Column("NullableUInt8", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUInt8", nullableUInt8Column) - Dim nullableUInt8ArrayColumn As New Column("NullableUInt8Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUInt8Array", nullableUInt8ArrayColumn) - Dim nullableUriColumn As New Column("NullableUri", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUri", nullableUriColumn) - Dim nullableUriArrayColumn As New Column("NullableUriArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("NullableUriArray", nullableUriArrayColumn) - Dim physicalAddressArrayColumn As New Column("PhysicalAddressArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("PhysicalAddressArray", physicalAddressArrayColumn) - Dim physicalAddressToBytesConverterPropertyColumn As New Column("PhysicalAddressToBytesConverterProperty", "BLOB", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("PhysicalAddressToBytesConverterProperty", physicalAddressToBytesConverterPropertyColumn) - Dim physicalAddressToStringConverterPropertyColumn As New Column("PhysicalAddressToStringConverterProperty", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("PhysicalAddressToStringConverterProperty", physicalAddressToStringConverterPropertyColumn) - Dim stringColumn As New Column("String", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("String", stringColumn) - Dim stringArrayColumn As New Column("StringArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringArray", stringArrayColumn) - Dim stringToBoolConverterPropertyColumn As New Column("StringToBoolConverterProperty", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToBoolConverterProperty", stringToBoolConverterPropertyColumn) - Dim stringToBytesConverterPropertyColumn As New Column("StringToBytesConverterProperty", "BLOB", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToBytesConverterProperty", stringToBytesConverterPropertyColumn) - Dim stringToCharConverterPropertyColumn As New Column("StringToCharConverterProperty", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToCharConverterProperty", stringToCharConverterPropertyColumn) - Dim stringToDateOnlyConverterPropertyColumn As New Column("StringToDateOnlyConverterProperty", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToDateOnlyConverterProperty", stringToDateOnlyConverterPropertyColumn) - Dim stringToDateTimeConverterPropertyColumn As New Column("StringToDateTimeConverterProperty", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToDateTimeConverterProperty", stringToDateTimeConverterPropertyColumn) - Dim stringToDateTimeOffsetConverterPropertyColumn As New Column("StringToDateTimeOffsetConverterProperty", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToDateTimeOffsetConverterProperty", stringToDateTimeOffsetConverterPropertyColumn) - Dim stringToDecimalNumberConverterPropertyColumn As New Column("StringToDecimalNumberConverterProperty", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToDecimalNumberConverterProperty", stringToDecimalNumberConverterPropertyColumn) - Dim stringToDoubleNumberConverterPropertyColumn As New Column("StringToDoubleNumberConverterProperty", "REAL", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToDoubleNumberConverterProperty", stringToDoubleNumberConverterPropertyColumn) - Dim stringToEnumConverterPropertyColumn As New Column("StringToEnumConverterProperty", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToEnumConverterProperty", stringToEnumConverterPropertyColumn) - Dim stringToGuidConverterPropertyColumn As New Column("StringToGuidConverterProperty", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToGuidConverterProperty", stringToGuidConverterPropertyColumn) - Dim stringToIntNumberConverterPropertyColumn As New Column("StringToIntNumberConverterProperty", "INTEGER", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToIntNumberConverterProperty", stringToIntNumberConverterPropertyColumn) - Dim stringToTimeOnlyConverterPropertyColumn As New Column("StringToTimeOnlyConverterProperty", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToTimeOnlyConverterProperty", stringToTimeOnlyConverterPropertyColumn) - Dim stringToTimeSpanConverterPropertyColumn As New Column("StringToTimeSpanConverterProperty", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToTimeSpanConverterProperty", stringToTimeSpanConverterPropertyColumn) - Dim stringToUriConverterPropertyColumn As New Column("StringToUriConverterProperty", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("StringToUriConverterProperty", stringToUriConverterPropertyColumn) - Dim timeOnlyArrayColumn As New Column("TimeOnlyArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("TimeOnlyArray", timeOnlyArrayColumn) - Dim timeOnlyToStringConverterPropertyColumn As New Column("TimeOnlyToStringConverterProperty", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("TimeOnlyToStringConverterProperty", timeOnlyToStringConverterPropertyColumn) - Dim timeOnlyToTicksConverterPropertyColumn As New Column("TimeOnlyToTicksConverterProperty", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("TimeOnlyToTicksConverterProperty", timeOnlyToTicksConverterPropertyColumn) - Dim timeSpanArrayColumn As New Column("TimeSpanArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("TimeSpanArray", timeSpanArrayColumn) - Dim timeSpanToStringConverterPropertyColumn As New Column("TimeSpanToStringConverterProperty", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("TimeSpanToStringConverterProperty", timeSpanToStringConverterPropertyColumn) - Dim timeSpanToTicksConverterPropertyColumn As New Column("TimeSpanToTicksConverterProperty", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("TimeSpanToTicksConverterProperty", timeSpanToTicksConverterPropertyColumn) - Dim uInt16Column As New Column("UInt16", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("UInt16", uInt16Column) - Dim uInt16ArrayColumn As New Column("UInt16Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("UInt16Array", uInt16ArrayColumn) - Dim uInt32Column As New Column("UInt32", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("UInt32", uInt32Column) - Dim uInt32ArrayColumn As New Column("UInt32Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("UInt32Array", uInt32ArrayColumn) - Dim uInt64Column As New Column("UInt64", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("UInt64", uInt64Column) - Dim uInt64ArrayColumn As New Column("UInt64Array", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("UInt64Array", uInt64ArrayColumn) - Dim uInt8Column As New Column("UInt8", "INTEGER", manyTypesTable) - manyTypesTable.Columns.Add("UInt8", uInt8Column) - Dim uInt8ArrayColumn As New Column("UInt8Array", "BLOB", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("UInt8Array", uInt8ArrayColumn) - Dim uriColumn As New Column("Uri", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("Uri", uriColumn) - Dim uriArrayColumn As New Column("UriArray", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("UriArray", uriArrayColumn) - Dim uriToStringConverterPropertyColumn As New Column("UriToStringConverterProperty", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("UriToStringConverterProperty", uriToStringConverterPropertyColumn) - Dim aDateOnlyColumn As New Column("aDateOnly", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("aDateOnly", aDateOnlyColumn) - Dim aDateTimeColumn As New Column("aDateTime", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("aDateTime", aDateTimeColumn) - Dim aFloatColumn As New Column("aFloat", "REAL", manyTypesTable) - manyTypesTable.Columns.Add("aFloat", aFloatColumn) - Dim aPhysicalAddressColumn As New Column("aPhysicalAddress", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("aPhysicalAddress", aPhysicalAddressColumn) - Dim aTimeOnlyColumn As New Column("aTimeOnly", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("aTimeOnly", aTimeOnlyColumn) - Dim aTimeSpanColumn As New Column("aTimeSpan", "TEXT", manyTypesTable) - manyTypesTable.Columns.Add("aTimeSpan", aTimeSpanColumn) - Dim anIPAddressColumn As New Column("anIPAddress", "TEXT", manyTypesTable) With { - .IsNullable = True - } - manyTypesTable.Columns.Add("anIPAddress", anIPAddressColumn) - Dim pK_ManyTypes As New UniqueConstraint("PK_ManyTypes", manyTypesTable, {idColumn1}) - manyTypesTable.PrimaryKey = pK_ManyTypes - Dim pK_ManyTypesUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+ManyTypes", - {"Id"}) - pK_ManyTypes.MappedKeys.Add(pK_ManyTypesUc) - RelationalModel.GetOrCreateUniqueConstraints(pK_ManyTypesUc).Add(pK_ManyTypes) - manyTypesTable.UniqueConstraints.Add("PK_ManyTypes", pK_ManyTypes) - relationalModel.Tables.Add(("ManyTypes", Nothing), manyTypesTable) - Dim manyTypesTableMapping As New TableMapping(manyTypes, manyTypesTable, True) - manyTypesTable.AddTypeMapping(manyTypesTableMapping, False) - tableMappings2.Add(manyTypesTableMapping) - RelationalModel.CreateColumnMapping(idColumn1, manyTypes.FindProperty("Id"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(boolColumn, manyTypes.FindProperty("Bool"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(boolArrayColumn, manyTypes.FindProperty("BoolArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(boolToStringConverterPropertyColumn, manyTypes.FindProperty("BoolToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(boolToTwoValuesConverterPropertyColumn, manyTypes.FindProperty("BoolToTwoValuesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(boolToZeroOneConverterPropertyColumn, manyTypes.FindProperty("BoolToZeroOneConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(bytesColumn, manyTypes.FindProperty("Bytes"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(bytesArrayColumn, manyTypes.FindProperty("BytesArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(bytesToStringConverterPropertyColumn, manyTypes.FindProperty("BytesToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(castingConverterPropertyColumn, manyTypes.FindProperty("CastingConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(charColumn, manyTypes.FindProperty("Char"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(charArrayColumn, manyTypes.FindProperty("CharArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(charToStringConverterPropertyColumn, manyTypes.FindProperty("CharToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateOnlyArrayColumn, manyTypes.FindProperty("DateOnlyArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateOnlyToStringConverterPropertyColumn, manyTypes.FindProperty("DateOnlyToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateTimeArrayColumn, manyTypes.FindProperty("DateTimeArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateTimeOffsetToBinaryConverterPropertyColumn, manyTypes.FindProperty("DateTimeOffsetToBinaryConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateTimeOffsetToBytesConverterPropertyColumn, manyTypes.FindProperty("DateTimeOffsetToBytesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateTimeOffsetToStringConverterPropertyColumn, manyTypes.FindProperty("DateTimeOffsetToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateTimeToBinaryConverterPropertyColumn, manyTypes.FindProperty("DateTimeToBinaryConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateTimeToStringConverterPropertyColumn, manyTypes.FindProperty("DateTimeToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(dateTimeToTicksConverterPropertyColumn, manyTypes.FindProperty("DateTimeToTicksConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(decimalColumn, manyTypes.FindProperty("Decimal"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(decimalArrayColumn, manyTypes.FindProperty("DecimalArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(decimalNumberToBytesConverterPropertyColumn, manyTypes.FindProperty("DecimalNumberToBytesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(decimalNumberToStringConverterPropertyColumn, manyTypes.FindProperty("DecimalNumberToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(doubleColumn, manyTypes.FindProperty("Double"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(doubleArrayColumn, manyTypes.FindProperty("DoubleArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(doubleNumberToBytesConverterPropertyColumn, manyTypes.FindProperty("DoubleNumberToBytesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(doubleNumberToStringConverterPropertyColumn, manyTypes.FindProperty("DoubleNumberToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum16Column, manyTypes.FindProperty("Enum16"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum16ArrayColumn, manyTypes.FindProperty("Enum16Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum16AsStringColumn, manyTypes.FindProperty("Enum16AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum16AsStringArrayColumn, manyTypes.FindProperty("Enum16AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum16AsStringCollectionColumn, manyTypes.FindProperty("Enum16AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum16CollectionColumn, manyTypes.FindProperty("Enum16Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum32Column, manyTypes.FindProperty("Enum32"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum32ArrayColumn, manyTypes.FindProperty("Enum32Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum32AsStringColumn, manyTypes.FindProperty("Enum32AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum32AsStringArrayColumn, manyTypes.FindProperty("Enum32AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum32AsStringCollectionColumn, manyTypes.FindProperty("Enum32AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum32CollectionColumn, manyTypes.FindProperty("Enum32Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum64Column, manyTypes.FindProperty("Enum64"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum64ArrayColumn, manyTypes.FindProperty("Enum64Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum64AsStringColumn, manyTypes.FindProperty("Enum64AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum64AsStringArrayColumn, manyTypes.FindProperty("Enum64AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum64AsStringCollectionColumn, manyTypes.FindProperty("Enum64AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum64CollectionColumn, manyTypes.FindProperty("Enum64Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum8Column, manyTypes.FindProperty("Enum8"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum8ArrayColumn, manyTypes.FindProperty("Enum8Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum8AsStringColumn, manyTypes.FindProperty("Enum8AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum8AsStringArrayColumn, manyTypes.FindProperty("Enum8AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum8AsStringCollectionColumn, manyTypes.FindProperty("Enum8AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enum8CollectionColumn, manyTypes.FindProperty("Enum8Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumToNumberConverterPropertyColumn, manyTypes.FindProperty("EnumToNumberConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumToStringConverterPropertyColumn, manyTypes.FindProperty("EnumToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU16Column, manyTypes.FindProperty("EnumU16"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU16ArrayColumn, manyTypes.FindProperty("EnumU16Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU16AsStringColumn, manyTypes.FindProperty("EnumU16AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU16AsStringArrayColumn, manyTypes.FindProperty("EnumU16AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU16AsStringCollectionColumn, manyTypes.FindProperty("EnumU16AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU16CollectionColumn, manyTypes.FindProperty("EnumU16Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU32Column, manyTypes.FindProperty("EnumU32"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU32ArrayColumn, manyTypes.FindProperty("EnumU32Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU32AsStringColumn, manyTypes.FindProperty("EnumU32AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU32AsStringArrayColumn, manyTypes.FindProperty("EnumU32AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU32AsStringCollectionColumn, manyTypes.FindProperty("EnumU32AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU32CollectionColumn, manyTypes.FindProperty("EnumU32Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU64Column, manyTypes.FindProperty("EnumU64"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU64ArrayColumn, manyTypes.FindProperty("EnumU64Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU64AsStringColumn, manyTypes.FindProperty("EnumU64AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU64AsStringArrayColumn, manyTypes.FindProperty("EnumU64AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU64AsStringCollectionColumn, manyTypes.FindProperty("EnumU64AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU64CollectionColumn, manyTypes.FindProperty("EnumU64Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU8Column, manyTypes.FindProperty("EnumU8"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU8ArrayColumn, manyTypes.FindProperty("EnumU8Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU8AsStringColumn, manyTypes.FindProperty("EnumU8AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU8AsStringArrayColumn, manyTypes.FindProperty("EnumU8AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU8AsStringCollectionColumn, manyTypes.FindProperty("EnumU8AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(enumU8CollectionColumn, manyTypes.FindProperty("EnumU8Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(floatArrayColumn, manyTypes.FindProperty("FloatArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(guidColumn, manyTypes.FindProperty("Guid"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(guidArrayColumn, manyTypes.FindProperty("GuidArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(guidToBytesConverterPropertyColumn, manyTypes.FindProperty("GuidToBytesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(guidToStringConverterPropertyColumn, manyTypes.FindProperty("GuidToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(iPAddressArrayColumn, manyTypes.FindProperty("IPAddressArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(iPAddressToBytesConverterPropertyColumn, manyTypes.FindProperty("IPAddressToBytesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(iPAddressToStringConverterPropertyColumn, manyTypes.FindProperty("IPAddressToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(int16Column, manyTypes.FindProperty("Int16"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(int16ArrayColumn, manyTypes.FindProperty("Int16Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(int32Column, manyTypes.FindProperty("Int32"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(int32ArrayColumn, manyTypes.FindProperty("Int32Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(int64Column, manyTypes.FindProperty("Int64"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(int64ArrayColumn, manyTypes.FindProperty("Int64Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(int8Column, manyTypes.FindProperty("Int8"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(int8ArrayColumn, manyTypes.FindProperty("Int8Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(intNumberToBytesConverterPropertyColumn, manyTypes.FindProperty("IntNumberToBytesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(intNumberToStringConverterPropertyColumn, manyTypes.FindProperty("IntNumberToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullIntToNullStringConverterPropertyColumn, manyTypes.FindProperty("NullIntToNullStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableBoolColumn, manyTypes.FindProperty("NullableBool"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableBoolArrayColumn, manyTypes.FindProperty("NullableBoolArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableBytesColumn, manyTypes.FindProperty("NullableBytes"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableBytesArrayColumn, manyTypes.FindProperty("NullableBytesArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableCharColumn, manyTypes.FindProperty("NullableChar"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableCharArrayColumn, manyTypes.FindProperty("NullableCharArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableDateOnlyColumn, manyTypes.FindProperty("NullableDateOnly"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableDateOnlyArrayColumn, manyTypes.FindProperty("NullableDateOnlyArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableDateTimeColumn, manyTypes.FindProperty("NullableDateTime"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableDateTimeArrayColumn, manyTypes.FindProperty("NullableDateTimeArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableDecimalColumn, manyTypes.FindProperty("NullableDecimal"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableDecimalArrayColumn, manyTypes.FindProperty("NullableDecimalArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableDoubleColumn, manyTypes.FindProperty("NullableDouble"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableDoubleArrayColumn, manyTypes.FindProperty("NullableDoubleArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum16Column, manyTypes.FindProperty("NullableEnum16"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum16ArrayColumn, manyTypes.FindProperty("NullableEnum16Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum16AsStringColumn, manyTypes.FindProperty("NullableEnum16AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum16AsStringArrayColumn, manyTypes.FindProperty("NullableEnum16AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum16AsStringCollectionColumn, manyTypes.FindProperty("NullableEnum16AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum16CollectionColumn, manyTypes.FindProperty("NullableEnum16Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum32Column, manyTypes.FindProperty("NullableEnum32"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum32ArrayColumn, manyTypes.FindProperty("NullableEnum32Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum32AsStringColumn, manyTypes.FindProperty("NullableEnum32AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum32AsStringArrayColumn, manyTypes.FindProperty("NullableEnum32AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum32AsStringCollectionColumn, manyTypes.FindProperty("NullableEnum32AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum32CollectionColumn, manyTypes.FindProperty("NullableEnum32Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum64Column, manyTypes.FindProperty("NullableEnum64"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum64ArrayColumn, manyTypes.FindProperty("NullableEnum64Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum64AsStringColumn, manyTypes.FindProperty("NullableEnum64AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum64AsStringArrayColumn, manyTypes.FindProperty("NullableEnum64AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum64AsStringCollectionColumn, manyTypes.FindProperty("NullableEnum64AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum64CollectionColumn, manyTypes.FindProperty("NullableEnum64Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum8Column, manyTypes.FindProperty("NullableEnum8"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum8ArrayColumn, manyTypes.FindProperty("NullableEnum8Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum8AsStringColumn, manyTypes.FindProperty("NullableEnum8AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum8AsStringArrayColumn, manyTypes.FindProperty("NullableEnum8AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum8AsStringCollectionColumn, manyTypes.FindProperty("NullableEnum8AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnum8CollectionColumn, manyTypes.FindProperty("NullableEnum8Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU16Column, manyTypes.FindProperty("NullableEnumU16"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU16ArrayColumn, manyTypes.FindProperty("NullableEnumU16Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU16AsStringColumn, manyTypes.FindProperty("NullableEnumU16AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU16AsStringArrayColumn, manyTypes.FindProperty("NullableEnumU16AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU16AsStringCollectionColumn, manyTypes.FindProperty("NullableEnumU16AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU16CollectionColumn, manyTypes.FindProperty("NullableEnumU16Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU32Column, manyTypes.FindProperty("NullableEnumU32"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU32ArrayColumn, manyTypes.FindProperty("NullableEnumU32Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU32AsStringColumn, manyTypes.FindProperty("NullableEnumU32AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU32AsStringArrayColumn, manyTypes.FindProperty("NullableEnumU32AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU32AsStringCollectionColumn, manyTypes.FindProperty("NullableEnumU32AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU32CollectionColumn, manyTypes.FindProperty("NullableEnumU32Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU64Column, manyTypes.FindProperty("NullableEnumU64"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU64ArrayColumn, manyTypes.FindProperty("NullableEnumU64Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU64AsStringColumn, manyTypes.FindProperty("NullableEnumU64AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU64AsStringArrayColumn, manyTypes.FindProperty("NullableEnumU64AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU64AsStringCollectionColumn, manyTypes.FindProperty("NullableEnumU64AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU64CollectionColumn, manyTypes.FindProperty("NullableEnumU64Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU8Column, manyTypes.FindProperty("NullableEnumU8"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU8ArrayColumn, manyTypes.FindProperty("NullableEnumU8Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU8AsStringColumn, manyTypes.FindProperty("NullableEnumU8AsString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU8AsStringArrayColumn, manyTypes.FindProperty("NullableEnumU8AsStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU8AsStringCollectionColumn, manyTypes.FindProperty("NullableEnumU8AsStringCollection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableEnumU8CollectionColumn, manyTypes.FindProperty("NullableEnumU8Collection"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableFloatColumn, manyTypes.FindProperty("NullableFloat"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableFloatArrayColumn, manyTypes.FindProperty("NullableFloatArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableGuidColumn, manyTypes.FindProperty("NullableGuid"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableGuidArrayColumn, manyTypes.FindProperty("NullableGuidArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableIPAddressColumn, manyTypes.FindProperty("NullableIPAddress"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableIPAddressArrayColumn, manyTypes.FindProperty("NullableIPAddressArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableInt16Column, manyTypes.FindProperty("NullableInt16"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableInt16ArrayColumn, manyTypes.FindProperty("NullableInt16Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableInt32Column, manyTypes.FindProperty("NullableInt32"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableInt32ArrayColumn, manyTypes.FindProperty("NullableInt32Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableInt64Column, manyTypes.FindProperty("NullableInt64"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableInt64ArrayColumn, manyTypes.FindProperty("NullableInt64Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableInt8Column, manyTypes.FindProperty("NullableInt8"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableInt8ArrayColumn, manyTypes.FindProperty("NullableInt8Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullablePhysicalAddressColumn, manyTypes.FindProperty("NullablePhysicalAddress"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullablePhysicalAddressArrayColumn, manyTypes.FindProperty("NullablePhysicalAddressArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableStringColumn, manyTypes.FindProperty("NullableString"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableStringArrayColumn, manyTypes.FindProperty("NullableStringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableTimeOnlyColumn, manyTypes.FindProperty("NullableTimeOnly"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableTimeOnlyArrayColumn, manyTypes.FindProperty("NullableTimeOnlyArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableTimeSpanColumn, manyTypes.FindProperty("NullableTimeSpan"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableTimeSpanArrayColumn, manyTypes.FindProperty("NullableTimeSpanArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUInt16Column, manyTypes.FindProperty("NullableUInt16"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUInt16ArrayColumn, manyTypes.FindProperty("NullableUInt16Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUInt32Column, manyTypes.FindProperty("NullableUInt32"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUInt32ArrayColumn, manyTypes.FindProperty("NullableUInt32Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUInt64Column, manyTypes.FindProperty("NullableUInt64"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUInt64ArrayColumn, manyTypes.FindProperty("NullableUInt64Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUInt8Column, manyTypes.FindProperty("NullableUInt8"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUInt8ArrayColumn, manyTypes.FindProperty("NullableUInt8Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUriColumn, manyTypes.FindProperty("NullableUri"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(nullableUriArrayColumn, manyTypes.FindProperty("NullableUriArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(physicalAddressArrayColumn, manyTypes.FindProperty("PhysicalAddressArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(physicalAddressToBytesConverterPropertyColumn, manyTypes.FindProperty("PhysicalAddressToBytesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(physicalAddressToStringConverterPropertyColumn, manyTypes.FindProperty("PhysicalAddressToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringColumn, manyTypes.FindProperty("String"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringArrayColumn, manyTypes.FindProperty("StringArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToBoolConverterPropertyColumn, manyTypes.FindProperty("StringToBoolConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToBytesConverterPropertyColumn, manyTypes.FindProperty("StringToBytesConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToCharConverterPropertyColumn, manyTypes.FindProperty("StringToCharConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToDateOnlyConverterPropertyColumn, manyTypes.FindProperty("StringToDateOnlyConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToDateTimeConverterPropertyColumn, manyTypes.FindProperty("StringToDateTimeConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToDateTimeOffsetConverterPropertyColumn, manyTypes.FindProperty("StringToDateTimeOffsetConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToDecimalNumberConverterPropertyColumn, manyTypes.FindProperty("StringToDecimalNumberConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToDoubleNumberConverterPropertyColumn, manyTypes.FindProperty("StringToDoubleNumberConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToEnumConverterPropertyColumn, manyTypes.FindProperty("StringToEnumConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToGuidConverterPropertyColumn, manyTypes.FindProperty("StringToGuidConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToIntNumberConverterPropertyColumn, manyTypes.FindProperty("StringToIntNumberConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToTimeOnlyConverterPropertyColumn, manyTypes.FindProperty("StringToTimeOnlyConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToTimeSpanConverterPropertyColumn, manyTypes.FindProperty("StringToTimeSpanConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(stringToUriConverterPropertyColumn, manyTypes.FindProperty("StringToUriConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(timeOnlyArrayColumn, manyTypes.FindProperty("TimeOnlyArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(timeOnlyToStringConverterPropertyColumn, manyTypes.FindProperty("TimeOnlyToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(timeOnlyToTicksConverterPropertyColumn, manyTypes.FindProperty("TimeOnlyToTicksConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(timeSpanArrayColumn, manyTypes.FindProperty("TimeSpanArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(timeSpanToStringConverterPropertyColumn, manyTypes.FindProperty("TimeSpanToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(timeSpanToTicksConverterPropertyColumn, manyTypes.FindProperty("TimeSpanToTicksConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uInt16Column, manyTypes.FindProperty("UInt16"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uInt16ArrayColumn, manyTypes.FindProperty("UInt16Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uInt32Column, manyTypes.FindProperty("UInt32"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uInt32ArrayColumn, manyTypes.FindProperty("UInt32Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uInt64Column, manyTypes.FindProperty("UInt64"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uInt64ArrayColumn, manyTypes.FindProperty("UInt64Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uInt8Column, manyTypes.FindProperty("UInt8"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uInt8ArrayColumn, manyTypes.FindProperty("UInt8Array"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uriColumn, manyTypes.FindProperty("Uri"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uriArrayColumn, manyTypes.FindProperty("UriArray"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(uriToStringConverterPropertyColumn, manyTypes.FindProperty("UriToStringConverterProperty"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(aDateOnlyColumn, manyTypes.FindProperty("aDateOnly"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(aDateTimeColumn, manyTypes.FindProperty("aDateTime"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(aFloatColumn, manyTypes.FindProperty("aFloat"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(aPhysicalAddressColumn, manyTypes.FindProperty("aPhysicalAddress"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(aTimeOnlyColumn, manyTypes.FindProperty("aTimeOnly"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(aTimeSpanColumn, manyTypes.FindProperty("aTimeSpan"), manyTypesTableMapping) - RelationalModel.CreateColumnMapping(anIPAddressColumn, manyTypes.FindProperty("anIPAddress"), manyTypesTableMapping) - - Dim principalBase = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase") - - Dim defaultTableMappings3 As New List(Of TableMappingBase(Of ColumnMappingBase))() - principalBase.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings3) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", Nothing, relationalModel) - Dim alternateIdColumnBase As New ColumnBase(Of ColumnMappingBase)("AlternateId", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("AlternateId", alternateIdColumnBase) - Dim enum1ColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum1", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("Enum1", enum1ColumnBase) - Dim enum2ColumnBase As New ColumnBase(Of ColumnMappingBase)("Enum2", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("Enum2", enum2ColumnBase) - Dim flagsEnum1ColumnBase As New ColumnBase(Of ColumnMappingBase)("FlagsEnum1", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("FlagsEnum1", flagsEnum1ColumnBase) - Dim flagsEnum2ColumnBase As New ColumnBase(Of ColumnMappingBase)("FlagsEnum2", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("FlagsEnum2", flagsEnum2ColumnBase) - Dim idColumnBase2 As New ColumnBase(Of ColumnMappingBase)("Id", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("Id", idColumnBase2) - Dim pointColumnBase0 As New ColumnBase(Of ColumnMappingBase)("Point", "geometry", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("Point", pointColumnBase0) - Dim refTypeArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("RefTypeArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("RefTypeArray", refTypeArrayColumnBase) - Dim refTypeEnumerableColumnBase As New ColumnBase(Of ColumnMappingBase)("RefTypeEnumerable", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("RefTypeEnumerable", refTypeEnumerableColumnBase) - Dim refTypeIListColumnBase As New ColumnBase(Of ColumnMappingBase)("RefTypeIList", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("RefTypeIList", refTypeIListColumnBase) - Dim refTypeListColumnBase As New ColumnBase(Of ColumnMappingBase)("RefTypeList", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("RefTypeList", refTypeListColumnBase) - Dim valueTypeArrayColumnBase As New ColumnBase(Of ColumnMappingBase)("ValueTypeArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("ValueTypeArray", valueTypeArrayColumnBase) - Dim valueTypeEnumerableColumnBase As New ColumnBase(Of ColumnMappingBase)("ValueTypeEnumerable", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("ValueTypeEnumerable", valueTypeEnumerableColumnBase) - Dim valueTypeIListColumnBase As New ColumnBase(Of ColumnMappingBase)("ValueTypeIList", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("ValueTypeIList", valueTypeIListColumnBase) - Dim valueTypeListColumnBase As New ColumnBase(Of ColumnMappingBase)("ValueTypeList", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.Columns.Add("ValueTypeList", valueTypeListColumnBase) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase As New TableMappingBase(Of ColumnMappingBase)(principalBase, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase, False) - defaultTableMappings3.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(alternateIdColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("AlternateId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase2, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum1ColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("Enum1"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(enum2ColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("Enum2"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(flagsEnum1ColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("FlagsEnum1"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(flagsEnum2ColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("FlagsEnum2"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(pointColumnBase0, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("Point"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeArrayColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("RefTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeEnumerableColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("RefTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeIListColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("RefTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeListColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("RefTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeArrayColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("ValueTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeEnumerableColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("ValueTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeIListColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("ValueTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeListColumnBase, ColumnBase(Of ColumnMappingBase)), principalBase.FindProperty("ValueTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase) - - Dim tableMappings3 As New List(Of TableMapping)() - principalBase.SetRuntimeAnnotation("Relational:TableMappings", tableMappings3) - Dim principalBaseTable As New Table("PrincipalBase", "mySchema", relationalModel) - Dim idColumn2 As New Column("Id", "INTEGER", principalBaseTable) - principalBaseTable.Columns.Add("Id", idColumn2) - Dim alternateIdColumn As New Column("AlternateId", "TEXT", principalBaseTable) - principalBaseTable.Columns.Add("AlternateId", alternateIdColumn) - Dim enum1Column As New Column("Enum1", "INTEGER", principalBaseTable) - principalBaseTable.Columns.Add("Enum1", enum1Column) - Dim enum2Column As New Column("Enum2", "INTEGER", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Enum2", enum2Column) - Dim flagsEnum1Column As New Column("FlagsEnum1", "INTEGER", principalBaseTable) - principalBaseTable.Columns.Add("FlagsEnum1", flagsEnum1Column) - Dim flagsEnum2Column As New Column("FlagsEnum2", "INTEGER", principalBaseTable) - principalBaseTable.Columns.Add("FlagsEnum2", flagsEnum2Column) - Dim owned_NumberColumn As New Column("Owned_Number", "INTEGER", principalBaseTable) - principalBaseTable.Columns.Add("Owned_Number", owned_NumberColumn) - Dim owned_RefTypeArrayColumn As New Column("Owned_RefTypeArray", "TEXT", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_RefTypeArray", owned_RefTypeArrayColumn) - Dim owned_RefTypeEnumerableColumn As New Column("Owned_RefTypeEnumerable", "TEXT", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_RefTypeEnumerable", owned_RefTypeEnumerableColumn) - Dim owned_RefTypeIListColumn As New Column("Owned_RefTypeIList", "TEXT", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_RefTypeIList", owned_RefTypeIListColumn) - Dim owned_RefTypeListColumn As New Column("Owned_RefTypeList", "TEXT", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_RefTypeList", owned_RefTypeListColumn) - Dim owned_ValueTypeArrayColumn As New Column("Owned_ValueTypeArray", "TEXT", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_ValueTypeArray", owned_ValueTypeArrayColumn) - Dim owned_ValueTypeEnumerableColumn As New Column("Owned_ValueTypeEnumerable", "TEXT", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_ValueTypeEnumerable", owned_ValueTypeEnumerableColumn) - Dim owned_ValueTypeIListColumn As New Column("Owned_ValueTypeIList", "TEXT", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_ValueTypeIList", owned_ValueTypeIListColumn) - Dim owned_ValueTypeListColumn As New Column("Owned_ValueTypeList", "TEXT", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Owned_ValueTypeList", owned_ValueTypeListColumn) - Dim pointColumn0 As New Column("Point", "geometry", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("Point", pointColumn0) - Dim refTypeArrayColumn As New Column("RefTypeArray", "TEXT", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("RefTypeArray", refTypeArrayColumn) - Dim refTypeEnumerableColumn As New Column("RefTypeEnumerable", "TEXT", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("RefTypeEnumerable", refTypeEnumerableColumn) - Dim refTypeIListColumn As New Column("RefTypeIList", "TEXT", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("RefTypeIList", refTypeIListColumn) - Dim refTypeListColumn As New Column("RefTypeList", "TEXT", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("RefTypeList", refTypeListColumn) - Dim valueTypeArrayColumn As New Column("ValueTypeArray", "TEXT", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("ValueTypeArray", valueTypeArrayColumn) - Dim valueTypeEnumerableColumn As New Column("ValueTypeEnumerable", "TEXT", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("ValueTypeEnumerable", valueTypeEnumerableColumn) - Dim valueTypeIListColumn As New Column("ValueTypeIList", "TEXT", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("ValueTypeIList", valueTypeIListColumn) - Dim valueTypeListColumn As New Column("ValueTypeList", "TEXT", principalBaseTable) With { - .IsNullable = True - } - principalBaseTable.Columns.Add("ValueTypeList", valueTypeListColumn) - Dim aK_PrincipalBase_Id As New UniqueConstraint("AK_PrincipalBase_Id", principalBaseTable, {idColumn2}) - Dim aK_PrincipalBase_IdUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id"}) - aK_PrincipalBase_Id.MappedKeys.Add(aK_PrincipalBase_IdUc) - RelationalModel.GetOrCreateUniqueConstraints(aK_PrincipalBase_IdUc).Add(aK_PrincipalBase_Id) - principalBaseTable.UniqueConstraints.Add("AK_PrincipalBase_Id", aK_PrincipalBase_Id) - Dim pK As New UniqueConstraint("PK", principalBaseTable, {idColumn2, alternateIdColumn}) - principalBaseTable.PrimaryKey = pK - Dim pKUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id", "AlternateId"}) - pK.MappedKeys.Add(pKUc) - RelationalModel.GetOrCreateUniqueConstraints(pKUc).Add(pK) - Dim pKUc0 = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType", - {"PrincipalBaseId", "PrincipalBaseAlternateId"}) - pK.MappedKeys.Add(pKUc0) - RelationalModel.GetOrCreateUniqueConstraints(pKUc0).Add(pK) - principalBaseTable.UniqueConstraints.Add("PK", pK) - Dim iX_PrincipalBase_AlternateId_Id As New TableIndex( - "IX_PrincipalBase_AlternateId_Id", principalBaseTable, {alternateIdColumn, idColumn2}, False) - Dim iX_PrincipalBase_AlternateId_IdIx = RelationalModel.GetIndex(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"AlternateId", "Id"}) - iX_PrincipalBase_AlternateId_Id.MappedIndexes.Add(iX_PrincipalBase_AlternateId_IdIx) - RelationalModel.GetOrCreateTableIndexes(iX_PrincipalBase_AlternateId_IdIx).Add(iX_PrincipalBase_AlternateId_Id) - principalBaseTable.Indexes.Add("IX_PrincipalBase_AlternateId_Id", iX_PrincipalBase_AlternateId_Id) - relationalModel.Tables.Add(("PrincipalBase", "mySchema"), principalBaseTable) - Dim principalBaseTableMapping As New TableMapping(principalBase, principalBaseTable, True) With { - .IsSharedTablePrincipal = True - } - principalBaseTable.AddTypeMapping(principalBaseTableMapping, False) - tableMappings3.Add(principalBaseTableMapping) - RelationalModel.CreateColumnMapping(alternateIdColumn, principalBase.FindProperty("AlternateId"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(idColumn2, principalBase.FindProperty("Id"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(enum1Column, principalBase.FindProperty("Enum1"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(enum2Column, principalBase.FindProperty("Enum2"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(flagsEnum1Column, principalBase.FindProperty("FlagsEnum1"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(flagsEnum2Column, principalBase.FindProperty("FlagsEnum2"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(pointColumn0, principalBase.FindProperty("Point"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(refTypeArrayColumn, principalBase.FindProperty("RefTypeArray"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(refTypeEnumerableColumn, principalBase.FindProperty("RefTypeEnumerable"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(refTypeIListColumn, principalBase.FindProperty("RefTypeIList"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(refTypeListColumn, principalBase.FindProperty("RefTypeList"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(valueTypeArrayColumn, principalBase.FindProperty("ValueTypeArray"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(valueTypeEnumerableColumn, principalBase.FindProperty("ValueTypeEnumerable"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(valueTypeIListColumn, principalBase.FindProperty("ValueTypeIList"), principalBaseTableMapping) - RelationalModel.CreateColumnMapping(valueTypeListColumn, principalBase.FindProperty("ValueTypeList"), principalBaseTableMapping) - - Dim ownedType = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType") - - Dim defaultTableMappings4 As New List(Of TableMappingBase(Of ColumnMappingBase))() - ownedType.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings4) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType", Nothing, relationalModel) - Dim detailsColumnBase As New ColumnBase(Of ColumnMappingBase)("Details", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("Details", detailsColumnBase) - Dim numberColumnBase As New ColumnBase(Of ColumnMappingBase)("Number", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("Number", numberColumnBase) - Dim principalBaseAlternateIdColumnBase As New ColumnBase(Of ColumnMappingBase)("PrincipalBaseAlternateId", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("PrincipalBaseAlternateId", principalBaseAlternateIdColumnBase) - Dim principalBaseIdColumnBase As New ColumnBase(Of ColumnMappingBase)("PrincipalBaseId", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("PrincipalBaseId", principalBaseIdColumnBase) - Dim refTypeArrayColumnBase0 As New ColumnBase(Of ColumnMappingBase)("RefTypeArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("RefTypeArray", refTypeArrayColumnBase0) - Dim refTypeEnumerableColumnBase0 As New ColumnBase(Of ColumnMappingBase)("RefTypeEnumerable", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("RefTypeEnumerable", refTypeEnumerableColumnBase0) - Dim refTypeIListColumnBase0 As New ColumnBase(Of ColumnMappingBase)("RefTypeIList", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("RefTypeIList", refTypeIListColumnBase0) - Dim refTypeListColumnBase0 As New ColumnBase(Of ColumnMappingBase)("RefTypeList", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("RefTypeList", refTypeListColumnBase0) - Dim valueTypeArrayColumnBase0 As New ColumnBase(Of ColumnMappingBase)("ValueTypeArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("ValueTypeArray", valueTypeArrayColumnBase0) - Dim valueTypeEnumerableColumnBase0 As New ColumnBase(Of ColumnMappingBase)("ValueTypeEnumerable", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("ValueTypeEnumerable", valueTypeEnumerableColumnBase0) - Dim valueTypeIListColumnBase0 As New ColumnBase(Of ColumnMappingBase)("ValueTypeIList", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("ValueTypeIList", valueTypeIListColumnBase0) - Dim valueTypeListColumnBase0 As New ColumnBase(Of ColumnMappingBase)("ValueTypeList", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.Columns.Add("ValueTypeList", valueTypeListColumnBase0) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase As New TableMappingBase(Of ColumnMappingBase)(ownedType, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase, False) - defaultTableMappings4.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalBaseAlternateIdColumnBase, ColumnBase(Of ColumnMappingBase)), ownedType.FindProperty("PrincipalBaseAlternateId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalBaseIdColumnBase, ColumnBase(Of ColumnMappingBase)), ownedType.FindProperty("PrincipalBaseId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(detailsColumnBase, ColumnBase(Of ColumnMappingBase)), ownedType.FindProperty("Details"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(numberColumnBase, ColumnBase(Of ColumnMappingBase)), ownedType.FindProperty("Number"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeArrayColumnBase0, ColumnBase(Of ColumnMappingBase)), ownedType.FindProperty("RefTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeEnumerableColumnBase0, ColumnBase(Of ColumnMappingBase)), ownedType.FindProperty("RefTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeIListColumnBase0, ColumnBase(Of ColumnMappingBase)), ownedType.FindProperty("RefTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeListColumnBase0, ColumnBase(Of ColumnMappingBase)), ownedType.FindProperty("RefTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeArrayColumnBase0, ColumnBase(Of ColumnMappingBase)), ownedType.FindProperty("ValueTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeEnumerableColumnBase0, ColumnBase(Of ColumnMappingBase)), ownedType.FindProperty("ValueTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeIListColumnBase0, ColumnBase(Of ColumnMappingBase)), ownedType.FindProperty("ValueTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeListColumnBase0, ColumnBase(Of ColumnMappingBase)), ownedType.FindProperty("ValueTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseOwnedOwnedTypeMappingBase) - - Dim tableMappings4 As New List(Of TableMapping)() - ownedType.SetRuntimeAnnotation("Relational:TableMappings", tableMappings4) - Dim principalBaseTableMapping0 As New TableMapping(ownedType, principalBaseTable, True) With { - .IsSharedTablePrincipal = False, - .IsSplitEntityTypePrincipal = True - } - principalBaseTable.AddTypeMapping(principalBaseTableMapping0, False) - tableMappings4.Add(principalBaseTableMapping0) - principalBaseTable.AddRowInternalForeignKey(ownedType, RelationalModel.GetForeignKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType", - {"PrincipalBaseId", "PrincipalBaseAlternateId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id", "AlternateId"})) - RelationalModel.CreateColumnMapping(alternateIdColumn, ownedType.FindProperty("PrincipalBaseAlternateId"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(idColumn2, ownedType.FindProperty("PrincipalBaseId"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_NumberColumn, ownedType.FindProperty("Number"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_RefTypeArrayColumn, ownedType.FindProperty("RefTypeArray"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_RefTypeEnumerableColumn, ownedType.FindProperty("RefTypeEnumerable"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_RefTypeIListColumn, ownedType.FindProperty("RefTypeIList"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_RefTypeListColumn, ownedType.FindProperty("RefTypeList"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_ValueTypeArrayColumn, ownedType.FindProperty("ValueTypeArray"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_ValueTypeEnumerableColumn, ownedType.FindProperty("ValueTypeEnumerable"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_ValueTypeIListColumn, ownedType.FindProperty("ValueTypeIList"), principalBaseTableMapping0) - RelationalModel.CreateColumnMapping(owned_ValueTypeListColumn, ownedType.FindProperty("ValueTypeList"), principalBaseTableMapping0) - Dim detailsTable As New Table("Details", Nothing, relationalModel) - Dim principalBaseIdColumn As New Column("PrincipalBaseId", "INTEGER", detailsTable) - detailsTable.Columns.Add("PrincipalBaseId", principalBaseIdColumn) - Dim principalBaseAlternateIdColumn As New Column("PrincipalBaseAlternateId", "TEXT", detailsTable) - detailsTable.Columns.Add("PrincipalBaseAlternateId", principalBaseAlternateIdColumn) - Dim detailsColumn As New Column("Details", "TEXT", detailsTable) With { - .IsNullable = True - } - detailsTable.Columns.Add("Details", detailsColumn) - Dim pK_Details As New UniqueConstraint("PK_Details", detailsTable, {principalBaseIdColumn, principalBaseAlternateIdColumn}) - detailsTable.PrimaryKey = pK_Details - Dim pK_DetailsUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType", - {"PrincipalBaseId", "PrincipalBaseAlternateId"}) - pK_Details.MappedKeys.Add(pK_DetailsUc) - RelationalModel.GetOrCreateUniqueConstraints(pK_DetailsUc).Add(pK_Details) - detailsTable.UniqueConstraints.Add("PK_Details", pK_Details) - relationalModel.Tables.Add(("Details", Nothing), detailsTable) - Dim detailsTableMapping As New TableMapping(ownedType, detailsTable, True) With { - .IsSplitEntityTypePrincipal = False - } - detailsTable.AddTypeMapping(detailsTableMapping, False) - tableMappings4.Add(detailsTableMapping) - RelationalModel.CreateColumnMapping(principalBaseAlternateIdColumn, ownedType.FindProperty("PrincipalBaseAlternateId"), detailsTableMapping) - RelationalModel.CreateColumnMapping(principalBaseIdColumn, ownedType.FindProperty("PrincipalBaseId"), detailsTableMapping) - RelationalModel.CreateColumnMapping(detailsColumn, ownedType.FindProperty("Details"), detailsTableMapping) - - Dim principalDerived = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>") - - Dim defaultTableMappings5 As New List(Of TableMappingBase(Of ColumnMappingBase))() - principalDerived.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings5) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0 As New TableMappingBase(Of ColumnMappingBase)(principalDerived, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase, False) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0, False) - defaultTableMappings5.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(alternateIdColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("AlternateId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase2, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(enum1ColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("Enum1"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(enum2ColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("Enum2"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(flagsEnum1ColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("FlagsEnum1"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(flagsEnum2ColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("FlagsEnum2"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(pointColumnBase0, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("Point"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(refTypeArrayColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("RefTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(refTypeEnumerableColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("RefTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(refTypeIListColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("RefTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(refTypeListColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("RefTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeArrayColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("ValueTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeEnumerableColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("ValueTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeIListColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("ValueTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeListColumnBase, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("ValueTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalBaseMappingBase0) - - Dim defaultTableMappings6 As New List(Of TableMappingBase(Of ColumnMappingBase))() - principalDerived.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings6) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", Nothing, relationalModel) - Dim alternateIdColumnBase0 As New ColumnBase(Of ColumnMappingBase)("AlternateId", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("AlternateId", alternateIdColumnBase0) - Dim idColumnBase3 As New ColumnBase(Of ColumnMappingBase)("Id", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.Columns.Add("Id", idColumnBase3) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase As New TableMappingBase(Of ColumnMappingBase)(principalDerived, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase, False) - defaultTableMappings6.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(alternateIdColumnBase0, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("AlternateId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase3, ColumnBase(Of ColumnMappingBase)), principalDerived.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteMappingBase) - - Dim tableMappings5 As New List(Of TableMapping)() - principalDerived.SetRuntimeAnnotation("Relational:TableMappings", tableMappings5) - Dim principalBaseTableMapping1 As New TableMapping(principalDerived, principalBaseTable, False) With { - .IsSharedTablePrincipal = False - } - principalBaseTable.AddTypeMapping(principalBaseTableMapping1, False) - tableMappings5.Add(principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(alternateIdColumn, principalDerived.FindProperty("AlternateId"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(idColumn2, principalDerived.FindProperty("Id"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(enum1Column, principalDerived.FindProperty("Enum1"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(enum2Column, principalDerived.FindProperty("Enum2"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(flagsEnum1Column, principalDerived.FindProperty("FlagsEnum1"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(flagsEnum2Column, principalDerived.FindProperty("FlagsEnum2"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(pointColumn0, principalDerived.FindProperty("Point"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(refTypeArrayColumn, principalDerived.FindProperty("RefTypeArray"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(refTypeEnumerableColumn, principalDerived.FindProperty("RefTypeEnumerable"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(refTypeIListColumn, principalDerived.FindProperty("RefTypeIList"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(refTypeListColumn, principalDerived.FindProperty("RefTypeList"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(valueTypeArrayColumn, principalDerived.FindProperty("ValueTypeArray"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(valueTypeEnumerableColumn, principalDerived.FindProperty("ValueTypeEnumerable"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(valueTypeIListColumn, principalDerived.FindProperty("ValueTypeIList"), principalBaseTableMapping1) - RelationalModel.CreateColumnMapping(valueTypeListColumn, principalDerived.FindProperty("ValueTypeList"), principalBaseTableMapping1) - Dim principalDerivedTable As New Table("PrincipalDerived", Nothing, relationalModel) - Dim derivedIdColumn As New Column("DerivedId", "INTEGER", principalDerivedTable) - principalDerivedTable.Columns.Add("DerivedId", derivedIdColumn) - Dim alternateIdColumn0 As New Column("AlternateId", "TEXT", principalDerivedTable) - principalDerivedTable.Columns.Add("AlternateId", alternateIdColumn0) - Dim aK_PrincipalDerived_DerivedId As New UniqueConstraint("AK_PrincipalDerived_DerivedId", principalDerivedTable, {derivedIdColumn}) - Dim aK_PrincipalDerived_DerivedIdUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id"}) - aK_PrincipalDerived_DerivedId.MappedKeys.Add(aK_PrincipalDerived_DerivedIdUc) - RelationalModel.GetOrCreateUniqueConstraints(aK_PrincipalDerived_DerivedIdUc).Add(aK_PrincipalDerived_DerivedId) - principalDerivedTable.UniqueConstraints.Add("AK_PrincipalDerived_DerivedId", aK_PrincipalDerived_DerivedId) - Dim pK0 As New UniqueConstraint("PK", principalDerivedTable, {derivedIdColumn, alternateIdColumn0}) - principalDerivedTable.PrimaryKey = pK0 - Dim pK0Uc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id", "AlternateId"}) - pK0.MappedKeys.Add(pK0Uc) - RelationalModel.GetOrCreateUniqueConstraints(pK0Uc).Add(pK0) - principalDerivedTable.UniqueConstraints.Add("PK", pK0) - Dim iX_PrincipalDerived_AlternateId_DerivedId As New TableIndex( - "IX_PrincipalDerived_AlternateId_DerivedId", principalDerivedTable, {alternateIdColumn0, derivedIdColumn}, False) - Dim iX_PrincipalDerived_AlternateId_DerivedIdIx = RelationalModel.GetIndex(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"AlternateId", "Id"}) - iX_PrincipalDerived_AlternateId_DerivedId.MappedIndexes.Add(iX_PrincipalDerived_AlternateId_DerivedIdIx) - RelationalModel.GetOrCreateTableIndexes(iX_PrincipalDerived_AlternateId_DerivedIdIx).Add(iX_PrincipalDerived_AlternateId_DerivedId) - principalDerivedTable.Indexes.Add("IX_PrincipalDerived_AlternateId_DerivedId", iX_PrincipalDerived_AlternateId_DerivedId) - relationalModel.Tables.Add(("PrincipalDerived", Nothing), principalDerivedTable) - Dim principalDerivedTableMapping As New TableMapping(principalDerived, principalDerivedTable, True) - principalDerivedTable.AddTypeMapping(principalDerivedTableMapping, False) - tableMappings5.Add(principalDerivedTableMapping) - RelationalModel.CreateColumnMapping(alternateIdColumn0, principalDerived.FindProperty("AlternateId"), principalDerivedTableMapping) - RelationalModel.CreateColumnMapping(derivedIdColumn, principalDerived.FindProperty("Id"), principalDerivedTableMapping) - - Dim ownedType0 = FindEntityType("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>.ManyOwned#OwnedType") - - Dim defaultTableMappings7 As New List(Of TableMappingBase(Of ColumnMappingBase))() - ownedType0.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings7) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase As New TableBase("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>.ManyOwned#OwnedType", Nothing, relationalModel) - Dim detailsColumnBase0 As New ColumnBase(Of ColumnMappingBase)("Details", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("Details", detailsColumnBase0) - Dim idColumnBase4 As New ColumnBase(Of ColumnMappingBase)("Id", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("Id", idColumnBase4) - Dim numberColumnBase0 As New ColumnBase(Of ColumnMappingBase)("Number", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("Number", numberColumnBase0) - Dim principalDerivedDependentBasebyteAlternateIdColumnBase As New ColumnBase(Of ColumnMappingBase)("PrincipalDerived>AlternateId", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("PrincipalDerived>AlternateId", principalDerivedDependentBasebyteAlternateIdColumnBase) - Dim principalDerivedDependentBasebyteIdColumnBase As New ColumnBase(Of ColumnMappingBase)("PrincipalDerived>Id", "INTEGER", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("PrincipalDerived>Id", principalDerivedDependentBasebyteIdColumnBase) - Dim refTypeArrayColumnBase1 As New ColumnBase(Of ColumnMappingBase)("RefTypeArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("RefTypeArray", refTypeArrayColumnBase1) - Dim refTypeEnumerableColumnBase1 As New ColumnBase(Of ColumnMappingBase)("RefTypeEnumerable", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("RefTypeEnumerable", refTypeEnumerableColumnBase1) - Dim refTypeIListColumnBase1 As New ColumnBase(Of ColumnMappingBase)("RefTypeIList", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("RefTypeIList", refTypeIListColumnBase1) - Dim refTypeListColumnBase1 As New ColumnBase(Of ColumnMappingBase)("RefTypeList", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("RefTypeList", refTypeListColumnBase1) - Dim valueTypeArrayColumnBase1 As New ColumnBase(Of ColumnMappingBase)("ValueTypeArray", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("ValueTypeArray", valueTypeArrayColumnBase1) - Dim valueTypeEnumerableColumnBase1 As New ColumnBase(Of ColumnMappingBase)("ValueTypeEnumerable", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("ValueTypeEnumerable", valueTypeEnumerableColumnBase1) - Dim valueTypeIListColumnBase1 As New ColumnBase(Of ColumnMappingBase)("ValueTypeIList", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("ValueTypeIList", valueTypeIListColumnBase1) - Dim valueTypeListColumnBase1 As New ColumnBase(Of ColumnMappingBase)("ValueTypeList", "TEXT", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) With { - .IsNullable = True - } - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.Columns.Add("ValueTypeList", valueTypeListColumnBase1) - relationalModel.DefaultTables.Add("EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>.ManyOwned#OwnedType", entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase) - Dim entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase As New TableMappingBase(Of ColumnMappingBase)(ownedType0, entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase, True) - entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeTableBase.AddTypeMapping(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase, False) - defaultTableMappings7.Add(entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(idColumnBase4, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("Id"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalDerivedDependentBasebyteAlternateIdColumnBase, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("PrincipalDerivedAlternateId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalDerivedDependentBasebyteIdColumnBase, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("PrincipalDerivedId"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(detailsColumnBase0, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("Details"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(numberColumnBase0, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("Number"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeArrayColumnBase1, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("RefTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeEnumerableColumnBase1, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("RefTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeIListColumnBase1, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("RefTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(refTypeListColumnBase1, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("RefTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeArrayColumnBase1, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("ValueTypeArray"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeEnumerableColumnBase1, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("ValueTypeEnumerable"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeIListColumnBase1, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("ValueTypeIList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(valueTypeListColumnBase1, ColumnBase(Of ColumnMappingBase)), ownedType0.FindProperty("ValueTypeList"), entityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestPrincipalDerivedEntityFrameworkCoreVisualBasicScaffoldingInternalVisualBasicRuntimeModelCodeGeneratorTestDependentBasebyteManyOwnedOwnedTypeMappingBase) - - Dim tableMappings6 As New List(Of TableMapping)() - ownedType0.SetRuntimeAnnotation("Relational:TableMappings", tableMappings6) - Dim manyOwnedTable As New Table("ManyOwned", Nothing, relationalModel) - Dim principalDerivedDependentBasebyteIdColumn As New Column("PrincipalDerived>Id", "INTEGER", manyOwnedTable) - manyOwnedTable.Columns.Add("PrincipalDerived>Id", principalDerivedDependentBasebyteIdColumn) - Dim principalDerivedDependentBasebyteAlternateIdColumn As New Column("PrincipalDerived>AlternateId", "TEXT", manyOwnedTable) - manyOwnedTable.Columns.Add("PrincipalDerived>AlternateId", principalDerivedDependentBasebyteAlternateIdColumn) - Dim idColumn3 As New Column("Id", "INTEGER", manyOwnedTable) - manyOwnedTable.Columns.Add("Id", idColumn3) - Dim detailsColumn0 As New Column("Details", "TEXT", manyOwnedTable) With { - .IsNullable = True - } - manyOwnedTable.Columns.Add("Details", detailsColumn0) - Dim numberColumn As New Column("Number", "INTEGER", manyOwnedTable) - manyOwnedTable.Columns.Add("Number", numberColumn) - Dim refTypeArrayColumn0 As New Column("RefTypeArray", "TEXT", manyOwnedTable) With { - .IsNullable = True - } - manyOwnedTable.Columns.Add("RefTypeArray", refTypeArrayColumn0) - Dim refTypeEnumerableColumn0 As New Column("RefTypeEnumerable", "TEXT", manyOwnedTable) With { - .IsNullable = True - } - manyOwnedTable.Columns.Add("RefTypeEnumerable", refTypeEnumerableColumn0) - Dim refTypeIListColumn0 As New Column("RefTypeIList", "TEXT", manyOwnedTable) With { - .IsNullable = True - } - manyOwnedTable.Columns.Add("RefTypeIList", refTypeIListColumn0) - Dim refTypeListColumn0 As New Column("RefTypeList", "TEXT", manyOwnedTable) With { - .IsNullable = True - } - manyOwnedTable.Columns.Add("RefTypeList", refTypeListColumn0) - Dim valueTypeArrayColumn0 As New Column("ValueTypeArray", "TEXT", manyOwnedTable) With { - .IsNullable = True - } - manyOwnedTable.Columns.Add("ValueTypeArray", valueTypeArrayColumn0) - Dim valueTypeEnumerableColumn0 As New Column("ValueTypeEnumerable", "TEXT", manyOwnedTable) With { - .IsNullable = True - } - manyOwnedTable.Columns.Add("ValueTypeEnumerable", valueTypeEnumerableColumn0) - Dim valueTypeIListColumn0 As New Column("ValueTypeIList", "TEXT", manyOwnedTable) With { - .IsNullable = True - } - manyOwnedTable.Columns.Add("ValueTypeIList", valueTypeIListColumn0) - Dim valueTypeListColumn0 As New Column("ValueTypeList", "TEXT", manyOwnedTable) With { - .IsNullable = True - } - manyOwnedTable.Columns.Add("ValueTypeList", valueTypeListColumn0) - Dim pK_ManyOwned As New UniqueConstraint("PK_ManyOwned", manyOwnedTable, {principalDerivedDependentBasebyteIdColumn, principalDerivedDependentBasebyteAlternateIdColumn, idColumn3}) - manyOwnedTable.PrimaryKey = pK_ManyOwned - Dim pK_ManyOwnedUc = RelationalModel.GetKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>.ManyOwned#OwnedType", - {"PrincipalDerivedId", "PrincipalDerivedAlternateId", "Id"}) - pK_ManyOwned.MappedKeys.Add(pK_ManyOwnedUc) - RelationalModel.GetOrCreateUniqueConstraints(pK_ManyOwnedUc).Add(pK_ManyOwned) - manyOwnedTable.UniqueConstraints.Add("PK_ManyOwned", pK_ManyOwned) - relationalModel.Tables.Add(("ManyOwned", Nothing), manyOwnedTable) - Dim manyOwnedTableMapping As New TableMapping(ownedType0, manyOwnedTable, True) - manyOwnedTable.AddTypeMapping(manyOwnedTableMapping, False) - tableMappings6.Add(manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(idColumn3, ownedType0.FindProperty("Id"), manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(principalDerivedDependentBasebyteAlternateIdColumn, ownedType0.FindProperty("PrincipalDerivedAlternateId"), manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(principalDerivedDependentBasebyteIdColumn, ownedType0.FindProperty("PrincipalDerivedId"), manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(detailsColumn0, ownedType0.FindProperty("Details"), manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(numberColumn, ownedType0.FindProperty("Number"), manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(refTypeArrayColumn0, ownedType0.FindProperty("RefTypeArray"), manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(refTypeEnumerableColumn0, ownedType0.FindProperty("RefTypeEnumerable"), manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(refTypeIListColumn0, ownedType0.FindProperty("RefTypeIList"), manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(refTypeListColumn0, ownedType0.FindProperty("RefTypeList"), manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(valueTypeArrayColumn0, ownedType0.FindProperty("ValueTypeArray"), manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(valueTypeEnumerableColumn0, ownedType0.FindProperty("ValueTypeEnumerable"), manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(valueTypeIListColumn0, ownedType0.FindProperty("ValueTypeIList"), manyOwnedTableMapping) - RelationalModel.CreateColumnMapping(valueTypeListColumn0, ownedType0.FindProperty("ValueTypeList"), manyOwnedTableMapping) - - Dim principalBasePrincipalDerivedDependentBasebyte = FindEntityType("PrincipalBasePrincipalDerived>") - - Dim defaultTableMappings8 As New List(Of TableMappingBase(Of ColumnMappingBase))() - principalBasePrincipalDerivedDependentBasebyte.SetRuntimeAnnotation("Relational:DefaultMappings", defaultTableMappings8) - Dim principalBasePrincipalDerivedDependentBasebyteTableBase As New TableBase("PrincipalBasePrincipalDerived>", Nothing, relationalModel) - Dim derivedsAlternateIdColumnBase As New ColumnBase(Of ColumnMappingBase)("DerivedsAlternateId", "TEXT", principalBasePrincipalDerivedDependentBasebyteTableBase) - principalBasePrincipalDerivedDependentBasebyteTableBase.Columns.Add("DerivedsAlternateId", derivedsAlternateIdColumnBase) - Dim derivedsIdColumnBase As New ColumnBase(Of ColumnMappingBase)("DerivedsId", "INTEGER", principalBasePrincipalDerivedDependentBasebyteTableBase) - principalBasePrincipalDerivedDependentBasebyteTableBase.Columns.Add("DerivedsId", derivedsIdColumnBase) - Dim principalsAlternateIdColumnBase As New ColumnBase(Of ColumnMappingBase)("PrincipalsAlternateId", "TEXT", principalBasePrincipalDerivedDependentBasebyteTableBase) - principalBasePrincipalDerivedDependentBasebyteTableBase.Columns.Add("PrincipalsAlternateId", principalsAlternateIdColumnBase) - Dim principalsIdColumnBase As New ColumnBase(Of ColumnMappingBase)("PrincipalsId", "INTEGER", principalBasePrincipalDerivedDependentBasebyteTableBase) - principalBasePrincipalDerivedDependentBasebyteTableBase.Columns.Add("PrincipalsId", principalsIdColumnBase) - Dim rowidColumnBase As New ColumnBase(Of ColumnMappingBase)("rowid", "BLOB", principalBasePrincipalDerivedDependentBasebyteTableBase) With { - .IsNullable = True - } - principalBasePrincipalDerivedDependentBasebyteTableBase.Columns.Add("rowid", rowidColumnBase) - relationalModel.DefaultTables.Add("PrincipalBasePrincipalDerived>", principalBasePrincipalDerivedDependentBasebyteTableBase) - Dim principalBasePrincipalDerivedDependentBasebyteMappingBase As New TableMappingBase(Of ColumnMappingBase)(principalBasePrincipalDerivedDependentBasebyte, principalBasePrincipalDerivedDependentBasebyteTableBase, True) - principalBasePrincipalDerivedDependentBasebyteTableBase.AddTypeMapping(principalBasePrincipalDerivedDependentBasebyteMappingBase, False) - defaultTableMappings8.Add(principalBasePrincipalDerivedDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(derivedsAlternateIdColumnBase, ColumnBase(Of ColumnMappingBase)), principalBasePrincipalDerivedDependentBasebyte.FindProperty("DerivedsAlternateId"), principalBasePrincipalDerivedDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(derivedsIdColumnBase, ColumnBase(Of ColumnMappingBase)), principalBasePrincipalDerivedDependentBasebyte.FindProperty("DerivedsId"), principalBasePrincipalDerivedDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalsAlternateIdColumnBase, ColumnBase(Of ColumnMappingBase)), principalBasePrincipalDerivedDependentBasebyte.FindProperty("PrincipalsAlternateId"), principalBasePrincipalDerivedDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(principalsIdColumnBase, ColumnBase(Of ColumnMappingBase)), principalBasePrincipalDerivedDependentBasebyte.FindProperty("PrincipalsId"), principalBasePrincipalDerivedDependentBasebyteMappingBase) - RelationalModel.CreateColumnMapping(DirectCast(rowidColumnBase, ColumnBase(Of ColumnMappingBase)), principalBasePrincipalDerivedDependentBasebyte.FindProperty("rowid"), principalBasePrincipalDerivedDependentBasebyteMappingBase) - - Dim tableMappings7 As New List(Of TableMapping)() - principalBasePrincipalDerivedDependentBasebyte.SetRuntimeAnnotation("Relational:TableMappings", tableMappings7) - Dim principalBasePrincipalDerivedDependentBasebyteTable As New Table("PrincipalBasePrincipalDerived>", Nothing, relationalModel) - Dim derivedsIdColumn As New Column("DerivedsId", "INTEGER", principalBasePrincipalDerivedDependentBasebyteTable) - principalBasePrincipalDerivedDependentBasebyteTable.Columns.Add("DerivedsId", derivedsIdColumn) - Dim derivedsAlternateIdColumn As New Column("DerivedsAlternateId", "TEXT", principalBasePrincipalDerivedDependentBasebyteTable) - principalBasePrincipalDerivedDependentBasebyteTable.Columns.Add("DerivedsAlternateId", derivedsAlternateIdColumn) - Dim principalsIdColumn As New Column("PrincipalsId", "INTEGER", principalBasePrincipalDerivedDependentBasebyteTable) - principalBasePrincipalDerivedDependentBasebyteTable.Columns.Add("PrincipalsId", principalsIdColumn) - Dim principalsAlternateIdColumn As New Column("PrincipalsAlternateId", "TEXT", principalBasePrincipalDerivedDependentBasebyteTable) - principalBasePrincipalDerivedDependentBasebyteTable.Columns.Add("PrincipalsAlternateId", principalsAlternateIdColumn) - Dim rowidColumn As New Column("rowid", "BLOB", principalBasePrincipalDerivedDependentBasebyteTable) With { - .IsNullable = True - } - principalBasePrincipalDerivedDependentBasebyteTable.Columns.Add("rowid", rowidColumn) - Dim pK_PrincipalBasePrincipalDerivedDependentBasebyte As New UniqueConstraint("PK_PrincipalBasePrincipalDerived>", principalBasePrincipalDerivedDependentBasebyteTable, {derivedsIdColumn, derivedsAlternateIdColumn, principalsIdColumn, principalsAlternateIdColumn}) - principalBasePrincipalDerivedDependentBasebyteTable.PrimaryKey = pK_PrincipalBasePrincipalDerivedDependentBasebyte - Dim pK_PrincipalBasePrincipalDerivedDependentBasebyteUc = RelationalModel.GetKey(Me, - "PrincipalBasePrincipalDerived>", - {"DerivedsId", "DerivedsAlternateId", "PrincipalsId", "PrincipalsAlternateId"}) - pK_PrincipalBasePrincipalDerivedDependentBasebyte.MappedKeys.Add(pK_PrincipalBasePrincipalDerivedDependentBasebyteUc) - RelationalModel.GetOrCreateUniqueConstraints(pK_PrincipalBasePrincipalDerivedDependentBasebyteUc).Add(pK_PrincipalBasePrincipalDerivedDependentBasebyte) - principalBasePrincipalDerivedDependentBasebyteTable.UniqueConstraints.Add("PK_PrincipalBasePrincipalDerived>", pK_PrincipalBasePrincipalDerivedDependentBasebyte) - Dim iX_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalsId_PrincipalsAlternateId As New TableIndex( - "IX_PrincipalBasePrincipalDerived>_PrincipalsId_PrincipalsAlternateId", principalBasePrincipalDerivedDependentBasebyteTable, {principalsIdColumn, principalsAlternateIdColumn}, False) - Dim iX_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalsId_PrincipalsAlternateIdIx = RelationalModel.GetIndex(Me, - "PrincipalBasePrincipalDerived>", - {"PrincipalsId", "PrincipalsAlternateId"}) - iX_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalsId_PrincipalsAlternateId.MappedIndexes.Add(iX_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalsId_PrincipalsAlternateIdIx) - RelationalModel.GetOrCreateTableIndexes(iX_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalsId_PrincipalsAlternateIdIx).Add(iX_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalsId_PrincipalsAlternateId) - principalBasePrincipalDerivedDependentBasebyteTable.Indexes.Add("IX_PrincipalBasePrincipalDerived>_PrincipalsId_PrincipalsAlternateId", iX_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalsId_PrincipalsAlternateId) - relationalModel.Tables.Add(("PrincipalBasePrincipalDerived>", Nothing), principalBasePrincipalDerivedDependentBasebyteTable) - Dim principalBasePrincipalDerivedDependentBasebyteTableMapping As New TableMapping(principalBasePrincipalDerivedDependentBasebyte, principalBasePrincipalDerivedDependentBasebyteTable, True) - principalBasePrincipalDerivedDependentBasebyteTable.AddTypeMapping(principalBasePrincipalDerivedDependentBasebyteTableMapping, False) - tableMappings7.Add(principalBasePrincipalDerivedDependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(derivedsAlternateIdColumn, principalBasePrincipalDerivedDependentBasebyte.FindProperty("DerivedsAlternateId"), principalBasePrincipalDerivedDependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(derivedsIdColumn, principalBasePrincipalDerivedDependentBasebyte.FindProperty("DerivedsId"), principalBasePrincipalDerivedDependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(principalsAlternateIdColumn, principalBasePrincipalDerivedDependentBasebyte.FindProperty("PrincipalsAlternateId"), principalBasePrincipalDerivedDependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(principalsIdColumn, principalBasePrincipalDerivedDependentBasebyte.FindProperty("PrincipalsId"), principalBasePrincipalDerivedDependentBasebyteTableMapping) - RelationalModel.CreateColumnMapping(rowidColumn, principalBasePrincipalDerivedDependentBasebyte.FindProperty("rowid"), principalBasePrincipalDerivedDependentBasebyteTableMapping) - Dim fK_DependentBasebyte_PrincipalBase_PrincipalId As New ForeignKeyConstraint( - "FK_DependentBase_PrincipalBase_PrincipalId", dependentBasebyteTable, principalBaseTable, - {principalIdColumn}, - principalBaseTable.FindUniqueConstraint("AK_PrincipalBase_Id"), ReferentialAction.Cascade) - Dim fK_DependentBasebyte_PrincipalBase_PrincipalIdFk = RelationalModel.GetForeignKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", - {"PrincipalId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id"}) - fK_DependentBasebyte_PrincipalBase_PrincipalId.MappedForeignKeys.Add(fK_DependentBasebyte_PrincipalBase_PrincipalIdFk) - RelationalModel.GetOrCreateForeignKeyConstraints(fK_DependentBasebyte_PrincipalBase_PrincipalIdFk).Add(fK_DependentBasebyte_PrincipalBase_PrincipalId) - dependentBasebyteTable.ForeignKeyConstraints.Add(fK_DependentBasebyte_PrincipalBase_PrincipalId) - principalBaseTable.ReferencingForeignKeyConstraints.Add(fK_DependentBasebyte_PrincipalBase_PrincipalId) - Dim fK_DependentBasebyte_PrincipalDerived_PrincipalId_PrincipalAlternateId As New ForeignKeyConstraint( - "FK_DependentBase_PrincipalDerived_PrincipalId_PrincipalAlternateId", dependentBasebyteTable, principalDerivedTable, - {principalIdColumn, principalAlternateIdColumn}, - principalDerivedTable.FindUniqueConstraint("PK"), ReferentialAction.NoAction) - Dim fK_DependentBasebyte_PrincipalDerived_PrincipalId_PrincipalAlternateIdFk = RelationalModel.GetForeignKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", - {"PrincipalId", "PrincipalAlternateId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", - {"Id", "AlternateId"}) - fK_DependentBasebyte_PrincipalDerived_PrincipalId_PrincipalAlternateId.MappedForeignKeys.Add(fK_DependentBasebyte_PrincipalDerived_PrincipalId_PrincipalAlternateIdFk) - RelationalModel.GetOrCreateForeignKeyConstraints(fK_DependentBasebyte_PrincipalDerived_PrincipalId_PrincipalAlternateIdFk).Add(fK_DependentBasebyte_PrincipalDerived_PrincipalId_PrincipalAlternateId) - dependentBasebyteTable.ForeignKeyConstraints.Add(fK_DependentBasebyte_PrincipalDerived_PrincipalId_PrincipalAlternateId) - principalDerivedTable.ReferencingForeignKeyConstraints.Add(fK_DependentBasebyte_PrincipalDerived_PrincipalId_PrincipalAlternateId) - Dim fK_Details_PrincipalBase_PrincipalBaseId_PrincipalBaseAlternateId As New ForeignKeyConstraint( - "FK_Details_PrincipalBase_PrincipalBaseId_PrincipalBaseAlternateId", detailsTable, principalBaseTable, - {principalBaseIdColumn, principalBaseAlternateIdColumn}, - principalBaseTable.FindUniqueConstraint("PK"), ReferentialAction.Cascade) - Dim fK_Details_PrincipalBase_PrincipalBaseId_PrincipalBaseAlternateIdFk = RelationalModel.GetForeignKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType", - {"PrincipalBaseId", "PrincipalBaseAlternateId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType", - {"PrincipalBaseId", "PrincipalBaseAlternateId"}) - fK_Details_PrincipalBase_PrincipalBaseId_PrincipalBaseAlternateId.MappedForeignKeys.Add(fK_Details_PrincipalBase_PrincipalBaseId_PrincipalBaseAlternateIdFk) - RelationalModel.GetOrCreateForeignKeyConstraints(fK_Details_PrincipalBase_PrincipalBaseId_PrincipalBaseAlternateIdFk).Add(fK_Details_PrincipalBase_PrincipalBaseId_PrincipalBaseAlternateId) - detailsTable.ForeignKeyConstraints.Add(fK_Details_PrincipalBase_PrincipalBaseId_PrincipalBaseAlternateId) - principalBaseTable.ReferencingForeignKeyConstraints.Add(fK_Details_PrincipalBase_PrincipalBaseId_PrincipalBaseAlternateId) - Dim fK_ManyOwned_PrincipalDerived_PrincipalDerivedDependentBasebyteId_PrincipalDerivedDependentBasebyteAlternateId As New ForeignKeyConstraint( - "FK_ManyOwned_PrincipalDerived_PrincipalDerived>Id_PrincipalDerived>AlternateId", manyOwnedTable, principalDerivedTable, - {principalDerivedDependentBasebyteIdColumn, principalDerivedDependentBasebyteAlternateIdColumn}, - principalDerivedTable.FindUniqueConstraint("PK"), ReferentialAction.Cascade) - Dim fK_ManyOwned_PrincipalDerived_PrincipalDerivedDependentBasebyteId_PrincipalDerivedDependentBasebyteAlternateIdFk = RelationalModel.GetForeignKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>.ManyOwned#OwnedType", - {"PrincipalDerivedId", "PrincipalDerivedAlternateId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", - {"Id", "AlternateId"}) - fK_ManyOwned_PrincipalDerived_PrincipalDerivedDependentBasebyteId_PrincipalDerivedDependentBasebyteAlternateId.MappedForeignKeys.Add(fK_ManyOwned_PrincipalDerived_PrincipalDerivedDependentBasebyteId_PrincipalDerivedDependentBasebyteAlternateIdFk) - RelationalModel.GetOrCreateForeignKeyConstraints(fK_ManyOwned_PrincipalDerived_PrincipalDerivedDependentBasebyteId_PrincipalDerivedDependentBasebyteAlternateIdFk).Add(fK_ManyOwned_PrincipalDerived_PrincipalDerivedDependentBasebyteId_PrincipalDerivedDependentBasebyteAlternateId) - manyOwnedTable.ForeignKeyConstraints.Add(fK_ManyOwned_PrincipalDerived_PrincipalDerivedDependentBasebyteId_PrincipalDerivedDependentBasebyteAlternateId) - principalDerivedTable.ReferencingForeignKeyConstraints.Add(fK_ManyOwned_PrincipalDerived_PrincipalDerivedDependentBasebyteId_PrincipalDerivedDependentBasebyteAlternateId) - Dim fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_PrincipalsId_PrincipalsAlternateId As New ForeignKeyConstraint( - "FK_PrincipalBasePrincipalDerived>_PrincipalBase_PrincipalsId_PrincipalsAlternateId", principalBasePrincipalDerivedDependentBasebyteTable, principalBaseTable, - {principalsIdColumn, principalsAlternateIdColumn}, - principalBaseTable.FindUniqueConstraint("PK"), ReferentialAction.Cascade) - Dim fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_PrincipalsId_PrincipalsAlternateIdFk = RelationalModel.GetForeignKey(Me, - "PrincipalBasePrincipalDerived>", - {"PrincipalsId", "PrincipalsAlternateId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id", "AlternateId"}) - fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_PrincipalsId_PrincipalsAlternateId.MappedForeignKeys.Add(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_PrincipalsId_PrincipalsAlternateIdFk) - RelationalModel.GetOrCreateForeignKeyConstraints(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_PrincipalsId_PrincipalsAlternateIdFk).Add(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_PrincipalsId_PrincipalsAlternateId) - principalBasePrincipalDerivedDependentBasebyteTable.ForeignKeyConstraints.Add(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_PrincipalsId_PrincipalsAlternateId) - principalBaseTable.ReferencingForeignKeyConstraints.Add(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalBase_PrincipalsId_PrincipalsAlternateId) - Dim fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalDerived_DerivedsId_DerivedsAlternateId As New ForeignKeyConstraint( - "FK_PrincipalBasePrincipalDerived>_PrincipalDerived_DerivedsId_DerivedsAlternateId", principalBasePrincipalDerivedDependentBasebyteTable, principalDerivedTable, - {derivedsIdColumn, derivedsAlternateIdColumn}, - principalDerivedTable.FindUniqueConstraint("PK"), ReferentialAction.Cascade) - Dim fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalDerived_DerivedsId_DerivedsAlternateIdFk = RelationalModel.GetForeignKey(Me, - "PrincipalBasePrincipalDerived>", - {"DerivedsId", "DerivedsAlternateId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", - {"Id", "AlternateId"}) - fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalDerived_DerivedsId_DerivedsAlternateId.MappedForeignKeys.Add(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalDerived_DerivedsId_DerivedsAlternateIdFk) - RelationalModel.GetOrCreateForeignKeyConstraints(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalDerived_DerivedsId_DerivedsAlternateIdFk).Add(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalDerived_DerivedsId_DerivedsAlternateId) - principalBasePrincipalDerivedDependentBasebyteTable.ForeignKeyConstraints.Add(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalDerived_DerivedsId_DerivedsAlternateId) - principalDerivedTable.ReferencingForeignKeyConstraints.Add(fK_PrincipalBasePrincipalDerivedDependentBasebyte_PrincipalDerived_DerivedsId_DerivedsAlternateId) - Dim fK_PrincipalDerived_PrincipalBase_DerivedId_AlternateId As New ForeignKeyConstraint( - "FK_PrincipalDerived_PrincipalBase_DerivedId_AlternateId", principalDerivedTable, principalBaseTable, - {derivedIdColumn, alternateIdColumn0}, - principalBaseTable.FindUniqueConstraint("PK"), ReferentialAction.Cascade) - Dim fK_PrincipalDerived_PrincipalBase_DerivedId_AlternateIdFk = RelationalModel.GetForeignKey(Me, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", - {"Id", "AlternateId"}, - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - {"Id", "AlternateId"}) - fK_PrincipalDerived_PrincipalBase_DerivedId_AlternateId.MappedForeignKeys.Add(fK_PrincipalDerived_PrincipalBase_DerivedId_AlternateIdFk) - RelationalModel.GetOrCreateForeignKeyConstraints(fK_PrincipalDerived_PrincipalBase_DerivedId_AlternateIdFk).Add(fK_PrincipalDerived_PrincipalBase_DerivedId_AlternateId) - principalDerivedTable.ForeignKeyConstraints.Add(fK_PrincipalDerived_PrincipalBase_DerivedId_AlternateId) - principalBaseTable.ReferencingForeignKeyConstraints.Add(fK_PrincipalDerived_PrincipalBase_DerivedId_AlternateId) - Return relationalModel.MakeReadOnly() - End Function - End Class -End Namespace -]]>.Value - Dim e1 = - -Imports System -Imports System.Collections -Imports System.Linq -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Sqlite.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.VisualBasic -Imports NetTopologySuite.Geometries - -Namespace Microsoft.EntityFrameworkCore.Metadata - Friend Partial Class DataEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Data), - baseEntityType) - - Dim id = entityType.AddProperty( - "Id", - GetType(Integer), - valueGenerated:=ValueGenerated.OnAdd, - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=0) - id.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim blob = entityType.AddProperty( - "Blob", - GetType(Byte()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.Data).GetProperty("Blob", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.Data).GetField("_Blob", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - blob.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteByteArrayTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim point = entityType.AddProperty( - "Point", - GetType(Point), - nullable:=True) - point.TypeMapping = Nothing - - Dim key = entityType.AddKey( - {id}) - entityType.SetPrimaryKey(key) - - Return entityType - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "Data") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim e2 = -Imports System -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Migrations.Design -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Sqlite.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion -Imports Microsoft.EntityFrameworkCore.ValueGeneration -Imports Microsoft.VisualBasic - -Namespace Microsoft.EntityFrameworkCore.Metadata - Friend Partial Class DependentBaseEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentBase", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?)), - baseEntityType, - discriminatorProperty:="EnumDiscriminator", - discriminatorValue:=VisualBasicMigrationsGeneratorTests.Enum1.One) - - Dim principalId = entityType.AddProperty( - "PrincipalId", - GetType(Long), - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=0L) - principalId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(LongTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim principalAlternateId = entityType.AddProperty( - "PrincipalAlternateId", - GetType(Guid), - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=New Guid("00000000-0000-0000-0000-000000000000")) - principalAlternateId.TypeMapping = SqliteGuidTypeMapping.Default - - Dim enumDiscriminator = entityType.AddProperty( - "EnumDiscriminator", - GetType(VisualBasicMigrationsGeneratorTests.Enum1), - afterSaveBehavior:=PropertySaveBehavior.Throw, - valueGeneratorFactory:=AddressOf New DiscriminatorValueGeneratorFactory().Create) - enumDiscriminator.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicMigrationsGeneratorTests.Enum1, Integer)( - Function(value As VisualBasicMigrationsGeneratorTests.Enum1) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicMigrationsGeneratorTests.Enum1)), - New ValueComparer(Of VisualBasicMigrationsGeneratorTests.Enum1)( - Function(v1 As VisualBasicMigrationsGeneratorTests.Enum1, v2 As VisualBasicMigrationsGeneratorTests.Enum1) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicMigrationsGeneratorTests.Enum1) v.GetHashCode(), - Function(v As VisualBasicMigrationsGeneratorTests.Enum1) v), - New ValueComparer(Of VisualBasicMigrationsGeneratorTests.Enum1)( - Function(v1 As VisualBasicMigrationsGeneratorTests.Enum1, v2 As VisualBasicMigrationsGeneratorTests.Enum1) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicMigrationsGeneratorTests.Enum1) v.GetHashCode(), - Function(v As VisualBasicMigrationsGeneratorTests.Enum1) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicMigrationsGeneratorTests.Enum1, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicMigrationsGeneratorTests.Enum1, Integer)( - Function(value As VisualBasicMigrationsGeneratorTests.Enum1) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicMigrationsGeneratorTests.Enum1))), - Type.Missing}), CoreTypeMapping) - enumDiscriminator.SetSentinelFromProviderValue(0) - - Dim id = entityType.AddProperty( - "Id", - GetType(Byte?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?)).GetProperty("Id", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?)).GetField("_Id", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - id.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte)))), - New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte)))), - New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim key = entityType.AddKey( - {principalId, principalAlternateId}) - entityType.SetPrimaryKey(key) - - Dim index = entityType.AddIndex( - {principalId}, - unique:=True) - - Return entityType - End Function - - Public Shared Function CreateForeignKey1(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("PrincipalId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("Id")}), - principalEntityType, - deleteBehavior:=DeleteBehavior.Cascade, - unique:=True, - required:=True) - - Return runtimeForeignKey - End Function - - Public Shared Function CreateForeignKey2(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("PrincipalId"), declaringEntityType.FindProperty("PrincipalAlternateId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("Id"), principalEntityType.FindProperty("AlternateId")}), - principalEntityType, - deleteBehavior:=DeleteBehavior.ClientNoAction, - unique:=True, - required:=True) - - Dim principal = declaringEntityType.AddNavigation("Principal", - runtimeForeignKey, - onDependent:=True, - GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?)).GetProperty("Principal", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?)).GetField("_Principal", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - - Dim dependent = principalEntityType.AddNavigation("Dependent", - runtimeForeignKey, - onDependent:=False, - GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))).GetProperty("Dependent", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))).GetField("_Dependent", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - eagerLoaded:=True, - lazyLoadingEnabled:=False) - - Return runtimeForeignKey - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("DiscriminatorMappingComplete", False) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:MappingStrategy", "TPH") - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "DependentBase") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim e3 = -Imports System -Imports System.Collections -Imports System.Collections.Generic -Imports System.Globalization -Imports System.Linq -Imports System.Net -Imports System.Net.NetworkInformation -Imports System.Reflection -Imports System.Text -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Sqlite.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Sqlite.Storage.Json.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion.Internal -Imports Microsoft.VisualBasic - -Namespace Microsoft.EntityFrameworkCore.Metadata - Friend Partial Class ManyTypesEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+ManyTypes", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes), - baseEntityType) - - Dim id = entityType.AddProperty( - "Id", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Id", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Id", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueGenerated:=ValueGenerated.OnAdd, - afterSaveBehavior:=PropertySaveBehavior.Throw, - valueConverter:=New VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesIdConverter()) - id.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId, Integer)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId) v.Id, - Function(v As Integer) New VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId, v2 As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId, v2 As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId, Integer)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId) v.Id, - Function(v As Integer) New VisualBasicRuntimeModelCodeGeneratorTest.ManyTypesId(v))), - Type.Missing}), CoreTypeMapping) - id.SetSentinelFromProviderValue(0) - - Dim bool = entityType.AddProperty( - "Bool", - GetType(Boolean), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Bool", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Bool", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=False) - bool.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(BoolTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim boolArray = entityType.AddProperty( - "BoolArray", - GetType(Boolean()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("BoolArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_BoolArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - boolArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Boolean)(New JsonCollectionReaderWriter(Of Boolean(), Boolean(), Boolean)( - JsonBoolReaderWriter.Instance)), - New ListComparer(Of Boolean)(New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v)), - New ListComparer(Of Boolean)(New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(BoolTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Boolean(), Boolean(), Boolean)( - JsonBoolReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim boolToStringConverterProperty = entityType.AddProperty( - "BoolToStringConverterProperty", - GetType(Boolean), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("BoolToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_BoolToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - boolToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=1), - Type.Missing, - New ValueConverter(Of Boolean, String)( - Function(v As Boolean) CType(If(v, "B", "A"), String), - Function(v As String) Not(String.IsNullOrEmpty(v)) AndAlso Strings.AscW(v.ToUpperInvariant()(0)) = Strings.AscW("B"c)), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Boolean, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Boolean, String)( - Function(v As Boolean) CType(If(v, "B", "A"), String), - Function(v As String) Not(String.IsNullOrEmpty(v)) AndAlso Strings.AscW(v.ToUpperInvariant()(0)) = Strings.AscW("B"c))), - Type.Missing}), CoreTypeMapping) - boolToStringConverterProperty.SetSentinelFromProviderValue("A") - - Dim boolToTwoValuesConverterProperty = entityType.AddProperty( - "BoolToTwoValuesConverterProperty", - GetType(Boolean), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("BoolToTwoValuesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_BoolToTwoValuesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - boolToTwoValuesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of Boolean, Byte)( - Function(v As Boolean) CType(If(v, CByte(1), CByte(0)), Byte), - Function(v As Byte) v = CByte(1)), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Boolean, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of Boolean, Byte)( - Function(v As Boolean) CType(If(v, CByte(1), CByte(0)), Byte), - Function(v As Byte) v = CByte(1))), - Type.Missing}), CoreTypeMapping) - boolToTwoValuesConverterProperty.SetSentinelFromProviderValue(CByte(0)) - - Dim boolToZeroOneConverterProperty = entityType.AddProperty( - "BoolToZeroOneConverterProperty", - GetType(Boolean), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("BoolToZeroOneConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_BoolToZeroOneConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New BoolToZeroOneConverter(Of Short)()) - boolToZeroOneConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of Boolean, Short)( - Function(v As Boolean) CType(If(v, 1S, 0S), Short), - Function(v As Short) v = 1S), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Boolean, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of Boolean, Short)( - Function(v As Boolean) CType(If(v, 1S, 0S), Short), - Function(v As Short) v = 1S)), - Type.Missing}), CoreTypeMapping) - boolToZeroOneConverterProperty.SetSentinelFromProviderValue(0S) - - Dim bytes = entityType.AddProperty( - "Bytes", - GetType(Byte()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Bytes", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Bytes", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - bytes.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteByteArrayTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim bytesArray = entityType.AddProperty( - "BytesArray", - GetType(Byte()()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("BytesArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_BytesArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - bytesArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Byte())(New JsonCollectionReaderWriter(Of Byte()(), Byte()(), Byte())( - SqliteJsonByteArrayReaderWriter.Instance)), - New ListComparer(Of Byte())(New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v)), - New ListComparer(Of Byte())(New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteByteArrayTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Byte()(), Byte()(), Byte())( - SqliteJsonByteArrayReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim bytesToStringConverterProperty = entityType.AddProperty( - "BytesToStringConverterProperty", - GetType(Byte()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("BytesToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_BytesToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New BytesToStringConverter()) - bytesToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of Byte(), String)( - Function(v As Byte()) Convert.ToBase64String(v), - Function(v As String) Convert.FromBase64String(v)), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Byte(), String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Byte(), String)( - Function(v As Byte()) Convert.ToBase64String(v), - Function(v As String) Convert.FromBase64String(v))), - Type.Missing}), CoreTypeMapping) - - Dim castingConverterProperty = entityType.AddProperty( - "CastingConverterProperty", - GetType(Integer), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("CastingConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_CastingConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New CastingConverter(Of Integer, Decimal)()) - castingConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteDecimalTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of Integer, Decimal)( - Function(v As Integer) CType(v, Decimal), - Function(v As Decimal) CType(v, Integer)), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Integer, Decimal)( - SqliteJsonDecimalReaderWriter.Instance, - New ValueConverter(Of Integer, Decimal)( - Function(v As Integer) CType(v, Decimal), - Function(v As Decimal) CType(v, Integer))), - Type.Missing}), CoreTypeMapping) - castingConverterProperty.SetSentinelFromProviderValue(0D) - - Dim [char] = entityType.AddProperty( - "Char", - GetType(Char), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Char", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Char", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=ChrW(0)) - [char].TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(CharTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="TEXT"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim charArray = entityType.AddProperty( - "CharArray", - GetType(Char()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("CharArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_CharArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - charArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Char)(New JsonCollectionReaderWriter(Of Char(), Char(), Char)( - JsonCharReaderWriter.Instance)), - New ListComparer(Of Char)(New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v)), - New ListComparer(Of Char)(New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(CharTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="TEXT"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Char(), Char(), Char)( - JsonCharReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim charToStringConverterProperty = entityType.AddProperty( - "CharToStringConverterProperty", - GetType(Char), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("CharToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_CharToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New CharToStringConverter()) - charToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=1), - Type.Missing, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0))), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Char, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Char, String)( - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)))), - Type.Missing}), CoreTypeMapping) - charToStringConverterProperty.SetSentinelFromProviderValue("" & ChrW(0) & "") - - Dim dateOnlyArray = entityType.AddProperty( - "DateOnlyArray", - GetType(DateOnly()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateOnlyArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateOnlyArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - dateOnlyArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of DateOnly)(New JsonCollectionReaderWriter(Of DateOnly(), DateOnly(), DateOnly)( - JsonDateOnlyReaderWriter.Instance)), - New ListComparer(Of DateOnly)(New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v)), - New ListComparer(Of DateOnly)(New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - SqliteDateOnlyTypeMapping.Default, - New JsonCollectionReaderWriter(Of DateOnly(), DateOnly(), DateOnly)( - JsonDateOnlyReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim dateOnlyToStringConverterProperty = entityType.AddProperty( - "DateOnlyToStringConverterProperty", - GetType(DateOnly), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateOnlyToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateOnlyToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New DateOnlyToStringConverter()) - dateOnlyToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=10), - Type.Missing, - New ValueConverter(Of DateOnly, String)( - Function(v As DateOnly) v.ToString("yyyy\-MM\-dd"), - Function(v As String) DateOnly.Parse(v, CultureInfo.InvariantCulture, DateTimeStyles.None)), - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of DateOnly, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of DateOnly, String)( - Function(v As DateOnly) v.ToString("yyyy\-MM\-dd"), - Function(v As String) DateOnly.Parse(v, CultureInfo.InvariantCulture, DateTimeStyles.None))), - Type.Missing}), CoreTypeMapping) - dateOnlyToStringConverterProperty.SetSentinelFromProviderValue("0001-01-01") - - Dim dateTimeArray = entityType.AddProperty( - "DateTimeArray", - GetType(Date()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateTimeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateTimeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - dateTimeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Date)(New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - SqliteJsonDateTimeReaderWriter.Instance)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - SqliteDateTimeTypeMapping.Default, - New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - SqliteJsonDateTimeReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim dateTimeOffsetToBinaryConverterProperty = entityType.AddProperty( - "DateTimeOffsetToBinaryConverterProperty", - GetType(DateTimeOffset), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateTimeOffsetToBinaryConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateTimeOffsetToBinaryConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New DateTimeOffsetToBinaryConverter()) - dateTimeOffsetToBinaryConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(LongTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of DateTimeOffset, Long)( - Function(v As DateTimeOffset) DateTimeOffsetToBinaryConverter.ToLong(v), - Function(v As Long) DateTimeOffsetToBinaryConverter.ToDateTimeOffset(v)), - New ValueComparer(Of DateTimeOffset)( - Function(v1 As DateTimeOffset, v2 As DateTimeOffset) v1.EqualsExact(v2), - Function(v As DateTimeOffset) v.GetHashCode(), - Function(v As DateTimeOffset) v), - New ValueComparer(Of DateTimeOffset)( - Function(v1 As DateTimeOffset, v2 As DateTimeOffset) v1.EqualsExact(v2), - Function(v As DateTimeOffset) v.GetHashCode(), - Function(v As DateTimeOffset) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of DateTimeOffset, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of DateTimeOffset, Long)( - Function(v As DateTimeOffset) DateTimeOffsetToBinaryConverter.ToLong(v), - Function(v As Long) DateTimeOffsetToBinaryConverter.ToDateTimeOffset(v))), - Type.Missing}), CoreTypeMapping) - dateTimeOffsetToBinaryConverterProperty.SetSentinelFromProviderValue(0L) - - Dim dateTimeOffsetToBytesConverterProperty = entityType.AddProperty( - "DateTimeOffsetToBytesConverterProperty", - GetType(DateTimeOffset), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateTimeOffsetToBytesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateTimeOffsetToBytesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New DateTimeOffsetToBytesConverter()) - dateTimeOffsetToBytesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=12), - Type.Missing, - New ValueConverter(Of DateTimeOffset, Byte())( - Function(v As DateTimeOffset) DateTimeOffsetToBytesConverter.ToBytes(v), - Function(v As Byte()) DateTimeOffsetToBytesConverter.FromBytes(v)), - New ValueComparer(Of DateTimeOffset)( - Function(v1 As DateTimeOffset, v2 As DateTimeOffset) v1.EqualsExact(v2), - Function(v As DateTimeOffset) v.GetHashCode(), - Function(v As DateTimeOffset) v), - New ValueComparer(Of DateTimeOffset)( - Function(v1 As DateTimeOffset, v2 As DateTimeOffset) v1.EqualsExact(v2), - Function(v As DateTimeOffset) v.GetHashCode(), - Function(v As DateTimeOffset) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - New JsonConvertedValueReaderWriter(Of DateTimeOffset, Byte())( - SqliteJsonByteArrayReaderWriter.Instance, - New ValueConverter(Of DateTimeOffset, Byte())( - Function(v As DateTimeOffset) DateTimeOffsetToBytesConverter.ToBytes(v), - Function(v As Byte()) DateTimeOffsetToBytesConverter.FromBytes(v))), - Type.Missing}), CoreTypeMapping) - dateTimeOffsetToBytesConverterProperty.SetSentinelFromProviderValue(New Byte() {0, 0, 0, 0, 0, 0, 0, 0, 0, 0}) - - Dim dateTimeOffsetToStringConverterProperty = entityType.AddProperty( - "DateTimeOffsetToStringConverterProperty", - GetType(DateTimeOffset), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateTimeOffsetToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateTimeOffsetToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New DateTimeOffsetToStringConverter()) - dateTimeOffsetToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=48), - Type.Missing, - New ValueConverter(Of DateTimeOffset, String)( - Function(v As DateTimeOffset) v.ToString("yyyy\-MM\-dd HH\:mm\:ss.FFFFFFFzzz"), - Function(v As String) DateTimeOffset.Parse(v, CultureInfo.InvariantCulture)), - New ValueComparer(Of DateTimeOffset)( - Function(v1 As DateTimeOffset, v2 As DateTimeOffset) v1.EqualsExact(v2), - Function(v As DateTimeOffset) v.GetHashCode(), - Function(v As DateTimeOffset) v), - New ValueComparer(Of DateTimeOffset)( - Function(v1 As DateTimeOffset, v2 As DateTimeOffset) v1.EqualsExact(v2), - Function(v As DateTimeOffset) v.GetHashCode(), - Function(v As DateTimeOffset) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of DateTimeOffset, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of DateTimeOffset, String)( - Function(v As DateTimeOffset) v.ToString("yyyy\-MM\-dd HH\:mm\:ss.FFFFFFFzzz"), - Function(v As String) DateTimeOffset.Parse(v, CultureInfo.InvariantCulture))), - Type.Missing}), CoreTypeMapping) - dateTimeOffsetToStringConverterProperty.SetSentinelFromProviderValue("0001-01-01 00:00:00+00:00") - - Dim dateTimeToBinaryConverterProperty = entityType.AddProperty( - "DateTimeToBinaryConverterProperty", - GetType(Date), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateTimeToBinaryConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateTimeToBinaryConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New DateTimeToBinaryConverter()) - dateTimeToBinaryConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(LongTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of Date, Long)( - Function(v As DateTime) v.ToBinary(), - Function(v As Long) DateTime.FromBinary(v)), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Date, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of Date, Long)( - Function(v As DateTime) v.ToBinary(), - Function(v As Long) DateTime.FromBinary(v))), - Type.Missing}), CoreTypeMapping) - dateTimeToBinaryConverterProperty.SetSentinelFromProviderValue(0L) - - Dim dateTimeToStringConverterProperty = entityType.AddProperty( - "DateTimeToStringConverterProperty", - GetType(Date), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateTimeToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateTimeToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New DateTimeToStringConverter()) - dateTimeToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=48), - Type.Missing, - New ValueConverter(Of Date, String)( - Function(v As DateTime) v.ToString("yyyy\-MM\-dd HH\:mm\:ss.FFFFFFF"), - Function(v As String) DateTime.Parse(v, CultureInfo.InvariantCulture)), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Date, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Date, String)( - Function(v As DateTime) v.ToString("yyyy\-MM\-dd HH\:mm\:ss.FFFFFFF"), - Function(v As String) DateTime.Parse(v, CultureInfo.InvariantCulture))), - Type.Missing}), CoreTypeMapping) - dateTimeToStringConverterProperty.SetSentinelFromProviderValue("0001-01-01 00:00:00") - - Dim dateTimeToTicksConverterProperty = entityType.AddProperty( - "DateTimeToTicksConverterProperty", - GetType(Date), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DateTimeToTicksConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DateTimeToTicksConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=New Date(1, 1, 1, 0, 0, 0, 0, DateTimeKind.Unspecified)) - dateTimeToTicksConverterProperty.TypeMapping = SqliteDateTimeTypeMapping.Default - - Dim [decimal] = entityType.AddProperty( - "Decimal", - GetType(Decimal), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Decimal", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Decimal", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0D) - [decimal].TypeMapping = SqliteDecimalTypeMapping.Default - - Dim decimalArray = entityType.AddProperty( - "DecimalArray", - GetType(Decimal()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DecimalArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DecimalArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - decimalArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Decimal)(New JsonCollectionReaderWriter(Of Decimal(), Decimal(), Decimal)( - SqliteJsonDecimalReaderWriter.Instance)), - New ListComparer(Of Decimal)(New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v)), - New ListComparer(Of Decimal)(New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - SqliteDecimalTypeMapping.Default, - New JsonCollectionReaderWriter(Of Decimal(), Decimal(), Decimal)( - SqliteJsonDecimalReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim decimalNumberToBytesConverterProperty = entityType.AddProperty( - "DecimalNumberToBytesConverterProperty", - GetType(Decimal), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DecimalNumberToBytesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DecimalNumberToBytesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New NumberToBytesConverter(Of Decimal)()) - decimalNumberToBytesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=16), - Type.Missing, - New ValueConverter(Of Decimal, Byte())( - Function(v As Decimal) NumberToBytesConverter(Of Decimal).DecimalToBytes(v), - Function(v As Byte()) If(v Is Nothing, 0D, NumberToBytesConverter(Of Decimal).BytesToDecimal(v))), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Decimal, Byte())( - SqliteJsonByteArrayReaderWriter.Instance, - New ValueConverter(Of Decimal, Byte())( - Function(v As Decimal) NumberToBytesConverter(Of Decimal).DecimalToBytes(v), - Function(v As Byte()) If(v Is Nothing, 0D, NumberToBytesConverter(Of Decimal).BytesToDecimal(v)))), - Type.Missing}), CoreTypeMapping) - decimalNumberToBytesConverterProperty.SetSentinelFromProviderValue(New Byte() {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}) - - Dim decimalNumberToStringConverterProperty = entityType.AddProperty( - "DecimalNumberToStringConverterProperty", - GetType(Decimal), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DecimalNumberToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DecimalNumberToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New NumberToStringConverter(Of Decimal)()) - decimalNumberToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=64), - Type.Missing, - New ValueConverter(Of Decimal, String)( - Function(v As Decimal) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) Decimal.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture)), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Decimal, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Decimal, String)( - Function(v As Decimal) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) Decimal.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture))), - Type.Missing}), CoreTypeMapping) - decimalNumberToStringConverterProperty.SetSentinelFromProviderValue("0") - - Dim [double] = entityType.AddProperty( - "Double", - GetType(Double), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Double", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Double", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0.0) - [double].TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(DoubleTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="REAL"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim doubleArray = entityType.AddProperty( - "DoubleArray", - GetType(Double()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DoubleArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DoubleArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - doubleArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Double)(New JsonCollectionReaderWriter(Of Double(), Double(), Double)( - JsonDoubleReaderWriter.Instance)), - New ListComparer(Of Double)(New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v)), - New ListComparer(Of Double)(New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(DoubleTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="REAL"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Double(), Double(), Double)( - JsonDoubleReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim doubleNumberToBytesConverterProperty = entityType.AddProperty( - "DoubleNumberToBytesConverterProperty", - GetType(Double), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DoubleNumberToBytesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DoubleNumberToBytesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New NumberToBytesConverter(Of Double)()) - doubleNumberToBytesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=8), - Type.Missing, - New ValueConverter(Of Double, Byte())( - Function(v As Double) NumberToBytesConverter(Of Double).ReverseLong(BitConverter.GetBytes(v)), - Function(v As Byte()) If(v Is Nothing, 0R, BitConverter.ToDouble(NumberToBytesConverter(Of Double).ReverseLong(v), 0))), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Double, Byte())( - SqliteJsonByteArrayReaderWriter.Instance, - New ValueConverter(Of Double, Byte())( - Function(v As Double) NumberToBytesConverter(Of Double).ReverseLong(BitConverter.GetBytes(v)), - Function(v As Byte()) If(v Is Nothing, 0R, BitConverter.ToDouble(NumberToBytesConverter(Of Double).ReverseLong(v), 0)))), - Type.Missing}), CoreTypeMapping) - doubleNumberToBytesConverterProperty.SetSentinelFromProviderValue(New Byte() {0, 0, 0, 0, 0, 0, 0, 0}) - - Dim doubleNumberToStringConverterProperty = entityType.AddProperty( - "DoubleNumberToStringConverterProperty", - GetType(Double), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("DoubleNumberToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_DoubleNumberToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New NumberToStringConverter(Of Double)()) - doubleNumberToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=64), - Type.Missing, - New ValueConverter(Of Double, String)( - Function(v As Double) String.Format(CultureInfo.InvariantCulture, "{0:R}", CType(v, Object)), - Function(v As String) Double.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture)), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Double, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Double, String)( - Function(v As Double) String.Format(CultureInfo.InvariantCulture, "{0:R}", CType(v, Object)), - Function(v As String) Double.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture))), - Type.Missing}), CoreTypeMapping) - doubleNumberToStringConverterProperty.SetSentinelFromProviderValue("0") - - Dim enum16 = entityType.AddProperty( - "Enum16", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum16), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum16", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum16", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enum16.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping) - enum16.SetSentinelFromProviderValue(0S) - - Dim enum16Array = entityType.AddProperty( - "Enum16Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum16()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum16Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum16Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum16Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - Type.Missing}), CoreTypeMapping) - - Dim enum16AsString = entityType.AddProperty( - "Enum16AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum16), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum16AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum16AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - providerPropertyType:=GetType(String)) - enum16AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping) - enum16AsString.SetSentinelFromProviderValue("Default") - - Dim enum16AsStringArray = entityType.AddProperty( - "Enum16AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum16()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum16AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum16AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum16AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v)))), - Type.Missing}), CoreTypeMapping) - - Dim enum16AsStringCollection = entityType.AddProperty( - "Enum16AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum16AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum16AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum16AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).ConvertToEnum(v)))), - Type.Missing}), CoreTypeMapping) - - Dim enum16Collection = entityType.AddProperty( - "Enum16Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum16Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum16Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum16Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - Type.Missing}), CoreTypeMapping) - - Dim enum32 = entityType.AddProperty( - "Enum32", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum32", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum32", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enum32.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping) - enum32.SetSentinelFromProviderValue(0) - - Dim enum32Array = entityType.AddProperty( - "Enum32Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum32Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum32Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum32Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - Type.Missing}), CoreTypeMapping) - - Dim enum32AsString = entityType.AddProperty( - "Enum32AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum32AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum32AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - providerPropertyType:=GetType(String)) - enum32AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping) - enum32AsString.SetSentinelFromProviderValue("Default") - - Dim enum32AsStringArray = entityType.AddProperty( - "Enum32AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum32AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum32AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum32AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v)))), - Type.Missing}), CoreTypeMapping) - - Dim enum32AsStringCollection = entityType.AddProperty( - "Enum32AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum32AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum32AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum32AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v)))), - Type.Missing}), CoreTypeMapping) - - Dim enum32Collection = entityType.AddProperty( - "Enum32Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum32Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum32Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum32Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - Type.Missing}), CoreTypeMapping) - - Dim enum64 = entityType.AddProperty( - "Enum64", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum64), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum64", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum64", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enum64.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(LongTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping) - enum64.SetSentinelFromProviderValue(0L) - - Dim enum64Array = entityType.AddProperty( - "Enum64Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum64()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum64Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum64Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum64Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(LongTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - Type.Missing}), CoreTypeMapping) - - Dim enum64AsString = entityType.AddProperty( - "Enum64AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum64), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum64AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum64AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - providerPropertyType:=GetType(String)) - enum64AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping) - enum64AsString.SetSentinelFromProviderValue("Default") - - Dim enum64AsStringArray = entityType.AddProperty( - "Enum64AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum64()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum64AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum64AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum64AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v)))), - Type.Missing}), CoreTypeMapping) - - Dim enum64AsStringCollection = entityType.AddProperty( - "Enum64AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum64AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum64AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum64AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).ConvertToEnum(v)))), - Type.Missing}), CoreTypeMapping) - - Dim enum64Collection = entityType.AddProperty( - "Enum64Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum64Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum64Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum64Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(LongTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - Type.Missing}), CoreTypeMapping) - - Dim enum8 = entityType.AddProperty( - "Enum8", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum8), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum8", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum8", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enum8.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - JsonSByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping) - enum8.SetSentinelFromProviderValue(CSByte(0)) - - Dim enum8Array = entityType.AddProperty( - "Enum8Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum8()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum8Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum8Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum8Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - JsonSByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - JsonSByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - JsonSByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - Type.Missing}), CoreTypeMapping) - - Dim enum8AsString = entityType.AddProperty( - "Enum8AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum8), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum8AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum8AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - providerPropertyType:=GetType(String)) - enum8AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping) - enum8AsString.SetSentinelFromProviderValue("Default") - - Dim enum8AsStringArray = entityType.AddProperty( - "Enum8AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum8()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum8AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum8AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum8AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v)))), - Type.Missing}), CoreTypeMapping) - - Dim enum8AsStringCollection = entityType.AddProperty( - "Enum8AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum8AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum8AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum8AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).ConvertToEnum(v)))), - Type.Missing}), CoreTypeMapping) - - Dim enum8Collection = entityType.AddProperty( - "Enum8Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Enum8Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Enum8Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum8Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - JsonSByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - JsonSByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - JsonSByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - Type.Missing}), CoreTypeMapping) - - Dim enumToNumberConverterProperty = entityType.AddProperty( - "EnumToNumberConverterProperty", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumToNumberConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumToNumberConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New EnumToNumberConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)()) - enumToNumberConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping) - enumToNumberConverterProperty.SetSentinelFromProviderValue(0) - - Dim enumToStringConverterProperty = entityType.AddProperty( - "EnumToStringConverterProperty", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New EnumToStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)()) - enumToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, String, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping) - enumToStringConverterProperty.SetSentinelFromProviderValue("Default") - - Dim enumU16 = entityType.AddProperty( - "EnumU16", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU16", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU16", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enumU16.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - JsonUInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping) - enumU16.SetSentinelFromProviderValue(0US) - - Dim enumU16Array = entityType.AddProperty( - "EnumU16Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU16()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU16Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU16Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU16Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - JsonUInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - JsonUInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - JsonUInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - Type.Missing}), CoreTypeMapping) - - Dim enumU16AsString = entityType.AddProperty( - "EnumU16AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU16AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU16AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - providerPropertyType:=GetType(String)) - enumU16AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping) - enumU16AsString.SetSentinelFromProviderValue("Min") - - Dim enumU16AsStringArray = entityType.AddProperty( - "EnumU16AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU16()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU16AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU16AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU16AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v)))), - Type.Missing}), CoreTypeMapping) - - Dim enumU16AsStringCollection = entityType.AddProperty( - "EnumU16AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU16AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU16AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU16AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).ConvertToEnum(v)))), - Type.Missing}), CoreTypeMapping) - - Dim enumU16Collection = entityType.AddProperty( - "EnumU16Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU16Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU16Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU16Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - JsonUInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - JsonUInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - JsonUInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - Type.Missing}), CoreTypeMapping) - - Dim enumU32 = entityType.AddProperty( - "EnumU32", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU32", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU32", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enumU32.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UIntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - JsonUInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping) - enumU32.SetSentinelFromProviderValue(0UI) - - Dim enumU32Array = entityType.AddProperty( - "EnumU32Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU32()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU32Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU32Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU32Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - JsonUInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UIntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - JsonUInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - JsonUInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - Type.Missing}), CoreTypeMapping) - - Dim enumU32AsString = entityType.AddProperty( - "EnumU32AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU32AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU32AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - providerPropertyType:=GetType(String)) - enumU32AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping) - enumU32AsString.SetSentinelFromProviderValue("Min") - - Dim enumU32AsStringArray = entityType.AddProperty( - "EnumU32AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU32()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU32AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU32AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU32AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v)))), - Type.Missing}), CoreTypeMapping) - - Dim enumU32AsStringCollection = entityType.AddProperty( - "EnumU32AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU32AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU32AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU32AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v)))), - Type.Missing}), CoreTypeMapping) - - Dim enumU32Collection = entityType.AddProperty( - "EnumU32Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU32Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU32Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU32Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - JsonUInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UIntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - JsonUInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - JsonUInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - Type.Missing}), CoreTypeMapping) - - Dim enumU64 = entityType.AddProperty( - "EnumU64", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU64", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU64", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enumU64.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteULongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - JsonUInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping) - enumU64.SetSentinelFromProviderValue(0UL) - - Dim enumU64Array = entityType.AddProperty( - "EnumU64Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU64()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU64Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU64Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU64Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - JsonUInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteULongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - JsonUInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - JsonUInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - Type.Missing}), CoreTypeMapping) - - Dim enumU64AsString = entityType.AddProperty( - "EnumU64AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU64AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU64AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - providerPropertyType:=GetType(String)) - enumU64AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping) - enumU64AsString.SetSentinelFromProviderValue("Min") - - Dim enumU64AsStringArray = entityType.AddProperty( - "EnumU64AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU64()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU64AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU64AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU64AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v)))), - Type.Missing}), CoreTypeMapping) - - Dim enumU64AsStringCollection = entityType.AddProperty( - "EnumU64AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU64AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU64AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU64AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).ConvertToEnum(v)))), - Type.Missing}), CoreTypeMapping) - - Dim enumU64Collection = entityType.AddProperty( - "EnumU64Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU64Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU64Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU64Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - JsonUInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteULongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - JsonUInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - JsonUInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - Type.Missing}), CoreTypeMapping) - - Dim enumU8 = entityType.AddProperty( - "EnumU8", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU8", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU8", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enumU8.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping) - enumU8.SetSentinelFromProviderValue(CByte(0)) - - Dim enumU8Array = entityType.AddProperty( - "EnumU8Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU8()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU8Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU8Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU8Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - Type.Missing}), CoreTypeMapping) - - Dim enumU8AsString = entityType.AddProperty( - "EnumU8AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU8AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU8AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - providerPropertyType:=GetType(String)) - enumU8AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping) - enumU8AsString.SetSentinelFromProviderValue("Min") - - Dim enumU8AsStringArray = entityType.AddProperty( - "EnumU8AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU8()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU8AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU8AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU8AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v)))), - Type.Missing}), CoreTypeMapping) - - Dim enumU8AsStringCollection = entityType.AddProperty( - "EnumU8AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU8AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU8AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU8AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String)( - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.ToString(), - Function(v As String) StringEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).ConvertToEnum(v)))), - Type.Missing}), CoreTypeMapping) - - Dim enumU8Collection = entityType.AddProperty( - "EnumU8Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("EnumU8Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_EnumU8Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enumU8Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v)), - New ListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - Type.Missing}), CoreTypeMapping) - - Dim floatArray = entityType.AddProperty( - "FloatArray", - GetType(Single()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("FloatArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_FloatArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - floatArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Single)(New JsonCollectionReaderWriter(Of Single(), Single(), Single)( - JsonFloatReaderWriter.Instance)), - New ListComparer(Of Single)(New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v)), - New ListComparer(Of Single)(New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(FloatTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="REAL"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Single(), Single(), Single)( - JsonFloatReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim guid = entityType.AddProperty( - "Guid", - GetType(Guid), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Guid", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Guid", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=New Guid("00000000-0000-0000-0000-000000000000")) - guid.TypeMapping = SqliteGuidTypeMapping.Default - - Dim guidArray = entityType.AddProperty( - "GuidArray", - GetType(Guid()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("GuidArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_GuidArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - guidArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Guid)(New JsonCollectionReaderWriter(Of Guid(), Guid(), Guid)( - SqliteJsonGuidReaderWriter.Instance)), - New ListComparer(Of Guid)(New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v)), - New ListComparer(Of Guid)(New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - SqliteGuidTypeMapping.Default, - New JsonCollectionReaderWriter(Of Guid(), Guid(), Guid)( - SqliteJsonGuidReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim guidToBytesConverterProperty = entityType.AddProperty( - "GuidToBytesConverterProperty", - GetType(Guid), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("GuidToBytesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_GuidToBytesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New GuidToBytesConverter()) - guidToBytesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=16), - Type.Missing, - New ValueConverter(Of Guid, Byte())( - Function(v As Guid) v.ToByteArray(), - Function(v As Byte()) New Guid(v)), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Guid, Byte())( - SqliteJsonByteArrayReaderWriter.Instance, - New ValueConverter(Of Guid, Byte())( - Function(v As Guid) v.ToByteArray(), - Function(v As Byte()) New Guid(v))), - Type.Missing}), CoreTypeMapping) - guidToBytesConverterProperty.SetSentinelFromProviderValue(New Byte() {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}) - - Dim guidToStringConverterProperty = entityType.AddProperty( - "GuidToStringConverterProperty", - GetType(Guid), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("GuidToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_GuidToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New GuidToStringConverter()) - guidToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=36), - Type.Missing, - New ValueConverter(Of Guid, String)( - Function(v As Guid) v.ToString("D"), - Function(v As String) New Guid(v)), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of Guid)( - Function(v1 As Guid, v2 As Guid) v1 = v2, - Function(v As Guid) v.GetHashCode(), - Function(v As Guid) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Guid, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Guid, String)( - Function(v As Guid) v.ToString("D"), - Function(v As String) New Guid(v))), - Type.Missing}), CoreTypeMapping) - guidToStringConverterProperty.SetSentinelFromProviderValue("00000000-0000-0000-0000-000000000000") - - Dim iPAddressArray = entityType.AddProperty( - "IPAddressArray", - GetType(IPAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("IPAddressArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_IPAddressArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - iPAddressArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=45), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - Type.Missing}), CoreTypeMapping) - - Dim iPAddressToBytesConverterProperty = entityType.AddProperty( - "IPAddressToBytesConverterProperty", - GetType(IPAddress), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("IPAddressToBytesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_IPAddressToBytesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New IPAddressToBytesConverter()) - iPAddressToBytesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=16), - Type.Missing, - New ValueConverter(Of IPAddress, Byte())( - Function(v As IPAddress) v.GetAddressBytes(), - Function(v As Byte()) New IPAddress(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, Byte())( - SqliteJsonByteArrayReaderWriter.Instance, - New ValueConverter(Of IPAddress, Byte())( - Function(v As IPAddress) v.GetAddressBytes(), - Function(v As Byte()) New IPAddress(v))), - Type.Missing}), CoreTypeMapping) - - Dim iPAddressToStringConverterProperty = entityType.AddProperty( - "IPAddressToStringConverterProperty", - GetType(IPAddress), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("IPAddressToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_IPAddressToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New IPAddressToStringConverter()) - iPAddressToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=45), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping) - - Dim int16 = entityType.AddProperty( - "Int16", - GetType(Short), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Int16", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Int16", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0S) - int16.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim int16Array = entityType.AddProperty( - "Int16Array", - GetType(Short()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Int16Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Int16Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - int16Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Short)(New JsonCollectionReaderWriter(Of Short(), Short(), Short)( - JsonInt16ReaderWriter.Instance)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Short(), Short(), Short)( - JsonInt16ReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim int32 = entityType.AddProperty( - "Int32", - GetType(Integer), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Int32", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Int32", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0) - int32.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim int32Array = entityType.AddProperty( - "Int32Array", - GetType(Integer()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Int32Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Int32Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - int32Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Integer)(New JsonCollectionReaderWriter(Of Integer(), Integer(), Integer)( - JsonInt32ReaderWriter.Instance)), - New ListComparer(Of Integer)(New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v)), - New ListComparer(Of Integer)(New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Integer(), Integer(), Integer)( - JsonInt32ReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim int64 = entityType.AddProperty( - "Int64", - GetType(Long), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Int64", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Int64", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0L) - int64.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(LongTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim int64Array = entityType.AddProperty( - "Int64Array", - GetType(Long()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Int64Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Int64Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - int64Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Long)(New JsonCollectionReaderWriter(Of Long(), Long(), Long)( - JsonInt64ReaderWriter.Instance)), - New ListComparer(Of Long)(New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v)), - New ListComparer(Of Long)(New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(LongTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Long(), Long(), Long)( - JsonInt64ReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim int8 = entityType.AddProperty( - "Int8", - GetType(SByte), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Int8", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Int8", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=CSByte(0)) - int8.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim int8Array = entityType.AddProperty( - "Int8Array", - GetType(SByte()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Int8Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Int8Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - int8Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of SByte)(New JsonCollectionReaderWriter(Of SByte(), SByte(), SByte)( - JsonSByteReaderWriter.Instance)), - New ListComparer(Of SByte)(New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v)), - New ListComparer(Of SByte)(New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of SByte(), SByte(), SByte)( - JsonSByteReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim intNumberToBytesConverterProperty = entityType.AddProperty( - "IntNumberToBytesConverterProperty", - GetType(Integer), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("IntNumberToBytesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_IntNumberToBytesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New NumberToBytesConverter(Of Integer)()) - intNumberToBytesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=4), - Type.Missing, - New ValueConverter(Of Integer, Byte())( - Function(v As Integer) NumberToBytesConverter(Of Integer).ReverseInt(BitConverter.GetBytes(v)), - Function(v As Byte()) If(v Is Nothing, 0, BitConverter.ToInt32(NumberToBytesConverter(Of Integer).ReverseInt(If(v.Length = 0, New Byte(4 - 1) {}, v)), 0))), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Integer, Byte())( - SqliteJsonByteArrayReaderWriter.Instance, - New ValueConverter(Of Integer, Byte())( - Function(v As Integer) NumberToBytesConverter(Of Integer).ReverseInt(BitConverter.GetBytes(v)), - Function(v As Byte()) If(v Is Nothing, 0, BitConverter.ToInt32(NumberToBytesConverter(Of Integer).ReverseInt(If(v.Length = 0, New Byte(4 - 1) {}, v)), 0)))), - Type.Missing}), CoreTypeMapping) - intNumberToBytesConverterProperty.SetSentinelFromProviderValue(New Byte() {0, 0, 0, 0}) - - Dim intNumberToStringConverterProperty = entityType.AddProperty( - "IntNumberToStringConverterProperty", - GetType(Integer), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("IntNumberToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_IntNumberToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New NumberToStringConverter(Of Integer)()) - intNumberToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=64), - Type.Missing, - New ValueConverter(Of Integer, String)( - Function(v As Integer) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) Integer.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture)), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Integer, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Integer, String)( - Function(v As Integer) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) Integer.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture))), - Type.Missing}), CoreTypeMapping) - intNumberToStringConverterProperty.SetSentinelFromProviderValue("0") - - Dim nullIntToNullStringConverterProperty = entityType.AddProperty( - "NullIntToNullStringConverterProperty", - GetType(Integer?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullIntToNullStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullIntToNullStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New VisualBasicRuntimeModelCodeGeneratorTest.NullIntToNullStringConverter()) - nullIntToNullStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of Integer?, String)( - Function(v As Nullable(Of Integer)) If(v Is Nothing, Nothing, v.ToString()), - Function(v As String) CType(If(CType(v, Object) Is Nothing OrElse v = "", 0, Integer.Parse(v)), Nullable(Of Integer)), - convertsNulls:=True), - New ValueComparer(Of Integer?)( - Function(v1 As Nullable(Of Integer), v2 As Nullable(Of Integer)) v1 = v2, - Function(v As Nullable(Of Integer)) CType(v, Integer), - Function(v As Nullable(Of Integer)) v), - New ValueComparer(Of Integer?)( - Function(v1 As Nullable(Of Integer), v2 As Nullable(Of Integer)) v1 = v2, - Function(v As Nullable(Of Integer)) CType(v, Integer), - Function(v As Nullable(Of Integer)) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Integer?, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Integer?, String)( - Function(v As Nullable(Of Integer)) If(v Is Nothing, Nothing, v.ToString()), - Function(v As String) CType(If(CType(v, Object) Is Nothing OrElse v = "", 0, Integer.Parse(v)), Nullable(Of Integer)), - convertsNulls:=True)), - Type.Missing}), CoreTypeMapping) - - Dim nullableBool = entityType.AddProperty( - "NullableBool", - GetType(Boolean?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableBool", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableBool", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableBool.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(BoolTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Boolean?)( - Function(v1 As Nullable(Of Boolean), v2 As Nullable(Of Boolean)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Boolean) = CType(v2, Boolean) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(v, Boolean).GetHashCode(), 0), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(CType(v, Boolean), Nullable(Of Boolean)), CType(Nothing, Nullable(Of Boolean)))), - New ValueComparer(Of Boolean?)( - Function(v1 As Nullable(Of Boolean), v2 As Nullable(Of Boolean)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Boolean) = CType(v2, Boolean) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(v, Boolean).GetHashCode(), 0), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(CType(v, Boolean), Nullable(Of Boolean)), CType(Nothing, Nullable(Of Boolean)))), - New ValueComparer(Of Boolean?)( - Function(v1 As Nullable(Of Boolean), v2 As Nullable(Of Boolean)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Boolean) = CType(v2, Boolean) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(v, Boolean).GetHashCode(), 0), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(CType(v, Boolean), Nullable(Of Boolean)), CType(Nothing, Nullable(Of Boolean)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim nullableBoolArray = entityType.AddProperty( - "NullableBoolArray", - GetType(Boolean?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableBoolArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableBoolArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableBoolArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Boolean?)(New JsonNullableStructCollectionReaderWriter(Of Boolean?(), Boolean?(), Boolean)( - JsonBoolReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Boolean)(New ValueComparer(Of Boolean?)( - Function(v1 As Nullable(Of Boolean), v2 As Nullable(Of Boolean)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Boolean) = CType(v2, Boolean) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(v, Boolean).GetHashCode(), 0), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(CType(v, Boolean), Nullable(Of Boolean)), CType(Nothing, Nullable(Of Boolean))))), - New NullableValueTypeListComparer(Of Boolean)(New ValueComparer(Of Boolean?)( - Function(v1 As Nullable(Of Boolean), v2 As Nullable(Of Boolean)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Boolean) = CType(v2, Boolean) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(v, Boolean).GetHashCode(), 0), - Function(v As Nullable(Of Boolean)) If(v.HasValue, CType(CType(v, Boolean), Nullable(Of Boolean)), CType(Nothing, Nullable(Of Boolean))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(BoolTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Boolean?(), Boolean?(), Boolean)( - JsonBoolReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim nullableBytes = entityType.AddProperty( - "NullableBytes", - GetType(Byte()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableBytes", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableBytes", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableBytes.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteByteArrayTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim nullableBytesArray = entityType.AddProperty( - "NullableBytesArray", - GetType(Byte()()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableBytesArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableBytesArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableBytesArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Byte())(New JsonCollectionReaderWriter(Of Byte()(), Byte()(), Byte())( - SqliteJsonByteArrayReaderWriter.Instance)), - New ListComparer(Of Byte())(New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v)), - New ListComparer(Of Byte())(New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteByteArrayTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Byte()(), Byte()(), Byte())( - SqliteJsonByteArrayReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim nullableChar = entityType.AddProperty( - "NullableChar", - GetType(Char?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableChar", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableChar", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableChar.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(CharTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="TEXT"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Char?)( - Function(v1 As Nullable(Of Char), v2 As Nullable(Of Char)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Char) = CType(v2, Char) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Char)) If(v.HasValue, Strings.AscW(CType(v, Char)), 0), - Function(v As Nullable(Of Char)) If(v.HasValue, CType(CType(v, Char), Nullable(Of Char)), CType(Nothing, Nullable(Of Char)))), - New ValueComparer(Of Char?)( - Function(v1 As Nullable(Of Char), v2 As Nullable(Of Char)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Char) = CType(v2, Char) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Char)) If(v.HasValue, Strings.AscW(CType(v, Char)), 0), - Function(v As Nullable(Of Char)) If(v.HasValue, CType(CType(v, Char), Nullable(Of Char)), CType(Nothing, Nullable(Of Char)))), - New ValueComparer(Of Char?)( - Function(v1 As Nullable(Of Char), v2 As Nullable(Of Char)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Char) = CType(v2, Char) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Char)) If(v.HasValue, Strings.AscW(CType(v, Char)), 0), - Function(v As Nullable(Of Char)) If(v.HasValue, CType(CType(v, Char), Nullable(Of Char)), CType(Nothing, Nullable(Of Char)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim nullableCharArray = entityType.AddProperty( - "NullableCharArray", - GetType(Char?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableCharArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableCharArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableCharArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Char?)(New JsonNullableStructCollectionReaderWriter(Of Char?(), Char?(), Char)( - JsonCharReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Char)(New ValueComparer(Of Char?)( - Function(v1 As Nullable(Of Char), v2 As Nullable(Of Char)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Char) = CType(v2, Char) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Char)) If(v.HasValue, Strings.AscW(CType(v, Char)), 0), - Function(v As Nullable(Of Char)) If(v.HasValue, CType(CType(v, Char), Nullable(Of Char)), CType(Nothing, Nullable(Of Char))))), - New NullableValueTypeListComparer(Of Char)(New ValueComparer(Of Char?)( - Function(v1 As Nullable(Of Char), v2 As Nullable(Of Char)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Char) = CType(v2, Char) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Char)) If(v.HasValue, Strings.AscW(CType(v, Char)), 0), - Function(v As Nullable(Of Char)) If(v.HasValue, CType(CType(v, Char), Nullable(Of Char)), CType(Nothing, Nullable(Of Char))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(CharTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="TEXT"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Char?(), Char?(), Char)( - JsonCharReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim nullableDateOnly = entityType.AddProperty( - "NullableDateOnly", - GetType(DateOnly?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableDateOnly", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableDateOnly", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableDateOnly.TypeMapping = SqliteDateOnlyTypeMapping.Default - - Dim nullableDateOnlyArray = entityType.AddProperty( - "NullableDateOnlyArray", - GetType(DateOnly?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableDateOnlyArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableDateOnlyArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableDateOnlyArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of DateOnly?)(New JsonNullableStructCollectionReaderWriter(Of DateOnly?(), DateOnly?(), DateOnly)( - JsonDateOnlyReaderWriter.Instance)), - New NullableValueTypeListComparer(Of DateOnly)(New ValueComparer(Of DateOnly?)( - Function(v1 As Nullable(Of DateOnly), v2 As Nullable(Of DateOnly)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateOnly) = CType(v2, DateOnly) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateOnly)) If(v.HasValue, CType(v, DateOnly).GetHashCode(), 0), - Function(v As Nullable(Of DateOnly)) If(v.HasValue, CType(CType(v, DateOnly), Nullable(Of DateOnly)), CType(Nothing, Nullable(Of DateOnly))))), - New NullableValueTypeListComparer(Of DateOnly)(New ValueComparer(Of DateOnly?)( - Function(v1 As Nullable(Of DateOnly), v2 As Nullable(Of DateOnly)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateOnly) = CType(v2, DateOnly) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateOnly)) If(v.HasValue, CType(v, DateOnly).GetHashCode(), 0), - Function(v As Nullable(Of DateOnly)) If(v.HasValue, CType(CType(v, DateOnly), Nullable(Of DateOnly)), CType(Nothing, Nullable(Of DateOnly))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - SqliteDateOnlyTypeMapping.Default, - New JsonNullableStructCollectionReaderWriter(Of DateOnly?(), DateOnly?(), DateOnly)( - JsonDateOnlyReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim nullableDateTime = entityType.AddProperty( - "NullableDateTime", - GetType(Date?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableDateTime", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableDateTime", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableDateTime.TypeMapping = SqliteDateTimeTypeMapping.Default - - Dim nullableDateTimeArray = entityType.AddProperty( - "NullableDateTimeArray", - GetType(Date?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableDateTimeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableDateTimeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableDateTimeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Date?)(New JsonNullableStructCollectionReaderWriter(Of Date?(), Date?(), Date)( - SqliteJsonDateTimeReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Date)(New ValueComparer(Of Date?)( - Function(v1 As Nullable(Of DateTime), v2 As Nullable(Of DateTime)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateTime) = CType(v2, DateTime) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateTime)) If(v.HasValue, CType(v, DateTime).GetHashCode(), 0), - Function(v As Nullable(Of DateTime)) If(v.HasValue, CType(CType(v, DateTime), Nullable(Of DateTime)), CType(Nothing, Nullable(Of DateTime))))), - New NullableValueTypeListComparer(Of Date)(New ValueComparer(Of Date?)( - Function(v1 As Nullable(Of DateTime), v2 As Nullable(Of DateTime)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, DateTime) = CType(v2, DateTime) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of DateTime)) If(v.HasValue, CType(v, DateTime).GetHashCode(), 0), - Function(v As Nullable(Of DateTime)) If(v.HasValue, CType(CType(v, DateTime), Nullable(Of DateTime)), CType(Nothing, Nullable(Of DateTime))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - SqliteDateTimeTypeMapping.Default, - New JsonNullableStructCollectionReaderWriter(Of Date?(), Date?(), Date)( - SqliteJsonDateTimeReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim nullableDecimal = entityType.AddProperty( - "NullableDecimal", - GetType(Decimal?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableDecimal", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableDecimal", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableDecimal.TypeMapping = SqliteDecimalTypeMapping.Default - - Dim nullableDecimalArray = entityType.AddProperty( - "NullableDecimalArray", - GetType(Decimal?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableDecimalArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableDecimalArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableDecimalArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Decimal?)(New JsonNullableStructCollectionReaderWriter(Of Decimal?(), Decimal?(), Decimal)( - SqliteJsonDecimalReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Decimal)(New ValueComparer(Of Decimal?)( - Function(v1 As Nullable(Of Decimal), v2 As Nullable(Of Decimal)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Decimal) = CType(v2, Decimal) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Decimal)) If(v.HasValue, CType(v, Decimal).GetHashCode(), 0), - Function(v As Nullable(Of Decimal)) If(v.HasValue, CType(CType(v, Decimal), Nullable(Of Decimal)), CType(Nothing, Nullable(Of Decimal))))), - New NullableValueTypeListComparer(Of Decimal)(New ValueComparer(Of Decimal?)( - Function(v1 As Nullable(Of Decimal), v2 As Nullable(Of Decimal)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Decimal) = CType(v2, Decimal) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Decimal)) If(v.HasValue, CType(v, Decimal).GetHashCode(), 0), - Function(v As Nullable(Of Decimal)) If(v.HasValue, CType(CType(v, Decimal), Nullable(Of Decimal)), CType(Nothing, Nullable(Of Decimal))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - SqliteDecimalTypeMapping.Default, - New JsonNullableStructCollectionReaderWriter(Of Decimal?(), Decimal?(), Decimal)( - SqliteJsonDecimalReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim nullableDouble = entityType.AddProperty( - "NullableDouble", - GetType(Double?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableDouble", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableDouble", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableDouble.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(DoubleTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="REAL"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Double?)( - Function(v1 As Nullable(Of Double), v2 As Nullable(Of Double)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Double).Equals(CType(v2, Double)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(v, Double).GetHashCode(), 0), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(CType(v, Double), Nullable(Of Double)), CType(Nothing, Nullable(Of Double)))), - New ValueComparer(Of Double?)( - Function(v1 As Nullable(Of Double), v2 As Nullable(Of Double)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Double).Equals(CType(v2, Double)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(v, Double).GetHashCode(), 0), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(CType(v, Double), Nullable(Of Double)), CType(Nothing, Nullable(Of Double)))), - New ValueComparer(Of Double?)( - Function(v1 As Nullable(Of Double), v2 As Nullable(Of Double)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Double).Equals(CType(v2, Double)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(v, Double).GetHashCode(), 0), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(CType(v, Double), Nullable(Of Double)), CType(Nothing, Nullable(Of Double)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim nullableDoubleArray = entityType.AddProperty( - "NullableDoubleArray", - GetType(Double?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableDoubleArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableDoubleArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableDoubleArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Double?)(New JsonNullableStructCollectionReaderWriter(Of Double?(), Double?(), Double)( - JsonDoubleReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Double)(New ValueComparer(Of Double?)( - Function(v1 As Nullable(Of Double), v2 As Nullable(Of Double)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Double).Equals(CType(v2, Double)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(v, Double).GetHashCode(), 0), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(CType(v, Double), Nullable(Of Double)), CType(Nothing, Nullable(Of Double))))), - New NullableValueTypeListComparer(Of Double)(New ValueComparer(Of Double?)( - Function(v1 As Nullable(Of Double), v2 As Nullable(Of Double)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Double).Equals(CType(v2, Double)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(v, Double).GetHashCode(), 0), - Function(v As Nullable(Of Double)) If(v.HasValue, CType(CType(v, Double), Nullable(Of Double)), CType(Nothing, Nullable(Of Double))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(DoubleTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="REAL"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Double?(), Double?(), Double)( - JsonDoubleReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnum16 = entityType.AddProperty( - "NullableEnum16", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum16", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum16", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum16.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnum16Array = entityType.AddProperty( - "NullableEnum16Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum16?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum16Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum16Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum16Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnum16AsString = entityType.AddProperty( - "NullableEnum16AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum16AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum16AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum16AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnum16AsStringArray = entityType.AddProperty( - "NullableEnum16AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum16?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum16AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum16AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum16AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnum16AsStringCollection = entityType.AddProperty( - "NullableEnum16AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum16AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum16AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum16AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnum16Collection = entityType.AddProperty( - "NullableEnum16Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum16Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum16Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum16Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16?), VisualBasicRuntimeModelCodeGeneratorTest.Enum16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - JsonInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum16, Short)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum16) CType(value, Short), - Function(value As Short) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum16)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnum32 = entityType.AddProperty( - "NullableEnum32", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum32", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum32", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum32.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnum32Array = entityType.AddProperty( - "NullableEnum32Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum32Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum32Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum32Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnum32AsString = entityType.AddProperty( - "NullableEnum32AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum32AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum32AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum32AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnum32AsStringArray = entityType.AddProperty( - "NullableEnum32AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum32?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum32AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum32AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum32AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnum32AsStringCollection = entityType.AddProperty( - "NullableEnum32AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum32AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum32AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum32AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnum32Collection = entityType.AddProperty( - "NullableEnum32Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum32Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum32Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum32Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32?), VisualBasicRuntimeModelCodeGeneratorTest.Enum32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum32, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum32) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum32)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnum64 = entityType.AddProperty( - "NullableEnum64", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum64", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum64", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum64.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(LongTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnum64Array = entityType.AddProperty( - "NullableEnum64Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum64?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum64Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum64Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum64Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(LongTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnum64AsString = entityType.AddProperty( - "NullableEnum64AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum64AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum64AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum64AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(LongTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnum64AsStringArray = entityType.AddProperty( - "NullableEnum64AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum64?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum64AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum64AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum64AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(LongTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnum64AsStringCollection = entityType.AddProperty( - "NullableEnum64AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum64AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum64AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum64AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(LongTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnum64Collection = entityType.AddProperty( - "NullableEnum64Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum64Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum64Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum64Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(LongTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64?), VisualBasicRuntimeModelCodeGeneratorTest.Enum64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum64, Long)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum64) CType(value, Long), - Function(value As Long) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum64)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnum8 = entityType.AddProperty( - "NullableEnum8", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum8", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum8", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum8.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - JsonSByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnum8Array = entityType.AddProperty( - "NullableEnum8Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum8?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum8Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum8Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum8Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - JsonSByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - JsonSByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - JsonSByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnum8AsString = entityType.AddProperty( - "NullableEnum8AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum8AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum8AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum8AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - JsonSByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnum8AsStringArray = entityType.AddProperty( - "NullableEnum8AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Enum8?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum8AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum8AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum8AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - JsonSByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - JsonSByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8?(), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - JsonSByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnum8AsStringCollection = entityType.AddProperty( - "NullableEnum8AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum8AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum8AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum8AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - JsonSByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - JsonSByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - JsonSByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnum8Collection = entityType.AddProperty( - "NullableEnum8Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnum8Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnum8Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnum8Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - JsonSByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.Enum8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) v), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - JsonSByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8?), VisualBasicRuntimeModelCodeGeneratorTest.Enum8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - JsonSByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.Enum8, SByte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.Enum8) CType(value, SByte), - Function(value As SByte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.Enum8)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnumU16 = entityType.AddProperty( - "NullableEnumU16", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU16", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU16", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU16.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - JsonUInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnumU16Array = entityType.AddProperty( - "NullableEnumU16Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU16Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU16Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU16Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - JsonUInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - JsonUInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - JsonUInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnumU16AsString = entityType.AddProperty( - "NullableEnumU16AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU16AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU16AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU16AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - JsonUInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnumU16AsStringArray = entityType.AddProperty( - "NullableEnumU16AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU16AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU16AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU16AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - JsonUInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - JsonUInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - JsonUInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnumU16AsStringCollection = entityType.AddProperty( - "NullableEnumU16AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU16AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU16AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU16AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - JsonUInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - JsonUInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - JsonUInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnumU16Collection = entityType.AddProperty( - "NullableEnumU16Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU16Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU16Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU16Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - JsonUInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) v), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - JsonUInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - JsonUInt16ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU16, UShort)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU16) CType(value, UShort), - Function(value As UShort) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU16)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnumU32 = entityType.AddProperty( - "NullableEnumU32", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU32", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU32", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU32.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UIntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - JsonUInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnumU32Array = entityType.AddProperty( - "NullableEnumU32Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU32Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU32Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU32Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - JsonUInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UIntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - JsonUInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - JsonUInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnumU32AsString = entityType.AddProperty( - "NullableEnumU32AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU32AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU32AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU32AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UIntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - JsonUInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnumU32AsStringArray = entityType.AddProperty( - "NullableEnumU32AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU32AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU32AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU32AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - JsonUInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UIntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - JsonUInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - JsonUInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnumU32AsStringCollection = entityType.AddProperty( - "NullableEnumU32AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU32AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU32AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU32AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - JsonUInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UIntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - JsonUInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - JsonUInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnumU32Collection = entityType.AddProperty( - "NullableEnumU32Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU32Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU32Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU32Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - JsonUInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UIntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) v), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - JsonUInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - JsonUInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, UInteger)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU32) CType(value, UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnumU64 = entityType.AddProperty( - "NullableEnumU64", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU64", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU64", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU64.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteULongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - JsonUInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnumU64Array = entityType.AddProperty( - "NullableEnumU64Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU64Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU64Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU64Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - JsonUInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteULongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - JsonUInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - JsonUInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnumU64AsString = entityType.AddProperty( - "NullableEnumU64AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU64AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU64AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU64AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteULongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - JsonUInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnumU64AsStringArray = entityType.AddProperty( - "NullableEnumU64AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU64AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU64AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU64AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - JsonUInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteULongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - JsonUInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - JsonUInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnumU64AsStringCollection = entityType.AddProperty( - "NullableEnumU64AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU64AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU64AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU64AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - JsonUInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteULongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - JsonUInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - JsonUInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnumU64Collection = entityType.AddProperty( - "NullableEnumU64Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU64Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU64Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU64Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - JsonUInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteULongTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) v), - New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - JsonUInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - JsonUInt64ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU64, ULong)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU64) CType(value, ULong), - Function(value As ULong) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU64)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnumU8 = entityType.AddProperty( - "NullableEnumU8", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU8", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU8", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU8.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnumU8Array = entityType.AddProperty( - "NullableEnumU8Array", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU8Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU8Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU8Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnumU8AsString = entityType.AddProperty( - "NullableEnumU8AsString", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU8AsString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU8AsString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU8AsString.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnumU8AsStringArray = entityType.AddProperty( - "NullableEnumU8AsStringArray", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU8AsStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU8AsStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU8AsStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)(New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?(), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnumU8AsStringCollection = entityType.AddProperty( - "NullableEnumU8AsStringCollection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU8AsStringCollection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU8AsStringCollection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU8AsStringCollection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableEnumU8Collection = entityType.AddProperty( - "NullableEnumU8Collection", - GetType(List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableEnumU8Collection", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableEnumU8Collection", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableEnumU8Collection.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)(New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New NullableValueTypeListComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)(New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, v2 As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8))), - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), List(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8?), VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)( - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - JsonByteReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU8, Byte)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.EnumU8) CType(value, Byte), - Function(value As Byte) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU8)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableFloat = entityType.AddProperty( - "NullableFloat", - GetType(Single?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableFloat", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableFloat", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableFloat.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(FloatTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="REAL"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Single?)( - Function(v1 As Nullable(Of Single), v2 As Nullable(Of Single)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Single).Equals(CType(v2, Single)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(v, Single).GetHashCode(), 0), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(CType(v, Single), Nullable(Of Single)), CType(Nothing, Nullable(Of Single)))), - New ValueComparer(Of Single?)( - Function(v1 As Nullable(Of Single), v2 As Nullable(Of Single)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Single).Equals(CType(v2, Single)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(v, Single).GetHashCode(), 0), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(CType(v, Single), Nullable(Of Single)), CType(Nothing, Nullable(Of Single)))), - New ValueComparer(Of Single?)( - Function(v1 As Nullable(Of Single), v2 As Nullable(Of Single)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Single).Equals(CType(v2, Single)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(v, Single).GetHashCode(), 0), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(CType(v, Single), Nullable(Of Single)), CType(Nothing, Nullable(Of Single)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim nullableFloatArray = entityType.AddProperty( - "NullableFloatArray", - GetType(Single?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableFloatArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableFloatArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableFloatArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Single?)(New JsonNullableStructCollectionReaderWriter(Of Single?(), Single?(), Single)( - JsonFloatReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Single)(New ValueComparer(Of Single?)( - Function(v1 As Nullable(Of Single), v2 As Nullable(Of Single)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Single).Equals(CType(v2, Single)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(v, Single).GetHashCode(), 0), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(CType(v, Single), Nullable(Of Single)), CType(Nothing, Nullable(Of Single))))), - New NullableValueTypeListComparer(Of Single)(New ValueComparer(Of Single?)( - Function(v1 As Nullable(Of Single), v2 As Nullable(Of Single)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Single).Equals(CType(v2, Single)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(v, Single).GetHashCode(), 0), - Function(v As Nullable(Of Single)) If(v.HasValue, CType(CType(v, Single), Nullable(Of Single)), CType(Nothing, Nullable(Of Single))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(FloatTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="REAL"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Single?(), Single?(), Single)( - JsonFloatReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim nullableGuid = entityType.AddProperty( - "NullableGuid", - GetType(Guid?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableGuid", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableGuid", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableGuid.TypeMapping = SqliteGuidTypeMapping.Default - - Dim nullableGuidArray = entityType.AddProperty( - "NullableGuidArray", - GetType(Guid?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableGuidArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableGuidArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableGuidArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Guid?)(New JsonNullableStructCollectionReaderWriter(Of Guid?(), Guid?(), Guid)( - SqliteJsonGuidReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Guid)(New ValueComparer(Of Guid?)( - Function(v1 As Nullable(Of Guid), v2 As Nullable(Of Guid)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Guid) = CType(v2, Guid) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Guid)) If(v.HasValue, CType(v, Guid).GetHashCode(), 0), - Function(v As Nullable(Of Guid)) If(v.HasValue, CType(CType(v, Guid), Nullable(Of Guid)), CType(Nothing, Nullable(Of Guid))))), - New NullableValueTypeListComparer(Of Guid)(New ValueComparer(Of Guid?)( - Function(v1 As Nullable(Of Guid), v2 As Nullable(Of Guid)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Guid) = CType(v2, Guid) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Guid)) If(v.HasValue, CType(v, Guid).GetHashCode(), 0), - Function(v As Nullable(Of Guid)) If(v.HasValue, CType(CType(v, Guid), Nullable(Of Guid)), CType(Nothing, Nullable(Of Guid))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - SqliteGuidTypeMapping.Default, - New JsonNullableStructCollectionReaderWriter(Of Guid?(), Guid?(), Guid)( - SqliteJsonGuidReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim nullableIPAddress = entityType.AddProperty( - "NullableIPAddress", - GetType(IPAddress), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableIPAddress", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableIPAddress", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableIPAddress.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=45), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping) - - Dim nullableIPAddressArray = entityType.AddProperty( - "NullableIPAddressArray", - GetType(IPAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableIPAddressArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableIPAddressArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableIPAddressArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=45), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableInt16 = entityType.AddProperty( - "NullableInt16", - GetType(Short?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableInt16", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableInt16", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableInt16.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Short?)( - Function(v1 As Nullable(Of Short), v2 As Nullable(Of Short)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Short) = CType(v2, Short) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Integer), 0), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Nullable(Of Short)), CType(Nothing, Nullable(Of Short)))), - New ValueComparer(Of Short?)( - Function(v1 As Nullable(Of Short), v2 As Nullable(Of Short)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Short) = CType(v2, Short) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Integer), 0), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Nullable(Of Short)), CType(Nothing, Nullable(Of Short)))), - New ValueComparer(Of Short?)( - Function(v1 As Nullable(Of Short), v2 As Nullable(Of Short)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Short) = CType(v2, Short) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Integer), 0), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Nullable(Of Short)), CType(Nothing, Nullable(Of Short)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim nullableInt16Array = entityType.AddProperty( - "NullableInt16Array", - GetType(Short?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableInt16Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableInt16Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableInt16Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Short?)(New JsonNullableStructCollectionReaderWriter(Of Short?(), Short?(), Short)( - JsonInt16ReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Short)(New ValueComparer(Of Short?)( - Function(v1 As Nullable(Of Short), v2 As Nullable(Of Short)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Short) = CType(v2, Short) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Integer), 0), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Nullable(Of Short)), CType(Nothing, Nullable(Of Short))))), - New NullableValueTypeListComparer(Of Short)(New ValueComparer(Of Short?)( - Function(v1 As Nullable(Of Short), v2 As Nullable(Of Short)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Short) = CType(v2, Short) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Integer), 0), - Function(v As Nullable(Of Short)) If(v.HasValue, CType(CType(v, Short), Nullable(Of Short)), CType(Nothing, Nullable(Of Short))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Short?(), Short?(), Short)( - JsonInt16ReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim nullableInt32 = entityType.AddProperty( - "NullableInt32", - GetType(Integer?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableInt32", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableInt32", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableInt32.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer?)( - Function(v1 As Nullable(Of Integer), v2 As Nullable(Of Integer)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Integer) = CType(v2, Integer) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(v, Integer), 0), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(CType(v, Integer), Nullable(Of Integer)), CType(Nothing, Nullable(Of Integer)))), - New ValueComparer(Of Integer?)( - Function(v1 As Nullable(Of Integer), v2 As Nullable(Of Integer)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Integer) = CType(v2, Integer) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(v, Integer), 0), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(CType(v, Integer), Nullable(Of Integer)), CType(Nothing, Nullable(Of Integer)))), - New ValueComparer(Of Integer?)( - Function(v1 As Nullable(Of Integer), v2 As Nullable(Of Integer)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Integer) = CType(v2, Integer) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(v, Integer), 0), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(CType(v, Integer), Nullable(Of Integer)), CType(Nothing, Nullable(Of Integer)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim nullableInt32Array = entityType.AddProperty( - "NullableInt32Array", - GetType(Integer?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableInt32Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableInt32Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableInt32Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Integer?)(New JsonNullableStructCollectionReaderWriter(Of Integer?(), Integer?(), Integer)( - JsonInt32ReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Integer)(New ValueComparer(Of Integer?)( - Function(v1 As Nullable(Of Integer), v2 As Nullable(Of Integer)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Integer) = CType(v2, Integer) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(v, Integer), 0), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(CType(v, Integer), Nullable(Of Integer)), CType(Nothing, Nullable(Of Integer))))), - New NullableValueTypeListComparer(Of Integer)(New ValueComparer(Of Integer?)( - Function(v1 As Nullable(Of Integer), v2 As Nullable(Of Integer)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Integer) = CType(v2, Integer) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(v, Integer), 0), - Function(v As Nullable(Of Integer)) If(v.HasValue, CType(CType(v, Integer), Nullable(Of Integer)), CType(Nothing, Nullable(Of Integer))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Integer?(), Integer?(), Integer)( - JsonInt32ReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim nullableInt64 = entityType.AddProperty( - "NullableInt64", - GetType(Long?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableInt64", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableInt64", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableInt64.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(LongTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim nullableInt64Array = entityType.AddProperty( - "NullableInt64Array", - GetType(Long?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableInt64Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableInt64Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableInt64Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Long?)(New JsonNullableStructCollectionReaderWriter(Of Long?(), Long?(), Long)( - JsonInt64ReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Long)(New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long))))), - New NullableValueTypeListComparer(Of Long)(New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(LongTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Long?(), Long?(), Long)( - JsonInt64ReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim nullableInt8 = entityType.AddProperty( - "NullableInt8", - GetType(SByte?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableInt8", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableInt8", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableInt8.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of SByte?)( - Function(v1 As Nullable(Of SByte), v2 As Nullable(Of SByte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, SByte) = CType(v2, SByte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Integer), 0), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Nullable(Of SByte)), CType(Nothing, Nullable(Of SByte)))), - New ValueComparer(Of SByte?)( - Function(v1 As Nullable(Of SByte), v2 As Nullable(Of SByte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, SByte) = CType(v2, SByte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Integer), 0), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Nullable(Of SByte)), CType(Nothing, Nullable(Of SByte)))), - New ValueComparer(Of SByte?)( - Function(v1 As Nullable(Of SByte), v2 As Nullable(Of SByte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, SByte) = CType(v2, SByte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Integer), 0), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Nullable(Of SByte)), CType(Nothing, Nullable(Of SByte)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim nullableInt8Array = entityType.AddProperty( - "NullableInt8Array", - GetType(SByte?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableInt8Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableInt8Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableInt8Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of SByte?)(New JsonNullableStructCollectionReaderWriter(Of SByte?(), SByte?(), SByte)( - JsonSByteReaderWriter.Instance)), - New NullableValueTypeListComparer(Of SByte)(New ValueComparer(Of SByte?)( - Function(v1 As Nullable(Of SByte), v2 As Nullable(Of SByte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, SByte) = CType(v2, SByte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Integer), 0), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Nullable(Of SByte)), CType(Nothing, Nullable(Of SByte))))), - New NullableValueTypeListComparer(Of SByte)(New ValueComparer(Of SByte?)( - Function(v1 As Nullable(Of SByte), v2 As Nullable(Of SByte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, SByte) = CType(v2, SByte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Integer), 0), - Function(v As Nullable(Of SByte)) If(v.HasValue, CType(CType(v, SByte), Nullable(Of SByte)), CType(Nothing, Nullable(Of SByte))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - New ValueComparer(Of SByte)( - Function(v1 As SByte, v2 As SByte) v1 = v2, - Function(v As SByte) CType(v, Integer), - Function(v As SByte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of SByte?(), SByte?(), SByte)( - JsonSByteReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim nullablePhysicalAddress = entityType.AddProperty( - "NullablePhysicalAddress", - GetType(PhysicalAddress), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullablePhysicalAddress", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullablePhysicalAddress", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullablePhysicalAddress.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=20), - Type.Missing, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v)), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v))), - Type.Missing}), CoreTypeMapping) - - Dim nullablePhysicalAddressArray = entityType.AddProperty( - "NullablePhysicalAddressArray", - GetType(PhysicalAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullablePhysicalAddressArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullablePhysicalAddressArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullablePhysicalAddressArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of PhysicalAddress)(New JsonCollectionReaderWriter(Of PhysicalAddress(), PhysicalAddress(), PhysicalAddress)( - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v))))), - New ListComparer(Of PhysicalAddress)(New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v)), - New ListComparer(Of PhysicalAddress)(New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=20), - Type.Missing, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v)), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of PhysicalAddress(), PhysicalAddress(), PhysicalAddress)( - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v)))), - Type.Missing}), CoreTypeMapping) - - Dim nullableString = entityType.AddProperty( - "NullableString", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableString", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableString", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableString.TypeMapping = SqliteStringTypeMapping.Default - - Dim nullableStringArray = entityType.AddProperty( - "NullableStringArray", - GetType(String()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableStringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableStringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableStringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of String(), String(), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - SqliteStringTypeMapping.Default, - New JsonCollectionReaderWriter(Of String(), String(), String)( - JsonStringReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim nullableTimeOnly = entityType.AddProperty( - "NullableTimeOnly", - GetType(TimeOnly?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableTimeOnly", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableTimeOnly", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableTimeOnly.TypeMapping = SqliteTimeOnlyTypeMapping.Default - - Dim nullableTimeOnlyArray = entityType.AddProperty( - "NullableTimeOnlyArray", - GetType(TimeOnly?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableTimeOnlyArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableTimeOnlyArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableTimeOnlyArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of TimeOnly?)(New JsonNullableStructCollectionReaderWriter(Of TimeOnly?(), TimeOnly?(), TimeOnly)( - JsonTimeOnlyReaderWriter.Instance)), - New NullableValueTypeListComparer(Of TimeOnly)(New ValueComparer(Of TimeOnly?)( - Function(v1 As Nullable(Of TimeOnly), v2 As Nullable(Of TimeOnly)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeOnly) = CType(v2, TimeOnly) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeOnly)) If(v.HasValue, CType(v, TimeOnly).GetHashCode(), 0), - Function(v As Nullable(Of TimeOnly)) If(v.HasValue, CType(CType(v, TimeOnly), Nullable(Of TimeOnly)), CType(Nothing, Nullable(Of TimeOnly))))), - New NullableValueTypeListComparer(Of TimeOnly)(New ValueComparer(Of TimeOnly?)( - Function(v1 As Nullable(Of TimeOnly), v2 As Nullable(Of TimeOnly)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeOnly) = CType(v2, TimeOnly) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeOnly)) If(v.HasValue, CType(v, TimeOnly).GetHashCode(), 0), - Function(v As Nullable(Of TimeOnly)) If(v.HasValue, CType(CType(v, TimeOnly), Nullable(Of TimeOnly)), CType(Nothing, Nullable(Of TimeOnly))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - SqliteTimeOnlyTypeMapping.Default, - New JsonNullableStructCollectionReaderWriter(Of TimeOnly?(), TimeOnly?(), TimeOnly)( - JsonTimeOnlyReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim nullableTimeSpan = entityType.AddProperty( - "NullableTimeSpan", - GetType(TimeSpan?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableTimeSpan", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableTimeSpan", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableTimeSpan.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(TimeSpanTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="TEXT"), - Type.Missing, - Type.Missing, - New ValueComparer(Of TimeSpan?)( - Function(v1 As Nullable(Of TimeSpan), v2 As Nullable(Of TimeSpan)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeSpan) = CType(v2, TimeSpan) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(v, TimeSpan).GetHashCode(), 0), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(CType(v, TimeSpan), Nullable(Of TimeSpan)), CType(Nothing, Nullable(Of TimeSpan)))), - New ValueComparer(Of TimeSpan?)( - Function(v1 As Nullable(Of TimeSpan), v2 As Nullable(Of TimeSpan)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeSpan) = CType(v2, TimeSpan) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(v, TimeSpan).GetHashCode(), 0), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(CType(v, TimeSpan), Nullable(Of TimeSpan)), CType(Nothing, Nullable(Of TimeSpan)))), - New ValueComparer(Of TimeSpan?)( - Function(v1 As Nullable(Of TimeSpan), v2 As Nullable(Of TimeSpan)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeSpan) = CType(v2, TimeSpan) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(v, TimeSpan).GetHashCode(), 0), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(CType(v, TimeSpan), Nullable(Of TimeSpan)), CType(Nothing, Nullable(Of TimeSpan)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim nullableTimeSpanArray = entityType.AddProperty( - "NullableTimeSpanArray", - GetType(TimeSpan?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableTimeSpanArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableTimeSpanArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableTimeSpanArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of TimeSpan?)(New JsonNullableStructCollectionReaderWriter(Of TimeSpan?(), TimeSpan?(), TimeSpan)( - JsonTimeSpanReaderWriter.Instance)), - New NullableValueTypeListComparer(Of TimeSpan)(New ValueComparer(Of TimeSpan?)( - Function(v1 As Nullable(Of TimeSpan), v2 As Nullable(Of TimeSpan)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeSpan) = CType(v2, TimeSpan) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(v, TimeSpan).GetHashCode(), 0), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(CType(v, TimeSpan), Nullable(Of TimeSpan)), CType(Nothing, Nullable(Of TimeSpan))))), - New NullableValueTypeListComparer(Of TimeSpan)(New ValueComparer(Of TimeSpan?)( - Function(v1 As Nullable(Of TimeSpan), v2 As Nullable(Of TimeSpan)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, TimeSpan) = CType(v2, TimeSpan) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(v, TimeSpan).GetHashCode(), 0), - Function(v As Nullable(Of TimeSpan)) If(v.HasValue, CType(CType(v, TimeSpan), Nullable(Of TimeSpan)), CType(Nothing, Nullable(Of TimeSpan))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(TimeSpanTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="TEXT"), - Type.Missing, - Type.Missing, - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of TimeSpan?(), TimeSpan?(), TimeSpan)( - JsonTimeSpanReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim nullableUInt16 = entityType.AddProperty( - "NullableUInt16", - GetType(UShort?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUInt16", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUInt16", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUInt16.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of UShort?)( - Function(v1 As Nullable(Of UShort), v2 As Nullable(Of UShort)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UShort) = CType(v2, UShort) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Integer), 0), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Nullable(Of UShort)), CType(Nothing, Nullable(Of UShort)))), - New ValueComparer(Of UShort?)( - Function(v1 As Nullable(Of UShort), v2 As Nullable(Of UShort)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UShort) = CType(v2, UShort) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Integer), 0), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Nullable(Of UShort)), CType(Nothing, Nullable(Of UShort)))), - New ValueComparer(Of UShort?)( - Function(v1 As Nullable(Of UShort), v2 As Nullable(Of UShort)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UShort) = CType(v2, UShort) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Integer), 0), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Nullable(Of UShort)), CType(Nothing, Nullable(Of UShort)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim nullableUInt16Array = entityType.AddProperty( - "NullableUInt16Array", - GetType(UShort?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUInt16Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUInt16Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUInt16Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of UShort?)(New JsonNullableStructCollectionReaderWriter(Of UShort?(), UShort?(), UShort)( - JsonUInt16ReaderWriter.Instance)), - New NullableValueTypeListComparer(Of UShort)(New ValueComparer(Of UShort?)( - Function(v1 As Nullable(Of UShort), v2 As Nullable(Of UShort)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UShort) = CType(v2, UShort) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Integer), 0), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Nullable(Of UShort)), CType(Nothing, Nullable(Of UShort))))), - New NullableValueTypeListComparer(Of UShort)(New ValueComparer(Of UShort?)( - Function(v1 As Nullable(Of UShort), v2 As Nullable(Of UShort)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UShort) = CType(v2, UShort) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Integer), 0), - Function(v As Nullable(Of UShort)) If(v.HasValue, CType(CType(v, UShort), Nullable(Of UShort)), CType(Nothing, Nullable(Of UShort))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of UShort?(), UShort?(), UShort)( - JsonUInt16ReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim nullableUInt32 = entityType.AddProperty( - "NullableUInt32", - GetType(UInteger?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUInt32", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUInt32", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUInt32.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UIntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of UInteger?)( - Function(v1 As Nullable(Of UInteger), v2 As Nullable(Of UInteger)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UInteger) = CType(v2, UInteger) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Integer), 0), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Nullable(Of UInteger)), CType(Nothing, Nullable(Of UInteger)))), - New ValueComparer(Of UInteger?)( - Function(v1 As Nullable(Of UInteger), v2 As Nullable(Of UInteger)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UInteger) = CType(v2, UInteger) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Integer), 0), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Nullable(Of UInteger)), CType(Nothing, Nullable(Of UInteger)))), - New ValueComparer(Of UInteger?)( - Function(v1 As Nullable(Of UInteger), v2 As Nullable(Of UInteger)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UInteger) = CType(v2, UInteger) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Integer), 0), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Nullable(Of UInteger)), CType(Nothing, Nullable(Of UInteger)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim nullableUInt32Array = entityType.AddProperty( - "NullableUInt32Array", - GetType(UInteger?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUInt32Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUInt32Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUInt32Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of UInteger?)(New JsonNullableStructCollectionReaderWriter(Of UInteger?(), UInteger?(), UInteger)( - JsonUInt32ReaderWriter.Instance)), - New NullableValueTypeListComparer(Of UInteger)(New ValueComparer(Of UInteger?)( - Function(v1 As Nullable(Of UInteger), v2 As Nullable(Of UInteger)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UInteger) = CType(v2, UInteger) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Integer), 0), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Nullable(Of UInteger)), CType(Nothing, Nullable(Of UInteger))))), - New NullableValueTypeListComparer(Of UInteger)(New ValueComparer(Of UInteger?)( - Function(v1 As Nullable(Of UInteger), v2 As Nullable(Of UInteger)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, UInteger) = CType(v2, UInteger) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Integer), 0), - Function(v As Nullable(Of UInteger)) If(v.HasValue, CType(CType(v, UInteger), Nullable(Of UInteger)), CType(Nothing, Nullable(Of UInteger))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UIntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of UInteger?(), UInteger?(), UInteger)( - JsonUInt32ReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim nullableUInt64 = entityType.AddProperty( - "NullableUInt64", - GetType(ULong?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUInt64", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUInt64", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUInt64.TypeMapping = SqliteULongTypeMapping.Default - - Dim nullableUInt64Array = entityType.AddProperty( - "NullableUInt64Array", - GetType(ULong?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUInt64Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUInt64Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUInt64Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of ULong?)(New JsonNullableStructCollectionReaderWriter(Of ULong?(), ULong?(), ULong)( - JsonUInt64ReaderWriter.Instance)), - New NullableValueTypeListComparer(Of ULong)(New ValueComparer(Of ULong?)( - Function(v1 As Nullable(Of ULong), v2 As Nullable(Of ULong)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, ULong) = CType(v2, ULong) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of ULong)) If(v.HasValue, CType(v, ULong).GetHashCode(), 0), - Function(v As Nullable(Of ULong)) If(v.HasValue, CType(CType(v, ULong), Nullable(Of ULong)), CType(Nothing, Nullable(Of ULong))))), - New NullableValueTypeListComparer(Of ULong)(New ValueComparer(Of ULong?)( - Function(v1 As Nullable(Of ULong), v2 As Nullable(Of ULong)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, ULong) = CType(v2, ULong) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of ULong)) If(v.HasValue, CType(v, ULong).GetHashCode(), 0), - Function(v As Nullable(Of ULong)) If(v.HasValue, CType(CType(v, ULong), Nullable(Of ULong)), CType(Nothing, Nullable(Of ULong))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - SqliteULongTypeMapping.Default, - New JsonNullableStructCollectionReaderWriter(Of ULong?(), ULong?(), ULong)( - JsonUInt64ReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim nullableUInt8 = entityType.AddProperty( - "NullableUInt8", - GetType(Byte?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUInt8", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUInt8", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUInt8.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte)))), - New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte)))), - New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim nullableUInt8Array = entityType.AddProperty( - "NullableUInt8Array", - GetType(Byte?()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUInt8Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUInt8Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUInt8Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Byte?)(New JsonNullableStructCollectionReaderWriter(Of Byte?(), Byte?(), Byte)( - JsonByteReaderWriter.Instance)), - New NullableValueTypeListComparer(Of Byte)(New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte))))), - New NullableValueTypeListComparer(Of Byte)(New ValueComparer(Of Byte?)( - Function(v1 As Nullable(Of Byte), v2 As Nullable(Of Byte)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Byte) = CType(v2, Byte) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Integer), 0), - Function(v As Nullable(Of Byte)) If(v.HasValue, CType(CType(v, Byte), Nullable(Of Byte)), CType(Nothing, Nullable(Of Byte))))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonNullableStructCollectionReaderWriter(Of Byte?(), Byte?(), Byte)( - JsonByteReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim nullableUri = entityType.AddProperty( - "NullableUri", - GetType(Uri), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUri", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUri", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUri.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute)), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute))), - Type.Missing}), CoreTypeMapping) - - Dim nullableUriArray = entityType.AddProperty( - "NullableUriArray", - GetType(Uri()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("NullableUriArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_NullableUriArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - nullableUriArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Uri)(New JsonCollectionReaderWriter(Of Uri(), Uri(), Uri)( - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute))))), - New ListComparer(Of Uri)(New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v)), - New ListComparer(Of Uri)(New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute)), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Uri(), Uri(), Uri)( - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute)))), - Type.Missing}), CoreTypeMapping) - - Dim physicalAddressArray = entityType.AddProperty( - "PhysicalAddressArray", - GetType(PhysicalAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("PhysicalAddressArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_PhysicalAddressArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - physicalAddressArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of PhysicalAddress)(New JsonCollectionReaderWriter(Of PhysicalAddress(), PhysicalAddress(), PhysicalAddress)( - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v))))), - New ListComparer(Of PhysicalAddress)(New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v)), - New ListComparer(Of PhysicalAddress)(New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=20), - Type.Missing, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v)), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of PhysicalAddress(), PhysicalAddress(), PhysicalAddress)( - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v)))), - Type.Missing}), CoreTypeMapping) - - Dim physicalAddressToBytesConverterProperty = entityType.AddProperty( - "PhysicalAddressToBytesConverterProperty", - GetType(PhysicalAddress), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("PhysicalAddressToBytesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_PhysicalAddressToBytesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New PhysicalAddressToBytesConverter()) - physicalAddressToBytesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteByteArrayTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=8), - Type.Missing, - New ValueConverter(Of PhysicalAddress, Byte())( - Function(v As PhysicalAddress) v.GetAddressBytes(), - Function(v As Byte()) New PhysicalAddress(v)), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - New JsonConvertedValueReaderWriter(Of PhysicalAddress, Byte())( - SqliteJsonByteArrayReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, Byte())( - Function(v As PhysicalAddress) v.GetAddressBytes(), - Function(v As Byte()) New PhysicalAddress(v))), - Type.Missing}), CoreTypeMapping) - - Dim physicalAddressToStringConverterProperty = entityType.AddProperty( - "PhysicalAddressToStringConverterProperty", - GetType(PhysicalAddress), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("PhysicalAddressToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_PhysicalAddressToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New PhysicalAddressToStringConverter()) - physicalAddressToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=20), - Type.Missing, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v)), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v))), - Type.Missing}), CoreTypeMapping) - - Dim [string] = entityType.AddProperty( - "String", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("String", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_String", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - [string].TypeMapping = SqliteStringTypeMapping.Default - - Dim stringArray = entityType.AddProperty( - "StringArray", - GetType(String()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - stringArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of String(), String(), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - SqliteStringTypeMapping.Default, - New JsonCollectionReaderWriter(Of String(), String(), String)( - JsonStringReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim stringToBoolConverterProperty = entityType.AddProperty( - "StringToBoolConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToBoolConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToBoolConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToBoolConverter()) - stringToBoolConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(BoolTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of String, Boolean)( - Function(v As String) Convert.ToBoolean(v), - Function(v As Boolean) Convert.ToString(v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of Boolean)( - Function(v1 As Boolean, v2 As Boolean) v1 = v2, - Function(v As Boolean) v.GetHashCode(), - Function(v As Boolean) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, Boolean)( - JsonBoolReaderWriter.Instance, - New ValueConverter(Of String, Boolean)( - Function(v As String) Convert.ToBoolean(v), - Function(v As Boolean) Convert.ToString(v))), - Type.Missing}), CoreTypeMapping) - - Dim stringToBytesConverterProperty = entityType.AddProperty( - "StringToBytesConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToBytesConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToBytesConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - stringToBytesConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteByteArrayTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of String, Byte())( - Function(v As String) Encoding.UTF32.GetBytes(v), - Function(v As Byte()) Encoding.UTF32.GetString(v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, Byte())( - SqliteJsonByteArrayReaderWriter.Instance, - New ValueConverter(Of String, Byte())( - Function(v As String) Encoding.UTF32.GetBytes(v), - Function(v As Byte()) Encoding.UTF32.GetString(v))), - Type.Missing}), CoreTypeMapping) - - Dim stringToCharConverterProperty = entityType.AddProperty( - "StringToCharConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToCharConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToCharConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToCharConverter()) - stringToCharConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(CharTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="TEXT", - size:=1), - Type.Missing, - New ValueConverter(Of String, Char)( - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)), - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of Char)( - Function(v1 As Char, v2 As Char) v1 = v2, - Function(v As Char) Strings.AscW(v), - Function(v As Char) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, Char)( - JsonCharReaderWriter.Instance, - New ValueConverter(Of String, Char)( - Function(v As String) If(v.Length < 1, Global.Microsoft.VisualBasic.Strings.ChrW(0), v(0)), - Function(v As Char) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)))), - Type.Missing}), CoreTypeMapping) - - Dim stringToDateOnlyConverterProperty = entityType.AddProperty( - "StringToDateOnlyConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToDateOnlyConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToDateOnlyConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToDateOnlyConverter()) - stringToDateOnlyConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteDateOnlyTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=10), - Type.Missing, - New ValueConverter(Of String, DateOnly)( - Function(v As String) DateOnly.Parse(v, CultureInfo.InvariantCulture, DateTimeStyles.None), - Function(v As DateOnly) v.ToString("yyyy\-MM\-dd")), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of DateOnly)( - Function(v1 As DateOnly, v2 As DateOnly) v1.Equals(v2), - Function(v As DateOnly) v.GetHashCode(), - Function(v As DateOnly) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, DateOnly)( - JsonDateOnlyReaderWriter.Instance, - New ValueConverter(Of String, DateOnly)( - Function(v As String) DateOnly.Parse(v, CultureInfo.InvariantCulture, DateTimeStyles.None), - Function(v As DateOnly) v.ToString("yyyy\-MM\-dd"))), - Type.Missing}), CoreTypeMapping) - - Dim stringToDateTimeConverterProperty = entityType.AddProperty( - "StringToDateTimeConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToDateTimeConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToDateTimeConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToDateTimeConverter()) - stringToDateTimeConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteDateTimeTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=48), - Type.Missing, - New ValueConverter(Of String, Date)( - Function(v As String) DateTime.Parse(v, CultureInfo.InvariantCulture), - Function(v As DateTime) v.ToString("yyyy\-MM\-dd HH\:mm\:ss.FFFFFFF")), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, Date)( - SqliteJsonDateTimeReaderWriter.Instance, - New ValueConverter(Of String, Date)( - Function(v As String) DateTime.Parse(v, CultureInfo.InvariantCulture), - Function(v As DateTime) v.ToString("yyyy\-MM\-dd HH\:mm\:ss.FFFFFFF"))), - Type.Missing}), CoreTypeMapping) - - Dim stringToDateTimeOffsetConverterProperty = entityType.AddProperty( - "StringToDateTimeOffsetConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToDateTimeOffsetConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToDateTimeOffsetConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToDateTimeOffsetConverter()) - stringToDateTimeOffsetConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteDateTimeOffsetTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=48), - Type.Missing, - New ValueConverter(Of String, DateTimeOffset)( - Function(v As String) DateTimeOffset.Parse(v, CultureInfo.InvariantCulture), - Function(v As DateTimeOffset) v.ToString("yyyy\-MM\-dd HH\:mm\:ss.FFFFFFFzzz")), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of DateTimeOffset)( - Function(v1 As DateTimeOffset, v2 As DateTimeOffset) v1.EqualsExact(v2), - Function(v As DateTimeOffset) v.GetHashCode(), - Function(v As DateTimeOffset) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, DateTimeOffset)( - SqliteJsonDateTimeOffsetReaderWriter.Instance, - New ValueConverter(Of String, DateTimeOffset)( - Function(v As String) DateTimeOffset.Parse(v, CultureInfo.InvariantCulture), - Function(v As DateTimeOffset) v.ToString("yyyy\-MM\-dd HH\:mm\:ss.FFFFFFFzzz"))), - Type.Missing}), CoreTypeMapping) - - Dim stringToDecimalNumberConverterProperty = entityType.AddProperty( - "StringToDecimalNumberConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToDecimalNumberConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToDecimalNumberConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToNumberConverter(Of Decimal)()) - stringToDecimalNumberConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteDecimalTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=64), - Type.Missing, - New ValueConverter(Of String, Decimal)( - Function(v As String) Decimal.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture), - Function(v As Decimal) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of Decimal)( - Function(v1 As Decimal, v2 As Decimal) v1 = v2, - Function(v As Decimal) v.GetHashCode(), - Function(v As Decimal) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, Decimal)( - SqliteJsonDecimalReaderWriter.Instance, - New ValueConverter(Of String, Decimal)( - Function(v As String) Decimal.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture), - Function(v As Decimal) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)))), - Type.Missing}), CoreTypeMapping) - - Dim stringToDoubleNumberConverterProperty = entityType.AddProperty( - "StringToDoubleNumberConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToDoubleNumberConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToDoubleNumberConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToNumberConverter(Of Double)()) - stringToDoubleNumberConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(DoubleTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="REAL", - size:=64), - Type.Missing, - New ValueConverter(Of String, Double)( - Function(v As String) Double.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture), - Function(v As Double) String.Format(CultureInfo.InvariantCulture, "{0:R}", CType(v, Object))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of Double)( - Function(v1 As Double, v2 As Double) v1.Equals(v2), - Function(v As Double) v.GetHashCode(), - Function(v As Double) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, Double)( - JsonDoubleReaderWriter.Instance, - New ValueConverter(Of String, Double)( - Function(v As String) Double.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture), - Function(v As Double) String.Format(CultureInfo.InvariantCulture, "{0:R}", CType(v, Object)))), - Type.Missing}), CoreTypeMapping) - - Dim stringToEnumConverterProperty = entityType.AddProperty( - "StringToEnumConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToEnumConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToEnumConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToEnumConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.EnumU32)()) - stringToEnumConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UIntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of String, UInteger)( - Function(v As String) CType(StringEnumConverter(Of String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v), UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ToString()), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, UInteger)( - JsonUInt32ReaderWriter.Instance, - New ValueConverter(Of String, UInteger)( - Function(v As String) CType(StringEnumConverter(Of String, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ConvertToEnum(v), UInteger), - Function(value As UInteger) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.EnumU32).ToString())), - Type.Missing}), CoreTypeMapping) - - Dim stringToGuidConverterProperty = entityType.AddProperty( - "StringToGuidConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToGuidConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToGuidConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - stringToGuidConverterProperty.TypeMapping = SqliteStringTypeMapping.Default - - Dim stringToIntNumberConverterProperty = entityType.AddProperty( - "StringToIntNumberConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToIntNumberConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToIntNumberConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToNumberConverter(Of Integer)()) - stringToIntNumberConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER", - size:=64), - Type.Missing, - New ValueConverter(Of String, Integer)( - Function(v As String) Integer.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture), - Function(v As Integer) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of String, Integer)( - Function(v As String) Integer.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture), - Function(v As Integer) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)))), - Type.Missing}), CoreTypeMapping) - - Dim stringToTimeOnlyConverterProperty = entityType.AddProperty( - "StringToTimeOnlyConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToTimeOnlyConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToTimeOnlyConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToTimeOnlyConverter()) - stringToTimeOnlyConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteTimeOnlyTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=48), - Type.Missing, - New ValueConverter(Of String, TimeOnly)( - Function(v As String) TimeOnly.Parse(v, CultureInfo.InvariantCulture, DateTimeStyles.None), - Function(v As TimeOnly) If(v.Ticks Mod 10000000L = 0L, String.Format(CultureInfo.InvariantCulture, "{0:HH\:mm\:ss}", CType(v, Object)), v.ToString("o"))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, TimeOnly)( - JsonTimeOnlyReaderWriter.Instance, - New ValueConverter(Of String, TimeOnly)( - Function(v As String) TimeOnly.Parse(v, CultureInfo.InvariantCulture, DateTimeStyles.None), - Function(v As TimeOnly) If(v.Ticks Mod 10000000L = 0L, String.Format(CultureInfo.InvariantCulture, "{0:HH\:mm\:ss}", CType(v, Object)), v.ToString("o")))), - Type.Missing}), CoreTypeMapping) - - Dim stringToTimeSpanConverterProperty = entityType.AddProperty( - "StringToTimeSpanConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToTimeSpanConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToTimeSpanConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToTimeSpanConverter()) - stringToTimeSpanConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(TimeSpanTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="TEXT", - size:=48), - Type.Missing, - New ValueConverter(Of String, TimeSpan)( - Function(v As String) TimeSpan.Parse(v, CultureInfo.InvariantCulture), - Function(v As TimeSpan) v.ToString("c")), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, TimeSpan)( - JsonTimeSpanReaderWriter.Instance, - New ValueConverter(Of String, TimeSpan)( - Function(v As String) TimeSpan.Parse(v, CultureInfo.InvariantCulture), - Function(v As TimeSpan) v.ToString("c"))), - Type.Missing}), CoreTypeMapping) - - Dim stringToUriConverterProperty = entityType.AddProperty( - "StringToUriConverterProperty", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("StringToUriConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_StringToUriConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New StringToUriConverter()) - stringToUriConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of String, String)( - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute).ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute).ToString()), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of String, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of String, String)( - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute).ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute).ToString())), - Type.Missing}), CoreTypeMapping) - - Dim timeOnlyArray = entityType.AddProperty( - "TimeOnlyArray", - GetType(TimeOnly()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("TimeOnlyArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_TimeOnlyArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - timeOnlyArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of TimeOnly)(New JsonCollectionReaderWriter(Of TimeOnly(), TimeOnly(), TimeOnly)( - JsonTimeOnlyReaderWriter.Instance)), - New ListComparer(Of TimeOnly)(New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v)), - New ListComparer(Of TimeOnly)(New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - SqliteTimeOnlyTypeMapping.Default, - New JsonCollectionReaderWriter(Of TimeOnly(), TimeOnly(), TimeOnly)( - JsonTimeOnlyReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim timeOnlyToStringConverterProperty = entityType.AddProperty( - "TimeOnlyToStringConverterProperty", - GetType(TimeOnly), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("TimeOnlyToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_TimeOnlyToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New TimeOnlyToStringConverter()) - timeOnlyToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=48), - Type.Missing, - New ValueConverter(Of TimeOnly, String)( - Function(v As TimeOnly) If(v.Ticks Mod 10000000L = 0L, String.Format(CultureInfo.InvariantCulture, "{0:HH\:mm\:ss}", CType(v, Object)), v.ToString("o")), - Function(v As String) TimeOnly.Parse(v, CultureInfo.InvariantCulture, DateTimeStyles.None)), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of TimeOnly, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of TimeOnly, String)( - Function(v As TimeOnly) If(v.Ticks Mod 10000000L = 0L, String.Format(CultureInfo.InvariantCulture, "{0:HH\:mm\:ss}", CType(v, Object)), v.ToString("o")), - Function(v As String) TimeOnly.Parse(v, CultureInfo.InvariantCulture, DateTimeStyles.None))), - Type.Missing}), CoreTypeMapping) - timeOnlyToStringConverterProperty.SetSentinelFromProviderValue("00:00:00") - - Dim timeOnlyToTicksConverterProperty = entityType.AddProperty( - "TimeOnlyToTicksConverterProperty", - GetType(TimeOnly), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("TimeOnlyToTicksConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_TimeOnlyToTicksConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New TimeOnlyToTicksConverter()) - timeOnlyToTicksConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(LongTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of TimeOnly, Long)( - Function(v As TimeOnly) v.Ticks, - Function(v As Long) New TimeOnly(v)), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - New ValueComparer(Of TimeOnly)( - Function(v1 As TimeOnly, v2 As TimeOnly) v1.Equals(v2), - Function(v As TimeOnly) v.GetHashCode(), - Function(v As TimeOnly) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of TimeOnly, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of TimeOnly, Long)( - Function(v As TimeOnly) v.Ticks, - Function(v As Long) New TimeOnly(v))), - Type.Missing}), CoreTypeMapping) - timeOnlyToTicksConverterProperty.SetSentinelFromProviderValue(0L) - - Dim timeSpanArray = entityType.AddProperty( - "TimeSpanArray", - GetType(TimeSpan()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("TimeSpanArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_TimeSpanArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - timeSpanArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of TimeSpan)(New JsonCollectionReaderWriter(Of TimeSpan(), TimeSpan(), TimeSpan)( - JsonTimeSpanReaderWriter.Instance)), - New ListComparer(Of TimeSpan)(New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v)), - New ListComparer(Of TimeSpan)(New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(TimeSpanTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="TEXT"), - Type.Missing, - Type.Missing, - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of TimeSpan(), TimeSpan(), TimeSpan)( - JsonTimeSpanReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim timeSpanToStringConverterProperty = entityType.AddProperty( - "TimeSpanToStringConverterProperty", - GetType(TimeSpan), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("TimeSpanToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_TimeSpanToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New TimeSpanToStringConverter()) - timeSpanToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=48), - Type.Missing, - New ValueConverter(Of TimeSpan, String)( - Function(v As TimeSpan) v.ToString("c"), - Function(v As String) TimeSpan.Parse(v, CultureInfo.InvariantCulture)), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of TimeSpan, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of TimeSpan, String)( - Function(v As TimeSpan) v.ToString("c"), - Function(v As String) TimeSpan.Parse(v, CultureInfo.InvariantCulture))), - Type.Missing}), CoreTypeMapping) - timeSpanToStringConverterProperty.SetSentinelFromProviderValue("00:00:00") - - Dim timeSpanToTicksConverterProperty = entityType.AddProperty( - "TimeSpanToTicksConverterProperty", - GetType(TimeSpan), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("TimeSpanToTicksConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_TimeSpanToTicksConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - valueConverter:=New TimeSpanToTicksConverter()) - timeSpanToTicksConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(LongTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of TimeSpan, Long)( - Function(v As TimeSpan) v.Ticks, - Function(v As Long) New TimeSpan(v)), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of TimeSpan, Long)( - JsonInt64ReaderWriter.Instance, - New ValueConverter(Of TimeSpan, Long)( - Function(v As TimeSpan) v.Ticks, - Function(v As Long) New TimeSpan(v))), - Type.Missing}), CoreTypeMapping) - timeSpanToTicksConverterProperty.SetSentinelFromProviderValue(0L) - - Dim uInt16 = entityType.AddProperty( - "UInt16", - GetType(UShort), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UInt16", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UInt16", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0US) - uInt16.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim uInt16Array = entityType.AddProperty( - "UInt16Array", - GetType(UShort()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UInt16Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UInt16Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - uInt16Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of UShort)(New JsonCollectionReaderWriter(Of UShort(), UShort(), UShort)( - JsonUInt16ReaderWriter.Instance)), - New ListComparer(Of UShort)(New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v)), - New ListComparer(Of UShort)(New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - New ValueComparer(Of UShort)( - Function(v1 As UShort, v2 As UShort) v1 = v2, - Function(v As UShort) CType(v, Integer), - Function(v As UShort) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of UShort(), UShort(), UShort)( - JsonUInt16ReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim uInt32 = entityType.AddProperty( - "UInt32", - GetType(UInteger), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UInt32", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UInt32", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0UI) - uInt32.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UIntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim uInt32Array = entityType.AddProperty( - "UInt32Array", - GetType(UInteger()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UInt32Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UInt32Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - uInt32Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of UInteger)(New JsonCollectionReaderWriter(Of UInteger(), UInteger(), UInteger)( - JsonUInt32ReaderWriter.Instance)), - New ListComparer(Of UInteger)(New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v)), - New ListComparer(Of UInteger)(New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(UIntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - New ValueComparer(Of UInteger)( - Function(v1 As UInteger, v2 As UInteger) v1 = v2, - Function(v As UInteger) CType(v, Integer), - Function(v As UInteger) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of UInteger(), UInteger(), UInteger)( - JsonUInt32ReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim uInt64 = entityType.AddProperty( - "UInt64", - GetType(ULong), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UInt64", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UInt64", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0UL) - uInt64.TypeMapping = SqliteULongTypeMapping.Default - - Dim uInt64Array = entityType.AddProperty( - "UInt64Array", - GetType(ULong()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UInt64Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UInt64Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - uInt64Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of ULong)(New JsonCollectionReaderWriter(Of ULong(), ULong(), ULong)( - JsonUInt64ReaderWriter.Instance)), - New ListComparer(Of ULong)(New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v)), - New ListComparer(Of ULong)(New ValueComparer(Of ULong)( - Function(v1 As ULong, v2 As ULong) v1 = v2, - Function(v As ULong) v.GetHashCode(), - Function(v As ULong) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - SqliteULongTypeMapping.Default, - New JsonCollectionReaderWriter(Of ULong(), ULong(), ULong)( - JsonUInt64ReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim uInt8 = entityType.AddProperty( - "UInt8", - GetType(Byte), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UInt8", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UInt8", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=CByte(0)) - uInt8.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim uInt8Array = entityType.AddProperty( - "UInt8Array", - GetType(Byte()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UInt8Array", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UInt8Array", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - uInt8Array.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteByteArrayTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim uri = entityType.AddProperty( - "Uri", - GetType(Uri), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("Uri", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_Uri", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - uri.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute)), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute))), - Type.Missing}), CoreTypeMapping) - - Dim uriArray = entityType.AddProperty( - "UriArray", - GetType(Uri()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UriArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UriArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - uriArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Uri)(New JsonCollectionReaderWriter(Of Uri(), Uri(), Uri)( - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute))))), - New ListComparer(Of Uri)(New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v)), - New ListComparer(Of Uri)(New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute)), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of Uri(), Uri(), Uri)( - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute)))), - Type.Missing}), CoreTypeMapping) - - Dim uriToStringConverterProperty = entityType.AddProperty( - "UriToStringConverterProperty", - GetType(Uri), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("UriToStringConverterProperty", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_UriToStringConverterProperty", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - valueConverter:=New UriToStringConverter()) - uriToStringConverterProperty.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute)), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of Uri)( - Function(v1 As Uri, v2 As Uri) v1 = v2, - Function(v As Uri) v.GetHashCode(), - Function(v As Uri) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Uri, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Uri, String)( - Function(v As Uri) v.ToString(), - Function(v As String) New Uri(v, UriKind.RelativeOrAbsolute))), - Type.Missing}), CoreTypeMapping) - - Dim aDateOnly = entityType.AddProperty( - "aDateOnly", - GetType(DateOnly), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("aDateOnly", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_aDateOnly", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=New DateOnly(1, 1, 1)) - aDateOnly.TypeMapping = SqliteDateOnlyTypeMapping.Default - - Dim aDateTime = entityType.AddProperty( - "aDateTime", - GetType(Date), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("aDateTime", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_aDateTime", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=New Date(1, 1, 1, 0, 0, 0, 0, DateTimeKind.Unspecified)) - aDateTime.TypeMapping = SqliteDateTimeTypeMapping.Default - - Dim aFloat = entityType.AddProperty( - "aFloat", - GetType(Single), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("aFloat", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_aFloat", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0F) - aFloat.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(FloatTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="REAL"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - New ValueComparer(Of Single)( - Function(v1 As Single, v2 As Single) v1.Equals(v2), - Function(v As Single) v.GetHashCode(), - Function(v As Single) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim aPhysicalAddress = entityType.AddProperty( - "aPhysicalAddress", - GetType(PhysicalAddress), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("aPhysicalAddress", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_aPhysicalAddress", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - aPhysicalAddress.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=20), - Type.Missing, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v)), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of PhysicalAddress)( - Function(v1 As PhysicalAddress, v2 As PhysicalAddress) Object.Equals(v1, v2), - Function(v As PhysicalAddress) v.GetHashCode(), - Function(v As PhysicalAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of PhysicalAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of PhysicalAddress, String)( - Function(v As PhysicalAddress) v.ToString(), - Function(v As String) PhysicalAddress.Parse(v))), - Type.Missing}), CoreTypeMapping) - - Dim aTimeOnly = entityType.AddProperty( - "aTimeOnly", - GetType(TimeOnly), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("aTimeOnly", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_aTimeOnly", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=New TimeOnly(0, 0, 0)) - aTimeOnly.TypeMapping = SqliteTimeOnlyTypeMapping.Default - - Dim aTimeSpan = entityType.AddProperty( - "aTimeSpan", - GetType(TimeSpan), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("aTimeSpan", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_aTimeSpan", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=New TimeSpan(0, 0, 0, 0, 0)) - aTimeSpan.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(TimeSpanTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="TEXT"), - Type.Missing, - Type.Missing, - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - New ValueComparer(Of TimeSpan)( - Function(v1 As TimeSpan, v2 As TimeSpan) v1.Equals(v2), - Function(v As TimeSpan) v.GetHashCode(), - Function(v As TimeSpan) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim anIPAddress = entityType.AddProperty( - "anIPAddress", - GetType(IPAddress), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetProperty("anIPAddress", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.ManyTypes).GetField("_anIPAddress", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - anIPAddress.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=45), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping) - - Dim key = entityType.AddKey( - {id}) - entityType.SetPrimaryKey(key) - - Return entityType - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "ManyTypes") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim e4 = -Imports System -Imports System.Collections.Generic -Imports System.Net -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Sqlite.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Sqlite.Storage.Json.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion -Imports Microsoft.VisualBasic -Imports NetTopologySuite.Geometries - -Namespace Microsoft.EntityFrameworkCore.Metadata - Friend Partial Class PrincipalBaseEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase), - baseEntityType, - discriminatorValue:="PrincipalBase") - - Dim id = entityType.AddProperty( - "Id", - GetType(Long?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Id", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_Id", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - afterSaveBehavior:=PropertySaveBehavior.Throw) - id.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(LongTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim [overrides] As New StoreObjectDictionary(Of RuntimeRelationalPropertyOverrides)() - Dim idPrincipalDerived As New RuntimeRelationalPropertyOverrides( - id, - StoreObjectIdentifier.Table("PrincipalDerived", Nothing), - True, - "DerivedId") - [overrides].GetType().GetMethod("Add").Invoke([overrides], {StoreObjectIdentifier.Table("PrincipalDerived", Nothing), idPrincipalDerived}) - id.AddAnnotation("Relational:RelationalOverrides", [overrides]) - - - Dim alternateId = entityType.AddProperty( - "AlternateId", - GetType(Guid), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("AlternateId", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.FieldDuringConstruction, - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=New Guid("00000000-0000-0000-0000-000000000000"), - jsonValueReaderWriter:=JsonGuidReaderWriter.Instance) - alternateId.TypeMapping = SqliteGuidTypeMapping.Default - - Dim enum1 = entityType.AddProperty( - "Enum1", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Enum1", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_Enum1", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - enum1.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum))), - Type.Missing}), CoreTypeMapping) - enum1.SetSentinelFromProviderValue(0) - - Dim enum2 = entityType.AddProperty( - "Enum2", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.AnEnum?), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Enum2", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_Enum2", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - enum2.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)))), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum?)( - Function(v1 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), v2 As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) v1.HasValue AndAlso v2.HasValue AndAlso Object.Equals(CType(CType(v1, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Object), CType(CType(v2, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Object)) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) If(v.HasValue, CType(v, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum).GetHashCode(), 0), - Function(v As Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)) If(v.HasValue, CType(CType(v, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum), Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)), CType(Nothing, Nullable(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum)))), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AnEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AnEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AnEnum))), - Type.Missing}), CoreTypeMapping) - - Dim flagsEnum1 = entityType.AddProperty( - "FlagsEnum1", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("FlagsEnum1", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_FlagsEnum1", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - flagsEnum1.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum))), - Type.Missing}), CoreTypeMapping) - flagsEnum1.SetSentinelFromProviderValue(0) - - Dim flagsEnum2 = entityType.AddProperty( - "FlagsEnum2", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("FlagsEnum2", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_FlagsEnum2", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - flagsEnum2.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v), - New ValueComparer(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum)( - Function(v1 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, v2 As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) Object.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v.GetHashCode(), - Function(v As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - JsonInt32ReaderWriter.Instance, - New ValueConverter(Of VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum, Integer)( - Function(value As VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum) CType(value, Integer), - Function(value As Integer) CType(value, VisualBasicRuntimeModelCodeGeneratorTest.AFlagsEnum))), - Type.Missing}), CoreTypeMapping) - flagsEnum2.SetSentinelFromProviderValue(6) - - Dim point = entityType.AddProperty( - "Point", - GetType(Point), - nullable:=True, - valueGenerated:=ValueGenerated.OnAdd, - valueConverter:=New CastingConverter(Of Point, Point)(), - valueComparer:=New VisualBasicRuntimeModelCodeGeneratorTest.CustomValueComparer(Of Point)(), - providerValueComparer:=New VisualBasicRuntimeModelCodeGeneratorTest.CustomValueComparer(Of Point)()) - point.TypeMapping = Nothing - point.AddAnnotation("Relational:ColumnType", "geometry") - point.AddAnnotation("Relational:DefaultValue", CType(New NetTopologySuite.IO.WKTReader().Read("SRID=0;POINT Z(0 0 0)"), NetTopologySuite.Geometries.Point)) - - Dim refTypeArray = entityType.AddProperty( - "RefTypeArray", - GetType(IPAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("RefTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_RefTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=45), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - Type.Missing}), CoreTypeMapping) - - Dim refTypeEnumerable = entityType.AddProperty( - "RefTypeEnumerable", - GetType(IEnumerable(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("RefTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_RefTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - SqliteStringTypeMapping.Default, - New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim refTypeIList = entityType.AddProperty( - "RefTypeIList", - GetType(IList(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("RefTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_RefTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - SqliteStringTypeMapping.Default, - New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim refTypeList = entityType.AddProperty( - "RefTypeList", - GetType(List(Of IPAddress)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("RefTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_RefTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=45), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - Type.Missing}), CoreTypeMapping) - - Dim valueTypeArray = entityType.AddProperty( - "ValueTypeArray", - GetType(Date()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("ValueTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ValueTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Date)(New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - SqliteJsonDateTimeReaderWriter.Instance)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - SqliteDateTimeTypeMapping.Default, - New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - SqliteJsonDateTimeReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim valueTypeEnumerable = entityType.AddProperty( - "ValueTypeEnumerable", - GetType(IEnumerable(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("ValueTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ValueTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim valueTypeIList = entityType.AddProperty( - "ValueTypeIList", - GetType(IList(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("ValueTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ValueTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim valueTypeList = entityType.AddProperty( - "ValueTypeList", - GetType(List(Of Short)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("ValueTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ValueTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Short)(New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim key = entityType.AddKey( - {id}) - - Dim key0 = entityType.AddKey( - {id, alternateId}) - entityType.SetPrimaryKey(key0) - key0.AddAnnotation("Relational:Name", "PK") - - Dim index = entityType.AddIndex( - {alternateId, id}) - - Return entityType - End Function - - Public Shared Function CreateSkipNavigation1(declaringEntityType As RuntimeEntityType, targetEntityType As RuntimeEntityType, joinEntityType As RuntimeEntityType) As RuntimeSkipNavigation - Dim skipNavigation = declaringEntityType.AddSkipNavigation( - "Deriveds", - targetEntityType, - joinEntityType.FindForeignKey( - {joinEntityType.FindProperty("PrincipalsId"), joinEntityType.FindProperty("PrincipalsAlternateId")}, - declaringEntityType.FindKey({declaringEntityType.FindProperty("Id"), declaringEntityType.FindProperty("AlternateId")}), - declaringEntityType), - True, - False, - GetType(ICollection(Of VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Deriveds", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_Deriveds", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly)) - - Dim inverse = targetEntityType.FindSkipNavigation("Principals") - If inverse IsNot Nothing Then - skipNavigation.Inverse = inverse - inverse.Inverse = skipNavigation - End If - - Return skipNavigation - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:MappingStrategy", "TPT") - entityType.AddAnnotation("Relational:Schema", "mySchema") - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "PrincipalBase") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim e5 = -Imports System -Imports System.Collections.Generic -Imports System.Net -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Sqlite.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Sqlite.Storage.Json.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion -Imports Microsoft.VisualBasic - -Namespace Microsoft.EntityFrameworkCore.Metadata - Friend Partial Class OwnedTypeEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalBase.Owned#OwnedType", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType), - baseEntityType, - sharedClrType:=True, - changeTrackingStrategy:=ChangeTrackingStrategy.ChangingAndChangedNotificationsWithOriginalValues) - - Dim principalBaseId = entityType.AddProperty( - "PrincipalBaseId", - GetType(Long), - propertyAccessMode:=PropertyAccessMode.Field, - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=0L) - principalBaseId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(LongTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim [overrides] As New StoreObjectDictionary(Of RuntimeRelationalPropertyOverrides)() - Dim principalBaseIdPrincipalBase As New RuntimeRelationalPropertyOverrides( - principalBaseId, - StoreObjectIdentifier.Table("PrincipalBase", "mySchema"), - False, - Nothing) - principalBaseIdPrincipalBase.AddAnnotation("SqlServer:IdentityIncrement", 3) - principalBaseIdPrincipalBase.AddAnnotation("SqlServer:IdentitySeed", 2L) - principalBaseIdPrincipalBase.AddAnnotation("SqlServer:ValueGenerationStrategy", SqlServerValueGenerationStrategy.IdentityColumn) - [overrides].GetType().GetMethod("Add").Invoke([overrides], {StoreObjectIdentifier.Table("PrincipalBase", "mySchema"), principalBaseIdPrincipalBase}) - principalBaseId.AddAnnotation("Relational:RelationalOverrides", [overrides]) - - - Dim principalBaseAlternateId = entityType.AddProperty( - "PrincipalBaseAlternateId", - GetType(Guid), - propertyAccessMode:=PropertyAccessMode.Field, - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=New Guid("00000000-0000-0000-0000-000000000000")) - principalBaseAlternateId.TypeMapping = SqliteGuidTypeMapping.Default - - Dim details = entityType.AddProperty( - "Details", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("Details", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_details", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - details.TypeMapping = SqliteStringTypeMapping.Default - - Dim overrides0 As New StoreObjectDictionary(Of RuntimeRelationalPropertyOverrides)() - Dim detailsDetails As New RuntimeRelationalPropertyOverrides( - details, - StoreObjectIdentifier.Table("Details", Nothing), - False, - Nothing) - overrides0.GetType().GetMethod("Add").Invoke(overrides0, {StoreObjectIdentifier.Table("Details", Nothing), detailsDetails}) - details.AddAnnotation("Relational:RelationalOverrides", overrides0) - - - Dim number = entityType.AddProperty( - "Number", - GetType(Integer), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("Number", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_Number", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - sentinel:=0) - number.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim refTypeArray = entityType.AddProperty( - "RefTypeArray", - GetType(IPAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - refTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=45), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - Type.Missing}), CoreTypeMapping) - - Dim refTypeEnumerable = entityType.AddProperty( - "RefTypeEnumerable", - GetType(IEnumerable(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - refTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - SqliteStringTypeMapping.Default, - New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim refTypeIList = entityType.AddProperty( - "RefTypeIList", - GetType(IList(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - refTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - SqliteStringTypeMapping.Default, - New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim refTypeList = entityType.AddProperty( - "RefTypeList", - GetType(List(Of IPAddress)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - refTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=45), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - Type.Missing}), CoreTypeMapping) - - Dim valueTypeArray = entityType.AddProperty( - "ValueTypeArray", - GetType(Date()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_valueTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - valueTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Date)(New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - SqliteJsonDateTimeReaderWriter.Instance)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - SqliteDateTimeTypeMapping.Default, - New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - SqliteJsonDateTimeReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim valueTypeEnumerable = entityType.AddProperty( - "ValueTypeEnumerable", - GetType(IEnumerable(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_valueTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - valueTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim valueTypeIList = entityType.AddProperty( - "ValueTypeIList", - GetType(IList(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_ValueTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - valueTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim valueTypeList = entityType.AddProperty( - "ValueTypeList", - GetType(List(Of Short)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_valueTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - nullable:=True) - valueTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Short)(New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim context = entityType.AddServiceProperty( - "Context", - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("Context", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - serviceType:=GetType(DbContext)) - - Dim key = entityType.AddKey( - {principalBaseId, principalBaseAlternateId}) - entityType.SetPrimaryKey(key) - - Return entityType - End Function - - Public Shared Function CreateForeignKey1(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("PrincipalBaseId"), declaringEntityType.FindProperty("PrincipalBaseAlternateId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("Id"), principalEntityType.FindProperty("AlternateId")}), - principalEntityType, - deleteBehavior:=DeleteBehavior.Cascade, - unique:=True, - required:=True, - requiredDependent:=True, - ownership:=True) - - Dim owned = principalEntityType.AddNavigation("Owned", - runtimeForeignKey, - onDependent:=False, - GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetProperty("Owned", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase).GetField("_ownedField", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - propertyAccessMode:=PropertyAccessMode.Field, - eagerLoaded:=True) - - Return runtimeForeignKey - End Function - - Public Shared Function CreateForeignKey2(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("PrincipalBaseId"), declaringEntityType.FindProperty("PrincipalBaseAlternateId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("PrincipalBaseId"), principalEntityType.FindProperty("PrincipalBaseAlternateId")}), - principalEntityType, - deleteBehavior:=DeleteBehavior.Cascade, - unique:=True, - required:=True, - requiredDependent:=True) - - Return runtimeForeignKey - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - Dim fragments As New StoreObjectDictionary(Of RuntimeEntityTypeMappingFragment)() - Dim detailsFragment As New RuntimeEntityTypeMappingFragment( - entityType, - StoreObjectIdentifier.Table("Details", Nothing), - Nothing) - fragments.GetType().GetMethod("Add").Invoke(fragments, {StoreObjectIdentifier.Table("Details", Nothing), detailsFragment}) - entityType.AddAnnotation("Relational:MappingFragments", fragments) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", "mySchema") - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "PrincipalBase") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim e6 = -Imports System -Imports System.Collections.Generic -Imports System.Net -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Sqlite.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Sqlite.Storage.Json.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion -Imports Microsoft.VisualBasic - -Namespace Microsoft.EntityFrameworkCore.Metadata - Friend Partial Class OwnedType0EntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>.ManyOwned#OwnedType", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType), - baseEntityType, - sharedClrType:=True) - - Dim principalDerivedId = entityType.AddProperty( - "PrincipalDerivedId", - GetType(Long), - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=0L) - principalDerivedId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(LongTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim principalDerivedAlternateId = entityType.AddProperty( - "PrincipalDerivedAlternateId", - GetType(Guid), - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=New Guid("00000000-0000-0000-0000-000000000000")) - principalDerivedAlternateId.TypeMapping = SqliteGuidTypeMapping.Default - - Dim id = entityType.AddProperty( - "Id", - GetType(Integer), - valueGenerated:=ValueGenerated.OnAdd, - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=0) - id.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim details = entityType.AddProperty( - "Details", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("Details", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_details", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - details.TypeMapping = SqliteStringTypeMapping.Default - - Dim number = entityType.AddProperty( - "Number", - GetType(Integer), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("Number", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_Number", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - sentinel:=0) - number.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(IntTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim refTypeArray = entityType.AddProperty( - "RefTypeArray", - GetType(IPAddress()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=45), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IPAddress(), IPAddress(), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - Type.Missing}), CoreTypeMapping) - - Dim refTypeEnumerable = entityType.AddProperty( - "RefTypeEnumerable", - GetType(IEnumerable(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - SqliteStringTypeMapping.Default, - New JsonCollectionReaderWriter(Of IEnumerable(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim refTypeIList = entityType.AddProperty( - "RefTypeIList", - GetType(IList(Of String)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of String)(New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ListComparer(Of String)(New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - SqliteStringTypeMapping.Default, - New JsonCollectionReaderWriter(Of IList(Of String), List(Of String), String)( - JsonStringReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim refTypeList = entityType.AddProperty( - "RefTypeList", - GetType(List(Of IPAddress)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("RefTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_refTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - refTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of IPAddress)(New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))))), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ListComparer(Of IPAddress)(New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - New RelationalTypeMappingInfo( - size:=45), - Type.Missing, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of IPAddress)( - Function(v1 As IPAddress, v2 As IPAddress) v1 Is Nothing AndAlso v2 Is Nothing OrElse v1 IsNot Nothing AndAlso v2 IsNot Nothing AndAlso v1.Equals(v2), - Function(v As IPAddress) v.GetHashCode(), - Function(v As IPAddress) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v))), - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of IPAddress), List(Of IPAddress), IPAddress)( - New JsonConvertedValueReaderWriter(Of IPAddress, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of IPAddress, String)( - Function(v As IPAddress) v.ToString(), - Function(v As String) IPAddress.Parse(v)))), - Type.Missing}), CoreTypeMapping) - - Dim valueTypeArray = entityType.AddProperty( - "ValueTypeArray", - GetType(Date()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeArray", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_valueTypeArray", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeArray.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Date)(New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - SqliteJsonDateTimeReaderWriter.Instance)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ListComparer(Of Date)(New ValueComparer(Of Date)( - Function(v1 As DateTime, v2 As DateTime) v1.Equals(v2), - Function(v As DateTime) v.GetHashCode(), - Function(v As DateTime) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - SqliteDateTimeTypeMapping.Default, - New JsonCollectionReaderWriter(Of Date(), Date(), Date)( - SqliteJsonDateTimeReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim valueTypeEnumerable = entityType.AddProperty( - "ValueTypeEnumerable", - GetType(IEnumerable(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeEnumerable", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_valueTypeEnumerable", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeEnumerable.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IEnumerable(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim valueTypeIList = entityType.AddProperty( - "ValueTypeIList", - GetType(IList(Of Byte)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeIList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_ValueTypeIList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeIList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Byte)(New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ListComparer(Of Byte)(New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ByteTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - New ValueComparer(Of Byte)( - Function(v1 As Byte, v2 As Byte) v1 = v2, - Function(v As Byte) CType(v, Integer), - Function(v As Byte) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of IList(Of Byte), List(Of Byte), Byte)( - JsonByteReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim valueTypeList = entityType.AddProperty( - "ValueTypeList", - GetType(List(Of Short)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("ValueTypeList", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetField("_valueTypeList", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - valueTypeList.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteStringTypeMapping.Default, { - Type.Missing, - Type.Missing, - New CollectionToJsonStringConverter(Of Short)(New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ListComparer(Of Short)(New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v)), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(ShortTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - New ValueComparer(Of Short)( - Function(v1 As Short, v2 As Short) v1 = v2, - Function(v As Short) CType(v, Integer), - Function(v As Short) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping), - New JsonCollectionReaderWriter(Of List(Of Short), List(Of Short), Short)( - JsonInt16ReaderWriter.Instance), - Type.Missing}), CoreTypeMapping) - - Dim context = entityType.AddServiceProperty( - "Context", - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.OwnedType).GetProperty("Context", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - serviceType:=GetType(DbContext)) - - Dim key = entityType.AddKey( - {principalDerivedId, principalDerivedAlternateId, id}) - entityType.SetPrimaryKey(key) - - Return entityType - End Function - - Public Shared Function CreateForeignKey1(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("PrincipalDerivedId"), declaringEntityType.FindProperty("PrincipalDerivedAlternateId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("Id"), principalEntityType.FindProperty("AlternateId")}), - principalEntityType, - deleteBehavior:=DeleteBehavior.Cascade, - required:=True, - ownership:=True) - - Dim manyOwned = principalEntityType.AddNavigation("ManyOwned", - runtimeForeignKey, - onDependent:=False, - GetType(ICollection(Of VisualBasicRuntimeModelCodeGeneratorTest.OwnedType)), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))).GetField("ManyOwned", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - eagerLoaded:=True) - - Return runtimeForeignKey - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "ManyOwned") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - entityType.AddAnnotation("SqlServer:MemoryOptimized", True) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim e7 = -Imports System -Imports System.Collections -Imports System.Collections.Generic -Imports System.Linq -Imports System.Reflection -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Sqlite.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.VisualBasic - -Namespace Microsoft.EntityFrameworkCore.Metadata - Friend Partial Class PrincipalBasePrincipalDerivedDependentBasebyteEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "PrincipalBasePrincipalDerived>", - GetType(Dictionary(Of String, Object)), - baseEntityType, - sharedClrType:=True, - indexerPropertyInfo:=RuntimeEntityType.FindIndexerProperty(GetType(Dictionary(Of String, Object))), - propertyBag:=True) - - Dim derivedsId = entityType.AddProperty( - "DerivedsId", - GetType(Long), - propertyInfo:=entityType.FindIndexerPropertyInfo(), - afterSaveBehavior:=PropertySaveBehavior.Throw) - derivedsId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(LongTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim derivedsAlternateId = entityType.AddProperty( - "DerivedsAlternateId", - GetType(Guid), - propertyInfo:=entityType.FindIndexerPropertyInfo(), - afterSaveBehavior:=PropertySaveBehavior.Throw) - derivedsAlternateId.TypeMapping = SqliteGuidTypeMapping.Default - - Dim principalsId = entityType.AddProperty( - "PrincipalsId", - GetType(Long), - propertyInfo:=entityType.FindIndexerPropertyInfo(), - afterSaveBehavior:=PropertySaveBehavior.Throw) - principalsId.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(LongTypeMapping.Default, { - New RelationalTypeMappingInfo( - storeTypeName:="INTEGER"), - Type.Missing, - Type.Missing, - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - New ValueComparer(Of Long)( - Function(v1 As Long, v2 As Long) v1 = v2, - Function(v As Long) v.GetHashCode(), - Function(v As Long) v), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim principalsAlternateId = entityType.AddProperty( - "PrincipalsAlternateId", - GetType(Guid), - propertyInfo:=entityType.FindIndexerPropertyInfo(), - afterSaveBehavior:=PropertySaveBehavior.Throw) - principalsAlternateId.TypeMapping = SqliteGuidTypeMapping.Default - - Dim rowid = entityType.AddProperty( - "rowid", - GetType(Byte()), - propertyInfo:=entityType.FindIndexerPropertyInfo(), - nullable:=True, - concurrencyToken:=True, - valueGenerated:=ValueGenerated.OnAddOrUpdate, - beforeSaveBehavior:=PropertySaveBehavior.Ignore, - afterSaveBehavior:=PropertySaveBehavior.Ignore) - rowid.TypeMapping = DirectCast(GetType(RelationalTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(SqliteByteArrayTypeMapping.Default, { - Type.Missing, - Type.Missing, - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) v.GetHashCode(), - Function(v As Byte()) v), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - Type.Missing, - Type.Missing}), CoreTypeMapping) - - Dim key = entityType.AddKey( - {derivedsId, derivedsAlternateId, principalsId, principalsAlternateId}) - entityType.SetPrimaryKey(key) - - Dim index = entityType.AddIndex( - {principalsId, principalsAlternateId}) - - Return entityType - End Function - - Public Shared Function CreateForeignKey1(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("DerivedsId"), declaringEntityType.FindProperty("DerivedsAlternateId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("Id"), principalEntityType.FindProperty("AlternateId")}), - principalEntityType, - deleteBehavior:=DeleteBehavior.Cascade, - required:=True) - - Return runtimeForeignKey - End Function - - Public Shared Function CreateForeignKey2(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("PrincipalsId"), declaringEntityType.FindProperty("PrincipalsAlternateId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("Id"), principalEntityType.FindProperty("AlternateId")}), - principalEntityType, - deleteBehavior:=DeleteBehavior.Cascade, - required:=True) - - Return runtimeForeignKey - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "PrincipalBasePrincipalDerived>") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim e8 = -Imports System -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Migrations.Design -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.Sqlite.Storage.Internal -Imports Microsoft.VisualBasic - -Namespace Microsoft.EntityFrameworkCore.Metadata - Friend Partial Class DependentDerivedEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+DependentDerived", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentDerived(Of Byte?)), - baseEntityType, - discriminatorProperty:="EnumDiscriminator", - discriminatorValue:=VisualBasicMigrationsGeneratorTests.Enum1.Two) - - Dim data = entityType.AddProperty( - "Data", - GetType(String), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentDerived(Of Byte?)).GetProperty("Data", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.DependentDerived(Of Byte?)).GetField("_Data", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True, - maxLength:=20, - unicode:=False) - data.TypeMapping = SqliteStringTypeMapping.Default - data.AddAnnotation("Relational:IsFixedLength", True) - - Dim money = entityType.AddProperty( - "Money", - GetType(Decimal), - precision:=9, - scale:=3, - sentinel:=0D) - money.TypeMapping = SqliteDecimalTypeMapping.Default - - Return entityType - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "DependentBase") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim e9 = -Imports System -Imports System.Collections.Generic -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.VisualBasic - -Namespace Microsoft.EntityFrameworkCore.Metadata - Friend Partial Class PrincipalDerivedEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+PrincipalDerived>", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))), - baseEntityType, - discriminatorValue:="PrincipalDerived>") - - Return entityType - End Function - - Public Shared Function CreateForeignKey1(declaringEntityType As RuntimeEntityType, principalEntityType As RuntimeEntityType) As RuntimeForeignKey - Dim runtimeForeignKey = declaringEntityType.AddForeignKey({declaringEntityType.FindProperty("Id"), declaringEntityType.FindProperty("AlternateId")}, - principalEntityType.FindKey({principalEntityType.FindProperty("Id"), principalEntityType.FindProperty("AlternateId")}), - principalEntityType, - deleteBehavior:=DeleteBehavior.Cascade, - unique:=True, - required:=True) - - Return runtimeForeignKey - End Function - - Public Shared Function CreateSkipNavigation1(declaringEntityType As RuntimeEntityType, targetEntityType As RuntimeEntityType, joinEntityType As RuntimeEntityType) As RuntimeSkipNavigation - Dim skipNavigation = declaringEntityType.AddSkipNavigation( - "Principals", - targetEntityType, - joinEntityType.FindForeignKey( - {joinEntityType.FindProperty("DerivedsId"), joinEntityType.FindProperty("DerivedsAlternateId")}, - declaringEntityType.FindKey({declaringEntityType.FindProperty("Id"), declaringEntityType.FindProperty("AlternateId")}), - declaringEntityType), - True, - False, - GetType(ICollection(Of VisualBasicRuntimeModelCodeGeneratorTest.PrincipalBase)), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))).GetProperty("Principals", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.PrincipalDerived(Of VisualBasicRuntimeModelCodeGeneratorTest.DependentBase(Of Byte?))).GetField("_Principals", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - eagerLoaded:=True, - lazyLoadingEnabled:=False) - - Dim inverse = targetEntityType.FindSkipNavigation("Deriveds") - If inverse IsNot Nothing Then - skipNavigation.Inverse = inverse - inverse.Inverse = skipNavigation - End If - - Return skipNavigation - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Relational:FunctionName", Nothing) - entityType.AddAnnotation("Relational:Schema", Nothing) - entityType.AddAnnotation("Relational:SqlQuery", Nothing) - entityType.AddAnnotation("Relational:TableName", "PrincipalDerived") - entityType.AddAnnotation("Relational:ViewName", Nothing) - entityType.AddAnnotation("Relational:ViewSchema", Nothing) - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Dim Options = CreateCompiledModelCodeGenerationOptions() - Options.ModelNamespace = "Microsoft.EntityFrameworkCore.Metadata" - - Test( - New SqliteContext(), - Options, - Sub(code) - Assert.Collection(code, - Sub(c) AssertFileContents("SqliteContextModel.vb", rm1, c), - Sub(c) AssertFileContents("SqliteContextModelBuilder.vb", rm2, c), - Sub(c) AssertFileContents("DataEntityType.vb", e1, c), - Sub(c) AssertFileContents("DependentBaseEntityType.vb", e2, c), - Sub(c) AssertFileContents("ManyTypesEntityType.vb", e3, c), - Sub(c) AssertFileContents("PrincipalBaseEntityType.vb", e4, c), - Sub(c) AssertFileContents("OwnedTypeEntityType.vb", e5, c), - Sub(c) AssertFileContents("OwnedType0EntityType.vb", e6, c), - Sub(c) AssertFileContents("PrincipalBasePrincipalDerivedDependentBasebyteEntityType.vb", e7, c), - Sub(c) AssertFileContents("DependentDerivedEntityType.vb", e8, c), - Sub(c) AssertFileContents("PrincipalDerivedEntityType.vb", e9, c)) - End Sub, - Sub(model) - Dim dataEntity = model.FindEntityType(GetType(Data)) - - Assert.Equal(GetType(Data).FullName, dataEntity.Name) - Assert.False(dataEntity.HasSharedClrType) - Assert.False(dataEntity.IsPropertyBag) - Assert.False(dataEntity.IsOwned()) - Assert.IsType(Of ConstructorBinding)(dataEntity.ConstructorBinding) - Assert.Null(dataEntity.FindIndexerPropertyInfo()) - Assert.Equal(ChangeTrackingStrategy.Snapshot, dataEntity.GetChangeTrackingStrategy()) - Assert.Equal("Data", dataEntity.GetTableName()) - Assert.Null(dataEntity.GetSchema()) - - Dim point = dataEntity.FindProperty("Point") - Assert.Equal(GetType(Point), point.ClrType) - Assert.True(point.IsNullable) - Assert.Equal(ValueGenerated.Never, point.ValueGenerated) - Assert.Equal("Point", point.GetColumnName()) - Assert.Equal("POINT", point.GetColumnType()) - Assert.Null(point.GetValueConverter()) - Assert.IsType(Of GeometryValueComparer(Of Point))(point.GetValueComparer()) - Assert.IsType(Of GeometryValueComparer(Of Point))(point.GetKeyValueComparer()) - Assert.Null(point.GetSrid()) - - Dim manyTypesType = model.FindEntityType(GetType(ManyTypes)) - - Assert.Equal(GetType(ManyTypes).FullName, manyTypesType.Name) - Assert.False(manyTypesType.HasSharedClrType) - Assert.False(manyTypesType.IsPropertyBag) - Assert.False(manyTypesType.IsOwned()) - Assert.IsType(Of ConstructorBinding)(manyTypesType.ConstructorBinding) - Assert.Null(manyTypesType.FindIndexerPropertyInfo()) - Assert.Equal(ChangeTrackingStrategy.Snapshot, manyTypesType.GetChangeTrackingStrategy()) - Assert.Equal("ManyTypes", manyTypesType.GetTableName()) - Assert.Null(manyTypesType.GetSchema()) - - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() model.GetCollation()).Message) - Assert.Empty(model.GetAnnotations()) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() model.GetPropertyAccessMode()).Message) - - Assert.Null(model.FindEntityType(GetType(AbstractBase))) - Dim aPrincipalBase = model.FindEntityType(GetType(PrincipalBase)) - Assert.Equal(GetType(PrincipalBase).FullName, aPrincipalBase.Name) - Assert.False(aPrincipalBase.HasSharedClrType) - Assert.False(aPrincipalBase.IsPropertyBag) - Assert.False(aPrincipalBase.IsOwned()) - Assert.Null(aPrincipalBase.BaseType) - Assert.IsType(Of ConstructorBinding)(aPrincipalBase.ConstructorBinding) - Assert.Null(aPrincipalBase.FindIndexerPropertyInfo()) - Assert.Equal(ChangeTrackingStrategy.Snapshot, aPrincipalBase.GetChangeTrackingStrategy()) - Assert.Null(aPrincipalBase.GetQueryFilter()) - Assert.Equal("PrincipalBase", aPrincipalBase.GetTableName()) - Assert.Equal("mySchema", aPrincipalBase.GetSchema()) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() aPrincipalBase.GetSeedData()).Message) - - Dim principalId = aPrincipalBase.FindProperty(NameOf(PrincipalBase.Id)) - Assert.Equal( - {RelationalAnnotationNames.RelationalOverrides}, - principalId.GetAnnotations().Select(Function(a) a.Name)) - Assert.Equal(GetType(Long?), principalId.ClrType) - Assert.Equal(GetType(Long?), principalId.PropertyInfo.PropertyType) - Assert.Equal(GetType(Long?), principalId.FieldInfo.FieldType) - Assert.False(principalId.IsNullable) - Assert.Equal(ValueGenerated.Never, principalId.ValueGenerated) - Assert.Equal(PropertySaveBehavior.Throw, principalId.GetAfterSaveBehavior()) - Assert.Equal(PropertySaveBehavior.Save, principalId.GetBeforeSaveBehavior()) - Assert.Null(principalId(CoreAnnotationNames.BeforeSaveBehavior)) - Assert.Null(principalId(CoreAnnotationNames.AfterSaveBehavior)) - Assert.Equal("Id", principalId.GetColumnName()) - Assert.Equal("Id", principalId.GetColumnName(StoreObjectIdentifier.Table("PrincipalBase", "mySchema"))) - Assert.Equal("DerivedId", principalId.GetColumnName(StoreObjectIdentifier.Table("PrincipalDerived"))) - Assert.Equal("INTEGER", principalId.GetColumnType()) - Assert.Null(principalId.GetValueConverter()) - Assert.NotNull(principalId.GetValueComparer()) - Assert.NotNull(principalId.GetKeyValueComparer()) - - Dim pointProperty = aPrincipalBase.FindProperty("Point") - Assert.Equal(GetType(Point), pointProperty.ClrType) - Assert.True(pointProperty.IsNullable) - Assert.Equal(ValueGenerated.OnAdd, pointProperty.ValueGenerated) - Assert.Equal("Point", pointProperty.GetColumnName()) - Assert.Equal("geometry", pointProperty.GetColumnType()) - Assert.Equal(0, DirectCast(pointProperty.GetDefaultValue(), Point).SRID) - Assert.IsType(Of CastingConverter(Of Point, Point))(pointProperty.GetValueConverter()) - Assert.IsType(Of CustomValueComparer(Of Point))(pointProperty.GetValueComparer()) - Assert.IsType(Of CustomValueComparer(Of Point))(pointProperty.GetKeyValueComparer()) - Assert.IsType(Of CustomValueComparer(Of Point))(pointProperty.GetProviderValueComparer()) - Assert.Null(pointProperty(CoreAnnotationNames.PropertyAccessMode)) - - Assert.Null(aPrincipalBase.FindDiscriminatorProperty()) - - Dim principalAlternateId = aPrincipalBase.FindProperty(NameOf(PrincipalBase.AlternateId)) - Dim compositeIndex = aPrincipalBase.GetIndexes().Single() - Assert.Equal(PropertyAccessMode.FieldDuringConstruction, principalAlternateId.GetPropertyAccessMode()) - Assert.Empty(compositeIndex.GetAnnotations()) - Assert.Equal({principalAlternateId, principalId}, compositeIndex.Properties) - Assert.False(compositeIndex.IsUnique) - Assert.Null(compositeIndex.Name) - Assert.Equal("IX_PrincipalBase_AlternateId_Id", compositeIndex.GetDatabaseName()) - - Assert.Equal({compositeIndex}, principalAlternateId.GetContainingIndexes()) - - Assert.Equal(2, aPrincipalBase.GetKeys().Count()) - - Dim principalAlternateKey = aPrincipalBase.GetKeys().First() - Assert.Same(principalId, principalAlternateKey.Properties.Single()) - Assert.False(principalAlternateKey.IsPrimaryKey()) - Assert.Equal("AK_PrincipalBase_Id", principalAlternateKey.GetName()) - - Dim principalKey = aPrincipalBase.GetKeys().Last() - Assert.Equal( - {RelationalAnnotationNames.Name}, - principalKey.GetAnnotations().Select(Function(a) a.Name)) - Assert.Equal({principalId, principalAlternateId}, principalKey.Properties) - Assert.True(principalKey.IsPrimaryKey()) - Assert.Equal("PK", principalKey.GetName()) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() principalKey.IsClustered()).Message) - - Assert.Equal({principalAlternateKey, principalKey}, principalId.GetContainingKeys()) - - Dim referenceOwnedNavigation = aPrincipalBase.GetNavigations().Single() - Assert.Equal( - {CoreAnnotationNames.EagerLoaded}, - referenceOwnedNavigation.GetAnnotations().Select(Function(a) a.Name)) - Assert.Equal(NameOf(PrincipalBase.Owned), referenceOwnedNavigation.Name) - Assert.False(referenceOwnedNavigation.IsCollection) - Assert.True(referenceOwnedNavigation.IsEagerLoaded) - Assert.False(referenceOwnedNavigation.IsOnDependent) - Assert.Equal(GetType(OwnedType), referenceOwnedNavigation.ClrType) - Assert.Equal("_ownedField", referenceOwnedNavigation.FieldInfo.Name) - Assert.Equal(NameOf(principalBase.Owned), referenceOwnedNavigation.PropertyInfo.Name) - Assert.Null(referenceOwnedNavigation.Inverse) - Assert.Equal(aPrincipalBase, referenceOwnedNavigation.DeclaringEntityType) - Assert.Equal(PropertyAccessMode.Field, referenceOwnedNavigation.GetPropertyAccessMode()) - Assert.Null(referenceOwnedNavigation(CoreAnnotationNames.PropertyAccessMode)) - - Dim referenceOwnedType = referenceOwnedNavigation.TargetEntityType - Assert.Equal(GetType(PrincipalBase).FullName & ".Owned#OwnedType", referenceOwnedType.Name) - Assert.Equal(GetType(OwnedType), referenceOwnedType.ClrType) - Assert.True(referenceOwnedType.HasSharedClrType) - Assert.False(referenceOwnedType.IsPropertyBag) - Assert.True(referenceOwnedType.IsOwned()) - Assert.Null(referenceOwnedType.BaseType) - Assert.False(referenceOwnedType.IsMemoryOptimized()) - Assert.IsType(Of ConstructorBinding)(referenceOwnedType.ConstructorBinding) - Assert.Null(referenceOwnedType.FindIndexerPropertyInfo()) - Assert.Equal( - ChangeTrackingStrategy.ChangingAndChangedNotificationsWithOriginalValues, - referenceOwnedType.GetChangeTrackingStrategy()) - Assert.Null(referenceOwnedType.GetQueryFilter()) - Assert.Null(referenceOwnedType(CoreAnnotationNames.PropertyAccessMode)) - Assert.Null(referenceOwnedType(CoreAnnotationNames.NavigationAccessMode)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() referenceOwnedType.GetPropertyAccessMode()).Message) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() referenceOwnedType.GetNavigationAccessMode()).Message) - - Dim principalTable = StoreObjectIdentifier.Create(referenceOwnedType, StoreObjectType.Table).Value - - Dim ownedId = referenceOwnedType.FindProperty("PrincipalBaseId") - Assert.True(ownedId.IsPrimaryKey()) - - Dim detailsProperty = referenceOwnedType.FindProperty(NameOf(OwnedType.Details)) - - Dim ownedFragment = referenceOwnedType.GetMappingFragments().Single() - Assert.Equal(NameOf(OwnedType.Details), detailsProperty.GetColumnName(ownedFragment.StoreObject)) - Assert.Null(detailsProperty.GetColumnName(principalTable)) - - Dim referenceOwnership = referenceOwnedNavigation.ForeignKey - Assert.Empty(referenceOwnership.GetAnnotations()) - Assert.Same(referenceOwnership, referenceOwnedType.FindOwnership()) - Assert.True(referenceOwnership.IsOwnership) - Assert.True(referenceOwnership.IsRequired) - Assert.True(referenceOwnership.IsRequiredDependent) - Assert.True(referenceOwnership.IsUnique) - Assert.Null(referenceOwnership.DependentToPrincipal) - Assert.Same(referenceOwnedNavigation, referenceOwnership.PrincipalToDependent) - Assert.Equal(DeleteBehavior.Cascade, referenceOwnership.DeleteBehavior) - Assert.Equal(2, referenceOwnership.Properties.Count()) - Assert.Same(principalKey, referenceOwnership.PrincipalKey) - - Dim ownedServiceProperty = referenceOwnedType.GetServiceProperties().Single() - Assert.Empty(ownedServiceProperty.GetAnnotations()) - Assert.Equal(GetType(DbContext), ownedServiceProperty.ClrType) - Assert.Equal(GetType(DbContext), ownedServiceProperty.PropertyInfo.PropertyType) - Assert.Null(ownedServiceProperty.FieldInfo) - Assert.Same(referenceOwnedType, ownedServiceProperty.DeclaringEntityType) - Dim ownedServicePropertyBinding = ownedServiceProperty.ParameterBinding - Assert.IsType(Of ContextParameterBinding)(ownedServicePropertyBinding) - Assert.Equal(GetType(DbContext), ownedServicePropertyBinding.ServiceType) - Assert.Equal(ownedServiceProperty, ownedServicePropertyBinding.ConsumedProperties.Single()) - Assert.Equal(PropertyAccessMode.PreferField, ownedServiceProperty.GetPropertyAccessMode()) - Assert.Null(ownedServiceProperty(CoreAnnotationNames.PropertyAccessMode)) - - Dim principalDerived = model.FindEntityType(GetType(PrincipalDerived(Of DependentBase(Of Byte?)))) - Assert.Equal(aPrincipalBase, principalDerived.BaseType) - Assert.Equal( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+" & - "PrincipalDerived>", - principalDerived.Name) - Assert.False(principalDerived.IsOwned()) - Assert.IsType(Of ConstructorBinding)(principalDerived.ConstructorBinding) - Assert.Equal(ChangeTrackingStrategy.Snapshot, principalDerived.GetChangeTrackingStrategy()) - Assert.Equal("PrincipalDerived>", principalDerived.GetDiscriminatorValue()) - - Dim tptForeignKey = principalDerived.GetForeignKeys().Single() - Assert.False(tptForeignKey.IsOwnership) - Assert.True(tptForeignKey.IsRequired) - Assert.False(tptForeignKey.IsRequiredDependent) - Assert.True(tptForeignKey.IsUnique) - Assert.Null(tptForeignKey.DependentToPrincipal) - Assert.Null(tptForeignKey.PrincipalToDependent) - Assert.Equal(DeleteBehavior.Cascade, tptForeignKey.DeleteBehavior) - Assert.Equal(principalKey.Properties, tptForeignKey.Properties) - Assert.Same(principalKey, tptForeignKey.PrincipalKey) - - Assert.Equal(2, principalDerived.GetDeclaredNavigations().Count()) - Dim dependentNavigation = principalDerived.GetDeclaredNavigations().First() - Assert.Equal("Dependent", dependentNavigation.Name) - Assert.Equal("Dependent", dependentNavigation.PropertyInfo.Name) - Assert.Equal("_Dependent", dependentNavigation.FieldInfo.Name) - Assert.False(dependentNavigation.IsCollection) - Assert.True(dependentNavigation.IsEagerLoaded) - Assert.False(dependentNavigation.LazyLoadingEnabled) - Assert.False(dependentNavigation.IsOnDependent) - Assert.Equal(principalDerived, dependentNavigation.DeclaringEntityType) - Assert.Equal("Principal", dependentNavigation.Inverse.Name) - - Dim ownedCollectionNavigation = principalDerived.GetDeclaredNavigations().Last() - Assert.Equal("ManyOwned", ownedCollectionNavigation.Name) - Assert.Null(ownedCollectionNavigation.PropertyInfo) - Assert.Equal("ManyOwned", ownedCollectionNavigation.FieldInfo.Name) - Assert.Equal(GetType(ICollection(Of OwnedType)), ownedCollectionNavigation.ClrType) - Assert.True(ownedCollectionNavigation.IsCollection) - Assert.True(ownedCollectionNavigation.IsEagerLoaded) - Assert.False(ownedCollectionNavigation.IsOnDependent) - Assert.Null(ownedCollectionNavigation.Inverse) - Assert.Equal(principalDerived, ownedCollectionNavigation.DeclaringEntityType) - - Dim collectionOwnedType = ownedCollectionNavigation.TargetEntityType - Assert.Equal(principalDerived.Name & ".ManyOwned#OwnedType", collectionOwnedType.Name) - Assert.Equal(GetType(OwnedType), collectionOwnedType.ClrType) - Assert.True(collectionOwnedType.HasSharedClrType) - Assert.False(collectionOwnedType.IsPropertyBag) - Assert.True(collectionOwnedType.IsOwned()) - Assert.True(collectionOwnedType.IsMemoryOptimized()) - Assert.Null(collectionOwnedType(RelationalAnnotationNames.IsTableExcludedFromMigrations)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() collectionOwnedType.IsTableExcludedFromMigrations()).Message) - Assert.Null(collectionOwnedType.BaseType) - Assert.IsType(Of ConstructorBinding)(collectionOwnedType.ConstructorBinding) - Assert.Equal(ChangeTrackingStrategy.Snapshot, collectionOwnedType.GetChangeTrackingStrategy()) - - Dim collectionOwnership = ownedCollectionNavigation.ForeignKey - Assert.Same(collectionOwnership, collectionOwnedType.FindOwnership()) - Assert.True(collectionOwnership.IsOwnership) - Assert.True(collectionOwnership.IsRequired) - Assert.False(collectionOwnership.IsRequiredDependent) - Assert.False(collectionOwnership.IsUnique) - Assert.Null(collectionOwnership.DependentToPrincipal) - Assert.Same(ownedCollectionNavigation, collectionOwnership.PrincipalToDependent) - Assert.Equal(DeleteBehavior.Cascade, collectionOwnership.DeleteBehavior) - Assert.Equal(2, collectionOwnership.Properties.Count()) - - Dim derivedSkipNavigation = principalDerived.GetDeclaredSkipNavigations().Single() - Assert.Equal("Principals", derivedSkipNavigation.Name) - Assert.Equal("Principals", derivedSkipNavigation.PropertyInfo.Name) - Assert.Equal("_Principals", derivedSkipNavigation.FieldInfo.Name) - Assert.Equal(GetType(ICollection(Of PrincipalBase)), derivedSkipNavigation.ClrType) - Assert.True(derivedSkipNavigation.IsCollection) - Assert.True(derivedSkipNavigation.IsEagerLoaded) - Assert.False(derivedSkipNavigation.LazyLoadingEnabled) - Assert.False(derivedSkipNavigation.IsOnDependent) - Assert.Equal(principalDerived, derivedSkipNavigation.DeclaringEntityType) - Assert.Equal("Deriveds", derivedSkipNavigation.Inverse.Name) - Assert.Same(aPrincipalBase.GetSkipNavigations().Single(), derivedSkipNavigation.Inverse) - - Assert.Same(derivedSkipNavigation, derivedSkipNavigation.ForeignKey.GetReferencingSkipNavigations().Single()) - Assert.Same( - derivedSkipNavigation.Inverse, derivedSkipNavigation.Inverse.ForeignKey.GetReferencingSkipNavigations().Single()) - - Assert.Equal({derivedSkipNavigation.Inverse, derivedSkipNavigation}, principalDerived.GetSkipNavigations()) - - Dim joinType = derivedSkipNavigation.JoinEntityType - - Assert.Equal("PrincipalBasePrincipalDerived>", joinType.Name) - Assert.Equal(GetType(Dictionary(Of String, Object)), joinType.ClrType) - Assert.True(joinType.HasSharedClrType) - Assert.True(joinType.IsPropertyBag) - Assert.False(joinType.IsOwned()) - Assert.Null(joinType.BaseType) - Assert.IsType(Of ConstructorBinding)(joinType.ConstructorBinding) - Assert.Equal("Item", joinType.FindIndexerPropertyInfo().Name) - Assert.Equal(ChangeTrackingStrategy.Snapshot, joinType.GetChangeTrackingStrategy()) - Assert.Null(joinType(RelationalAnnotationNames.Comment)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() joinType.GetComment()).Message) - Assert.Null(joinType.GetQueryFilter()) - - Dim rowid = joinType.GetProperties().Single(function(p) not p.IsForeignKey()) - Assert.Equal(GetType(Byte()), rowid.ClrType) - Assert.True(rowid.IsIndexerProperty()) - Assert.Same(joinType.FindIndexerPropertyInfo(), rowid.PropertyInfo) - Assert.Null(rowid.FieldInfo) - Assert.True(rowid.IsNullable) - Assert.False(rowid.IsShadowProperty()) - Assert.True(rowid.IsConcurrencyToken) - Assert.Equal(ValueGenerated.OnAddOrUpdate, rowid.ValueGenerated) - Assert.Equal("rowid", rowid.GetColumnName()) - Assert.Equal("BLOB", rowid.GetColumnType()) - Assert.Null(rowid(RelationalAnnotationNames.Comment)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() rowid.GetComment()).Message) - Assert.Null(rowid(RelationalAnnotationNames.ColumnOrder)) - Assert.Equal( - CoreStrings.RuntimeModelMissingData, - Assert.Throws(Of InvalidOperationException)(Sub() rowid.GetColumnOrder()).Message) - Assert.Null(rowid.GetValueConverter()) - Assert.NotNull(rowid.GetValueComparer()) - Assert.NotNull(rowid.GetKeyValueComparer()) - - Dim dependentForeignKey = dependentNavigation.ForeignKey - Assert.False(dependentForeignKey.IsOwnership) - Assert.True(dependentForeignKey.IsRequired) - Assert.False(dependentForeignKey.IsRequiredDependent) - Assert.True(dependentForeignKey.IsUnique) - Assert.Same(dependentNavigation.Inverse, dependentForeignKey.DependentToPrincipal) - Assert.Same(dependentNavigation, dependentForeignKey.PrincipalToDependent) - Assert.Equal(DeleteBehavior.ClientNoAction, dependentForeignKey.DeleteBehavior) - Assert.Equal({"PrincipalId", "PrincipalAlternateId"}, dependentForeignKey.Properties.Select(Function(p) p.Name)) - Assert.Same(principalKey, dependentForeignKey.PrincipalKey) - - Dim dependentBase = dependentNavigation.TargetEntityType - - Assert.False(dependentBase.GetIsDiscriminatorMappingComplete()) - Dim principalDiscriminator = dependentBase.FindDiscriminatorProperty() - Assert.IsType(Of DiscriminatorValueGenerator)( - principalDiscriminator.GetValueGeneratorFactory()(principalDiscriminator, dependentBase)) - Assert.Equal(Enum1.One, dependentBase.GetDiscriminatorValue()) - - Dim dependentBaseForeignKey = dependentBase.GetForeignKeys().Single(Function(fk) fk IsNot dependentForeignKey) - Dim dependentForeignKeyProperty = dependentBaseForeignKey.Properties.Single() - - Assert.Equal( - {dependentBaseForeignKey, dependentForeignKey}, dependentForeignKeyProperty.GetContainingForeignKeys()) - - Dim dependentDerived = dependentBase.GetDerivedTypes().Single() - Assert.Equal(Enum1.Two, dependentDerived.GetDiscriminatorValue()) - - Assert.Equal(2, dependentDerived.GetDeclaredProperties().Count()) - - Dim dependentData = dependentDerived.GetDeclaredProperties().First() - Assert.Equal(GetType(String), dependentData.ClrType) - Assert.Equal("Data", dependentData.Name) - Assert.Equal("Data", dependentData.PropertyInfo.Name) - Assert.Equal("_Data", dependentData.FieldInfo.Name) - Assert.True(dependentData.IsNullable) - Assert.False(dependentData.IsShadowProperty()) - Assert.False(dependentData.IsConcurrencyToken) - Assert.Equal(ValueGenerated.Never, dependentData.ValueGenerated) - Assert.Equal("Data", dependentData.GetColumnName()) - Assert.Equal("TEXT", dependentData.GetColumnType()) - Assert.Equal(20, dependentData.GetMaxLength()) - Assert.False(dependentData.IsUnicode()) - Assert.True(dependentData.IsFixedLength()) - Assert.Null(dependentData.GetPrecision()) - Assert.Null(dependentData.GetScale()) - - Dim dependentMoney = dependentDerived.GetDeclaredProperties().Last() - Assert.Equal(GetType(Decimal), dependentMoney.ClrType) - Assert.Equal("Money", dependentMoney.Name) - Assert.Null(dependentMoney.PropertyInfo) - Assert.Null(dependentMoney.FieldInfo) - Assert.False(dependentMoney.IsNullable) - Assert.True(dependentMoney.IsShadowProperty()) - Assert.False(dependentMoney.IsConcurrencyToken) - Assert.Equal(ValueGenerated.Never, dependentMoney.ValueGenerated) - Assert.Equal("Money", dependentMoney.GetColumnName()) - Assert.Equal("TEXT", dependentMoney.GetColumnType()) - Assert.Null(dependentMoney.GetMaxLength()) - Assert.Null(dependentMoney.IsUnicode()) - Assert.Null(dependentMoney.IsFixedLength()) - Assert.Equal(9, dependentMoney.GetPrecision()) - Assert.Equal(3, dependentMoney.GetScale()) - - Assert.Equal( - { - derivedSkipNavigation.ForeignKey, - tptForeignKey, - referenceOwnership, - collectionOwnership, - dependentForeignKey, - derivedSkipNavigation.Inverse.ForeignKey - }, - principalKey.GetReferencingForeignKeys()) - - Assert.Equal( - {dependentBaseForeignKey, tptForeignKey, referenceOwnership, derivedSkipNavigation.Inverse.ForeignKey}, - aPrincipalBase.GetReferencingForeignKeys()) - - Assert.Equal( - {derivedSkipNavigation.ForeignKey, collectionOwnership, dependentForeignKey}, - principalDerived.GetDeclaredReferencingForeignKeys()) - - Assert.Equal( - { - dataEntity, - dependentBase, - dependentDerived, - manyTypesType, - aPrincipalBase, - referenceOwnedType, - principalDerived, - collectionOwnedType, - joinType - }, - model.GetEntityTypes()) - End Sub, - GetType(SqliteNetTopologySuiteDesignTimeServices)) - End Sub - - Public Class SqliteContext - Inherits Microsoft.EntityFrameworkCore.DbContext - - Private ReadOnly _jsonColumns As Boolean - - Public Sub New(Optional jsonColumns As Boolean = False) - _jsonColumns = jsonColumns - End Sub - - Protected Overrides Sub OnConfiguring(options As DbContextOptionsBuilder) - options. - EnableServiceProviderCaching(False). - UseSqlite(Sub(o) o.UseNetTopologySuite()) - End Sub - - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - modelBuilder.Model.RemoveAnnotation(CoreAnnotationNames.ProductVersion) - - modelBuilder.Entity(Of Data)( - Sub(eb) - eb.Property(Of Integer)("Id") - eb.HasKey("Id") - eb.Property(Of Point)("Point").HasSrid(1101) - End Sub) - - modelBuilder.Entity(Of PrincipalBase)( - Sub(eb) - If Not _jsonColumns Then - eb.Property(Function(e) e.Id).Metadata.SetColumnName("DerivedId", StoreObjectIdentifier.Table("PrincipalDerived")) - End If - - eb.Property(Function(e) e.FlagsEnum2). - HasSentinel(AFlagsEnum.C Or AFlagsEnum.B) - - eb.Property(Function(e) e.AlternateId). - UsePropertyAccessMode(PropertyAccessMode.FieldDuringConstruction) - - eb.Property(Of Point)("Point"). - HasColumnType("geometry"). - HasDefaultValue( - NtsGeometryServices.Instance.CreateGeometryFactory(srid:=0).CreatePoint(New CoordinateZM(0, 0, 0, 0))). - HasConversion(Of CastingConverter(Of Point, Point), CustomValueComparer(Of Point), CustomValueComparer(Of Point))() - - eb.HasIndex(Function(e) New With {e.AlternateId, e.Id}) - - eb.HasKey(Function(e) New With {e.Id, e.AlternateId}). - HasName("PK") - - eb.HasAlternateKey(Function(e) e.Id) - - eb.Property(Function(e) e.AlternateId).Metadata.SetJsonValueReaderWriterType( - If(_jsonColumns, - GetType(MyJsonGuidReaderWriter), - GetType(JsonGuidReaderWriter))) - - eb.OwnsOne( - Function(e) e.Owned, - Sub(ob) - ob.HasChangeTrackingStrategy(ChangeTrackingStrategy.ChangingAndChangedNotificationsWithOriginalValues) - ob.UsePropertyAccessMode(PropertyAccessMode.Field) - ob.Property(Function(e) e.Details) - - If _jsonColumns Then - ob.ToJson() - Else - ob.ToTable( - "PrincipalBase", "mySchema", - Function(t) t.Property("PrincipalBaseId").UseIdentityColumn(2, 3)) - - ob.SplitToTable("Details", Function(s) s.Property(Function(e) e.Details)) - - ob.HasData( - New With { - .Number = 10, - .PrincipalBaseId = 1L, - .PrincipalBaseAlternateId = New Guid() - }) - End If - End Sub) - - eb.Navigation(Function(e) e.Owned).IsRequired().HasField("_ownedField"). - UsePropertyAccessMode(PropertyAccessMode.Field) - - If not _jsonColumns Then - eb.HasData(New PrincipalBase With {.Id = 1, .AlternateId = New Guid()}) - - eb.ToTable("PrincipalBase", "mySchema") - end if - End Sub) - - modelBuilder.Entity(Of PrincipalDerived(Of DependentBase(Of Byte?)))( - Sub(eb) - eb.HasOne(Function(e) e.Dependent).WithOne(Function(e) e.Principal). - HasForeignKey(Of DependentBase(Of Byte?))(). - OnDelete(DeleteBehavior.ClientNoAction) - - eb.Navigation(Function(e) e.Dependent).AutoInclude().EnableLazyLoading(False) - - eb.OwnsMany( - GetType(OwnedType).FullName, "ManyOwned", - Sub(ob) - If _jsonColumns Then - ob.ToJson() - Else - ob.ToTable("ManyOwned", Function(t) t.IsMemoryOptimized().ExcludeFromMigrations()) - End If - End Sub) - - eb.HasMany(Function(e) e.Principals).WithMany( - Function(e) DirectCast(e.Deriveds, ICollection(Of PrincipalDerived(Of DependentBase(Of Byte?))))). - UsingEntity( - Sub(jb) - jb.ToTable(Function(tb) tb.HasComment("Join table")) - jb.Property(Of Byte())("rowid"). - IsRowVersion(). - HasComment("RowVersion"). - HasColumnOrder(1) - End Sub) - - eb.Navigation(Function(e) e.Principals).AutoInclude().EnableLazyLoading(False) - - If Not _jsonColumns Then - eb.ToTable("PrincipalDerived") - End If - End Sub) - - modelBuilder.Entity(Of DependentBase(Of Byte?))( - Sub(eb) - eb.Property(Of Byte?)("Id") - - eb.HasKey("PrincipalId", "PrincipalAlternateId") - - eb.HasOne(Of PrincipalBase)().WithOne(). - HasForeignKey(Of DependentBase(Of Byte?))("PrincipalId"). - HasPrincipalKey(Of PrincipalBase)(Function(e) e.Id) - - eb.HasDiscriminator(Of Enum1)("EnumDiscriminator"). - HasValue(Enum1.One). - HasValue(Of DependentDerived(Of Byte?))(Enum1.Two). - IsComplete(False) - End Sub) - - modelBuilder.Entity(Of DependentDerived(Of Byte?))( - Sub(eb) - eb.Property(Of String)("Data"). - HasMaxLength(20). - IsFixedLength(). - IsUnicode(False) - - eb.Property(Of Decimal)("Money"). - HasPrecision(9, 3) - End Sub) - - modelBuilder.Entity(Of ManyTypes)( - Sub(eb) - eb.Property(Function(e) e.Id).HasConversion(Of ManyTypesIdConverter)().ValueGeneratedOnAdd() - eb.HasKey(Function(e) e.Id) - - eb.Property(Function(e) e.Enum8AsString).HasConversion(Of String)() - eb.Property(Function(e) e.Enum16AsString).HasConversion(Of String)() - eb.Property(Function(e) e.Enum32AsString).HasConversion(Of String)() - eb.Property(Function(e) e.Enum64AsString).HasConversion(Of String)() - eb.Property(Function(e) e.EnumU8AsString).HasConversion(Of String)() - eb.Property(Function(e) e.EnumU16AsString).HasConversion(Of String)() - eb.Property(Function(e) e.EnumU32AsString).HasConversion(Of String)() - eb.Property(Function(e) e.EnumU64AsString).HasConversion(Of String)() - - eb.PrimitiveCollection(Function(e) e.Enum8AsStringCollection).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.Enum16AsStringCollection).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.Enum32AsStringCollection).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.Enum64AsStringCollection).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.EnumU8AsStringCollection).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.EnumU16AsStringCollection).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.EnumU32AsStringCollection).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.EnumU64AsStringCollection).ElementType(Function(b) b.HasConversion(Of String)()) - - eb.PrimitiveCollection(Function(e) e.Enum8AsStringArray).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.Enum16AsStringArray).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.Enum32AsStringArray).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.Enum64AsStringArray).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.EnumU8AsStringArray).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.EnumU16AsStringArray).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.EnumU32AsStringArray).ElementType(Function(b) b.HasConversion(Of String)()) - eb.PrimitiveCollection(Function(e) e.EnumU64AsStringArray).ElementType(Function(b) b.HasConversion(Of String)()) - - eb.Property(Function(e) e.BoolToStringConverterProperty).HasConversion(New BoolToStringConverter("A", "B")) - eb.Property(Function(e) e.BoolToTwoValuesConverterProperty).HasConversion(New BoolToTwoValuesConverter(Of Byte)(0, 1)) - eb.Property(Function(e) e.BoolToZeroOneConverterProperty).HasConversion(Of BoolToZeroOneConverter(Of Short))() - eb.Property(Function(e) e.BytesToStringConverterProperty).HasConversion(Of BytesToStringConverter)() - eb.Property(Function(e) e.CastingConverterProperty).HasConversion(Of CastingConverter(Of Integer, Decimal))() - eb.Property(Function(e) e.CharToStringConverterProperty).HasConversion(Of CharToStringConverter)() - eb.Property(Function(e) e.DateOnlyToStringConverterProperty).HasConversion(Of DateOnlyToStringConverter)() - eb.Property(Function(e) e.DateTimeOffsetToBinaryConverterProperty).HasConversion(Of DateTimeOffsetToBinaryConverter)() - eb.Property(Function(e) e.DateTimeOffsetToBytesConverterProperty).HasConversion(Of DateTimeOffsetToBytesConverter)() - eb.Property(Function(e) e.DateTimeOffsetToStringConverterProperty).HasConversion(Of DateTimeOffsetToStringConverter)() - eb.Property(Function(e) e.DateTimeToBinaryConverterProperty).HasConversion(Of DateTimeToBinaryConverter)() - eb.Property(Function(e) e.DateTimeToStringConverterProperty).HasConversion(Of DateTimeToStringConverter)() - eb.Property(Function(e) e.EnumToNumberConverterProperty).HasConversion(Of EnumToNumberConverter(Of Enum32, Integer))() - eb.Property(Function(e) e.EnumToStringConverterProperty).HasConversion(Of EnumToStringConverter(Of Enum32))() - eb.Property(Function(e) e.GuidToBytesConverterProperty).HasConversion(Of GuidToBytesConverter)() - eb.Property(Function(e) e.GuidToStringConverterProperty).HasConversion(Of GuidToStringConverter)() - eb.Property(Function(e) e.IPAddressToBytesConverterProperty).HasConversion(Of IPAddressToBytesConverter)() - eb.Property(Function(e) e.IPAddressToStringConverterProperty).HasConversion(Of IPAddressToStringConverter)() - eb.Property(Function(e) e.IntNumberToBytesConverterProperty).HasConversion(Of NumberToBytesConverter(Of Integer))() - eb.Property(Function(e) e.DecimalNumberToBytesConverterProperty).HasConversion(Of NumberToBytesConverter(Of Decimal))() - eb.Property(Function(e) e.DoubleNumberToBytesConverterProperty).HasConversion(Of NumberToBytesConverter(Of Double))() - eb.Property(Function(e) e.IntNumberToStringConverterProperty).HasConversion(Of NumberToStringConverter(Of Integer))() - eb.Property(Function(e) e.DecimalNumberToStringConverterProperty).HasConversion(Of NumberToStringConverter(Of Decimal))() - eb.Property(Function(e) e.DoubleNumberToStringConverterProperty).HasConversion(Of NumberToStringConverter(Of Double))() - eb.Property(Function(e) e.PhysicalAddressToBytesConverterProperty).HasConversion(Of PhysicalAddressToBytesConverter)() - eb.Property(Function(e) e.PhysicalAddressToStringConverterProperty).HasConversion(Of PhysicalAddressToStringConverter)() - eb.Property(Function(e) e.StringToBoolConverterProperty).HasConversion(Of StringToBoolConverter)() - eb.Property(Function(e) e.StringToBytesConverterProperty).HasConversion(New StringToBytesConverter(Text.Encoding.UTF32)) - eb.Property(Function(e) e.StringToCharConverterProperty).HasConversion(Of StringToCharConverter)() - eb.Property(Function(e) e.StringToDateOnlyConverterProperty).HasConversion(Of StringToDateOnlyConverter)() - eb.Property(Function(e) e.StringToDateTimeConverterProperty).HasConversion(Of StringToDateTimeConverter)() - eb.Property(Function(e) e.StringToDateTimeOffsetConverterProperty).HasConversion(Of StringToDateTimeOffsetConverter)() - eb.Property(Function(e) e.StringToEnumConverterProperty).HasConversion(Of StringToEnumConverter(Of EnumU32))() - eb.Property(Function(e) e.StringToIntNumberConverterProperty).HasConversion(Of StringToNumberConverter(Of Integer))() - eb.Property(Function(e) e.StringToDecimalNumberConverterProperty).HasConversion(Of StringToNumberConverter(Of Decimal))() - eb.Property(Function(e) e.StringToDoubleNumberConverterProperty).HasConversion(Of StringToNumberConverter(Of Double))() - eb.Property(Function(e) e.StringToTimeOnlyConverterProperty).HasConversion(Of StringToTimeOnlyConverter)() - eb.Property(Function(e) e.StringToTimeSpanConverterProperty).HasConversion(Of StringToTimeSpanConverter)() - eb.Property(Function(e) e.StringToUriConverterProperty).HasConversion(Of StringToUriConverter)() - eb.Property(Function(e) e.TimeOnlyToStringConverterProperty).HasConversion(Of TimeOnlyToStringConverter)() - eb.Property(Function(e) e.TimeOnlyToTicksConverterProperty).HasConversion(Of TimeOnlyToTicksConverter)() - eb.Property(Function(e) e.TimeSpanToStringConverterProperty).HasConversion(Of TimeSpanToStringConverter)() - eb.Property(Function(e) e.TimeSpanToTicksConverterProperty).HasConversion(Of TimeSpanToTicksConverter)() - eb.Property(Function(e) e.UriToStringConverterProperty).HasConversion(Of UriToStringConverter)() - eb.Property(Function(e) e.NullIntToNullStringConverterProperty).HasConversion(Of NullIntToNullStringConverter)() - End Sub) - End Sub - End Class - - Public Class NullIntToNullStringConverter - Inherits ValueConverter(Of Integer?, String) - Public Sub New() - MyBase.New(Function(v) If(v Is Nothing, Nothing, v.ToString()), Function(v) If(v Is Nothing OrElse v = "", Nothing, Integer.Parse(v)), convertsNulls:=True) - End Sub - End Class - - - Public Sub Cosmos() - - Dim rm1 = - -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - - Public Partial Class CosmosContextModel - Inherits RuntimeModel - - Private Shared ReadOnly _useOldBehavior31751 As Boolean - - Private Shared _Instance As CosmosContextModel - Public Shared ReadOnly Property Instance As IModel - Get - Return _Instance - End Get - End Property - - Shared Sub New() - Dim enabled31751 As Boolean - _useOldBehavior31751 = System.AppContext.TryGetSwitch("Microsoft.EntityFrameworkCore.Issue31751", enabled31751) AndAlso enabled31751 - - Dim model As New CosmosContextModel() - If _useOldBehavior31751 Then - model.Initialize() - Else - Dim thread = New System.Threading.Thread(Sub() model.Initialize(), 10 * 1024 * 1024) - thread.Start() - thread.Join() - End If - - model.Customize() - _Instance = model - End Sub - - Partial Private Sub Initialize() - End Sub - - Partial Private Sub Customize() - End Sub - End Class -End Namespace -]]>.Value - - - Dim rm2 = - -Imports System -Imports Microsoft.EntityFrameworkCore.Infrastructure -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.VisualBasic - -Namespace TestNamespace - Public Partial Class CosmosContextModel - - Private Sub Initialize() - Dim data = DataEntityType.Create(Me) - - DataEntityType.CreateAnnotations(data) - - AddAnnotation("Cosmos:ContainerName", "Default") - End Sub - End Class -End Namespace -]]>.Value - - - Dim e2 = - -Imports System -Imports System.Collections -Imports System.Globalization -Imports System.Linq -Imports System.Reflection -Imports EntityFrameworkCore.VisualBasic.Scaffolding.Internal -Imports Microsoft.EntityFrameworkCore.ChangeTracking -Imports Microsoft.EntityFrameworkCore.Cosmos.Storage.Internal -Imports Microsoft.EntityFrameworkCore.Cosmos.ValueGeneration.Internal -Imports Microsoft.EntityFrameworkCore.Metadata -Imports Microsoft.EntityFrameworkCore.Storage -Imports Microsoft.EntityFrameworkCore.Storage.Json -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion -Imports Microsoft.VisualBasic -Imports Newtonsoft.Json.Linq - -Namespace TestNamespace - Friend Partial Class DataEntityType - - Public Shared Function Create(model As RuntimeModel, Optional baseEntityType As RuntimeEntityType = Nothing) As RuntimeEntityType - Dim entityType = model.AddEntityType( - "EntityFrameworkCore.VisualBasic.Scaffolding.Internal.VisualBasicRuntimeModelCodeGeneratorTest+Data", - GetType(VisualBasicRuntimeModelCodeGeneratorTest.Data), - baseEntityType) - - Dim id = entityType.AddProperty( - "Id", - GetType(Integer), - afterSaveBehavior:=PropertySaveBehavior.Throw, - sentinel:=0) - id.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(CosmosTypeMapping.Default, { - Type.Missing, - GetType(Integer), - Type.Missing, - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - New ValueComparer(Of Integer)( - Function(v1 As Integer, v2 As Integer) v1 = v2, - Function(v As Integer) v, - Function(v As Integer) v), - Type.Missing, - JsonInt32ReaderWriter.Instance}), CoreTypeMapping) - - Dim partitionId = entityType.AddProperty( - "PartitionId", - GetType(Long?), - afterSaveBehavior:=PropertySaveBehavior.Throw, - providerPropertyType:=GetType(String)) - partitionId.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(CosmosTypeMapping.Default, { - Type.Missing, - Type.Missing, - New ValueConverter(Of Long, String)( - Function(v As Long) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) Long.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture)), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of Long?)( - Function(v1 As Nullable(Of Long), v2 As Nullable(Of Long)) v1.HasValue AndAlso v2.HasValue AndAlso CType(v1, Long) = CType(v2, Long) OrElse Not(v1.HasValue) AndAlso Not(v2.HasValue), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(v, Long).GetHashCode(), 0), - Function(v As Nullable(Of Long)) If(v.HasValue, CType(CType(v, Long), Nullable(Of Long)), CType(Nothing, Nullable(Of Long)))), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - New JsonConvertedValueReaderWriter(Of Long, String)( - JsonStringReaderWriter.Instance, - New ValueConverter(Of Long, String)( - Function(v As Long) String.Format(CultureInfo.InvariantCulture, "{0}", CType(v, Object)), - Function(v As String) Long.Parse(v, NumberStyles.Any, CultureInfo.InvariantCulture)))}), CoreTypeMapping) - - Dim blob = entityType.AddProperty( - "Blob", - GetType(Byte()), - propertyInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.Data).GetProperty("Blob", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - fieldInfo:=GetType(VisualBasicRuntimeModelCodeGeneratorTest.Data).GetField("_Blob", BindingFlags.NonPublic Or BindingFlags.Instance Or BindingFlags.DeclaredOnly), - nullable:=True) - blob.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(CosmosTypeMapping.Default, { - Type.Missing, - GetType(Byte()), - Type.Missing, - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) If(v1 Is Nothing, v2 Is Nothing, v2 IsNot Nothing AndAlso v1.Length = v2.Length AndAlso v1 Is v2 OrElse v1.Zip(v2, Function(v10 As Byte, v20 As Byte) v10 = v20).All(Function(v As Boolean) v)), - Function(v As Byte()) v.Aggregate(New HashCode(), Function(h As HashCode, e As Byte) ValueComparer.Add(h, CType(e, Integer)), Function(h As HashCode) h.ToHashCode()), - Function(v As Byte()) v.Select(Function(v0 As Byte) v0).ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - New ValueComparer(Of Byte())( - Function(v1 As Byte(), v2 As Byte()) StructuralComparisons.StructuralEqualityComparer.Equals(CType(v1, Object), CType(v2, Object)), - Function(v As Byte()) StructuralComparisons.StructuralEqualityComparer.GetHashCode(CType(v, Object)), - Function(source As Byte()) source.ToArray()), - Type.Missing, - JsonByteArrayReaderWriter.Instance}), CoreTypeMapping) - blob.AddAnnotation("Cosmos:PropertyName", "JsonBlob") - - Dim __id = entityType.AddProperty( - "__id", - GetType(String), - afterSaveBehavior:=PropertySaveBehavior.Throw, - valueGeneratorFactory:=AddressOf New IdValueGeneratorFactory().Create) - __id.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(CosmosTypeMapping.Default, { - Type.Missing, - GetType(String), - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - JsonStringReaderWriter.Instance}), CoreTypeMapping) - __id.AddAnnotation("Cosmos:PropertyName", "id") - - Dim __jObject = entityType.AddProperty( - "__jObject", - GetType(JObject), - nullable:=True, - valueGenerated:=ValueGenerated.OnAddOrUpdate, - beforeSaveBehavior:=PropertySaveBehavior.Ignore, - afterSaveBehavior:=PropertySaveBehavior.Ignore) - __jObject.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(CosmosTypeMapping.Default, { - Type.Missing, - GetType(JObject), - Type.Missing, - New ValueComparer(Of JObject)( - Function(v1 As JObject, v2 As JObject) Object.Equals(v1, v2), - Function(v As JObject) v.GetHashCode(), - Function(v As JObject) v), - New ValueComparer(Of JObject)( - Function(v1 As JObject, v2 As JObject) Object.Equals(v1, v2), - Function(v As JObject) v.GetHashCode(), - Function(v As JObject) v), - New ValueComparer(Of JObject)( - Function(v1 As JObject, v2 As JObject) Object.Equals(v1, v2), - Function(v As JObject) v.GetHashCode(), - Function(v As JObject) v), - Type.Missing, - Type.Missing}), CoreTypeMapping) - __jObject.AddAnnotation("Cosmos:PropertyName", "") - - Dim _etag = entityType.AddProperty( - "_etag", - GetType(String), - nullable:=True, - concurrencyToken:=True, - valueGenerated:=ValueGenerated.OnAddOrUpdate, - beforeSaveBehavior:=PropertySaveBehavior.Ignore, - afterSaveBehavior:=PropertySaveBehavior.Ignore) - _etag.TypeMapping = DirectCast(GetType(CoreTypeMapping). - GetMethod("Clone", BindingFlags.Public Or BindingFlags.Instance Or BindingFlags.DeclaredOnly). - Invoke(CosmosTypeMapping.Default, { - Type.Missing, - GetType(String), - Type.Missing, - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - New ValueComparer(Of String)( - Function(v1 As String, v2 As String) v1 = v2, - Function(v As String) v.GetHashCode(), - Function(v As String) v), - Type.Missing, - JsonStringReaderWriter.Instance}), CoreTypeMapping) - - Dim key = entityType.AddKey( - {id, partitionId}) - entityType.SetPrimaryKey(key) - - Dim key0 = entityType.AddKey( - {__id, partitionId}) - - Return entityType - End Function - - Public Shared Sub CreateAnnotations(entityType As RuntimeEntityType) - entityType.AddAnnotation("Cosmos:ContainerName", "DataContainer") - entityType.AddAnnotation("Cosmos:ETagName", "_etag") - entityType.AddAnnotation("Cosmos:PartitionKeyName", "PartitionId") - - Customize(entityType) - End Sub - - Shared Partial Private Sub Customize(entityType As RuntimeEntityType) - End Sub - End Class -End Namespace -]]>.Value - - Test( - New CosmosContext(), - CreateCompiledModelCodeGenerationOptions(), - Sub(code) - Assert.Collection(code, - Sub(c) AssertFileContents("CosmosContextModel.vb", rm1, c), - Sub(c) AssertFileContents("CosmosContextModelBuilder.vb", rm2, c), - Sub(c) AssertFileContents("DataEntityType.vb", e2, c)) - End Sub, - Sub(model) - Assert.Single(model.GetEntityTypes()) - Dim dataEntity = model.FindEntityType(GetType(Data)) - Assert.Equal(GetType(Data).FullName, dataEntity.Name) - Assert.False(dataEntity.HasSharedClrType) - Assert.False(dataEntity.IsPropertyBag) - Assert.False(dataEntity.IsOwned()) - Assert.IsType(Of ConstructorBinding)(dataEntity.ConstructorBinding) - Assert.Null(dataEntity.FindIndexerPropertyInfo()) - Assert.Equal(ChangeTrackingStrategy.Snapshot, dataEntity.GetChangeTrackingStrategy()) - Assert.Equal("DataContainer", dataEntity.GetContainer()) - Assert.Null(dataEntity.FindDiscriminatorProperty()) - - Dim id = dataEntity.FindProperty("Id") - Assert.Equal(GetType(Integer), id.ClrType) - Assert.Null(id.PropertyInfo) - Assert.Null(id.FieldInfo) - Assert.False(id.IsNullable) - Assert.False(id.IsConcurrencyToken) - Assert.Equal(ValueGenerated.Never, id.ValueGenerated) - Assert.Equal(PropertySaveBehavior.Throw, id.GetAfterSaveBehavior()) - Assert.Equal(PropertySaveBehavior.Save, id.GetBeforeSaveBehavior()) - Assert.Equal("Id", CosmosPropertyExtensions.GetJsonPropertyName(id)) - Assert.Null(id.GetValueGeneratorFactory()) - Assert.Null(id.GetValueConverter()) - Assert.NotNull(id.GetValueComparer()) - Assert.NotNull(id.GetKeyValueComparer()) - - Dim storeId = dataEntity.FindProperty("__id") - Assert.Equal(GetType(String), storeId.ClrType) - Assert.Null(storeId.PropertyInfo) - Assert.Null(storeId.FieldInfo) - Assert.False(storeId.IsNullable) - Assert.False(storeId.IsConcurrencyToken) - Assert.Equal(ValueGenerated.Never, storeId.ValueGenerated) - Assert.Equal(PropertySaveBehavior.Throw, storeId.GetAfterSaveBehavior()) - Assert.Equal(PropertySaveBehavior.Save, storeId.GetBeforeSaveBehavior()) - Assert.Equal("id", CosmosPropertyExtensions.GetJsonPropertyName(storeId)) - Assert.IsType(Of IdValueGenerator)(storeId.GetValueGeneratorFactory()(storeId, dataEntity)) - Assert.Null(storeId.GetValueConverter()) - Assert.NotNull(storeId.GetValueComparer()) - Assert.NotNull(storeId.GetKeyValueComparer()) - - Dim partitionId = dataEntity.FindProperty("PartitionId") - Assert.Equal(GetType(Long?), partitionId.ClrType) - Assert.Null(partitionId.PropertyInfo) - Assert.Null(partitionId.FieldInfo) - Assert.False(partitionId.IsNullable) - Assert.False(partitionId.IsConcurrencyToken) - Assert.Equal(ValueGenerated.Never, partitionId.ValueGenerated) - Assert.Equal(PropertySaveBehavior.Throw, partitionId.GetAfterSaveBehavior()) - Assert.Equal(PropertySaveBehavior.Save, partitionId.GetBeforeSaveBehavior()) - Assert.Equal("PartitionId", CosmosPropertyExtensions.GetJsonPropertyName(partitionId)) - Assert.Null(partitionId.GetValueGeneratorFactory()) - Assert.Null(partitionId.GetValueConverter()) - Assert.Equal("1", partitionId.FindTypeMapping().Converter.ConvertToProvider(1)) - Assert.NotNull(partitionId.GetValueComparer()) - Assert.NotNull(partitionId.GetKeyValueComparer()) - - Dim eTag = dataEntity.FindProperty("_etag") - Assert.Equal(GetType(String), eTag.ClrType) - Assert.Null(eTag.PropertyInfo) - Assert.Null(eTag.FieldInfo) - Assert.True(eTag.IsNullable) - Assert.True(eTag.IsConcurrencyToken) - Assert.Equal(ValueGenerated.OnAddOrUpdate, eTag.ValueGenerated) - Assert.Equal(PropertySaveBehavior.Ignore, eTag.GetAfterSaveBehavior()) - Assert.Equal(PropertySaveBehavior.Ignore, eTag.GetBeforeSaveBehavior()) - Assert.Equal("_etag", CosmosPropertyExtensions.GetJsonPropertyName(eTag)) - Assert.Null(eTag.GetValueGeneratorFactory()) - Assert.Null(eTag.GetValueConverter()) - Assert.NotNull(eTag.GetValueComparer()) - Assert.NotNull(eTag.GetKeyValueComparer()) - Assert.Equal("_etag", dataEntity.GetETagPropertyName()) - Assert.Same(eTag, dataEntity.GetETagProperty()) - - Dim blob = dataEntity.FindProperty(NameOf(Data.Blob)) - Assert.Equal(GetType(Byte()), blob.ClrType) - Assert.Equal(NameOf(Data.Blob), blob.PropertyInfo.Name) - Assert.Equal("_Blob", blob.FieldInfo.Name) - Assert.True(blob.IsNullable) - Assert.False(blob.IsConcurrencyToken) - Assert.Equal(ValueGenerated.Never, blob.ValueGenerated) - Assert.Equal(PropertySaveBehavior.Save, blob.GetAfterSaveBehavior()) - Assert.Equal(PropertySaveBehavior.Save, blob.GetBeforeSaveBehavior()) - Assert.Equal("JsonBlob", CosmosPropertyExtensions.GetJsonPropertyName(blob)) - Assert.Null(blob.GetValueGeneratorFactory()) - Assert.Null(blob.GetValueConverter()) - Assert.NotNull(blob.GetValueComparer()) - Assert.NotNull(blob.GetKeyValueComparer()) - - Dim jObject = dataEntity.FindProperty("__jObject") - Assert.Equal(GetType(JObject), jObject.ClrType) - Assert.Null(jObject.PropertyInfo) - Assert.Null(jObject.FieldInfo) - Assert.True(jObject.IsNullable) - Assert.False(jObject.IsConcurrencyToken) - Assert.Equal(ValueGenerated.OnAddOrUpdate, jObject.ValueGenerated) - Assert.Equal(PropertySaveBehavior.Ignore, jObject.GetAfterSaveBehavior()) - Assert.Equal(PropertySaveBehavior.Ignore, jObject.GetBeforeSaveBehavior()) - Assert.Equal("", CosmosPropertyExtensions.GetJsonPropertyName(jObject)) - Assert.Null(jObject.GetValueGeneratorFactory()) - Assert.Null(jObject.GetValueConverter()) - Assert.NotNull(jObject.GetValueComparer()) - Assert.NotNull(jObject.GetKeyValueComparer()) - - Assert.Equal(2, dataEntity.GetKeys().Count()) - - Assert.Equal({id, partitionId, blob, storeId, jObject, eTag}, dataEntity.GetProperties()) - End Sub) - End Sub - - Public Class CosmosContext - Inherits DbContext - - Protected Overrides Sub OnConfiguring(options As DbContextOptionsBuilder) - options. - EnableServiceProviderCaching(False). - UseCosmos("localhost", "_", "_") - End Sub - - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - modelBuilder.Model.RemoveAnnotation(CoreAnnotationNames.ProductVersion) - - modelBuilder.HasDefaultContainer("Default") - - modelBuilder.Entity(Of Data)(Sub(eb) - eb.Property(Of Integer)("Id") - eb.Property(Of Long?)("PartitionId").HasConversion(Of String)() - eb.HasPartitionKey("PartitionId") - eb.HasKey("Id", "PartitionId") - eb.ToContainer("DataContainer") - eb.UseETagConcurrency() - eb.HasNoDiscriminator() - eb.Property(Function(d) d.Blob).ToJsonProperty("JsonBlob") - End Sub) - End Sub - End Class - - Public Class Data - Public Property Blob As Byte() - End Class - - Public MustInherit Class ContextBase - Inherits DbContext - - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - modelBuilder.Model.RemoveAnnotation(CoreAnnotationNames.ProductVersion) - End Sub - - Protected Overrides Sub OnConfiguring(options As DbContextOptionsBuilder) - options.EnableServiceProviderCaching(False). - UseInMemoryDatabase(NameOf(VisualBasicRuntimeModelCodeGeneratorTest)) - End Sub - End Class - - Public MustInherit Class SqlServerContextBase - Inherits DbContext - - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - modelBuilder.Model.RemoveAnnotation(CoreAnnotationNames.ProductVersion) - End Sub - - Protected Overrides Sub OnConfiguring(options As DbContextOptionsBuilder) - options. - EnableServiceProviderCaching(False). - UseSqlServer(Function(o) o.UseNetTopologySuite()) - End Sub - End Class - - Protected Sub Test(context As DbContext, - options As CompiledModelCodeGenerationOptions, - Optional assertScaffold As Action(Of IReadOnlyCollection(Of ScaffoldedFile)) = Nothing, - Optional assertModel As Action(Of IModel) = Nothing, - Optional additionalDesignTimeServices As Type = Nothing, - Optional expectedExceptionMessage As String = Nothing) - - Dim model = context.GetService(Of IDesignTimeModel)().Model - - Dim services As New ServiceCollection() - - services.AddEntityFrameworkDesignTimeServices() - - Dim vbServices As New EFCoreVisualBasicServices - vbServices.ConfigureDesignTimeServices(services) - - If additionalDesignTimeServices IsNot Nothing Then - ConfigureDesignTimeServices(additionalDesignTimeServices, services) - End If - - ConfigureProviderServices(context.GetService(Of IDatabaseProvider)().Name, services) - ConfigureVisualBasicProviderServices(context.GetService(Of IDatabaseProvider)().Name, services) - - options.ModelNamespace = If(options.ModelNamespace, "TestNamespace") - options.ContextType = context.GetType() - - Dim generator = services. - BuildServiceProvider(validateScopes:=True). - GetRequiredService(Of ICompiledModelCodeGeneratorSelector)(). - Select(options) - - If expectedExceptionMessage IsNot Nothing Then - Assert.Equal(expectedExceptionMessage, - Assert.Throws(Of InvalidOperationException)(Sub() generator.GenerateModel(model, options)).Message) - Exit Sub - End If - - Dim scaffoldedFiles = generator.GenerateModel(model, options) - - Dim build As New BuildSource With { - .Sources = scaffoldedFiles.ToDictionary(Function(f) f.Path, Function(f) f.Code) - } - - With build.References - .Add(BuildReference.ByName("System.Linq")) - .Add(BuildReference.ByName("System.Net.Primitives")) - .Add(BuildReference.ByName("System.Net.NetworkInformation")) - .Add(BuildReference.ByName("System.Threading.Thread")) - .Add(BuildReference.ByName("Microsoft.EntityFrameworkCore")) - .Add(BuildReference.ByName("Microsoft.EntityFrameworkCore.Abstractions")) - .Add(BuildReference.ByName("Microsoft.EntityFrameworkCore.Cosmos")) - .Add(BuildReference.ByName("Microsoft.EntityFrameworkCore.InMemory")) - .Add(BuildReference.ByName("Microsoft.EntityFrameworkCore.Proxies")) - .Add(BuildReference.ByName("Microsoft.EntityFrameworkCore.Relational")) - .Add(BuildReference.ByName("Microsoft.EntityFrameworkCore.Sqlite")) - .Add(BuildReference.ByName("Microsoft.EntityFrameworkCore.Sqlite.NetTopologySuite")) - .Add(BuildReference.ByName("Microsoft.EntityFrameworkCore.SqlServer")) - .Add(BuildReference.ByName("Microsoft.EntityFrameworkCore.SqlServer.NetTopologySuite")) - .Add(BuildReference.ByName("Microsoft.EntityFrameworkCore.Specification.Tests")) - .Add(BuildReference.ByName("NetTopologySuite")) - .Add(BuildReference.ByName("Newtonsoft.Json")) - .Add(BuildReference.ByName(GetType(VisualBasicRuntimeModelCodeGeneratorTest).Assembly.GetName().Name)) - .Add(BuildReference.ByName(GetType(MyJsonGuidReaderWriter).Assembly.GetName().Name)) - End With - - Dim assembly = build.BuildInMemory() - - Dim modelTypeName = options.ContextType.Name & "Model" - Dim modelType = assembly.GetType( - If(String.IsNullOrEmpty(options.ModelNamespace), - modelTypeName, - options.ModelNamespace & "." & modelTypeName)) - Dim instancePropertyInfo = modelType.GetProperty("Instance", BindingFlags.Public Or BindingFlags.Static) - Dim compiledModel = DirectCast(instancePropertyInfo.GetValue(Nothing), IModel) - - Dim ModelRuntimeInitializer = context.GetService(Of IModelRuntimeInitializer)() - compiledModel = ModelRuntimeInitializer.Initialize(compiledModel, designTime:=False) - assertModel(compiledModel) - - Dim RelationalModel = TryCast(context.Model.FindRuntimeAnnotationValue(RelationalAnnotationNames.RelationalModel), IRelationalModel) - If RelationalModel IsNot Nothing Then - Metadata.RelationalModelTest.AssertEqual(RelationalModel, compiledModel.GetRelationalModel()) - End If - - If assertScaffold IsNot Nothing Then - assertScaffold(scaffoldedFiles) - End If - End Sub - - Private Sub ConfigureProviderServices(provider As String, services As IServiceCollection) - Dim providerAssembly = Assembly.Load(New AssemblyName(provider)) - - Dim providerServicesAttribute = providerAssembly.GetCustomAttribute(Of DesignTimeProviderServicesAttribute) - If providerServicesAttribute Is Nothing Then - Throw New InvalidOperationException(DesignStrings.CannotFindDesignTimeProviderAssemblyAttribute(provider)) - End If - - Dim designTimeServicesType = providerAssembly.GetType( - providerServicesAttribute.TypeName, - throwOnError:=True, - ignoreCase:=False) - - ConfigureDesignTimeServices(designTimeServicesType, services) - End Sub - - Private Sub ConfigureVisualBasicProviderServices(provider As String, services As IServiceCollection) - - Dim VBAssembly = Assembly.Load("EntityFrameworkCore.VisualBasic") - - Dim Types = VBAssembly.GetTypes(). - Where(Function(t) t.GetCustomAttributes(Of VisualBasicDesignTimeProviderServicesAttribute). - Any(Function(x) x.ProviderName IsNot Nothing AndAlso - x.ProviderName = provider)). - ToList() - - Types.ForEach(Sub(t) ConfigureDesignTimeServices(t, services)) - End Sub - - Private Shared Sub ConfigureDesignTimeServices(designTimeServicesType As Type, - services As IServiceCollection) - Dim designTimeServices = DirectCast(Activator.CreateInstance(designTimeServicesType), IDesignTimeServices) - designTimeServices.ConfigureDesignTimeServices(services) - End Sub - - Protected Shared Sub AssertFileContents(expectedPath As String, - expectedCode As String, - file As ScaffoldedFile) - - Assert.Equal(expectedPath, file.Path) - Assert.Equal(expectedCode, file.Code, ignoreLineEndingDifferences:=True) - End Sub - - Private Function CreateCompiledModelCodeGenerationOptions() As CompiledModelCodeGenerationOptions - Return New CompiledModelCodeGenerationOptions With {.Language = "VB"} - End Function - End Class - - Public Class Internal - Public Property Id As Long - End Class - - Public Class Index - Public Property Id As Guid - End Class - - Public Class IdentityUser - Inherits TestModels.AspNetIdentity.IdentityUser - End Class - - Public Class SelfReferentialEntity - Public Property Id As Long - - Public Property Collection As SelfReferentialProperty - End Class - - Public Class SelfReferentialProperty - Inherits List(Of SelfReferentialProperty) - End Class -End Namespace - -Namespace Scaffolding.TestModel.Internal - Public Class DbContext - Inherits ContextBase - - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - - MyBase.OnModelCreating(modelBuilder) - - modelBuilder.Entity(Of Scaffolding.Internal.Index)() - modelBuilder.Entity(Of TestModels.AspNetIdentity.IdentityUser)() - modelBuilder.Entity(Of IdentityUser)( - Sub(eb) - eb.HasDiscriminator().HasValue("DerivedIdentityUser") - End Sub) - modelBuilder.Entity(Of Scaffolding.Internal.Internal)() - End Sub - End Class - - Public Class SelfReferentialDbContext - Inherits ContextBase - - Protected Overrides Sub OnModelCreating(modelBuilder As ModelBuilder) - MyBase.OnModelCreating(modelBuilder) - - modelBuilder.Entity(Of Scaffolding.Internal.SelfReferentialEntity)( - Sub(eb) - eb.Property(Function(e) e.Collection).HasConversion(GetType(SelfReferentialPropertyValueConverter)) - End Sub) - End Sub - End Class - - Public Class SelfReferentialPropertyValueConverter - Inherits ValueConverter(Of Scaffolding.Internal.SelfReferentialProperty, String) - - Public Sub New() - Me.New(Nothing) - End Sub - - Public Sub New(hints As ConverterMappingHints) - MyBase.New(Function(v) Nothing, Function(v) Nothing, hints) - End Sub - End Class -End Namespace