在消息框中显示数据库提取的数组
在消息框中显示数据库提取的数组
提问于 2019-06-12 23:30:03
我需要在消息框或任何表单中显示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'：类型不匹配”
我一直在苦苦思索如何做这件事，如果有任何帮助我将不胜感激。提前谢谢。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/56565737
复制相关文章
相似问题