excel - 如何在工作表单元格中插入 SQL 查询的结果
问题描述
我想直接在我使用 ADO Excel VBA 的特定单元格中写入我的 sql 查询的结果。
SetConn ' SET THE CONNECTION TO THE DATABASE.
sQuery = "SELECT * FROM [referenceStandard$] WHERE [Line] = 'L1' AND [Variants] = 'Choco Wafer (L1)' AND [ID] = 'CW (L1)' "
If rs.State = adStateOpen Then
rs.Close
End If
rs.CursorLocation = adUseClient
rs.Open sQuery, myConn, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
MsgBox "Result is > 1"
Do While Not rs.EOF
'Codes that will copy the result of query and paste in worksheet cells
Loop
End If
解决方案
您可以使用CopyFromRecordset
:
rs.Open sQuery, myConn, adOpenKeyset, adLockOptimistic
If Not rs.EOF Then
ActiveSheet.Range("a1").CopyFromRecordset rs
End If
如果您想要比这更具体/更有选择性的东西,那么用更多细节更新您的问题可能会很有用。
推荐阅读
- r - 使闪亮的`dateRangeInput`的`end`总是大于`start`
- cors - Salesforce OpenID Connect - /.well-known/openid-configuration 被 CORS 阻止
- python - 绘制一个多轴对象数组
- terraform - terraform 中的二维数组支持
- flutter - 下拉按钮未在 Flutter 中显示所选值
- javascript - 我在做什么导致索引被乱序绘制
- android - 如何在 facelock android 设备中获取注册的设备面部 Ids 参数?
- vb.net - 找不到接收 Mqtts 消息的方法
- javascript - 如何解决 Express 中的“Access-Control-Allow-Origin”问题?
- sql - 在查询中将十六进制转换为十进制