ПротоколБД6

Министерство образования и науки Украины
Одесский национальный политехнический университет
Институт компьютерных систем
Кафедра компьютеризированных систем управления
Лабораторная работа №6
по курсу "Программное обеспечение современных ЭВМ"
Выполнение операторов SQL средствами встроенного языка BASIC
Выполнила: ст. гр. АТ-082
Полищук Т.
Проверил: Андриевский Г.Г.
Коваленко А.
Одесса 2011
Цель работы.
Изучение языка структурированных запросов SQL с объектами доступа к данным.
Ход работы.
Создадим новую таблицу со следующими полями как показано на рисунке:
И заполним её данными: IDNameMark1Лобанов732Тапочка363Курин624Пепяка1005Алексеенко896Мосельский937Попов958Пупкин999Ремов3210Перов100
Теперь необходимо напишем программу на BASIC, манипулирующую этими данными:
Sub Main()
Dim db As Database 'Объект БД
Dim rs As Recordset 'Объект набора записей
Dim x As Variant 'Сумма и результат
Dim i As Integer 'Счётчик
Dim s As String 'Объект набора записей
x = 0 'Обнуляем сумму
s = "SELECT Mark FROM Students" 'Запрос на языке SQL
Set db = CurrentDb
Set rs = db.OpenRecordset(s) 'Выбрать записи из текущей БД по запросу
While Not rs.EOF 'Цикл пока есть записи
x = x + rs!Mark 'Суммарное значение баллов
i = i + 1 'Количество оценок
rs.MoveNext 'Переход к след. записи
Wend
x = x / i 'Находим среднее значение
MsgBox x 'Вывод на экран
Exit Sub
End Sub
Результат:
Выводы.
В результате выполнения лабораторной работы я изучила основы инструкций SQL, написанные с помощью встроенного языка Visual Basic, а также обращение к данным через средства этого языка.