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

MaxLength-"255"

runat-server

TextMode-"MultiLine"

/>

Кроме того, остается еще один элемент управления — Button (кнопка Добавить), щелкнув на котором, сотрудник отправляет отчет:

<asp:button

id-"butAdd" text-"floOaBMTb" Type-"Submit" OnClick-"Add_Click" runat-"server"

/>

Код страницы содержит две процедуры. Первая из них активизируется при загрузке страницы.

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs) If Not IsPostBack Then

Dim DBConn as OleDbConnection Dim DBCommand As OleDbDataAdapter Dim DSPageData as New DataSet

DBConn - New OleDbConnection("Provider-sqloledb;" _ & "server-localhost;" & "Initial Catalog-INETC5;" & "User Id-sa;" _ & "Password-yourpassword;") DBCommand - New OleDbDataAdapter

("select DepartmentID, DepartmentName " & "from IRDepartments Order By DepartmentName" _ , DBConn) DBCommand.Fill(DSPageData,

"Departments") ddlDepartments.DataSource -

DSPageData.Tables("Departments").DefaultView ddlDepartments.DataBind() End If End Sub

Этот код должен запускаться только при первой загрузке страницы:If Not IsPostBack Then

Сначала извлекается список всех подразделений:

DBCommand - New OleDbDataAdapter _

("select DepartmentID, DepartmentName " & "from IRDepartments Order By DepartmentName" , DBConn)

который помещается в объект DataSet: «О

DBCommand.Fill(DSPageData, _ "Departments")

После этого элемент управления DropDownList, предназначенный для отображения названия подразделений, привязывается к объекту DataSet:

ddlDepartments.DataSource -

DSPageData.Tables("Departments").DefaultView ddlDepar tments.DataBind()