使用 ADO 将 Recordset 对象传送到中间层

目录

可以使用 ADOR.Recordset 对象将 Recordset 对象从客户端 Web 页面调度到中间层业务对象。例如，假定用户连接到虚拟购物中心并选定了要购买的物品。选定的物品将显示在虚拟购物车中，该购物车是用 RDS.DataControl 对象实现的，并且缓存在行集合中。当客户单击购买按钮时，ADOR.Recordset 对象将被创建并且作为对业务函数 (ApplyUpdates) 的输入参数传送到应用程序服务器。这将使 Recordset 被调度到服务器。然后 ApplyUpdates 业务函数连接到 Sales 数据库并应用更新。

' 客户端 Web 页面的代码。
Sub PurchaseItem_OnClick
   Set rst = ADC1.Recordset' 以下选项通知记录集在更新时
' 仅返回已更改的记录。由此使得往返更轻松。
   rst.MarshalOptions = adMarshalModifiedOnly' 调用 MyObj 业务对象的 ApplyUpdates 功能
' 并将 ADOR.Recordset 对象作为输入参数传递。
   MyObj.ApplyUpdates rstEnd Sub
' 业务对象中的 VB 代码
' ApplyUpdates 是中间层业务对象中的方法。
Sub ApplyUpdates(rst As ADOR.Recordset)   rst.ActiveConnection =  _
      "DSN=SalesDB;UID=SMgr;PWD=password"' 保存更改记录。
   rst.UpdateBatchEnd Sub
www.holmesian.org