Управление базами данных Access на VBA - eDrive

More documents

Recommendations

Info

14 Название Тип Определение State Свойство Состояние объекта Connection Open Метод Создает новый объект Connection Execute Метод Выполняет команду Класс Recordset AbsolutePosition Свойство Устанавливает указатель на текущей записи BOF, EOF Свойство Определяет начало и конец набора записей Bookmark Свойство Сохраняет позицию указателя в наборе Connection Свойство Объектная переменная соединения RecordCount Свойство Число записей в наборе Close Метод Закрывает набор записей Delete Метод Удаляет текущую запись из набора GetRows Метод Копирует записи в двухмерный массив Move Метод Смещает указатель на заданную величину MoveFirst, Move- Переходит к первой, последней, следующей Last, MoveNext, Метод или предыдущей записи, делая ее текущей MovePrevious OpenRecordset Метод Создает новый набор записей Requery Метод Обновляет набор, переходя в ее начало Класс Command ActiveConnection Свойство Устанавливает подключение или его строку CommandText Свойство Источник: SQL-инструкция, таблица CommandType Свойство Тип свойства CommandText CommandTimeout Свойство Время ожидания выполнения запроса, с Prepared Свойство Предварительная готовность CommandText State Свойство Состояние объекта Command Cancel Метод Прекращает выполнение запроса CreateParameter Метод Создает параметр запроса Execute Метод Выполняет запрос объекта Command Объекты Recordset создают тремя методами: Open класса Recordset, Exequte класса Command или Exequte класса Connection. Синтаксис метода Open: rst.Open Source, Connection, CursorType, lockType, Options где Source — это имя таблицы или запроса, инструкция SQL, ссылка на объект Command или имя файла, Connection — ссылка на объект подключения, cursorType — тип доступа: adOpenDynamic — отображает все изменения, вставки и удаления, вносимые другими пользователями; adOpenKeyset — показывает только изменения; adOpenStatic — сохраняет исходный набор; adOpenForwardOnly — то же, при одностороннем движении курсора; LockType — тип блокировки: adLockReadOnly — только для чтения,
15 adLockPessimistic — пессимистическая блокировка, adLockOptimistic — оптимистическая блокировка, adLockBatchOptimistic — с кэшированием изменений в наборе; Options — характеристика Source: adCmdText — инструкция SQL, adCmdTable — SQL-запрос ко всем записям таблицы, adCmdTableDirect — таблица или запрос, adCmdUnknown — без указания параметра, adCmdFile — файл с набором записей. Объект Command служит для выполнения запросов. В качестве источника данных запроса может задаваться таблица или SQL-инструкция, серверное представление или хранимая процедура. Его свойство CommandType при этом принимает одно из значений: adCmdUnknown — неизвестный, по умолчанию, adCmdText — запрос или хранимая процедура, adCmdTable — таблица для запроса, adCmdTableDirect — непосредственно открываемая таблица, adCmdStoredProc — хранимая процедура на сервере, adCmdFile — файл с набором записей. Примеры Sub ТекущееСоединениеADO () Dim cnn As ADODB.Connection Set cnn = CurrentProject.Connection MsgBox cnn.ConnectionString If cnn.State = adStateClosed Then MsgBox "Нет подключения" Else MsgBox "Подключение есть" End If Set cnn = Nothing End Sub Sub Соединение1ADO () Dim cnn As ADODB.Connection Set cnn = New ADODB.Connection cnn.Open _ "Provider=SQLOLEDB; Data Source=srv; Initial Catalog=pubs;" & _ "DataBase=базаДанных; User Id=sa; Password=;" MsgBox cnn.ConnectionString If cnn.State = adStateClosed Then MsgBox "Нет подключения" Else MsgBox "Подключение есть" End If cnn.Close End Sub Sub Соединение2ADO () Dim cnn As ADODB.Connection Set cnn = New ADODB.Connection cnn.Provider = "SQLOLEDB" cnn.Properties ("DataSource") = "Источник"
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: 13 & "WHERE NТовара = 2 " Cur
Page 17 and 18: 17 cnnMDB.Open "DBQ=D:\ Кадры.
Page 19 and 20: 19 как используется
Page 21 and 22: 21 "UPDATE Сотр SET Сколь
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

Управление базами данных Access на VBA - eDrive

Create successful ePaper yourself

Delete template?

Save as template?