以下代碼演示如何在設(shè)計時設(shè)置 ExecuteOptions 和 FetchOptions 屬性。如果不進(jìn)行設(shè)置,ExecuteOptions 將默認(rèn)為 adcExecSync。該設(shè)置表明在調(diào)用 ADC.Refresh 方法時,該方法將在當(dāng)前調(diào)用的線程上執(zhí)行(同步)。
<OBJECT CLASSID="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" ID="ADC1">
.
.
.
<PARAM NAME="SQL" VALUE="Select * from Sales">
<PARAM NAME="Connect" VALUE="DSN=pubs;UID=sa;PWD=;">
<PARAM NAME="Server" VALUE="http://MyWebServer">
<PARAM NAME="ExecuteOptions" VALUE="1">
<PARAM NAME="FetchOptions" VALUE="3">
.
.
</OBJECT>
以下范例演示如何以 VBScript 代碼在運行時設(shè)置 ExecuteOptions 和 FetchOptions 屬性。請參閱這些屬性工作范例的 Refresh 方法。
<Script Language="VBScript">
<!--
Sub ExecuteHow
' 對調(diào)用的線程異步執(zhí)行下一個記錄集刷新。
ADC1.ExecuteOptions = 1
ADC1.FetchOptions = 3
ADC.Refresh
End Sub
-->
</Script>