sql - ms-access:从查询运行，而不是rowsource

我有一个非常复杂的查询，它是从列表框行源运行的。我只是做一个listbox1.requery，它填充了listbox。

而不是这样做，我想：


我只想将查询保存在查询部分
从那里叫它。
然后我想将查询结果保存到字符串中
然后我想将字符串输入列表框


您能帮我提供这四个问题的代码吗？

谢谢！

最佳答案

另一个解决方案是在记录集中打开查询，然后将列表框控件的recordset属性设置为它。我有自己的功能（我主要将其用于组合框）。如有必要，当您要从另一个数据库打开记录集时，可以在该子项上添加一个额外的“连接”参数。

Public Sub addQueryToCombobox(x_query As String, x_control As Control)
Dim rs As ADODB.Recordset

On Error GoTo ERREUR

Set rs = New ADODB.Recordset

Set rs.ActiveConnection = CurrentProject.AccessConnection

rs.CursorType = adOpenStatic
rs.LockType = adLockReadOnly
rs.CursorLocation = adUseClient

rs.Open x_Query

Set rs.ActiveConnection = Nothing

Set x_control.Recordset = rs

Set rs = Nothing

On Error GoTo 0
Exit Sub

ERREUR:
'add here your own error manager'
End Sub

关于sql - ms-access:从查询运行，而不是rowsource，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/1369489/