ExecuteOptions and FetchOptions Properties Example (VBScript)

The following code shows how to set the ExecuteOptions and FetchOptions properties at design time. If left unset, ExecuteOptions defaults to adcExecSync. This setting indicates that when the ADC.Refresh method is called, it will be executed on the current calling thread—that is, synchronously.

<!-- BeginExecuteOptionsDesignVBS -->
<%@ Language=VBScript %>
<html>
<head>
    <meta name="VI60_DefaultClientScript"  content=VBScript>
    <meta name="GENERATOR" content="Microsoft Visual Studio 6.0">
    <title>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>
<h1>ExecuteOptions and FetchOptions Properties Example</h1>

<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";UID=sa;PWD=;Initial Catalog=Northwind">
<PARAM NAME="Server" VALUE="http://<%=Request.ServerVariables("SERVER_NAME")%>">
<PARAM NAME="Data Source" VALUE="http://<%=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 -->

The following example shows how to set the ExecuteOptions and FetchOptions properties at run time in VBScript code. See the Refresh method for a working example of these properties.

<!-- BeginExecuteOptionsRuntimeVBS -->
<%@ Language=VBScript %>
<html>
<head>
    <meta name="VI60_DefaultClientScript"  content=VBScript>
    <meta name="GENERATOR" content="Microsoft Visual Studio 6.0">
    <title>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>
<h1>ExecuteOptions and FetchOptions Properties Example</h1>

<Script Language="VBScript">
<!--
Const adcExecSync = 1
Const adcFetchAsynch = 3

Sub ExecuteHow
  ' Execute next refresh of Recordset asynchronously 
  ' to the calling thread.
  RDS1.ExecuteOptions = adcExecSync
  RDS1.FetchOptions = adcFetchAsynch
  RDS.Refresh
End Sub
-->
</Script>
</body>
</html>
<!-- EndExecuteOptionsRuntimeVBS -->

ExecuteOptions and FetchOptions Properties Example (VBScript)

See Also