Учебник по RDS (VBScript)

Статья
06/02/2023

Это руководство по RDS, написанное в Microsoft Visual Basic Scripting Edition. Описание целей этого руководства см. в руководстве по RDS.

Важно!

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

В этом руководстве описано , как RDS. DataControl и RDS. DataSpace создаются во время разработки, то есть они определяются с помощью тегов объектов, как показано ниже: <OBJECT>...</OBJECT>. Кроме того, их можно создать во время выполнения с помощью метода CreateObject (RDS). Например, RDS. Объект DataControl можно создать следующим образом:

Set DC = Server.CreateObject("RDS.DataControl")  
   <!-- RDS.DataControl -->  
   <OBJECT   
      ID="DC1" CLASSID="CLSID:BD96C556-65A3-11D0-983A-00C04FC29E33">  
   </OBJECT>  
  
   <!-- RDS.DataSpace -->  
   <OBJECT   
      ID="DS1" WIDTH=1 HEIGHT=1  
      CLASSID="CLSID:BD96C556-65A3-11D0-983A-00C04FC29E36">  
   </OBJECT>  
  
   <SCRIPT LANGUAGE="VBScript">  
  
   Sub RDSTutorial()  
   Dim DF1

Шаг 1. Указание серверной программы

VBScript может обнаружить имя веб-сервера IIS, на котором он выполняется, путем доступа к методу VBScript Request.ServerVariables, доступного для Active Server Pages:

"https://<%=Request.ServerVariables("SERVER_NAME")%>"

Однако в этом руководстве используйте воображаемый сервер "yourServer".

Примечание

Обратите внимание на тип данных аргументов ByRef . VBScript не позволяет указать тип переменной, поэтому необходимо всегда передавать значение Variant. При использовании ПРОТОКОЛА HTTP служба удаленных рабочих служб позволит передать variant методу, который ожидает не Variant, если вы вызываете его с помощью RDS. Метод CreateObject объекта DataSpace. При использовании DCOM или внутрипроцессного сервера необходимо сопоставить типы параметров на стороне клиента и сервера, в противном случае вы получите ошибку "Несоответствие типов".

Set DF1 = DS1.CreateObject("RDSServer.DataFactory", "https://yourServer")

Шаг 2а. Вызов серверной программы с помощью RDS. DataControl

Этот пример — просто комментарий, демонстрирующий поведение служб удаленных рабочих служб по умолчанию. DataControl выполняет указанный запрос.

<OBJECT CLASSID="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" ID="DC1">  
   <PARAM NAME="SQL" VALUE="SELECT * FROM Authors">  
   <PARAM NAME="Connect" VALUE="DSN=Pubs;">  
   <PARAM NAME="Server" VALUE="https://yourServer/">  
</OBJECT>  
...  
<SCRIPT LANGUAGE="VBScript">  
  
Sub RDSTutorial2A()  
   Dim RS  
   DC1.Refresh  
   Set RS = DC1.Recordset  
...

Шаг 2b. Вызов серверной программы с помощью RDSServer.DataFactory

Шаг 3. Сервер получает набор записей

Шаг 4. Сервер возвращает набор записей

Set RS = DF1.Query("DSN=Pubs;", "SELECT * FROM Authors")

Шаг 5. DataControl становится доступным для использования визуальными элементами управления

' Assign the returned recordset to the DataControl.  
  
DC1.SourceRecordset = RS

Шаг 6а. Изменения отправляются на сервер с RDS. DataControl

Этот пример представляет собой просто комментарий, демонстрирующий, как работает RDS. DataControl выполняет обновления.

<OBJECT CLASSID="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" ID="DC1">  
   <PARAM NAME="SQL" VALUE="SELECT * FROM Authors">  
   <PARAM NAME="Connect" VALUE="DSN=Pubs;">  
   <PARAM NAME="Server" VALUE="https://yourServer/">  
</OBJECT>  
...  
<SCRIPT LANGUAGE="VBScript">  
  
Sub RDSTutorial6A()  
Dim RS  
DC1.Refresh  
...  
Set RS = DC1.Recordset  
' Edit the Recordset object...  
' The SERVER and CONNECT properties are already set from Step 2A.  
Set DC1.SourceRecordset = RS  
...  
DC1.SubmitChanges

Шаг 6b. Изменения отправляются на сервер с помощью RDSServer.DataFactory

DF.SubmitChanges "DSN=Pubs", RS  
  
End Sub  
</SCRIPT>  
</BODY>  
</HTML>

Это последняя часть руководства.

См. также:

Учебник по RDS

Поделиться через