ASP.NET. Учебный курс (Г.Бучек.)

DBCommand.Fill(DSPageData,

"Birthdays") dgBirthdays.DataSource -

DSPageData.Tables("Birthdays").DefaultView dgBirthdays.DataBind() End Sub

Из базы данных выбираются имена, фамилии и электронные адреса сотрудников, день рождения которых приходится на текущую дату. Функция DatePart используется в предложении Where запроса для извлечения месяца и дня рождения сотрудника. Получить текущую дату системы позволяет функция Get Date:

DBCommand - New OleDbDataAdapter

("Select EmployeeFirstName + • • + EmployeeLastName " & "as FullName, EmailAddress From EmployeeBirthdays " & "Where DatePart(mm, BirthDate) * " & "DatePart (mm, GetDateO ) and " _ & "DatePart(dd, BirthDate) - " & "DatePart(dd, GetDateO) " _ & "Order By EmployeeLastName" , DBConn)

Все выбранные записи помещаются в объект DataSet:

DBCommand.Fill(DSPageData, "Birthdays")

С этим объектом связывается элемент управления DataGrid:

dgBirthdays.DataSource - _

DSPageData.Tables("Birthdays").DefaultView dgBirthdays.DataBind()

Изменение кода для Access

SC4Birthday mlb

Для обеспечения взаимодействия приложения День Рождения с базой данных Access необходимо внести в код два изменения. Во-первых, в строке соединения с базой данных:

DBConn - New OleDbConnection("Provider-sqloledb;" & "server-localhost;" _ & "Initial Catalog-INETC4?" & "User Id-sa;" & "Password-yourpassword;"),

следует указать надлежащего провайдера и правильный путь к базе данных Access:

DBConn - New OleDbConnection("PROVIDER-Microsoft.Jet.OLEDB.4.0;" & "DATA SOURCE-"

& Server.MapPath("/INetBook/C4/Birthday/" 6 "Access/C4birthday.mdb;"))

Во-вторых, потребуется изменить текст SQL-запроса, выполняющего поиск записей о сотрудниках. При работе с SQL-сервером знак «+» применяется для конкатенации, функция DatePart — для извлечения компонентов даты, а функция Get Date — для получения текущей даты:

DBCommand - New OleDbDataAdapter

("Select EmployeeFirstName + ' • + EmployeeLastName " _