Введение в информатику процессов первичной переработки нефти. Новиков А.А - 125 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

124
Рис. 3.23. Окно событий объекта «Кнопка» в СУБД Access
Рис. 3.24. Окно выбора обработчика события в СУБД Access
В нашем примере для информационного объекта «Проба нефти» программа для
определения класса по содержанию серы будет иметь следующий вид.
Private Sub Кнопка18_Click()
Dim db As Database, r As Recordset
Dim s As Single
'установим указатель на БД
Set db = OpenDatabase("c:\oil.mdb")
'установим указатель на таблицу БД
Set r = db.OpenRecordset("Проба нефти")
'перейдем на первую запись
r.MoveFirst
'цикл открытия записей
Do While Not r.EOF
s = r.Fields("Массовая доля серы, %").Value

Страницы