Шаг 6. Изменения отправляются на сервер (руководство по RDS)
Если объект Recordset редактируется, все изменения (т. е. строки, добавляемые, измененные или удаленные) можно отправлять обратно на сервер.
Заметка
Поведение по умолчанию RDS можно вызывать неявно с объектами ADO и поставщиком удаленного взаимодействия Microsoft OLE DB. Запросы могут возвращать наборы записей, а измененные наборы записеймогут обновлять источник данных. В этом руководстве не используется RDS с объектами ADO, но это выглядело бы так, если бы использовалось:
Dim rs as New ADODB.Recordset
rs. "SELECT * FROM Authors","=MS Remote;=Pubs;" & _
=https://yourServer;=SQLOLEDB;"
... ' Edit the Recordset.
rs. ' The equivalent of
...
часть A Предположим, что для этого случая использовался только RDS.DataControl и что объект Recordset теперь связан с RDS.DataControl. Метод SubmitChanges обновляет источник данных, применяя любые изменения объекта набора записей , если свойства Server и Connect по-прежнему заданы.
Sub RDSTutorial6A()
Dim DC as New RDS.DataControl
Dim RS as ADODB.Recordset
DC. = "https://yourServer"
DC. = "DSN=Pubs"
DC. = "SELECT * FROM Authors"
DC.
...
Set RS = DC.
' Edit the Recordset.
...
DC.
...
часть B также можно обновить сервер с помощью объекта RDSServer.DataFactory, указав подключение и объект Recordset.
Sub RDSTutorial6B()
Dim DS As New RDS.DataSpace
Dim RS As ADODB.Recordset
Dim DC As New RDS.DataControl
Dim DF As Object
Dim blnStatus As Boolean
Set DF = DS.("RDSServer.DataFactory", "https://yourServer")
Set RS = DF. ("DSN=Pubs", "SELECT * FROM Authors")
DC. = RS ' Visual controls can now bind to DC.
' Edit the Recordset.
blnStatus = DF."DSN=Pubs", RS
End Sub
это конец руководства.
Важный
Начиная с Windows 8 и Windows Server 2012, компоненты сервера RDS больше не включены в операционную систему Windows (дополнительные сведения см. в статье Windows 8 и Windows Server 2012 Compatibility Cookbook). Клиентские компоненты RDS будут удалены в будущей версии Windows. Избегайте использования этой функции в новой работе разработки и планируйте изменение приложений, которые в настоящее время используют эту функцию. Приложения, использующие RDS, должны перейти на службу данных WCF .
См. также
поставщик удаленного доступа Microsoft OLE DB (поставщик служб ADO)
Руководство по RDS
учебник по RDS (VBScript)