Question

我正在寻找使用Entity Framework 5和Database First（连接到SQL Server 2008 R2）创建VB.NET 11 WPF MVVM应用程序。

我选择了Database First，因为我正在将现有解决方案迁移到WPF MVVM，当然数据库已经存在。

我想开始使用依赖注入，因此我可以对尽可能多的代码进行单元测试。

我似乎无法找到如何在EF DB-First中使用依赖注入，尤其是vb.net的简明扼要的演练。虽然即使是C＃的例子也不错，但我确定。

我真正喜欢的是一个简单的分步指南，解释如何设置解决方案，如何为依赖注入等设置每个部分，但这些似乎很难得到。

到目前为止，我已经创建了解决方案及其项目，如下所示;

DBAccess - 这里只包含我的.edmx文件，以及一个能够将ConnectionString提供给构造函数的小mod。
DBControl - 这里包含了我用来在EDMX和ViewModel之间提供图层的各种类。具体来说，我在这里填写复杂类型（我使用设计器创建），用于通过UI显示“Friendlier”数据，以及将这些“友好”复杂类型转换为映射实体以进行保存/更新。我的数据库中每个表都有一个类。每个方法都有两个“FetchFriendlyRecords”方法（一个接受过滤器）和一个“ AddUpdateFriendlyRecord ”方法。我为每个类创建了一个接口。每个类在它的构造函数中接受一个DbContext，我只是从DBAccess项目传递我的DBContext。
MainUI - 它包含我的MVVM层，并引用DBControl项目中的每个类以提供DataBinding等。

我见过建议，不要花时间编写复杂的解决方案来使用EF进行单元测试，而是创建一个填充了测试数据的公司模拟数据库，并简单地将代码指向模拟数据库，而不是现场的。但是，我更愿意能够创建一个内存解决方案，无需点击SQL Server即可运行。

任何帮助都会很棒，包括告诉我这是不是错了！

更新

我已经采取了Paul Kirby在下面提供的解决方案，并且创建了一个“排序”的存储库模式我相信。

我创建了一个界面;

Public Interface IFriendlyRepository(Of T)
        ReadOnly Property FriendlyRecords As ObservableCollection(Of T)
        Function GetFilteredFriendlyRecords(predicates As List(of Func(Of T, Boolean))) As ObservableCollection(Of T)
        Function AddEditFriendlyRecord(ByVal RecordToSave As T) As EntityException
        Sub SaveData()
End Interface

然后我逐个类地实现了这个接口;

Namespace Repositories
    Public Class clsCurrenciesRepository
        Implements Interfaces.IFriendlyRepository(Of CriticalPathDB.FriendlyCurrencies)

        Private _DBContext As CriticalPathEntities                          'The Data Context

        Public Sub New(ByVal Context As DbContext)   
            _DBContext = Context
        End Sub

        Public ReadOnly Property FriendlyRecords As ObservableCollection(Of FriendlyCurrencies) Implements Interfaces.IFriendlyRepository(Of CriticalPathDB.FriendlyCurrencies).FriendlyRecords
            Get
                ' We need to convert the results of a Linq to SQL stored procedure to a list,
                ' otherwise we get an error stating that the query cannot be enumerated twice!
                Dim Query = (From Currencies In _DBContext.Currencies.ToList
                             Group Join CreationUsers In _DBContext.Users.ToList
                             On Currencies.CreationUserCode Equals CreationUsers.User_Code Into JoinedCreationUsers = Group
                             From CreationUsers In JoinedCreationUsers.DefaultIfEmpty
                             Group Join UpdateUsers In _DBContext.Users.ToList
                             On Currencies.LastUpdateUserCode Equals UpdateUsers.User_Code Into JoinedUpdateUsers = Group
                             From UpdateUsers In JoinedUpdateUsers.DefaultIfEmpty
                             Where (Currencies.Deleted = False Or Currencies.Deleted Is Nothing)
                             Order By Currencies.NAME
                             Select New FriendlyCurrencies With {.Currency_Code = Currencies.Currency_Code,
                                                                .NAME = Currencies.NAME,
                                                                .Rate = Currencies.Rate,
                                                                .CreatedBy = If(Currencies.CreationUserCode Is Nothing, "", CreationUsers.First_Name & " " & CreationUsers.Last_Name),
                                                                .CreationDate = Currencies.CreationDate,
                                                                .CreationUserCode = Currencies.CreationUserCode,
                                                                .Deleted = Currencies.Deleted,
                                                                .LastUpdateDate = Currencies.LastUpdateDate,
                                                                .LastUpdatedBy = If(Currencies.LastUpdateUserCode Is Nothing, "", UpdateUsers.First_Name & " " & UpdateUsers.Last_Name),
                                                                .LastUpdateUserCode = Currencies.LastUpdateUserCode}).ToList

                Return New ObservableCollection(Of FriendlyCurrencies)(Query)
            End Get
        End Property

        Public Function GetFilteredFriendlyRecords(predicates As List(of Func(Of FriendlyCurrencies, Boolean))) As ObservableCollection(Of FriendlyCurrencies) Implements Interfaces.IFriendlyRepository(Of CriticalPathDB.FriendlyCurrencies).GetFilteredFriendlyRecords
            Dim ReturnQuery = FriendlyRecords.ToList

            For Each Predicate As Func(Of FriendlyCurrencies, Boolean) In predicates
                If Predicate IsNot Nothing Then
                    ReturnQuery = ReturnQuery.Where(Predicate).ToList
                End If
            Next
            Return New ObservableCollection(Of FriendlyCurrencies)(ReturnQuery)
        End Function

        Public Function AddEditFriendlyRecord(ByVal RecordToSave As FriendlyCurrencies) As EntityException Implements Interfaces.IFriendlyRepository(Of CriticalPathDB.FriendlyCurrencies).AddEditFriendlyRecord

            Dim dbCurrency As New Currency
            ' Check if this Staff Member Exists
            Dim query = From c In _DBContext.Currencies
                        Where c.Currency_Code = RecordToSave.Currency_Code
                        Select c

            ' If Asset exists, then edit.
            If query.Count > 0 Then
                dbCurrency = query.FirstOrDefault
            Else
                'Do Nothing
            End If

            dbCurrency.Currency_Code = RecordToSave.Currency_Code
            dbCurrency.NAME = RecordToSave.NAME
            dbCurrency.CreationDate = RecordToSave.CreationDate
            dbCurrency.CreationUserCode = RecordToSave.CreationUserCode
            dbCurrency.LastUpdateDate = RecordToSave.LastUpdateDate
            dbCurrency.LastUpdateUserCode = RecordToSave.LastUpdateUserCode
            dbCurrency.Deleted = RecordToSave.Deleted

            ' Save Asset Object to Database
            If query.Count > 0 Then
                ' If Asset exists, then edit.
                Try
                    '_dbContext.SaveChanges           'We could save here but it's generally bad practice
                Catch ex As EntityException
                    Return ex
                End Try
            Else
                Try
                    _DBContext.Currencies.Add(dbCurrency)
                    '_dbContext.SaveChanges           'We could save here but it's generally bad practice
                Catch ex As EntityException
                    Return ex
                End Try
            End If
            Return Nothing
        End Function

        Public Sub SaveData() Implements Interfaces.IFriendlyRepository(Of CriticalPathDB.FriendlyCurrencies).SaveData
            _DBContext.SaveChanges()
        End Sub
    End Class
