Imports Tests.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

	Public Function SearchCondition3(ByVal db As NorthwindDB) As IEnumerable(Of Integer)
		'#11/14/1997#
		Dim query = From order In db.Order
			Where order.OrderDate = New DateTime(1997, 11, 14)
			Select order.OrderID

		Return query
	End Function

	Public Function SearchCondition4(ByVal db As NorthwindDB) As IEnumerable(Of Integer)
		Dim query = From order In db.Order
			Where #11/14/1997# = order.OrderDate
			Select order.OrderID

		Return query
	End Function

End Module
