Пошаговое руководство. Управление данными (Visual Basic)

  • Статья

В этом пошаговом руководстве представлен базовый комплексный сценарий LINQ to SQL для добавления, изменения и удаления данных в базе данных. Для добавления клиента, изменения его имени и удаления заказа следует использовать копию учебной базы данных Northwind.

Примечание.

Отображаемые на компьютере имена или расположения некоторых элементов пользовательского интерфейса Visual Studio могут отличаться от указанных в следующих инструкциях. Это зависит от имеющегося выпуска Visual Studio и используемых параметров. Дополнительные сведения см. в разделе Персонализация среды IDE.

Это пошаговое руководство было написано с помощью параметров разработки Visual Basic.

Необходимые компоненты

Необходимо выполнить следующие требования.

  • Для хранения файлов используется выделенная папка ("c:\linqtest2"). Прежде чем приступить к выполнению задач, создайте такую папку.

  • Наличие учебной базы данных Northwind.

    Если база данных не установлена на компьютере разработчика, загрузите ее с веб-узла Центра загрузки Майкрософт. Инструкции см. в разделе "Скачивание примеров баз данных". После загрузки базы данных скопируйте файл northwnd.mdf в папку c:\linqtest2.

  • Наличие файла кода Visual Basic, созданного из базы данных "Борей".

    Этот файл можно создать с помощью реляционный конструктор объектов или средства SQLMetal. Данное пошаговое руководство было написано с использованием средства SQLMetal со следующей командной строкой:

    sqlmetal /code:"c:\linqtest2\northwind.vb" /language:vb "C:\linqtest2\northwnd.mdf" /pluralize

    Дополнительные сведения см. в разделе SQLMetal.exe (средство создания кода).

Обзор

Данное пошаговое руководство состоит из шести основных задач.

  • Создание решения LINQ to SQL в Visual Studio.

  • Добавление файла кода базы данных в проект.

  • Создание нового объекта клиента.

  • Изменение контактного имени клиента.

  • Удаление заказа.

  • Отправка внесенных изменений в базу данных Northwind.

Создание решения LINQ to SQL

В этой первой задаче создается решение Visual Studio, содержащее необходимые ссылки на сборку и запуск проекта LINQ to SQL.

Создание решения LINQ to SQL

  1. В меню Файл Visual Studio выберите команду Создать проект.

  2. В области "Типы проектов" в диалоговом окне "Создать проект" щелкните Visual Basic.

  3. В области Шаблоны щелкните Консольное приложение.

  4. В поле "Имя" введите LinqDataManipulationApp.

  5. Щелкните OK.

Добавление ссылок и директив LINQ

В этом пошаговом руководстве используются сборки, которые могут быть не установлены по умолчанию в проект. Если System.Data.Linq в проекте нет ссылки (щелкните "Показать все файлы" в Обозреватель решений и разверните узел ссылок), добавьте его, как описано в следующих шагах.

Добавление сборки System.Data.Linq

  1. В Обозреватель решений щелкните правой кнопкой мыши ссылки и нажмите кнопку "Добавить ссылку".

  2. В диалоговом окне "Добавить ссылку" нажмите кнопку .NET, щелкните сборку System.Data.Linq и нажмите кнопку "ОК".

    Сборка будет добавлена в проект.

  3. В редакторе кода добавьте следующие директивы выше Module1:

    Imports System.Data.Linq
Imports System.Data.Linq.Mapping

Добавление файла кода Northwind в проект

При выполнении этих действий подразумевается, что для создания файла кода из учебной базы данных Northwind использовалось средство SQLMetal. Дополнительные сведения см. в разделе "Предварительные требования" ранее в этом руководстве.

Добавление файла кода northwind в проект

  1. В меню Проект выберите пункт Добавить существующий элемент.

  2. В диалоговом окне "Добавление существующего элемента" перейдите в раздел c:\linqtest2\northwind.vb и нажмите кнопку "Добавить".

    Файл northwind.vb будет добавлен в проект.

Настройка подключения к базе данных

Сначала проверьте подключение к базе данных. Обратите особое внимание, что в имени базы данных - Northwnd - отсутствует буква "i". Если при выполнении следующих действий возникают ошибки, просмотрите файл northwind.vb, чтобы определить написание разделяемого класса Northwind.

Настройка и проверка подключения к базе данных

  1. Введите или вставьте следующий код в Sub Main.

    ' Use a connection string, but connect to
