Управление базами данных Access на VBA - eDrive
Управление базами данных Access на VBA - eDrive Управление базами данных Access на VBA - eDrive
20 .Open "Сотрудники", CurrentProject.Connection, _ adOpenDynamic, adLockPessimistic .Find "Кто = 'Гуринов'" .Fields ("Зачем") = "Отпуск" .AddNew .Fields ("Кто") = "Архипов" .Update .Close End With End Sub Sub УдалениеADO () Dim rst As New ADODB.Recordset rst.Open "Сотрудники", CurrentProject.Connection, _ adOpenStatic, adLockOptimistic rst.Find "Кто = 'Гуринов'" rst.Delete adAffectCurrent rst.Update rst.Close End Sub Public Sub УдалениеЗаписиADO() Dim rst As New ADODB.Recordset rst.Open "SELECT * FROM Сотрудники " & _ "WHERE Сколько < 200", CurrentProject.Connection, _ adOpenStatic, adLockOptimistic строка = rst.RecordCount & vbCr Do While Not rst.EOF строка = строка & rst!Кто & vbCr rst.MoveNext Loop MsgBox строка строка = UCase (InputBox ("Кого удалить")) rst.Filter = "Кто = '" & строка & "'" rst.Delete rst.UpdateBatch rst.Filter = adFilterNone rst.Requery строка = "После удаления осталось " & rst.RecordCount & vbCr Do While Not rst.EOF строка = строка & rst!Кто & vbCr rst.MoveNext Loop MsgBox строка rst.Close End Sub Sub ЗапросыADO () Dim набор As New ADODB.Recordset набор.Open "Сотр", CurrentProject.Connection, adOpenStatic, adLockOptimistic где = "Сколько < 200" DoCmd.RunSQL _
21 "UPDATE Сотр SET Сколько = 5 WHERE " & где DoCmd.RunSQL _ "UPDATE Сотр SET Кто = 'LG' WHERE " & где Set набор = Nothing End Sub Визуальное программирование в Access Для работы с формами и отчетами используется библиотека Access с базовым классом Application. Основными методами Application являются: Метод Назначение CloseCurrentDatabase Закрывает текущую базу данных из другой базы NewCurrentDatabase Создает новый объект Database из другого приложения OpenCurrentDatabase Открывает в качестве текущей базы объект Database Quit Закрывает Access Run Запускает процедуру Access из другого приложения RunCommand Запускает команду меню или панели инструментов Входящее в Access семейство Forms (Формы) содержит формы и их объекты, принадлежащие классу Controls (Элементы управления). Семейство Reports (Отчеты) включает все отчеты приложения и объекты отчетов того же класса Controls. Семейство Modules (Модули) объединяет все стандартные модули и модули авторских классов, а также модули, связанные с формами и отчетами. Для работы с окнами используется класс Screen. А класс DoCmd позволяет обращаться из модулей к стандартным средствам Access. Схема обращения к членам библиотеки классов Access: имяКласса!имяОбъекта[.имяЭлементаУправления].Член Открытие форм и отчетов выполняется методами OpenForm и OpenReport объекта DoCmd: • DoCmd.OpenForm Объект [, режимВывода] [, Запрос] _ [, условиеОтбора] [, режимДанных] [, режимОкна] _ [, аргументыОткрытия] • DoCmd.OpenReport Объект [, режимВывода] [, Запрос] _ [, условиеОтбора] [, режимДанных] [, режимОкна] _ [, аргументыОткрытия] Обращение к объектам форм и отчетов выполняется по схемам: • [Forms! Форма!] Объект
- Page 1 and 2: В. М. Водовозов Упра
- Page 3 and 4: Оглавление Модели
- Page 5 and 6: 5 Процедурное и стр
- Page 7 and 8: 7 • Parent!имяПоляГлав
- Page 9 and 10: 9 Метод … объектНаб
- Page 11 and 12: 11 tdf2.FindFirst "Кто = 'Але
- Page 13 and 14: 13 & "WHERE NТовара = 2 " Cur
- Page 15 and 16: 15 adLockPessimistic — песси
- Page 17 and 18: 17 cnnMDB.Open "DBQ=D:\ Кадры.
- Page 19: 19 как используется
- Page 23 and 24: 23 Имя = InputBox ("Какую
- Page 25 and 26: 25 Picture bmp Имя файла ф
- Page 27 and 28: 27 поле.FontName = "Times New R
- Page 29 and 30: 29 Sub ОткрытыеОтчеты
- Page 31 and 32: 31 DoCmd.OpenForm "Сотрудни
- Page 33 and 34: 33 With новаяПанель.Cont
- Page 35: 35 End If CurrentDb.Properties ("Al
21<br />
"UPDATE Сотр SET Сколько = 5 WHERE " & где<br />
DoCmd.RunSQL _<br />
"UPDATE Сотр SET Кто = 'LG' WHERE " & где<br />
Set <strong>на</strong>бор = Nothing<br />
End Sub<br />
Визуальное программирование в <strong>Access</strong><br />
Для работы с формами и отчетами используется библиотека <strong>Access</strong> с<br />
базовым классом Application. Основными методами Application являются:<br />
Метод<br />
Наз<strong>на</strong>чение<br />
CloseCurrentDatabase Закрывает текущую базу <strong>данных</strong> из другой базы<br />
NewCurrentDatabase Создает новый объект Database из другого приложения<br />
OpenCurrentDatabase Открывает в качестве текущей базы объект Database<br />
Quit<br />
Закрывает <strong>Access</strong><br />
Run<br />
Запускает процедуру <strong>Access</strong> из другого приложения<br />
RunCommand Запускает команду меню или панели инструментов<br />
Входящее в <strong>Access</strong> семейство Forms (Формы) содержит формы и их<br />
объекты, при<strong>на</strong>длежащие классу Controls (Элементы управления). Семейство<br />
Reports (Отчеты) включает все отчеты приложения и объекты отчетов того<br />
же класса Controls. Семейство Modules (Модули) объединяет все стандартные<br />
модули и модули авторских классов, а также модули, связанные с формами и<br />
отчетами. Для работы с ок<strong>на</strong>ми используется класс Screen. А класс DoCmd<br />
позволяет обращаться из модулей к стандартным средствам <strong>Access</strong>.<br />
Схема обращения к чле<strong>на</strong>м библиотеки классов <strong>Access</strong>:<br />
имяКласса!имяОбъекта[.имяЭлементаУправления].Член<br />
Открытие форм и отчетов выполняется методами OpenForm и<br />
OpenReport объекта DoCmd:<br />
• DoCmd.OpenForm Объект [, режимВывода] [, Запрос] _<br />
[, условиеОтбора] [, режимДанных] [, режимОк<strong>на</strong>] _<br />
[, аргументыОткрытия]<br />
• DoCmd.OpenReport Объект [, режимВывода] [, Запрос] _<br />
[, условиеОтбора] [, режимДанных] [, режимОк<strong>на</strong>] _<br />
[, аргументыОткрытия]<br />
Обращение к объектам форм и отчетов выполняется по схемам:<br />
• [Forms! Форма!] Объект
Change language