将数据访问页绑定到断开连接的记录集

meyyammai subramanian

microsoft corporation

2001 年 4 月

适用于：

microsoft® access 2002

摘要：本文说明如何将数据访问页绑定到断开连接的 ado 记录集。

目录

简介

创建使用断开连接的记录集的数据访问页

简介

断开连接的记录集是客户端高速缓存中的对象，该对象没有同服务器实时连接。使用断开连接的记录集，activex® 数据对象 (ado) 允许您创建记录集，断开与数据源的连接，使用户可以脱机查看和编辑记录集。

例如，“类别”数据访问页会询问是否该页应使用断开连接的数据。如果用户单击“是”，该页将提示用户输入断开连接的记录集的路径。如果用户单击“否”，该页将使用实时数据。

创建使用断开连接的记录集的数据访问页

在“设计”视图中创建数据访问页。

添加所需的控件和分组级别。例如，创建“类别”页，该页组合有不同类别下的产品记录。

将代码添加到 beforeinitialbind 事件，以便连接到断开连接的记录集，或者连接到实时数据。

以下是 beforeinitialbind 事件过程示例。

<script language=vbscript event=beforeinitialbind(info) for=msodsc>

<!–

dim rs

dim strshapetext

dim strconnectionstring

dim strdatasource

adopenkeyset=1

adlockoptimistic=3

if vbyes=msgbox("使用断开连接的记录集吗？",vbyesno) then

on error resume next

strdatasource = inputbox ("请输入要使用的_

断开连接的记录集的路径。", "enter path", _

"c:\program files\microsoft office\office10\samples\ _

northwind.mdb")

strshapetext = msodsc.rootrecordsetdefs(0).shapetext

strconnectionstring = "provider=msdatashape.1; _

persist security info=false;data source=" & strdatasource _

& ";user id=admin;data provider=microsoft.jet.oledb.4.0"

set rs = createobject("adodb.recordset")

rs.open strshapetext, strconnectionstring, adopenkeyset, _

adlockoptimistic

if err.number <> 0 then

msgbox "错误：" & err.description & "error " & err.number

end if

msodsc.setrootrecordset "categories", rs

end if

–>

</script>

注意：

不能从 microsoft access 内部正常使用绑定到断开连接的记录集的数据访问页。 应在 microsoft internet explorer 中打开该页，才能正常查看。

在创建 microsoft&reg; office 数据源控件 (msodsc) 事件的 visual basic&reg; scripting edition (vbscript) 块时，必须将参数添加到事件名称中，如下所示：

<script language=vbscript for=msodsc event=current(oventinfo)>

oeventinfo 参数用于向脚本返回有关该事件的具体信息。无论是否使用此参数，都必须添加此参数，否则脚本将无法运行。