/
aprogrammer
/
dotnet-docs
Обзор
Документация
Войти
/
aprogrammer
/
dotnet-docs
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
main
samples/snippets/visualbasic/VS_Snippets_Data/system.data.linq.dataloadoptions/vb/module1.vb
54 строки
1 KB
Andy De George
Move snippets from samples repo to this repo (#17296)
03 мар 2020, 19:23
Не верифицирован
03 мар 2020, 19:23
dbbeda1
Код
Авторство
О чём код?
Imports System.Data.Linq Imports System.Data.Linq.Mapping Imports System.Linq Module Module1 Sub Main() ' <Snippet1> Dim db As New Northwnd("c:\northwnd.mdf") Dim dlo As DataLoadOptions = New DataLoadOptions() dlo.AssociateWith(Of Customer)(Function(c As Customer) _ c.Orders.Where(Function(p) p.ShippedDate <> DateTime.Today)) db.LoadOptions = dlo Dim custOrderQuery = _ From cust In db.Customers _ Where cust.City = "London" _ Select cust For Each custObj In custOrderQuery Console.WriteLine(custObj.CustomerID) For Each ord In custObj.Orders Console.WriteLine("{0}{1}", vbTab, ord.OrderDate) Next Next ' </Snippet1> Console.ReadLine() End Sub Sub x() ' <Snippet2> Dim db As New Northwnd("c:\northwnd.mdf") Dim dlo As DataLoadOptions = New DataLoadOptions() dlo.LoadWith(Of Customer)(Function(c As Customer) c.Orders) db.LoadOptions = dlo Dim londonCustomers = _ From cust In db.Customers _ Where cust.City = "London" _ Select cust For Each custObj In londonCustomers Console.WriteLine(custObj.CustomerID) Next ' </Snippet2> End Sub End Module