Министерство образования и науки Украины Одесский национальный политехнический университет Институт компьютерных систем Кафедра компьютеризированных систем управления Лабораторная работа №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, а также обращение к данным через средства этого языка.
1/--страниц