Как вывести в debug результат запроса

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

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

Мир MS Excel » Вопросы и решения » Excel и другие приложения » Как вывести в debug результат запроса (Word)

ant6729

Дата: Пятница, 09.02.2018, 22:08 | Сообщение № 1

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

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

Сообщений: 533

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

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

Excel 2010

Добрый день, на листе 1 есть произвольная таблица
На лист2 выводится результат.
Как в этом коде вывести запрос в immediate window?

[vba]

Код

Sub SQLCopy()

Dim MyConnection As ADODB.Connection
Dim MyRecord As ADODB.Recordset
Dim strSQL As Variant
Set MyConnection = New ADODB.Connection
Set MyRecord = New ADODB.Recordset

With MyConnection
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=" & ThisWorkbook.FullName & ";" & _
        "Extended Properties=Excel 8.0;"
    .Open
End With

strSQL = "SELECT Петя FROM [Лист1$] "
MyRecord.Open strSQL, MyConnection

'Dedug.Print MyRecord.GetString ' не могу сообразить, как тут прописать
'Dedug.Print strSQL

Sheets("Лист2").Cells(1, 1).CopyFromRecordset MyRecord

MyRecord.Close
MyConnection.Close

End Sub

[/vba]

Ответить

Gustav

Дата: Суббота, 10.02.2018, 14:52 | Сообщение № 2

Группа: Друзья

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

Сообщений: 2746

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

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

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

Цитата ant6729, 09.02.2018 в 22:08, в сообщении № 1 ()

'Dedug.Print MyRecord.GetString ' не могу сообразить, как тут прописать

Debug через B в третьей букве напишите, а не через D, как у Вас, и будет счастье!

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