End Namespace

我使用构造函数注入将dbContext插入到类中。

我曾希望能够使用我现有的上下文和"Effort" Unit Testing Tool来模拟虚假的dbContext。

但是，我似乎无法使其发挥作用。

在此期间，在我的单元测试项目中，我正在删除（如果已经存在）并使用SQLCMD命令创建一个空的测试数据库，使用与我的实时数据库相同的模式。

然后我创建一个引用测试数据库的dbContext，用测试数据填充它，然后对此进行测试。

作为一个注释，我将重构我的“添加/编辑”方法来处理实际的基本实体，而不是我的“友好”复杂版本，这是当时最简单的方法。

Answer 1

如果您正在使用DB-first，这就是我的建议。

打开.edmx文件，右键单击任何空白处，然后选择“添加代码生成项”
在“在线模板”区域中，搜索“EF 5.x DbContext Generator for VB”。
给.tt文件命名，点击添加。这将改变.edmx文件生成支持代码的方式，以便您的实体都是POCO，这可以通过保持主逻辑与EF断开来简化整体测试。

完成这项工作后，您可能希望查看“工作单元”模式等内容。这是一个快速的代码示例，我将在之后解释它。

public interface IUnitOfWork
{
    IDbSet<Location> Locations { get; }
    void Commit();
}

public class EFUnitOfWork : IUnitOfWork
{
    private readonly YourGeneratedDbContext _context;

    public EFUnitOfWork(string connectionString)
    {
        _context = new YourGeneratedDbContext();
    }

    public IDbSet<Location> Locations
    {
        get { return _context.Locations; }
    }

    public void Commit()
    {
        _context.SaveChanges();
    }
}

这是一个基本的工作单元，它公开了一些Locations列表作为一个例子（对不起，它在C＃但我不太了解VB）。

请注意，它暴露了IDbSet对象 - 这就是魔术的用武之地。如果在您的DBAccess项目中，您使用此工作单元或存储库模式来隐藏EF，并且因为它实现了一个接口并返回了IDbSet对象，任何需要你的数据的地方都可以让这个IUnitOfWork构造函数注入DI，并替换为一个模拟版本，当你需要进行单元测试时，它会返回模拟IDbSet对象（它们最终只是IQueryables）。

您可能会发现，通过新模板中的POCO生成，您甚至可以取消在DBControl项目中执行的大量工作。

无论如何，这只是定位项目以获得最佳单元测试和DI的基本内容。

实体框架5数据库优先级的依赖注入。入门？

1 个答案: