CancelUpdate-Methode – Beispiel (VBScript)
Wichtig
Ab Windows 8 und Windows Server 2012 sind RDS-Serverkomponenten nicht mehr im Windows-Betriebssystem enthalten (weitere Informationen finden Sie in den jeweiligen Kompatibilitäts-Cookbooks zu Windows 8 und Windows Server 2012). RDS-Clientkomponenten werden in einer zukünftigen Version von Windows entfernt. Nutzen Sie diese Funktionen bei Neuentwicklungen nicht mehr, und planen Sie die Änderung von Anwendungen, die diese Funktion zurzeit verwenden. Anwendungen, die RDS verwenden, sollten zu WCF Data Service migriert werden.
Um dieses Beispiel zu testen, schneiden Sie den Code aus, und fügen Sie ihn zwischen den Tags <Body> und </Body> in ein normales HTML-Dokument ein, und nennen Sie es CancelUpdateVBS.asp. Das ASP-Skript identifiziert Ihren Internet-Server. Sie müssen den Namen des Servers bearbeiten, um Ihr eigenes Setup widerzuspiegeln. Ändern Sie einfach den Wert in der Verbindungszeichenfolge von MyServer in den Namen Ihrer SQL Server Installation.
<!-- 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 -->