다음을 통해 공유

RDS 자습서(VBScript)

  • 아티클

Microsoft Visual Basic Scripting Edition으로 작성된 RDS 자습서입니다. 이 자습서의 목적에 대한 설명은 RDS 자습서를 참조하세요.

Important

Windows 8 및 Windows Server 2012부터 RDS 서버 구성 요소는 더 이상 Windows 운영 체제에 포함되지 않습니다(자세한 내용은 Windows 8 및 Windows Server 2012 호환성 쿡북 참조). RDS 클라이언트 구성 요소는 이후 버전의 Windows에서 제거될 예정입니다. 새 개발 작업에서는 이 기능을 사용하지 않도록 하고, 현재 이 기능을 사용하는 애플리케이션은 수정하세요. RDS를 사용하는 애플리케이션은 WCF Data Service로 마이그레이션해야 합니다.

이 자습서에서는 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는 Active Server Pages에서 사용할 수 있는 VBScript Request.ServerVariables 메서드에 액세스하여 실행 중인 IIS 웹 서버의 이름을 검색할 수 있습니다.

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

그러나 이 자습서에서는 가상 서버 “yourServer”를 사용합니다.

참고 항목

ByRef 인수의 데이터 형식에 주의하세요. VBScript에서는 변수 형식을 지정할 수 없으므로 항상 Variant를 전달해야 합니다. HTTP를 사용하는 경우 RDS를 사용하면 RDS.DataSpace 개체 CreateObject 메서드를 사용하여 호출하는 경우 비 Variant가 필요한 메서드에 Variant를 전달할 수 있습니다. DCOM 또는 In-process 서버를 사용하는 경우 클라이언트 및 서버 쪽의 매개 변수 형식과 일치해야 합니다. 그렇지 않으면 “형식 불일치” 오류가 발생합니다.

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

2a단계 - 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 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

6a단계 - 변경 내용이 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 자습서