Историки об Елизавете Петровне: Елизавета попала между двумя встречными культурными течениями, воспитывалась среди новых европейских веяний и преданий...
Механическое удерживание земляных масс: Механическое удерживание земляных масс на склоне обеспечивают контрфорсными сооружениями различных конструкций...
Топ:
Марксистская теория происхождения государства: По мнению Маркса и Энгельса, в основе развития общества, происходящих в нем изменений лежит...
Организация стока поверхностных вод: Наибольшее количество влаги на земном шаре испаряется с поверхности морей и океанов...
Процедура выполнения команд. Рабочий цикл процессора: Функционирование процессора в основном состоит из повторяющихся рабочих циклов, каждый из которых соответствует...
Интересное:
Что нужно делать при лейкемии: Прежде всего, необходимо выяснить, не страдаете ли вы каким-либо душевным недугом...
Искусственное повышение поверхности территории: Варианты искусственного повышения поверхности территории необходимо выбирать на основе анализа следующих характеристик защищаемой территории...
Аура как энергетическое поле: многослойную ауру человека можно представить себе подобным...
Дисциплины:
2022-10-29 | 25 |
5.00
из
|
Заказать работу |
|
|
Dim Rs As New ADODB.RecordSet 'создание объекта Rs типа RecordSet
'подключение набора (можно не указывать, если набор открывается)
Set Rs.ActiveConnection=Cn 'подключение набора Rs (можно не указывать)
Rs.Open rsOff, Cn ‘повторное открытие набора Rs
Rs.UpdateBatch 'пакетное обновление набора
End Sub
Копирование набора в двумерный массив (GetRows)
Для копирования в ADO и DAO используется метод GetRows [(n)], который возвращает двумерный массив типа Variant(k,n). Первый индекс определяет поле, второй ‑ строку. По умолчанию копируется весь набор.
Пример формирования массива из таблицы “Заказчики” и его вывод.
Private Sub Command7_Click() ‘процедура копирования набора
Dim Cn As New ADODB.Connection, Rs As New ADODB.RecordSet
Dim i As Integer, j As Integer, Massiv As Variant 'массив для копирования
Cn.Open “DSN=Строительство“ 'установка связи через DSN-имя
Rs.Open “Заказчики“, Cn, adOpenForwardOnly, adLockReadOnly 'открытие
Rs.Fields.Refresh: Rs.MoveFirst: Massiv = Rs.GetRows 'копирование набора
Rs.Close: Set Rs = Nothing: Cn.Close: Set Cn = Nothing ‘закрытие базы
For j = 0 To UBound(Massiv, 2) ‘цикл чтения строк таблицы
For i=0 To UBound(Massiv, 1): Debug.Print Massiv(i, j); “ “;: Next ‘вывод полей
Debug.Print ‘переход на следующую строку
Next ‘конец цикла чтения строк таблицы
End Sub
Создание запросов с использованием конструктора среды данных
|
Рис. 9.10.1. Окна конструктора запросов, просмотра и среды данных
Перетащим из окна просмотра таблицу Stroiki в верхнюю часть окна запросов. Перетащим все поля из таблицы в сетку окна запросов. В нижней части окна запроса формируется текст команды SQL (Select …). Для перетаскивания всех полей можно щелкнуть на первом поле “*”. Для выполнения запроса выберем команду Query/Run, и сформированный запрос выведется в нижней части окна конструктора запросов. Для сохранения запроса выберите команду File/Save Uchet_Stroek. Используя команды контекстного меню в окне запросов, можно создать запросы на выборку данных (Select Query), на добавление записей в другую таблицу (Insert Query), на удаление существующих записей (Delete Query), на изменение отдельных значений полей и записей (Update Query), на создание таблицы (Make Table Query), на группировку записей (Group By). Текст команды Select можно изменять, например Qbjom*1,1 увеличит в запросе объем выполненных работ в 1,1 раза.
Используя конструктор запросов, можно визуально установить связь между таблицами: установите мышку на поле связи, нажмите левую кнопку мыши и, не отпуская ее, перетащите указатель на поле связи другой таблицы и отпустите кнопку. На экране появится линия связи.
Для удаления связи щелкните на линии связи правой кнопкой мыши и выберите команду из контекстного меню Remove.
Внимание! Для повторного формирования среды окружения (например, перед выводом отчета (п. 9.11)) нужно выполнить команду Unload <имя среды>.
|
|
Автоматическое растормаживание колес: Тормозные устройства колес предназначены для уменьшения длины пробега и улучшения маневрирования ВС при...
Двойное оплодотворение у цветковых растений: Оплодотворение - это процесс слияния мужской и женской половых клеток с образованием зиготы...
Семя – орган полового размножения и расселения растений: наружи у семян имеется плотный покров – кожура...
Кормораздатчик мобильный электрифицированный: схема и процесс работы устройства...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!