1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Private Shared Function CreateSessionFactory() As ISessionFactory
Return Fluently.Configure().Database(MsSqlConfiguration.MsSql2005.ConnectionString("Data Source=OEG\SQL2005;Initial Catalog=CatDefault;Integrated Security=SSPI;")).Mappings(Function(m) m.FluentMappings.AddFromAssemblyOf(Of Program)()).ExposeConfiguration(AddressOf BuildSchema).BuildSessionFactory()
End Function
''' <summary>
''' this NHibernate tool takes a configuration (with mapping info in)
''' and exports a database schema from it
''' </summary>
''' <param name="config"></param>
''' <remarks></remarks>
Private Shared Sub BuildSchema(ByVal config As Configuration)
Dim SchemaExp As New SchemaExport(config)
SchemaExp.Create(False, True)
End Sub |
Partager