|
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ù),否則腳本將無法運行。
|