DataControl, exemple d’objet (VBScript)
Important
À compter de Windows 8 et Windows Server 2012, les composants serveur RDS ne sont plus inclus dans le système d’exploitation Windows (voir le Guide pratique sur la compatibilité de Windows Server 2012 et Windows 8 pour plus de détails). Les composants clients RDS seront supprimés dans une version ultérieure de Windows. Évitez d'utiliser cette fonctionnalité dans de nouveaux travaux de développement, et prévoyez de modifier les applications qui utilisent actuellement cette fonctionnalité. Les applications qui utilisent RDS doivent migrer vers WCF Data Service.
Le code suivant montre comment définir les paramètres RDS.DataControl au moment du design et les lient à un contrôle prenant en compte les données. Coupez et collez ce code entre les balises <Body> et </Body> dans un document HTML normal et nommez-le DataControlDesignVBS.asp. Le script ASP identifie votre serveur.
<!-- BeginDataControlDesignVBS -->
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META name="VI60_DefaultClientScript" content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<title>RDS DataControl</title>
<%' local style sheet used for display%>
<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>
<H2>RDS API Code Examples</H2>
<HR>
<H3>Remote Data Service</H3>
<TABLE DATASRC=#RDS>
<TBODY>
<TR>
<TD><SPAN DATAFLD="FirstName"></SPAN></TD>
<TD><SPAN DATAFLD="LastName"></SPAN></TD>
</TR>
</TBODY>
</TABLE>
<!-- Remote Data Service with Parameters set at Design Time -->
<OBJECT classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33"
ID=RDS>
<PARAM NAME="SQL" VALUE="Select * from Employees for browse">
<PARAM NAME="SERVER" VALUE="https://<%=Request.ServerVariables("SERVER_NAME")%>">
<PARAM NAME="CONNECT" VALUE="Provider='sqloledb';Integrated Security='SSPI';Initial Catalog='Northwind'">
</OBJECT>
</BODY>
</HTML>
<!-- EndDataControlDesignVBS -->
L’exemple suivant montre comment définir les paramètres nécessaires de RDS.DataControl au moment de l’exécution. Pour tester cet exemple, coupez et collez le code entre les balises <Body> et </Body> dans un document HTML normal et nommez-le DataControlRuntimeVBS.asp. Le script ASP identifie votre serveur.
<!-- BeginDataControlRuntimeVBS -->
<%@ Language=VBScript %>
<html>
<head>
<meta name="VI60_DefaultClientScript" content=VBScript>
<meta name="GENERATOR" content="Microsoft Visual Studio 6.0">
<title>Data Control Object Example (VBScript)</title>
<%' local style sheet used for display%>
<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>Data Control Object Example (VBScript)</h1>
<H2>RDS API Code Examples</H2>
<HR>
<H3>Remote Data Service Run Time</H3>
<TABLE DATASRC=#RDS>
<TBODY>
<TR>
<TD><SPAN DATAFLD="au_lname"></SPAN></TD>
<TD><SPAN DATAFLD="au_fname"></SPAN></TD>
</TR>
</TBODY>
</TABLE>
<% ' RDS.DataControl with no parameters set at design time %>
<OBJECT classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" ID=RDS HEIGHT=1 WIDTH=1></OBJECT>
<FORM name="frmInput">
<HR>
<Input Size="70" Name="txtServer" Value="https://<%=Request.ServerVariables("SERVER_NAME")%>"><BR>
<Input Size="100" Name="txtConnect" Value="Provider='sqloledb';Data Source=<%=Request.ServerVariables("SERVER_NAME")%>;Initial Catalog='Pubs';Integrated Security='SSPI';">
<BR>
<Input Size="70" Name="txtSQL" Value="Select * from Authors">
<HR>
<INPUT TYPE="BUTTON" NAME="Run" VALUE="Run"><BR>
<H4>Show grid with these values or change them to see data from another ODBC data source on your server</H4>
</FORM>
<Script Language="VBScript">
' Set parameters of RDS.DataControl at Run Time
Sub Run_OnClick
RDS.Server = document.frmInput.txtServer.Value
RDS.Connect = document.frmInput.txtConnect.Value
RDS.SQL = document.frmInput.txtSQL.Value
RDS.Refresh
End Sub
</Script>
</body>
</html>
<!-- EndDataControlRuntimeVBS -->