SubmitChanges Method Example (VBScript)
The following code fragment shows how to use the SubmitChanges method with an RDS.DataControl object.
To test this example, cut and paste this code into a normal ASP document and name it SubmitChangesCtrlVBS.asp. ASP script will identify your server.
<!-- BeginCancelUpdateVBS -->
|
<% 'use the following META tag instead of adovbs.inc%>
|
<!--METADATA TYPE="typelib" uuid="00000205-0000-0010-8000-00AA006D2EA4" -->
|
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
|
<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%>
|
<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 = "http://<%=Request.ServerVariables("SERVER_NAME")%>"
|
RDS.SQL = "Select * from Employees"
|
RDS.Connect = "Provider='sqloledb';Integrated Security='SSPI';Initial Catalog='Northwind';"
|
<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>
|
<INPUT TYPE=button NAME="SubmitChange" VALUE="Submit Changes">
|
<INPUT TYPE=button NAME="CancelChange" VALUE="Cancel Update">
|
<H4>Alter a current entry on the grid. Move off that Row. <BR>
|
Submit the Changes to your DBMS or cancel the updates. </H4>
|
<SCRIPT Language="VBScript">
|
msgbox "Changes will be made"
|
msgbox "Changes will be cancelled"
|
<!-- EndCancelUpdateVBS -->
|
See Also
DataControl Object (RDS) | SubmitChanges Method (RDS)