Как вывести значения опр-ленного запроса из базы в Immediate

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

ant6729

Дата: Четверг, 28.12.2017, 23:15 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

Добрый вечер, а как вывести определенный запрос из базы accdb в консоль Excel VBA?

Типа... Debug.Print а как дальше, не могу понять...

[vba]

Код

Sub ReadMDB()
Dim tbl As Recordset
Dim SQLr As String
Dim dbs As DAO.Database
Set dbs = OpenDatabase("G:\price.accdb")
SQLr = "SELECT * FROM tbl_прайс"
Set tbl = dbs.OpenRecordset(SQLr)
Cells(1, 1).CopyFromRecordset tbl
Debug.Print
tbl.Close
Set tbl = Nothing
dbs.Close
Set dbs = Nothing
End Sub

[/vba]

Сообщение отредактировал ant6729 - Четверг, 28.12.2017, 23:15

Ответить

Gustav

Дата: Пятница, 29.12.2017, 11:37 | Сообщение № 2

Группа: Админы

Ранг: Участник клуба

Сообщений: 2797

Репутация: 1161 ±

Замечаний: ±

начинал с Excel 4.0, видел 2.1

А зачем Вам в "консоль", то бишь в Окно отладки, выводить? У Вас же на рабочий лист рекордсет выводится, причём сразу по ячейкам... А в Окне отладки количество строк ограничено, вроде, количеством 200. Так что в итоге увидите только последние 200 строк, остальные затрутся.

А чтобы таки вывести в "консоль", надо цикл писать, типа как здесь: https://msdn.microsoft.com/en-us/library/office/ff197799.aspx
[vba]

Код

Sub OpenRecordsetOutput(rstOutput As Recordset)

   ' Enumerate the specified Recordset object.
   With rstOutput
      Do While Not .EOF
         Debug.Print , .Fields(0), .Fields(1)
         .MoveNext
      Loop
   End With

End Sub

[/vba]И, возможно, перед вызовом этой процедуры надо будет рекордсету сделать .MoveFirst.

МОИ: Ник, Tip box: 41001663842605

Ответить

ant6729

Дата: Суббота, 30.12.2017, 16:09 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

Понятно...)
Потому что пробовать начинаю работать с базами, и знаю, что тут я особо не пойму...
Поэтому, чтобы закрыть пробел... дальше, наверное, все равно может понадобится... - я тут уточняю.
Но пока глубоко не смогу опробировать Вашу подсказку.

Ответить

Как вывести значения опр-ленного запроса из базы в Immediate

Страница 1 из 1
1