Шаг 2. Вызовите программу сервера (учебник по RDS)

При вызове метода на прокси-сервере клиента метод выполняется фактической программой на сервере. На этом шаге вы выполните запрос на сервере.

Важно!

Начиная с Windows 8 и Windows Server 2012 серверные компоненты RDS больше не включаются в операционную систему Windows (дополнительные сведения см. в Windows 8 и Windows Server 2012 совместимости). Клиентские компоненты RDS будут удалены в будущих версиях Windows. Избегайте использования этого компонента в новых разработках и запланируйте изменение существующих приложений, в которых он применяется. Приложения, использующие RDS, должны перейти в службу данных WCF.

Часть А Если вы не использовали RDSServer.DataFactory в этом руководстве, наиболее удобным способом выполнения этого шага было бы использование RDS. Объект DataControl . RDS. DataControl объединяет предыдущий шаг создания прокси-сервера, а на этом шаге — выдачу запроса.

Задайте RDS. Свойствоserver объекта DataControl для определения места создания экземпляра серверной программы; Свойство Connect для указания строки подключения для доступа к источнику данных; и свойство SQL для указания текста команды запроса. Затем выполните метод Refresh , чтобы серверная программа подключилась к источнику данных, извлекла строки, указанные в запросе, и возвращала объект Recordset клиенту.

В этом руководстве не используется RDS. DataControl, но если бы он выглядел следующим образом:

Sub RDSTutorial2A()  
   Dim DC as New RDS.DataControl  
   DC.Server = "https://yourServer"  
   DC.Connect = "DSN=Pubs"  
   DC.SQL = "SELECT * FROM Authors"  
   DC.Refresh  
...  

В этом руководстве также не вызывается RDS с объектами ADO, но в этом случае он будет выглядеть следующим образом:

Dim rs as New ADODB.Recordset  
rs.Open "SELECT * FROM Authors","Provider=MS Remote;Data Source=Pubs;" & _  
        "Remote Server=https://yourServer;Remote Provider=SQLOLEDB;"  

Часть Б Общий метод выполнения этого шага заключается в вызове метода query объекта RDSServer.DataFactory. Этот метод принимает строку подключения, которая используется для подключения к источнику данных, и текст команды, который используется для указания строк, возвращаемых из источника данных.

В этом руководстве используется метод Query объекта DataFactory:

Sub RDSTutorial2B()  
   Dim DS as New RDS.DataSpace  
   Dim DF  
   Dim RS as ADODB.Recordset  
   Set DF = DS.CreateObject("RDSServer.DataFactory", "https://yourServer")  
   Set RS = DF.Query ("DSN=Pubs", "SELECT * FROM Authors")  
...  

См. также:

Шаг 3. Сервер получает набор записей (учебник по RDS)
Учебник по RDS (VBScript)