Использование DAO и ADO

Модели объектов Access

MS Access представлен 2 компонентами: ядром базы данных Jet

Подключение библиотек объектов

Для использования объектов доступа необходимо задать ссылку на библиотеки

Определение типа набора данных, возвращаемого свойством Recordset
Sub CheckRSType()
Dim rs

Иерархия объектов Jet Data Base Engine

Users

Errors

Workspaces

DBEngine

Groups

Databases

TableDefs

QueryDefs

Recordsets

Relations

Containers

Documents

Fields

Fields

Fields

Fields

Indexes

Библиотека содержит DLL файлы, присоединяемые к проекту в режиме реального

Иерархия объектов СУБД Access

Controls

References

Modules

Reports

Forms

Module

Application

Screen

DoCmd

Controls

Module

Обращение к объектам в иерархии выполняется перечислением всех

Интерфейсы ODBC и OLE BD

Интерфейс ODBC (Open Database Connectivity, Открытый интерфейс

Active X control

Active X это OLE с расширением для Internet.

1. Библиотека классов DAO ориентирована на работу с данными, обычно используется

Объект DBEngine - процессор ядра базы данных Jet. Объект DBEngine также

DBEngine
Находится на вершине иерархии объектов DAO и позволяет обращаться к

TableDef
Представляет таблицу БД,
т.е. коллекцию полей записей

QueryDef
Используется для создания

Права на создание набора данных

TelephoneDirectory
ПОЛЯ
- Name
- Department
- Extension

(Admin Access)
Полный доступ
ко

2. Во главе модели ADO стоит объект Connection (Соединение), оно описывает

3. Библиотеку классов Access возглавляет класс Application (Приложение), описывающий семейства Forms,

Визуальное программирование в Access

Для работы с формами и отчетами используется

Объект DoCmd дублирует операции интерфейса пользователя Access. Методы DoCmd не возвращают

Схема обращения к элементам библиотеки классов Access:
имяКласса!имяОбъекта[.имяЭлементаУправления].Элемент
Открытие форм и

Обращение к активным объектам класса Screen заменяют их свойствами ActiveDataSheet, ActiveForm,

Sub СвойстваФормыAccess ()
DoCmd.OpenForm FormName:="Мы", view:=acDes
With Forms!Мы
.Caption = "Сведения о

Sub ЗакрытьФормуОтчет ()
DoCmd.OpenForm “Сотрудники“,,, “Должность = ”дилер‘ “
MsgBox Forms (“Сотрудники“).Caption

Function ButtonCloseAndReturn ()
Dim имяПредыдущейФормы As String
If Screen.ActiveForm.Tag = ""

Свойства объектов Form и Report

o – объект,
i – целый,

Методы объекта Form

Обновление объектов, активных таблиц и запросов выполняется методом

Для выявления идентичных объектов можно использовать оператор Is. Он определяет логический

Sub ОбновлениеЧерезФормуAccess ()
DoCmd.OpenForm "Сотрудники", , , "Фамилия = 'Иванов'"
Set

Sub Form_Current () текст = Me![Поле1] Like "К*"
If текст Then

Sub КнопкаОшибки_Click ()
On Error GoTo сообщение
Err.Clear
число = InputBox ("Введите число")
сумма

Sub НавигацияAccess()
DoCmd.OpenForm "Сотрудники"
Set форма = Forms!Сотрудники
DoCmd.GoToRecord , , acLast
форма.Надпись.Caption

Sub Дни_Click ()
On Error GoTo конец
Dim день (1) As

Sub ЗапросSQL ()
DoCmd.OpenForm "Сотрудники"
DoCmd.RunSQL “UPDATE Сотрудники SET Родился =

Sub АнализТаблицыЧерезФорму ()
DoCmd.OpenForm "Выставка"
MsgBox Forms (“Выставка“).RecordsetClone.RecordCount & " записей

Название текущей версии DAO — MS DAO 3.6 Object Library. Обращение

Результирующие множества записей – объекты классов TableDef и QueryDef – создаются

Извлечение информации с помощью DAO:
1. создать рабочую область (объект workspace)
2. открыть

Объект DAO Recordset

В модели DAO присутствуют 4 типа объектов RecordSet:

Sub РабочаяОбластьDAO ()
Set область = DBEngine.Workspaces (0)
Set новаяБД =

Sub УправлениеТаблицей ()
Set tdf = CurrentDb.OpenRecordset ("Отделы")
MsgBox "Таблица открыта"
tdf.Close
MsgBox

Sub ДоступКПолямDAO ()
MsgBox CurrentDb!Таблица1.Fields(1).Name & Space (2) & CurrentDb!Таблица1.Fields(2).Name &

Для поиска определенной записи в наборах типа Table используется метод Seek,

Sub ПоискDAO ()
Set tdf1 = CurrentDb.OpenRecordset ("Сотрудники")
tdf1.Index = "PrimaryKey"
tdf1.Seek "=",

Sub ОбновлениеЗаписейDAO ()
Set rst = CurrentDb.OpenRecordset ("Таблица1")
где = "Фирма =

Sub СписокБазыДанныхDAO ()
Set текущаяБД = CurrentDb
Set рабочаяОбласть = DBEngine.Workspaces(0)
Set новаяБД

Sub ЗаменаДанныхDAO ()
Set объект = CurrentDb.OpenRecordset ("Товары", dbOpenDynaset)
критерий = "NТовара

Sub ПравкаТаблицDAO ()
Set таблица = CurrentDB.OpenRecordset ("Таблица1")
таблица.MoveFirst
таблица.Edit
таблица.Fields (Фирма)

Создание таблицы с помощью DAO
Option Explicit 'предписание явного объявления переменных
Sub

Sub ConnectionObjectX()
Dim wrkJet as Workspace, dbsNorthwind As Database, wrkODBC As

Создание таблицы с помощью ADO
Sub ADO()
Dim cnn As New ADODB.Connection 'Соединение с

Sub ADO_1()
Dim Cnn As New ADODB.Connection, rsADO As New ADODB. Recordset
Set

* - оnly .mdb, ** - only .adp, 1 - Uses

DAO
Sub DAOOpenJetDatabase()   
Dim db As DAO.Database   
Set db = DBEngine.OpenDatabase(".\NorthWind.mdb")   
db.Close
End Sub
ADO
Sub ADOOpenJetDatabase()   
Dim cnn As New ADODB.Connection   
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=.\NorthWind.mdb;"   
cnn.Close
End Sub
DAO
Sub DAOOpenJetDatabaseReadOnly()

DAO
Sub DAOOpenRecordset()
Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
Set

DAO ' Open the forward-only, read-only recordset
Sub DAOMoveNext()
Dim db As DAO.Database, rst

DAO
Sub DAOAddRecord()
Dim db As DAO.Database, rst As DAO.Recordset    
Set db = DBEngine.OpenDatabase (".\NorthWind.mdb")  
Set rst = db.OpenRecordset("SELECT * FROM Customers", dbOpenDynaset)   
rst.AddNew   
' Specify the values for the fields   
rst!CustomerId = "HENRY"   
rst.Update  ' Save the changes you made to the current record in the Recordset  
' Position recordset on new record

DAO
Sub DAOUpdateRecord()
Dim db As DAO.Database, rst As DAO.Recordset
Set db = DBEngine.OpenDatabase(".\NorthWind.mdb")
Set

DAO ‘Executing a nonparameterized stored query
Sub DAOExecuteQuery()
If gbBreakEach Then Stop
Dim

DAO ‘Executing a parameterized stored query
Sub DAOExecuteParamQuery()
Dim db As DAO.Database, qdf As

БД Библиотека

Dim rst As Recordset, strSQL as string
Screen.PreviousControl.SetFocus
If Not IsNull(Me.id_книга) Then

Private Sub id_книга_BeforeUpdate(Cancel As Integer)
Dim rst1, rst2 As Recordset, strSQL1 as

Sub update_table(table1)
Dim strsql1 As String, rst1 As Recordset
strsql1 = "SELECT "

Dim conn As ADODB.Connection 'declare conn to be a Connection
Set conn =

Протокол OLE DB

Пример использования объекта ADODB.Connection
Sub DemoADODB()
Const Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
Const DataSource

Извлечение информации с помощью ADO:
1. Объявить переменную-объект класса ADODB.Connection.
2. Задать информацию

После объявления переменной Recordset объект надо заполнить, используя:
метод Open объекта Recordset;
метод

3. Метода Execute объекта Connection позволяет работать с сохраненными процедурами. Однако,

1. Если используется обращение к БД Jet, то Access автоматически создает

Курсор необходим для перемещения между записями. По умолчанию тип Forward-only.

Выбор типа

Свойство LockType по умолчанию имеет свойства adLockPessimistic.

Блокирование

Методы Recordset

Основные
rst.Open
rst.Close
Перемещение по записям
rst.Movefirst
rst.MoveLast
rst.MoveNext
rst.MovePrevious
Поиск
rst.Find
rst.Seek ‘если поле

Перемещение по набору записей (ADO)

Методы MoveFirst, MoveLast, MoveNext и MovePrevious.
Метод

Чтение полей данных

Работа с текущим значением - укажите поле по имени

Recordset - свойства

rst.recordCount
rst.BOF
rst.EOF
rst.AbsolutePosition
rst.Fields.Count

Обращение к полям записи

Каждая запись содержит поля, к каждому

Объект Command представляет инструкцию SQL или сохраненную процедуру. Средства доступа OLE

SQL

В коде VBA принято использовать одинарные кавычки для определения строки
в инструкции

Dim rs As Object
Dim rs As Recordset
Dim int As Integer '