Для начала рассмотрим код в листинге 11.1 с очень простым примером подключения к базе данных с помощью учетной записи ASPNET, выборки данных с помощью запроса на основе команды SELECT и отображения результатов запроса на Web-странице.

>Imports System.Data

>Imports System.Data.SqlClient

>Public Class WebForm1

> Inherits System.Web.UI.Page

>#Region " Web Form Designer Generated Code "

> ' Этот вызов организован мастером Web Form Designer.

>  _

> Private Sub InitializeComponent()

> End Sub

> Private Sub Page_Init(ByVal sender As System.Object, _

>  ByVal e As System.EventArgs) Handles MyBase.Init

>  ' CODEGEN: Вызов этого метода организован мастером

>  ' Web Form Designer.

>  ' He редактируйте этот код вручную с помощью окна редактирования.

>  InitializeComponent()

> End Sub

>#End Region

> Dim connString As String

> Private Sub Page_Load(ByVal sender As System.Object, _

>  ByVal e As System.EventArgs) Handles MyBase.Load

>  ' Указание строки подключения.

>  connString = "server=(local);database=Novelty; TRUSTED_CONNECTION=Yes"

>  ' Это вся информация, которая нам нужна

>  ' для подключения к базе данных. Кроме того, если

>  ' кто-то сможет получить доступ к коду этого файла,

>  ' он не сможет использовать полученные сведения

>  ' для регистрации входа в базу данных.

>  ' Извлечение системной ссылки на указанную строку подключения.

>  ' Это позволяет .NET проверить наличие данной строки

>  ' в куче. Если её нет, то создаётся её экземпляр в

>  ' оперативной памяти и возвращается ссылка

>  ' на нее, а если есть, то возвращается ссылка на нее.

>  String.Intern(connString)

>  ShowCustomers()

> End Sub

> Private Sub ShowCustomers()

>  ' Это простой пример использования функции,

>  ' которая извлекает данные из таблицы tblCustomer

>  ' и отображает их.

>  ' Инициализация объекта подключения строкой

>  ' подключения.

>  Dim conn As New SqlConnection(connString)

>  ' Затем инициализация объекта-команды

>  ' строкой выполняемой команды SQL.

>  Dim cmd As New SqlCommand("SELECT * FROM tblCustomer", conn)

>  conn.Open()

>  Dim dReader As SqlDataReader = _

>   cmd.ExecuteReader(CommandBehavior.CloseConnection)

>  While dReader.Read

>   Response.Write(dReader.GetString(1))

>   Response.Write(" " & dReader.GetString(2))

>   Response.Write("
")

>  End While

>  dReader.Close()

>  conn.Close()

> End Sub

>End Class

Обратите внимание на то, что в листинге 11.1 используются пространства имен

System. Data и System. Data. SqlClient, которые содержат все необходимые классы и методы для подключения и опроса базы данных. Учтите, что код в листинге 11.1 является вспомогательным кодом для Web-страницы default.aspx. Это значит, что Web-страница default.aspx не содержит его, а только отображает результат его выполнения. Полностью код Web-страницы default.aspx показан в листинге 11.2.

><%@ Page Language="vb" AutoEventWireUp="false" Codebehind="default.aspx.vb" Inherits="Novelty.WebForm1"%>

>