使用 ADO 將 Recordset 對象傳送到中間層

使用 ADO 將 Recordset 對象傳送到中間層

可以使用 ADOR.Recordset 對象將 Recordset 對象從客戶端 Web 頁面調(diào)度到中間層業(yè)務(wù)對象。例如，假定用戶連接到虛擬購物中心并選定了要購買的物品。選定的物品將顯示在虛擬購物車中，該購物車是用 RDS.DataControl 對象實現(xiàn)的，并且緩存在行集合中。當(dāng)客戶單擊購買按鈕時，ADOR.Recordset 對象將被創(chuàng)建并且作為對業(yè)務(wù)函數(shù) (ApplyUpdates) 的輸入?yún)?shù)傳送到應(yīng)用程序服務(wù)器。這將使 Recordset 被調(diào)度到服務(wù)器。然后 ApplyUpdates 業(yè)務(wù)函數(shù)連接到 Sales 數(shù)據(jù)庫并應(yīng)用更新。

' 客戶端 Web 頁面的代碼。

Sub PurchaseItem_OnClick

   Set rst = ADC1.Recordset

' 以下選項通知記錄集在更新時

' 僅返回已更改的記錄。由此使得往返更輕松。

   rst.MarshalOptions = adMarshalModifiedOnly

' 調(diào)用 MyObj 業(yè)務(wù)對象的 ApplyUpdates 功能

' 并將 ADOR.Recordset 對象作為輸入?yún)?shù)傳遞。

   MyObj.ApplyUpdates rst

End Sub

' 業(yè)務(wù)對象中的 VB 代碼

' ApplyUpdates 是中間層業(yè)務(wù)對象中的方法。

Sub ApplyUpdates(rst As ADOR.Recordset)

   rst.ActiveConnection =  _

      "DSN=SalesDB;UID=SMgr;PWD=password"

' 保存更改記錄。

   rst.UpdateBatch

End Sub