Задания для практического занятия и инструктаж по их выполнению. Задание №1Написать процедуру VBA, создающую новую базу данных.

Задание №1 Написать процедуру VBA, создающую новую базу данных.

1. Написать процедуру, создающую в текущей базе данных таблицу СТУДЕНТЫ с полями Номер студента, ФИО, Предмет 1, Предмет2, ПредметЗ, Предмет4, Средний балл.

2. Внести в созданную таблицу пять записей во все поля (кроме поля Средний балл).

3. Создать процедуру, подсчитывающую средний балл всех студентов и заносящую рассчитанные значения в поле Средний балл.

4. Создать форму, отображающую данные таблицы СТУДЕНТЫ и содержащую кнопку, запускающую процедуру расчета среднего балла.

Ход работы:

1. Открыть новую базу данных и вкладку Модули, написать процедуру, создающую новую базу данных в соответствии с приведенным примером:
   Создание новой базы данных

Sub CreateDatabaseX()

'Описание переменных

Dim myWs As Workspace

Dim myDb As Database

'Определяем стандартный объект Workspace (рабочее пространство)

Set myWs = DBEngine.Workspaces (0)

'Создаем новую базу данных

'с указанным используемым порядком символов 'dbLangGeneral

Set myDb = myWs.CreateDatabase("C:\NewDB.mdb", dbLangGeneral) myDb.Close

End Sub

1. В результате выполнения процедуры на диске С должна появиться новая база данных с названием NewDB.mdb.
2. Написать процедуру, создающую в текущей базе данных таблицу СТУДЕНТЫ с полями Номер студента, ФИО, Предмет 1, Предмет2, ПредметЗ, Предмет4, Средний балл в соответствии с приведенным примером:

Создание новой таблицы СТУДЕНТЫ в текущей базе данных

Sub CreateTableDefX()

'Определяем переменные Dim myDb As Database

Dim myTab As TableDef

Dim myF As Field

Set myDb = CurrentDb()

'Создаем новый объект TableDef - таблицу СТУДЕНТЫ

Set myTab = myDb.CreateTableDef("Студенты")

'Создаем новый объект Field — текстовое поле Номер

'студента и добавляем его к семейству полей объекта

'таблицы СТУДЕНТЫ

Set myF = myTab.CreateField("Номерстудента", dblnteger)

myTab.Fields.AppendmyF

'Создаем новый объект Field — текстовое поле ФИО

'и добавляем его к семейству полей объекта

'таблицы СТУДЕНТЫ

Set myF = myTab.CreateField(ФИО, dbText) myTab.Fields.Append myF

'Создаем новый объект Field — поле Предмет1 и

'добавляем его к семейству полей объекта таблицы

'СТУДЕНТЫ

Set myF = myTab.CreateField("Предмет1", dblnteger) myTab.Fields.Append myF

'Аналогично поступаем с другими полями таблицы

Set myF = myTab.CreateField("Предмет2", dblnteger) myTab.Fields.Append myF

Set myF = myTab.CreateField("ПредметЗ", dblnteger) myTab.Fields.Append myF

Set myF = myTab.CreateField("Предмет4", dblnteger) myTab.Fields.Append myF

Set myF = myTab.CreateField("Среднийбалл", dbDouble) myTab.Fields.Append myF

'Добавляем объект таблицу СТУДЕНТЫ к семейству

' таблиц базы данных

myDb.TableDefs.Append myTab

End Sub

1. Открыть созданную таблицу и внести пять записей во все поля (кроме поля Средний балл).
2. Создать процедуру, подсчитывающую средний балл всех студентов и заносящую рассчитанные значения в поле Средний балл в соответствии с приведенным примером:

Private Sub SB()

Dim myDb As Database

'объектная переменная типа

'базы данных

DimmyRecAsRecordset

'объектная переменная типа

'набора записей

DimsbAsDouble

'переменная для вычисления

'среднего балла

DimiAsInteger

'переменная цикла

DimmaxAsInteger

'переменная для хранения

' числа записей в таблице

SetmyDb = CurrentDb()

'Работаем с текущей базой

'данных

'Открываем набор записей таблицы СТУДЕНТЫ и присваиваем

' ссылку на него объектной переменной

myRecSetmyRec = myDb.OpenRecordset("Студенты") i = 0

myRec.MoveLast

'Идем к последней записи таблицы

max = myRec.RecordCount

'При этом RecordCount содержит

' число записей в

'таблице, которое нужно нам

'для вычисления

'среднего бала в каждой ¹ строке таблицы

myRec.MoveFirst

'Переходим к первой записи

'таблицы и вычисляем средний

' балл

DoWhilei < max

sb = (myRec!Предмет1 + myRec!Предмет2 + myRec!ПредметЗ + + myRec!Предмет4)/4

myRec.Edit

'Заносим значение среднего

'балла в одноименное поле

myRec![Средний балл] = sb

myRec.Update

'Для внесения данных в поля

'таблицы обязательно используются

' команды Edit и

'Update.

myRec.MoveNext

'Переходим к следующей записи

' таблицы и повторяем все

i = i + 1

'пока не достигнем последней записи

Loop

'Закрываем набор записей.

myRec.CloseEndSub

1. Создать форму, отображающую данные таблицы СТУДЕНТЫ и содержащую кнопку, запускающую процедуру расчета среднего балла.

Не нашли, что искали? Воспользуйтесь поиском: