Лабораторные работы по курсу «Базы данных»

Public Function foo3_5(gr_student As String, fio_student As String)

жүктеу/скачать 0,79 Mb.

Pdf көрінісі

бет	21/46
Дата	12.05.2023
өлшемі	0,79 Mb.
	#92097
түрі	Практикум

1 ... 17 18 19 20 21 22 23 24 ... 46

Байланысты:
2-3 лаб

выполнить запрос rstSQL.Open strSQL, CurrentProject.Connection If rstSQL.EOF Then если ни одной строки не найдено, то добавить новую
strSQL = "update R2 set gr=""" gr_student """ where fio like """ fio_student """ and gr not like """ gr_student """" End If rstSQL.Close
Задание на лабораторную работу №3 Обязательная часть

Public Function foo3_5(gr_student As String, fio_student As String)
' объявляем переменные
Dim strSQL As String
Dim rstSQL As ADODB.Recordset

Set rstSQL = New ADODB.Recordset
' ищем записи о студенте
strSQL = "select * from R2 where fio like """ & fio_student & """"
' выполнить запрос
rstSQL.Open strSQL, CurrentProject.Connection
If rstSQL.EOF Then
' если ни одной строки не найдено, то добавить новую
strSQL = "insert into R2 (gr,FIO) values(""" & gr_student &
""",""" & fio_student & """)"
Else
' если найдена, то обновляем номер группы
strSQL = "update R2 set gr=""" & gr_student & """ where fio like
""" & fio_student & """ and gr not like """ & gr_student & """"
End If
rstSQL.Close

DoCmd.SetWarnings False
DoCmd.RunSQL strSQL ' выполнить запрос
DoCmd.SetWarnings True
End Function;
“” (дважды двойные кавычки) – используется для вставки в строку “, т.е.
вторые двойные кавычки используются как символ экранирования
(например, как в C \\). Комментарии начинаются с символа ‘ – одинарной
кавычки. В функции формируется запрос, выполняется и проверяется
результат выполнения – если нет полученных кортежей, значит необходимо
добавить новую запись «Группа», «Студент», иначе обновить записи для
этого студента о его принадлежности к группе.

Задание на лабораторную работу №3
Обязательная часть
1. Создать базу данных по любой предметной области (желательно по
курсовой работе), которая должна минимум содержать таблицу, состоящую
минимум из 6 полей, где обязательно должно присутствовать поле типа date.
Для создания таблиц БД использовать скриптовый файл или
макрокоманду, содержащую набор SQL-команд из части языка SDL;
2. Реализовать процедуры Добавления, Удаления, Поиска и
Изменения, с помощью SQL;
3. Организовать оконный интерфейс для функций, созданных на
предыдущем этапе (добавления, удаления, поиска и изменения);
4. Поиск должен осуществляться с использованием индексов, т.е. поля,
по которым осуществляется поиск, должны быть проиндексированы. Для
создания индексов использовать CREATE INDEX.
Выполнение обязательных пунктов = 70%
Бонус (+ 15%): Для получения дополнительных баллов реализовать
кодовые поля в основной таблице и справочник(и) для расшифровки этих
полей (подобно базе allauto.mdb).

жүктеу/скачать 0,79 Mb.

Достарыңызбен бөлісу:

1 ... 17 18 19 20 21 22 23 24 ... 46