АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

End With

MsgBox s

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

Next i

End Sub

 

Результат:

 

 

Объекты QueryDef

Объект QueryDef представляют собой хранимое определение запроса. Он не содержит данных из таблиц, выбираемых по запросу.

 


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 |

Поиск по сайту:



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.)