|
Meyyammai Subramanian
Microsoft Corporation
2001 年 4 月
適用于：
Microsoft® Access 2002
摘要：本文說明如何將數(shù)據(jù)訪問頁綁定到斷開連接的 ADO 記錄集。
目錄
簡介
創(chuàng)建使用斷開連接的記錄集的數(shù)據(jù)訪問頁
簡介
斷開連接的記錄集是客戶端高速緩存中的對象，該對象沒有同服務器實時連接。使用斷開連接的記錄集，ActiveX® 數(shù)據(jù)對象 (ADO) 允許您創(chuàng)建記錄集，斷開與數(shù)據(jù)源的連接，使用戶可以脫機查看和編輯記錄集。
例如，“類別”數(shù)據(jù)訪問頁會詢問是否該頁應使用斷開連接的數(shù)據(jù)。如果用戶單擊“是”，該頁將提示用戶輸入斷開連接的記錄集的路徑。如果用戶單擊“否”，該頁將使用實時數(shù)據(jù)。
創(chuàng)建使用斷開連接的記錄集的數(shù)據(jù)訪問頁
在“設計”視圖中創(chuàng)建數(shù)據(jù)訪問頁。
添加所需的控件和分組級別。例如，創(chuàng)建“類別”頁，該頁組合有不同類別下的產(chǎn)品記錄。
將代碼添加到 BeforeInitialBind 事件，以便連接到斷開連接的記錄集，或者連接到實時數(shù)據(jù)。
以下是 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 內(nèi)部正常使用綁定到斷開連接的記錄集的數(shù)據(jù)訪問頁。 應在 Microsoft Internet Explorer 中打開該頁，才能正常查看。
在創(chuàng)建 Microsoft® Office 數(shù)據(jù)源控件 (MSODSC) 事件的 Visual Basic® Scripting Edition (VBScript) 塊時，必須將參數(shù)添加到事件名稱中，如下所示：
<SCRIPT LANGUAGE=vbscript FOR=MSODSC EVENT=Current(oventInfo)>
oEventInfo 參數(shù)用于向腳本返回有關該事件的具體信息。無論是否使用此參數(shù)，都必須添加此參數(shù)，否則腳本將無法運行。
|
