|
|||||||
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция |
End With
End Sub
Применение метода GetRows Объекта Recordset Пример Скопировать в двумерный массив первые 3 записи из таблицы «Товары» и вывести их в окно Immediate.
Private Sub Кнопка0_Click() Dim basa As Database, nabor As Recordset, Массив As Variant, i, j As Byte Set basa = CurrentDb Set nabor = basa.OpenRecordset("Товары", dbOpenSnapshot) With nabor Массив =.GetRows(3) 'копируем 3 записи в массив End With For i = 0 To UBound(Массив, 2) For j = 0 To UBound(Массив, 1) Debug.Print Массив(j, i) & " "; Next j Debug.Print vbch
End Sub
Результат:
Объекты QueryDef Объект QueryDef представляют собой хранимое определение запроса. Он не содержит данных из таблиц, выбираемых по запросу.
Поиск по сайту: |
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.) |