Отображение извлеченного массива базы данных в окне сообщения

Question

Мне нужно показать группу записей из базы данных Access в окне сообщения или в любой форме, предназначенной только для просмотра, без добавления листов в рабочую книгу.

Информация разделена на 9 полей и может содержать до 15 строк на запись. Я попробовал несколько способов отображения информации, но они не работают или не добавили другой лист в рабочую книгу. Среда, в которой используется рабочая книга, предназначена только для сбора данных и печати. Видимо, я уже охватил соединение с базой данных, единственная проблема - отображение информации.

Private Sub Srch_Click()
 Dim A As Object, rs As Object, sSQL As String, CN As String, Arr As Variant, FL As Long, txt As String, i As Long
 FL = tbFolio.Value - 1
    Set A = CreateObject("ADODB.Connection")
    CN = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
        "Data Source=S:\Common\Quality\RASTREABILIDAD\MAIN PROJECT\PROYECTO KOREANO MX.accdb;"
    sSQL = "SELECT * FROM Trazabilidad WHERE Folio = " & (FL) & ";"
    A.Open CN
    Set rs = A.Execute(sSQL)
    Arr = rs.GetRows
    MsgBox Arr, vbOKOnly, Trazabilidad

    rs.Close
    A.Close
Unload Me
End Sub

В отладке выделенный раздел кода выглядит так:

MsgBox Arr, vbOKOnly, Trazabilidad

Сообщение об ошибке

«Ошибка« 13 »: несоответствие типов»

Я ломал голову над тем, как это сделать, и я был бы признателен за любую помощь. Заранее спасибо.

Answer 1

@ Алекс К. прав , говоря, что хорошим решением является циклический перебор набора записей.

Но вам также может быть полезно скопировать данные на лист, а затем поработать над ним.используя этот код:

mysheet.Range("A2").CopyFromRecordset rs