SubSonic3 VB.Net 添加、更新、FirstOrDefault 问题

Question

我已经使用 subsonic3 Vb.net 模板构建了 sctive record dal。我正在处理亚音速 dll 中的很多错误。

1）在Add（）函数中：（我已经修复） 当 indx 在数据库中有计数器时，返回的新键类型是十进制，活动记录有异常“公共成员‘更改类型为’n 类型‘十进制’未找到”。 我设法修复了这个错误。我在 activeRecord 模板中更改了

子

    Public Sub SetKeyValue(value As Object) Implements IActiveRecord.SetKeyValue
        If value IsNot Nothing AndAlso value IsNot DBNull.Value Then
            Dim settable = value.ChangeTypeTo(Of <#=tbl.PK.SysType#>)()
            Me.GetType.GetProperty(Me.KeyName()).SetValue(Me, settable, Nothing)
        End If
    End Sub

旧新

   Public Sub SetKeyValue(value As Object) Implements IActiveRecord.SetKeyValue
        If value IsNot Nothing AndAlso value IsNot DBNull.Value Then
            Dim settable = CType( value, <#=tbl.PK.SysType#>)
            Me.GetType.GetProperty(Me.KeyName()).SetValue(Me, settable, Nothing)
        End If
    End Sub 

更新功能（）功能中的 2）：（我已修复） 更新永远不会起作用。调试后发现更新的 sql 语句永远不会有查询的“SET”部分，它总是像： 更新 [表名] WHERE ... Subsonic.Repository dll 似乎有问题 --> IRepository 的 脏列未在新对象中更新，例如：

1. Dim Cat as db.Category
2. Cat.Indx=1
3. Cat.SetIsNew(False)
4. Cat.Name= 'Motors'
5. Cat.Update

为什么更新时没有 DirtyColumns 我如何将列设置为肮脏的？

--更新问题已解决，这不是错误。-- 通过在第 3 行后添加 CAT.SetIsLoaded(True) 来解决。 因此，当属性 IsLoaded 设置为 tru 时，任何更新的列都将添加到 DirtyColums 中，并且这些列将更新到 DB

3) FirstOrDefault 函数：（无法修复） 总是我meaaaaaaaaan总是抛出exsiption =“第1行：‘(’附近的语法不正确。” 来自 SubSonic.Linq dll

Pleeeeeeeeeeeease 帮助

提前致谢， 教父

Answer 1

首先，您使用的是哪个版本的 SubSonic3？

1）不确定你想在这里做什么。

2) 这不是更新记录的方式，试试这个...

Dim cat = Category.SingleOrDefault(Function(item) item.CategoryID = 1)
cat.CategoryName = "MOTORS"
cat.Update()

3) Subsonic 使用 SingleOrDefault() 如上面的示例所示。