access vba 一个sub多次使用sql

access vba 一个sub多次使用sql

1）sql2 = "select last(成本单价) from RM_橱柜分厂材料成本2015 where 材料类别 = '" & Combo0.Value & "'"
data.Open sql1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
这里也是sql1么？似乎应改为sql2吧
2）关了sql1重开sql2没什么不可以的，那是在释放记录集对象所占用的内存，对于在低性能电脑上运行程序是很有好处的。
3）如果是多个记录的记录集，可以使用do……loop循环之类的方法移动指针而不必重开记录集，但你上面这两个记录集都是汇总查询单记录的，用不到的。以do……loop循环为例：
with data
.movefirst
do until .eof
Text25 = .Fields(0)
.movenext
loop
end with

如果你的recordset对象还将继续使用，则可以不关闭，否则，建议使用完后立即关闭。在不关闭已打开recordset对象情况下，你只有新建一个recordset对象。

ADODB.Recordset对象已经打开时，需要先关闭第一次打开才能再次打开。
在你第二次使用data.open前写一句data.close