Файл Global.asax, объекты приложения и сеанса
Объекты Request и Response
Объекты данных и код
Списки и таблицы данных

Когда связь с базой данных установлена, можно манипулировать ее содержимым. При этом единственное различие между использованием базы Access и SQL Server связано с синтаксисом SQL-запросов.

Dim DBConn as OleDbConnection
Dim DBlnsert As New OleDbCommand
DBCpnn = New OleDbConnection("Provider=sqloledb;" ^
& "server-=localhost; " _
& "Initial Catalog=INETC9;"
& "User Id=sa;" _
& "Password=yourpassword; ")
DBlnsert.CommandText < "Insert Into Courses " _
& "(CourseName,CourseDescription) values ('" _
& '"" & txtCourseName.Text &"',"_
& "'" & txtCourseDescription.Text & ")"
DBlnsert.Connection - DBConn
DBlnsert.Connection.Open
DBlnsert.ExecuteNonQuery()

Dim DBlnsert As New OleDbCommand

Запрос, который необходимо выполнить, надлежит присвоить в качестве значе, ния свойству CommandText этого объекта. В данном примере — это SQL-инструкция Insert:

DBlnsert.CommandText = "Insert Into Courses " _
& "(CourseName, CourseDescription) values ('" _
& "'" & txtCourseName.Text & "', " _
& "'" & txtCourseDescription.Text 4 ")"

Объект OleDbCommand необходим для соединения с базой данных. В следующей конструкции задано, чтобы он использовал объект oleDbConnection, который был объявлен в коде ранее:

DBInsert.Connection = DBConn
DBInsert.Connection.Open

DBInsert.ExecuteNonQuery()

Получение данных из базы SQL Server или Access обеспечивают объекты Data-Set. Ниже демонстрируется, как извлечь название курса из таблицы Courses:

Dim DBConn as OieDbConnection
Dim DBCommand As OleDbDataAdapter
Dim DSPageData as New DataSet
DBConn - New oleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
& "DATA SOURCE-"
& Server.MapPath("/InetBook/C9/" _ .
& "Access/C9OnlineCampus.mdb;"))
DBCommand - New OleDbDataAdapter _
("Select CourseName from Courses Where " _
& "CourseID = " & Session ("CourselD") _
DBConn)
DBCommand.Fill(DSPageData, _
"CourseName")
IblTitle.Text - "<center>Course " _
& DSPageData.Tables("CourseName"). _
Rows(O).Item("CourseName') _
& "</center>"

Наряду с объектом OieDbConnection необходим объект OleDbDataAdapter, который будет использоваться для получения данных из базы:

Dim DBCommand As OleDbDataAdapter

Dim DSPageData as New DataSet

DBCommand - New OleDbDataAdapter _
("Select CourseName from Courses Where " _
& "CourselD - " & Session("CourselD") _
, DBConn)

Затем выполняется SQL-инструкция с помощью метода Fill объекта OleDbDataAdapter. Метод имеет два параметра. Первый параметр представляет собой имя объекта DataSet, в который необходимо поместить данные из базы. Второй параметр — это имя, используемое для задания записи или группы записей в объекте

DataSet:
DBCommand.Fill(DSPageData, _
"CourseName")

IblTitle.Text - "<center>Course " _
& DSPageData.Tables("CourseName"). _
Rows (0) .ItemC'CourseName1) _
& "</center>"