Вставка коллекции IEnumerable с ошибками Dapper с выводом «класс не поддерживается Dapper».

Да, здесь вопросы и здесь о том, как вставлять записи с помощью dapper-dot-net. Однако ответы, хотя и информативные, похоже, не указали мне в правильном направлении. Вот такая ситуация: перемещение данных из SqlServer в MySql. Чтение записей в IEnumerable легко, но я просто не получаю что-то на вставке. Во-первых, «код движущихся записей»:

//  moving data
Dim session As New Session(DataProvider.MSSql, "server", _
                           "database")

Dim resources As List(Of WTUser) = session.QueryReader(Of WTUser)("select * from tbl_resource")


session = New Session(DataProvider.MySql, "server", "database", _
                      "user", "p@$$w0rd")

//    *edit* - corrected parameter notation with '@'
Dim strInsert = "INSERT INTO tbl_resource (ResourceName, ResourceRate, ResourceTypeID, ActiveYN) " & _
                "VALUES (@ResourceName, @ResourceRate, @ResourceType, @ActiveYN)"

Dim recordCount = session.WriteData(Of WTUser)(strInsert, resources)

//  session Methods
    Public Function QueryReader(Of TEntity As {Class, New})(ByVal Command As String) _
                                                            As IEnumerable(Of TEntity)
        Dim list As IEnumerable(Of TEntity)

        Dim cnn As IDbConnection = dataAgent.NewConnection
        list = cnn.Query(Of TEntity)(Command, Nothing, Nothing, True, 0, CommandType.Text).ToList()

        Return list
    End Function

    Public Function WriteData(Of TEntity As {Class, New})(ByVal Command As String, ByVal Entities As IEnumerable(Of TEntity)) _
                                                          As Integer
        Dim cnn As IDbConnection = dataAgent.NewConnection

        //    *edit* if I do this I get the correct properties, but no data inserted
        //Return cnn.Execute(Command, New TEntity(), Nothing, 15, CommandType.Text)

        //    original Return statement
        Return cnn.Execute(Command, Entities, Nothing, 15, CommandType.Text)
    End Function

cnn.Query и cnn.Execute вызывают методы расширения dapper. Теперь класс WTUser (примечание: имя столбца изменено с 'WindowsName' в SqlServer на 'ResourceName' в MySql, таким образом, два свойства указывают на одно и то же поле):

Public Class WTUser
    //    edited for brevity - assume the following all have public get/set methods
    Public ActiveYN As String
    Public ResourceID As Integer
    Public ResourceRate As Integer
    Public ResourceType As Integer
    Public WindowsName As String
    Public ResourceName As String

End Class

Я получаю исключение от dapper: «WTUser is не поддерживается Dapper ". Этот метод в DataMapper (dapper):

    private static Action CreateParamInfoGenerator(Type OwnerType)
    {
        string dmName = string.Format("ParamInfo{0}", Guid.NewGuid());
        Type[] objTypes = new[] { typeof(IDbCommand), typeof(object) };

        var dm = new DynamicMethod(dmName, null, objTypes, OwnerType, true); // << - here
        //    emit stuff

        //    dm is instanced, now ...
        foreach (var prop in OwnerType.GetProperties().OrderBy(p => p.Name))

На этом этапе OwnerType =

System.Collections.Generic.List`1 [[CRMBackEnd.WTUser, CRMBE, версия = 1.0.0.0, Культура = нейтральный, PublicKeyToken = null]], mscorlib, Версия = 2.0.0.0, культура = нейтральная, PublicKeyToken = b77a5c561934e089

Похоже, OwnerType должен быть CRMBackEnd.WTUser ... не List ... ??? потому что происходит итерация свойств коллекции: Count, Capacity и т. д. Что мне не хватает?

Update

Если я изменил session.WriteData as:

Public Function WriteData(Of TEntity As {Class, New})(ByVal Command As String, _
                                                      ByVal Entities As IEnumerable(Of TEntity)) _
                                                      As Integer
    Dim cnn As IDbConnection = dataAgent.NewConnection
    Dim records As Integer

    For Each entity As TEntity In Entities
        records += cnn.Execute(Command, entity, Nothing, 15, CommandType.Text)
    Next

    Return records
End Function

записи вставлены правильно. .. но я не думал, что это будет необходимо, учитывая такие примеры, как:

connection.Execute(@"insert MyTable(colA, colB) values (@a, @b)",
    new[] { new { a=1, b=1 }, new { a=2, b=2 }, new { a=3, b=3 } }
  ).IsEqualTo(3); // 3 rows inserted: "1,1", "2,2" and "3,3"  

... from dapper-dot-net

32
задан DaveInCaz 26 September 2018 в 17:36
поделиться