Esempio del metodo CancelUpdate (VBScript)
Importante
A partire da Windows 8 e Windows Server 2012, i componenti del server di RDS non sono più inclusi nel sistema operativo Windows. Per altri dettagli, vedere la Guida di riferimento per la compatibilità di Windows 8 e Windows Server 2012. I componenti del client di RDS verranno rimossi in una versione futura di Windows. Evitare di usare questa funzionalità in un nuovo progetto di sviluppo e prevedere interventi di modifica nelle applicazioni in cui è attualmente implementata. Le applicazioni che usano RDS devono eseguire la migrazione a WCF Data Service.
Per testare questo esempio, tagliare e incollare questo codice tra i tag <Body> e </Body> in un normale documento HTML e denominarlo CancelUpdateVBS.asp. Lo script ASP identificherà il server Internet. Sarà necessario modificare il nome del server in base alla configurazione corrente. È sufficiente cambiare il valore nella stringa di connessione da MyServer al nome dell'installazione di SQL Server.
<!-- BeginCancelUpdateVBS -->
<%@Language=VBScript%>
<%'Option Explicit%>
<% 'use the following META tag instead of adovbs.inc%>
<!--METADATA TYPE="typelib" uuid="00000205-0000-0010-8000-00AA006D2EA4" -->
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
</HEAD>
<BODY>
<CENTER>
<H1>Remote Data Service</H1>
<H2>SubmitChanges and CancelUpdate Methods</H2>
<% ' to integrate/test this code replace the Server property value and
' the Data Source value in the Connect property with appropriate values%>
<HR>
<OBJECT ID=RDS classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" HEIGHT=1 WIDTH=1></OBJECT>
<SCRIPT Language="VBScript">
'set RDS properties for control just created
RDS.Server = "https://<%=Request.ServerVariables("SERVER_NAME")%>"
RDS.SQL = "Select * from Employees"
RDS.Connect = "Provider='sqloledb';Integrated Security='SSPI';Initial Catalog='Northwind';"
RDS.Refresh
</SCRIPT>
<TABLE DATASRC=#RDS>
<THEAD>
<TR ID="ColHeaders">
<TH>ID</TH>
<TH>FName</TH>
<TH>LName</TH>
<TH>Title</TH>
<TH>Hire Date</TH>
<TH>Birth Date</TH>
<TH>Extension</TH>
<TH>Home Phone</TH>
</TR>
</THEAD>
<TBODY>
<TR>
<TD> <INPUT DATAFLD="EmployeeID" size=4> </TD>
<TD> <INPUT DATAFLD="FirstName" size=10> </TD>
<TD> <INPUT DATAFLD="LastName" size=10> </TD>
<TD> <INPUT DATAFLD="Title" size=10> </TD>
<TD> <INPUT DATAFLD="HireDate" size=10> </TD>
<TD> <INPUT DATAFLD="BirthDate" size=10> </TD>
<TD> <INPUT DATAFLD="Extension" size=10> </TD>
<TD> <INPUT DATAFLD="HomePhone" size=8> </TD>
</TR>
</TBODY>
</TABLE>
<HR>
<INPUT TYPE=button NAME="SubmitChange" VALUE="Submit Changes">
<INPUT TYPE=button NAME="CancelChange" VALUE="Cancel Update">
<BR>
<H4>Alter a current entry on the grid. Move off that Row. <BR>
Submit the Changes to your DBMS or cancel the updates. </H4>
</CENTER>
<SCRIPT Language="VBScript">
Sub SubmitChange_OnClick
msgbox "Changes will be made"
RDS.SubmitChanges
RDS.Refresh
End Sub
Sub CancelChange_OnClick
msgbox "Changes will be cancelled"
RDS.CancelUpdate
RDS.Refresh
End Sub
-->
</SCRIPT>
</BODY>
</HTML>
<!-- EndCancelUpdateVBS -->