Siv*_*esh 7 ms-access vba adodb recordset access-vba
我在Access 2003中有一个简单的表单,一个查询和一个报表.我必须使用VBA操作记录集中的查询结果,然后将其作为RecordSource传递给报表.
如果我将记录集声明为RecordSet并使用其Name属性作为报告的RecordSource,那么它正在工作.但是,因为我需要编辑记录集,所以尽管如下使用ADODB RecordSet会更容易.
记录集Dim rs As ADODB.RecordSet在全局模块中声明.其余的代码是;
Dim db As Database
Set db = CurrentDb
Dim con As ADODB.Connection
Set con = CurrentProject.Connection
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = con
rs.Source = "Select * from XXX"
rs.LockType = adLockOptimistic
rs.CursorType = adOpenKeyset
rs.Open
'manipulate rs here....'
Run Code Online (Sandbox Code Playgroud)
我曾经将报告的RecordSource作为myReport.RecordSource = rs.Name传递.但是ADODB没有Name属性.
如何将此记录集作为其RecordSource传递给报表?
谢谢