'     the temporary copy of the database.
Dim db As New Northwnd _
    ("C:\linqtest2\northwnd.mdf")

' Keep the console window open after activity stops.
Console.ReadLine()

  2. Чтобы проверить приложение на этом этапе, нажмите клавишу F5.

    Откроется окно консоли.

    Закройте приложение, нажав клавишу ВВОД в окне консоли или нажав кнопку "Остановить отладку" в меню отладки Visual Studio.

Создание новой сущности

Создание новой сущности не представляет особых проблем. Для создания объектов (например, Customer) можно использовать ключевое слово New.

В этом и следующих разделах выполняются изменения только локального кэша. Изменения не будут отправлены в базу данных до тех пор, пока ближе к концу данного руководства не будет вызван SubmitChanges.

Добавление нового объекта сущностей Customer

  1. Создайте новый Customer, добавив перед Console.ReadLine в Sub Main следующий код.

    ' Create the new Customer object.
Dim newCust As New Customer()
newCust.CompanyName = "AdventureWorks Cafe"
newCust.CustomerID = "A3VCA"

' Add the customer to the Customers table.
db.Customers.InsertOnSubmit(newCust)

Console.WriteLine("Customers matching CA before insert:")

Dim custQuery = _
    From cust In db.Customers _
    Where cust.CustomerID.Contains("CA") _
    Select cust

For Each cust In custQuery
    Console.WriteLine("Customer ID: " & cust.CustomerID)
Next

  2. Нажмите клавишу F5 для отладки решения.

    В окне консоли отображаются следующие результаты.

    Customers matching CA before insert:

    Customer ID: CACTU

    Customer ID: RICAR

    Обратите внимание, что в выходных данных новая строка не отображается. Новые данные еще не были переданы в базу данных.

  3. Нажмите клавишу ВВОД в окне консоли , чтобы остановить отладку.

Обновление объекта

При выполнении следующих действий будет извлечен объект Customer и изменено одно из его свойств.

Изменение имени клиента

  • Добавьте следующий код перед Console.ReadLine():

    Dim existingCust = _
    (From cust In db.Customers _
     Where cust.CustomerID = "ALFKI" _
     Select cust).First()

' Change the contact name of the customer.
existingCust.ContactName = "New Contact"

Удаление объекта

Используя тот же самый объект клиента, можно удалить первый заказ.

В следующем коде показано, как разорвать связь между строками и удалить строку из базы данных.

Удаление строки

  • Добавьте следующий код перед Console.ReadLine().

    ' Access the first element in the Orders collection.
Dim ord0 As Order = existingCust.Orders(0)

' Access the first element in the OrderDetails collection.
Dim detail0 As OrderDetail = ord0.OrderDetails(0)

' Display the order to be deleted.
Console.WriteLine _
    (vbCrLf & "The Order Detail to be deleted is: OrderID = " _
    & detail0.OrderID)

' Mark the Order Detail row for deletion from the database.
db.OrderDetails.DeleteOnSubmit(detail0)

Отправка изменений в базу данных

Последнее действие, необходимое для создания, обновления и удаления объектов, заключается в фактической отправке изменений в базу данных. Без него изменения останутся на локальном уровне и не появятся в результатах запроса.

Отправка изменений в базу данных

  1. Вставьте следующий код перед Console.ReadLine.

    db.SubmitChanges()

  2. Вставьте следующий код (после SubmitChanges), чтобы показать результаты до и после отправки изменений.

    Console.WriteLine(vbCrLf & "Customers matching CA after update:")
Dim finalQuery = _
    From cust In db.Customers _
    Where cust.CustomerID.Contains("CA") _
    Select cust

For Each cust In finalQuery
    Console.WriteLine("Customer ID: " & cust.CustomerID)
Next

  3. Нажмите клавишу F5 для отладки решения.

    Появится окно консоли со следующими данными.

    Customers matching CA before update:  
Customer ID: CACTU  
Customer ID: RICAR  

The Order Detail to be deleted is: OrderID = 10643  

Customers matching CA after update:  
Customer ID: A3VCA  
Customer ID: CACTU  
Customer ID: RICAR

  4. Нажмите клавишу ВВОД в окне консоли , чтобы остановить отладку.

Примечание.

После добавления нового клиента путем отправки изменений это решение нельзя повторно выполнить в исходном виде, поскольку этот же клиент не может быть добавлен без изменений. Для повторного выполнения решения измените значение идентификатора добавляемого клиента.

См. также