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 представляют собой хранимое определение запроса. Он не содержит данных из таблиц, выбираемых по запросу.

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