1: PrivateSubUserForm_Activate()
2: cnnProduct.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data _
3: Source=C:\Program Files\Microsoft _
Office\Office\Samples\Борей.mdb"
4:
5: rstProduct.Open _
6: "Select КодТовара, Марка, Цена, НаСкладе from Товары", _
cnnProduct, adOpenKeyset, adLockOptimistic, adCmdText
7: txtProductID.Text - rstProduct.Fields(0).Value
8: txtProductName.Text - rstProduct.Fields(1).Value
9: txtUnitPrice.Text = rstProduct.Fields(2).Value
10: txtUnitsInStock.Text - rstProduct.Fields(3}.Value
11:
12: End Sub
Процедура начинается с установления соединения с базой данных Борей. Далее применяется оператор Select (Выбор) для создания объекта Recordset, т.е. набора извлекаемых данных. Значения полей затем используются для задания значения свойству Text (Текст) полей ввода экранной формы. Отметим, что поля индексируются целыми числами, начиная с нуля.
В окне кода в область общих объявлений надо также поместить следующие две строки:
Dim cnnProduct As New ADODB.Connection
Dim rstProduct As New ADODB.Recordset
Двойным щелчком на командной кнопке OK откройте процедуру cmdOK_click и введите в нее код:
frmProductInfo.Hide
cnnProduct.Close
Выполните экранную форму. Вы должны увидеть в полях экранной формы значения первой записи из набора записей, извлекаемых из базы данных. Щелкните на кнопке ОК для закрытия формы. Теперь надо научиться переходить от одной записи к другой в наборе извлекаемых записей.
