Partager via

Exemple de propriété ReadyState (VBScript)

S’applique à : Access 2013 | Access 2016

L’exemple suivant indique comment lire la propriété ReadyState d’un objet RDS.DataControl en mode exécution et en code VBScript. ReadyState est une propriété en lecture seule.

Pour tester cet exemple, coupez et collez ce code entre les balises et </Body> dans un document HTML normal et nommez-le<Body> RDSReadySt.asp. Utilisez Find pour localiser le fichier Adovbs.inc et placez-le dans le répertoire que vous prévoyez d'utiliser . Le script ASP identifiera votre serveur.

<!-- BeginReadyStateVBS --><%@ Language=VBScript %>
<% 'use the following META tag instead of adovbs.inc%><!--METADATA TYPE="typelib" uuid="00000205-0000-0010-8000-00AA006D2EA4" -->
<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.ReadyStatecase 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 -->

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.