Page 109 - 6735

(DAO) – прикладний програмний інтерфейс для доступу до даних
[29, 33, 45]. Приклад створює базу даних db1.mdb з інформацією
про студентів і виконує SQL-запит до цієї бази даних. Перед
виконанням виберіть в меню: Tools/References/Microsoft DAO 3.6
Object Library.

Dim РобочаОбласть As DAO.Workspace 'робоча область
Dim БазаДаних As DAO.Database 'база даних
Dim Таблиця As DAO.TableDef 'таблиця
Dim Поле As DAO.Field 'поле
Dim Запис As DAO.Recordset 'набір записів
Dim Sqlstr As String 'рядок для команд SQL

Public Sub main()
'Створюємо робочу область
Set РобочаОбласть = CreateWorkspace("", "admin", "",
dbUseJet)
'Створюємо базу даних "db1.mdb"
Set БазаДаних = РобочаОбласть.CreateDatabase("db1",
dbLangGeneral)
Set Таблиця = New DAO.TableDef 'створюємо таблицю
With Таблиця 'з таблицею
.Fields.Append .CreateField("Прізвище", dbText)
'створити поле "Прізвище"
.Fields.Append .CreateField("Оцінка", dbInteger)
'створити поле "Оцінка"
End With
Таблиця.name = "stud" 'ім'я таблиці
БазаДаних.TableDefs.Append Таблиця 'додати таблицю
БазаДаних.Close 'закрити базу даних
Set БазаДаних = РобочаОбласть.OpenDatabase("db1.mdb",
True) 'відкрити базу даних
'Створюємо записи таблиці "stud"
Set Запис = БазаДаних.OpenRecordset("stud", dbOpenDynaset)
Запис.AddNew 'додати запис
Запис.Fields("Прізвище").Value = "Іванов" 'ввести значення
поля "Прізвище"
109