Imports Data.Linq.Model

Public Module VisualBasicCommon

    Public Function ParamenterName(ByVal db As ITestDataContext) As IEnumerable(Of Parent)
        Dim id As Integer
        id = 1
        Return From p In db.Parent Where p.ParentID = id Select p
    End Function

    Public Function SearchCondition1(ByVal db As ITestDataContext) As IEnumerable(Of LinqDataTypes)
        Return _
            From t In db.Types _
            Where Not t.BoolValue And (t.SmallIntValue = 5 Or t.SmallIntValue = 7 Or (t.SmallIntValue Or 2) = 10) _
            Select t
    End Function

    Public Function SearchCondition2(ByVal db As NorthwindDB) As IEnumerable(Of String)
        Return _
            From cust In db.Customer _
            Where cust.Orders.Count > 0 And cust.CompanyName.StartsWith("H") _
            Select cust.CustomerID
    End Function

End Module
