ExecuteOptions 및 FetchOptions 속성 예제(VBScript)
중요
Windows 8 및 Windows Server 2012부터, RDS 서버 구성 요소는 더 이상 Windows 운영 체제에 포함되지 않습니다(자세한 내용은 Windows 8 및 Windows Server 2012 호환성 쿡북 참조). RDS 클라이언트 구성 요소는 이후 버전의 Windows에서 제거될 예정입니다. 새 개발 작업에서는 이 기능을 사용하지 않도록 하고, 현재 이 기능을 사용하는 애플리케이션은 수정하세요. RDS를 사용하는 애플리케이션은 WCF Data Service로 마이그레이션해야 합니다.
다음 코드에서는 디자인 타임에 ExecuteOptions 및 FetchOptions 속성을 설정하는 방법을 보여 줍니다. 설정되지 않은 상태로 두면 ExecuteOptions는 기본적으로 adcExecSync로 설정됩니다. 이 설정은 RDS.Refresh 메서드가 호출될 때 현재 호출 스레드에서, 즉 동기적으로 실행됨을 나타냅니다. 다음 코드를 잘라내어 메모장이나 다른 텍스트 편집기에 붙여넣고 ExecuteOptionsDesignVBS.asp로 저장합니다.
<!-- BeginExecuteOptionsDesignVBS -->
<%@ Language=VBScript %>
<html>
<head>
<meta name="VI60_DefaultClientScript" content=VBScript>
<meta name="GENERATOR" content="Microsoft Visual Studio 6.0">
<title>Design-time ExecuteOptions and FetchOptions Properties Example</title>
<style>
<!--
body {
font-family: 'Verdana','Arial','Helvetica',sans-serif;
BACKGROUND-COLOR:white;
COLOR:black;
}
.thead {
background-color: #008080;
font-family: 'Verdana','Arial','Helvetica',sans-serif;
font-size: x-small;
color: white;
}
.thead2 {
background-color: #800000;
font-family: 'Verdana','Arial','Helvetica',sans-serif;
font-size: x-small;
color: white;
}
.tbody {
text-align: center;
background-color: #f7efde;
font-family: 'Verdana','Arial','Helvetica',sans-serif;
font-size: x-small;
}
-->
</style>
</head>
<body>
<h2>Design-time <br> ExecuteOptions and FetchOptions Properties Example</h2>
<OBJECT CLASSID="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" ID=RDS height=1 width=1>
<PARAM NAME="SQL" VALUE="SELECT FirstName, LastName FROM Employees ORDER BY LastName">
<PARAM NAME="Connect" VALUE="Provider='sqloledb';Data Source=<%=Request.ServerVariables("SERVER_NAME")%>;Integrated Security='SSPI';Initial Catalog='Northwind'">
<PARAM NAME="Server" VALUE="https://<%=Request.ServerVariables("SERVER_NAME")%>">
<PARAM NAME="ExecuteOptions" VALUE="1">
<PARAM NAME="FetchOptions" VALUE="3">
</OBJECT>
<TABLE DATASRC=#RDS>
<TBODY>
<TR class="thead2">
<TH>First Name</TH>
<TH>Last Name</TH>
</TR>
<TR class="tbody">
<TD><SPAN DATAFLD="FirstName"></SPAN></TD>
<TD><SPAN DATAFLD="LastName"></SPAN></TD>
</TR>
</TBODY>
</TABLE>
</body>
</html>
<!-- EndExecuteOptionsDesignVBS -->
다음 예제에서는 VBScript 코드에서 런타임에 ExecuteOptions 및 FetchOptions 속성을 설정하는 방법을 보여 줍니다. 이러한 속성의 작업 예제는 Refresh 메서드를 참조하세요. 다음 코드를 잘라내어 메모장이나 다른 텍스트 편집기에 붙여넣고 ExecuteOptionsRuntimeVBS.asp로 저장합니다.
<!-- BeginExecuteOptionsRuntimeVBS -->
<%@ Language=VBScript %>
<html>
<head>
<meta name="VI60_DefaultClientScript" content=VBScript>
<meta name="GENERATOR" content="Microsoft Visual Studio 6.0">
<title>Run-time ExecuteOptions and FetchOptions Properties Example</title>
<style>
<!--
body {
font-family: 'Verdana','Arial','Helvetica',sans-serif;
BACKGROUND-COLOR:white;
COLOR:black;
}
.thead {
background-color: #008080;
font-family: 'Verdana','Arial','Helvetica',sans-serif;
font-size: x-small;
color: white;
}
.thead2 {
background-color: #800000;
font-family: 'Verdana','Arial','Helvetica',sans-serif;
font-size: x-small;
color: white;
}
.tbody {
text-align: center;
background-color: #f7efde;
font-family: 'Verdana','Arial','Helvetica',sans-serif;
font-size: x-small;
}
-->
</style>
</head>
<body>
<h2>Run-time <br> ExecuteOptions and FetchOptions Properties Example</h2>
<OBJECT CLASSID="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" ID=RDS height=1 width=1>
<PARAM NAME="SQL" VALUE="SELECT FirstName, LastName FROM Employees ORDER BY LastName">
<PARAM NAME="Connect" VALUE="Provider='sqloledb';Data Source=<%=Request.ServerVariables("SERVER_NAME")%>;Integrated Security='SSPI';Initial Catalog='Northwind'">
<PARAM NAME="Server" VALUE="https://<%=Request.ServerVariables("SERVER_NAME")%>">
</OBJECT>
<TABLE DATASRC=#RDS>
<TBODY>
<TR class="thead2">
<TH>First Name</TH>
<TH>Last Name</TH>
</TR>
<TR class="tbody">
<TD><SPAN DATAFLD="FirstName"></SPAN></TD>
<TD><SPAN DATAFLD="LastName"></SPAN></TD>
</TR>
</TBODY>
</TABLE>
<Script Language="VBScript">
Const adcExecSync = 1
Const adcFetchAsynch = 3
Sub ExecuteHow
' set RDS properties at run-time
RDS1.ExecuteOptions = adcExecSync
RDS1.FetchOptions = adcFetchAsynch
RDS.Refresh
End Sub
</Script>
</body>
</html>
<!-- EndExecuteOptionsRuntimeVBS -->