如果我想在Subsonic的SimpleRepository中使对象之间存在1对多的关系,该怎么做呢?
我需要创建一个桥接对象,然后在运行时构建我的父对象吗?还是这种支持已经内置了?
我正在寻找以下内容:
Adam的示例商店...
Public Class Shop Private m_id As Integer Private m_Name As String Private m_Employees As List(Of Employee)
Public Property Id() As Integer Get Return m_id End Get Set(ByVal value As Integer) m_id = value End Set End Property
Public Property Name() As String Get Return m_Name End Get Set(ByVal value As String) m_Name = value End Set End Property
Public Property Employees() As List(Of Employee) Get Return m_Employees End Get Set(ByVal value As List(Of Employee)) m_Employees = value End Set End Property End Class
Public Class Employee Private m_id As Integer Private m_Name As String
Public Property Id() As Integer Get Return m_id End Get Set(ByVal value As Integer) m_id = value End Set End Property
Public Property Name() As String Get Return m_Name End Get Set(ByVal value As String) m_Name = value End Set End Property End Class
主要部分:
Dim repo As New SimpleRepository("SubSonicObjectTest", SimpleRepositoryOptions.RunMigrations)
Dim emplyee1 As New Employee emplyee1.Name = "Martin" Dim emplyee2 As New Employee emplyee2.Name = "Adam"
Dim shop As New Shop shop.Name = "Sub Sonic Store"
shop.Employees = New List(Of Employee) shop.Employees.Add(emplyee1) shop.Employees.Add(emplyee2)
repo.Add(Of Shop)(shop)
我认为这应该创建3个表:
Shops Employees ShopsToEmployees(或其他命名约定)
但是我只得到一个Channels表!
我需要创建一个桥接对象,然后在运行时构建我的父对象吗?还是这种支持已经内置了?
我正在寻找以下内容:
Adam的示例商店...
Public Class Shop Private m_id As Integer Private m_Name As String Private m_Employees As List(Of Employee)
Public Property Id() As Integer Get Return m_id End Get Set(ByVal value As Integer) m_id = value End Set End Property
Public Property Name() As String Get Return m_Name End Get Set(ByVal value As String) m_Name = value End Set End Property
Public Property Employees() As List(Of Employee) Get Return m_Employees End Get Set(ByVal value As List(Of Employee)) m_Employees = value End Set End Property End Class
Public Class Employee Private m_id As Integer Private m_Name As String
Public Property Id() As Integer Get Return m_id End Get Set(ByVal value As Integer) m_id = value End Set End Property
Public Property Name() As String Get Return m_Name End Get Set(ByVal value As String) m_Name = value End Set End Property End Class
主要部分:
Dim repo As New SimpleRepository("SubSonicObjectTest", SimpleRepositoryOptions.RunMigrations)
Dim emplyee1 As New Employee emplyee1.Name = "Martin" Dim emplyee2 As New Employee emplyee2.Name = "Adam"
Dim shop As New Shop shop.Name = "Sub Sonic Store"
shop.Employees = New List(Of Employee) shop.Employees.Add(emplyee1) shop.Employees.Add(emplyee2)
repo.Add(Of Shop)(shop)
我认为这应该创建3个表:
Shops Employees ShopsToEmployees(或其他命名约定)
但是我只得到一个Channels表!