如何在VBA程序中将窗体的 Recordset 对象赋值给变量。如何绑定窗体数据源到Recordset？

作者：cg1 摘自：access911.net 录入：cg1 时间：2002-11-19 浏览人次：1938

专题地址：http://www.access911.net/index.asp?u1=a&u2=79FA 如果需要更详细的评论或说明，请点击该地址。

简述：如何在VBA程序中将窗体的 Recordset 对象赋值给变量？《窗体》

有些朋友使用以下代码总是出错

Dim Rst As New ADODB.Recordset
Rst = Me.Recordset
Rst = Me.RecordsetClone

现在解释如下：

窗体的 Me.Recordset 是一个通用对象，因为平时使用了 Jet 的绑定，所以缺省的
Me.Recordset 是 DAO.Recordset 类型。
如果你直接用它来保存 ADODB.Recordset ，使用下面方法。
在 Form_Open 里面加入一下代码

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
With rs
    .ActiveConnection = CurrentProject.Connection
    .Source = "SELECT * FROM 你的表"
    .LockType = adLockOptimistic
    .CursorType = adOpenKeyset
    .Open
End With
Set Me.Recordset = rs

然后你后面引用的 Me.Recordset Me.RecordsetClone 即为 ADO 类型
[color=red.....................
...........

资料库随时有更新，欲查看最新详情请单击专题地址：http://www.access911.net/index.asp?u1=a&u2=79FA

上一篇：如何用VBA打开控制面板中的选项？

下一篇：API 函数集锦

2010年7月2日生成静态资料