Большое Спасибо за ПРАВИЛЬНЫЙ ответ.
Благодаря Вашей подсказке количество ошибок из 102
Сократилось до 19.
которые, будьте так добры, если у Вас не потребуется много услий, прошу помочь устранить - своих знаний, к сожалению, не хватает
Что сделать для устранения приведенных сообщений?Тип "System.Transactions.TransactionScope" не определен.
Тип "Order" не определен.
Тип "Northwind" не определен.
таких строк, как предыдущая, - 16
Тип "Customer" не определен.
Тип "Customer" не определен.
Включил из примера "LinqToNorthwind" в свой проект 4 файла:
Northwind.vb, ObjectDumper.vb, Samples.vb, app.config,
Ниже начало файла Northwind.vb
В файле "Samples.vb"
I
mports nwind ' если курсор навести на "nwind", то подсказка будет Namespace nwind
' в этой строке подчёркнута красной чёрточкой последняя буква "d"
In file "Northwind.xml" много показанных ниже подобных строк:
<Type Name="nwind.AddressSplit"> - атрибуту, т.е. переменной, name присваивается значение
Northwind.xml
В окне "Обозреватель решений" присутствует XML_file "Northwind.xml"
Слева даже не транслируя подчёркнута красной чёрточкой последняя буква "d"
Nwind, Northwind,
Ниже начало "Northwind.vb":
Option Strict On
Option Explicit On
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Data.Linq
Imports System.Data.Linq.Mapping
Imports System.Linq
Imports System.Linq.Expressions
Imports System.Reflection
Namespace nwind
Partial Public Class Northwind
Inherits System.Data.Linq.DataContext
Public Sub New(ByVal connection As String, ByVal mappingSource As System.Data.Linq.Mapping.MappingSource)
MyBase.New(connection, mappingSource)
OnCreated
End Sub
End Class
Ниже начало " ObjectDumper.vb":
Imports System
Imports System.IO
Imports System.Collections
Imports System.Collections.Generic
Imports System.Reflection
Public Class ObjectDumper
Public Shared Sub Write(ByVal o As Object)
Write(o, 0)
End Sub
End Class
Ниже начало "Samples.vb":I
mports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.Linq
Imports nwind эта строка подчёркнуиа красной чёрточкой
' если курсор навести на "nwind", то подсказка появляется "Namespace nwind"
Namespace Samples
Public Class Samples
Public Shared Sub Sample1(ByVal db As Northwind)
' Используйте Where() для поиска только соответствующих элементов
Dim q As IEnumerable(Of Customer) = db.Customers.Where(Function(c) c.City = "London")
ObjectDumper.Write(q, 0)
End Sub
End Class