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 參數用于向腳本返回有關該事件的具體信息。無論是否使用此參數，都必須添加此參數，否則腳本將無法運行。