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