·您的位置: 首页 » 资源教程 » 编程开发 » ASP » 将数据访问页绑定到断开连接的记录集

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

类别: ASP教程  评论数:0 总得分:0
简介
断开连接的记录集是客户端高速缓存中的对象,该对象没有同服务器实时连接。使用断开连接的记录集,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 FilesMicrosoft OfficeOffice10Samples _
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 参数用于向脚本返回有关该事件的具体信息。无论是否使用此参数,都必须添加此参数,否则脚本将无法运行。
-= 资 源 教 程 =-
文 章 搜 索
关键词:
类型:
范围:
纯粹空间 softpure.com
Copyright © 2006-2008 暖阳制作 版权所有
QQ: 15242663 (拒绝闲聊)  Email: faisun@sina.com
 纯粹空间 - 韩国酷站|酷站欣赏|教程大全|资源下载|免费博客|美女壁纸|设计素材|技术论坛   Valid XHTML 1.0 Transitional
百度搜索 谷歌搜索 Alexa搜索 | 粤ICP备19116064号-1