Пример свойства ReadyState (VBScript)
Важно!
Начиная с Windows 8 и Windows Server 2012 компоненты сервера RDS больше не включаются в операционную систему Windows (дополнительные сведения см. в Windows 8 и Windows Server 2012 совместимости). Клиентские компоненты RDS будут удалены в следующей версии Windows. Избегайте использования этого компонента в новых разработках и запланируйте изменение существующих приложений, в которых он применяется. Приложения, использующие RDS, должны перейти на службу данных WCF.
В следующем примере показано, как считывать свойство ReadyStateRDS. Объект DataControl во время выполнения в коде VBScript. Свойство ReadyState доступно только для чтения.
Чтобы протестировать этот пример, вырежьте и вставьте этот код между <тегами Body> и </Body> в обычном HTML-документе и назовите его RDSReadySt.asp. С помощью функции Найти найдите файл Adovbs.inc и поместите его в каталог, который вы планируете использовать. Скрипт ASP идентифицирует ваш сервер.
<!-- BeginReadyStateVBS -->
<%@ Language=VBScript %>
<!--#include file="adovbs.inc"-->
<html>
<head>
<meta name="VI60_DefaultClientScript" content=VBScript>
<meta name="GENERATOR" content="Microsoft Visual Studio 6.0">
<title>RDS.DataControl ReadyState Property</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>RDS.DataControl ReadyState Property</H1>
<H2>RDS API Code Examples </H2>
<HR>
<!-- RDS.DataControl with parameters set at design time -->
<OBJECT classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" ID=RDS>
<PARAM NAME="SQL" VALUE="Select * from Orders">
<PARAM NAME="SERVER" VALUE="https://<%=Request.ServerVariables("SERVER_NAME")%>">
<PARAM NAME="CONNECT" VALUE="Provider=SQLOLEDB;Integrated Security=SSPI;Initial Catalog=Northwind">
<PARAM NAME="ExecuteOptions" VALUE="2">
<PARAM NAME="FetchOptions" VALUE="3">
</OBJECT>
<TABLE DATASRC=#RDS>
<TBODY>
<TR>
<TD><SPAN DATAFLD="OrderID"></SPAN></TD>
</TR>
</TBODY>
</TABLE>
<Script Language="VBScript">
Sub Window_OnLoad
Select Case RDS.ReadyState
case 2 'adcReadyStateLoaded
MsgBox "Executing Query"
case 3 'adcReadyStateInteractive
MsgBox "Fetching records in background"
case 4 'adcReadyStateComplete
MsgBox "All records fetched"
End Select
End Sub
</Script>
</body>
</html>
<!-- EndReadyStateVBS -->
См. также:
Объект DataControl (служба удаленных рабочих столов)
Свойство ReadyState (служба удаленных рабочих столов)
Кері байланыс
https://aka.ms/ContentUserFeedback.
Жақында қолжетімді болады: 2024 жыл бойы біз GitHub Issues жүйесін мазмұнға арналған кері байланыс механизмі ретінде біртіндеп қолданыстан шығарамыз және оны жаңа кері байланыс жүйесімен ауыстырамыз. Қосымша ақпаратты мұнда қараңыз:Жіберу және пікірді көру