How to use QueryOver with nHibernate in VB.NET

Question

I've been learning how to use nHibernate with Vb.net using all the examples online(which are in C#) to learn. Which has been fine for the basics, but now I'm trying to learn how to use QueryOver's JoinAlias, and going from C# to VB.net is difficult. I've been using this page's answer as a reference, but I'm still having trouble converting an example like that to Vb.net. Could someone help me?

Answer 1

Updated:

the easy way would be to introduce a collection of TableResultDetailsClass in TableResultClass and use that.

results = session.QueryOver(Of TableResultClass)() _
    .Where(Function(tr) tr.Id = wantedId) _
    .Select(Function(tr) New With { tr.Id, tr.Details.Sum(Function(trd) trd.Property) }) _
    .List()

otherwise you get object[] back

results = session.QueryOver(Of TableResultDetailsClass)() _
    .Where(Function(td) tD.Parent.Id = wantedId) _
    .Select(Projections.Property(Function(td) tD.Parent.Id), Projections.Sum(Function(td) tD.Prpoerty)) _
    .List()

Original:

all you need is generics and lambdas in vb.net

Dim child as Child
results = session.QueryOver(Of User)()
    .Where(Function(u) u.Name = "blub")
    .JoinAlias(Function(u) u.Childs, Function child)
    .List()

Update: it seems you are looking for mappings. With FluentNHibernate it would look like

Public Class TableEntityMap Inherits ClassMap(Of TableEntity)

    Sub New()
        Id(Function(x) x.Id, "DID")

        HasMany(Of TableEntity)(Function(x) x.Details).Inverse()
    End Sub
End Class

Public Class TableEntityMap Inherits ClassMap(Of TableEntity)

    Sub New()
        Id(Function(x) x.Id)

        References(Of DetailsTableEntity)(Function(x) x.Parent, "Parent")

    End Sub
End Class

Dim entity as TableEntity = sess.Get(Of TableEntity)(someid)

'' get all details of this entity
Dim details = entity.Details