我有一个非常复杂的查询,它是从列表框行源运行的。我只是做一个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/

10-13 02:55