ReadyState-Eigenschaft (Beispiel) (VBScript)
Wichtig
Ab Windows 8 und Windows Server 2012 sind RDS-Serverkomponenten nicht mehr im Windows-Betriebssystem enthalten (weitere Details finden Sie unter Windows 8 und Windows Server 2012 Compatibility Cookbook). RDS-Clientkomponenten werden in einer zukünftigen Version von Windows entfernt. Vermeiden Sie die Verwendung dieses Features in neuer Entwicklungsarbeit, und planen Sie, Anwendungen zu ändern, die derzeit dieses Feature verwenden. Anwendungen, die RDS verwenden, sollten zu WCF Data Servicemigrieren.
Das folgende Beispiel zeigt, wie die ReadyState-eigenschaft der RDS gelesen wird. DataControl-Objekt zur Laufzeit im VBScript-Code. ReadyState ist eine schreibgeschützte Eigenschaft.
Um dieses Beispiel zu testen, schneiden Sie diesen Code aus, und fügen Sie ihn zwischen dem <Body-> und </Body> Tags in ein normales HTML-Dokument ein, und nennen Sie ihn RDSReadySt.asp. Verwenden Sie Find, um die Datei Adovbs.inc zu suchen und in dem Verzeichnis zu platzieren, das Sie verwenden möchten. Das ASP-Skript identifiziert Ihren Server.
<!-- 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 -->