此頁沒有內(nèi)容條目
內(nèi)容

ReadyState 屬性范例

以下范例說明如何在運(yùn)行時(shí)以 VBScript 代碼讀取 RDS.DataControl 對象的 ReadyState 屬性。ReadyState 為只讀屬性。

要測試該范例，請剪切該代碼并粘貼到標(biāo)準(zhǔn) HTML 文檔的 <Body></Body> 標(biāo)記之間，然后將其命名為“ADCapi9.asp”。ASP 腳本將標(biāo)識服務(wù)器。

<Center><H2>RDS API Code Examples </H2>

<HR>

<H3> RDS.DataControl ReadyState property</H3></Center>

<!-- 在運(yùn)行時(shí)設(shè)置參數(shù)的 RDS.DataControl -->

<OBJECT classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33"

   ID=ADC>

   <PARAM NAME="SQL" VALUE="Select * from Employee for browse">

   <PARAM NAME="SERVER" VALUE="http://<%=Request.ServerVariables("SERVER_NAME")%>">

   <PARAM NAME="CONNECT" VALUE="dsn=ADCDemo;UID=ADCDemo;PWD=ADCDemo;">

<PARAM NAME="ExecuteOptions" VALUE="adcExecAsync">

<PARAM NAME="FetchOptions" VALUE="adcFetchAsync">

</OBJECT>

<Script Language="VBScript">

Sub Window_OnLoad

Select Case ADC1.ReadyState

   case 2: MsgBox "Executing Query"

   case 3: MsgBox "Fetching records in background"

   case 4: MsgBox "All records fetched"

End Select

End Sub

</Script>