步骤 6: 将更改返回服务器(RDS 教程)

目录

您所在的步骤...

讨论

如果对 Recordset 对象进行编辑,任何更改(即对行的增加、修改或删除)都可以返回服务器。

注意   TRDS 的默认行为可通过 ADO 对象和 Microsoft OLE DB Remoting Provider 隐式调用。查询可返回记录集,而被编辑的记录集则可更新数据源。本教程不通过 ADO 对象调用 RDS,但在这里给出它的形式。

Dim rs as New ADODB.Recordset
rs.Open "SELECT * FROM authors", "Provider=MS Remote;Data Source=pubs;Remote Server=http://YourServer"
...            '编辑记录集
rs.UpdateBatch    '等值于 SubmitChanges
...

A 部分   假设在这里只使用了 RDS.DataControl 并且 Recordset 对象现在已与 RDS.DataControl 关联。如果 Server and Connect 属性已设置,SubmitChanges 方法将把对 Recordset 对象的任何改动更新到数据源。

Sub RDSTutorial6A()
Dim DC as New RDS.DataControl
Dim RS as New ADODB.Recordset   '可选择 ADOR.Recordset
DC.Server = "http://yourServer"
DC.Connect = "DSN=pubs"
DC.SQL = "SELECT * FROM authors"
DC.Refresh
...
Set RS = DC.Recordset
...                           '编辑 Recordset
...
DC.SubmitChanges
...

B 部分   另外,您也可以通过指定连接和 Recordset 对象,使用 RDSServer.DataFactory 对象更新服务器。

Sub RDSTutorial6B()
Dim DS as New RDS.DataSpace
Dim RS as New ADODB.Recordset   '可选择 ADOR.Recordset
Dim DC as New RDS.DataControl
Dim DF as Object
Set DF = DS.CreateObject("RDSServer.DataFactory", "http://yourServer")
Set RS = DF.Query ("DSN=pubs", "SELECT * FROM authors")
DC.SourceRecordset = RS         '可视控件现在可绑定到 DC.
...                           '编辑 Recordset
blnStatus = DF.SubmitChanges "DSN=pubs", RS

本教程到此结束。

www.2mysite.net