MDAC 2.5 SDK - ADO


 

SubmitChanges Method Example (VBScript)

See Also

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 SubmitChanges.asp. ASP script will identify your server.

<%@ Language=VBScript %>
<HTML>
<BODY>
<H2>RDS API Code Examples</H2>
<H3>Remote Data Service SubmitChanges and CancelUpdate Methods</H3>

<!-- RDS.DataControl with parameters set at design time -->
<OBJECT classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33"
   ID=RDC HEIGHT=1 WIDTH=1>
   <PARAM NAME="SQL" VALUE="Select * from Employee for browse">
   <PARAM NAME="SERVER" VALUE="http://<%=Request.ServerVariables("SERVER_NAME")%>">
   <PARAM NAME="CONNECT" VALUE="Provider=SQLOLEDB;User Id=rdsdemo;Password=rdsdemo;Initial Catalog=AddrBookDB;"> 
</OBJECT>

<TABLE DATASRC="#RDC">
<THEAD>
<TR ID="ColHeaders">
   <TH>ID</TH>
   <TH>FName</TH>
   <TH>LName</TH>
   <TH>Name</TH>
   <TH>Title</TH>
   <TH>Type</TH>
   <TH>Email</TH>
   <TH>MgrEmail</TH>
   <TH>Bldg</TH>
   <TH>Rm</TH>
   <TH>Phone</TH>
</TR>
</THEAD>

<TBODY>
<TR>
   <TD> <INPUT DATAFLD="ID" size=4> </TD>
   <TD> <INPUT DATAFLD="FirstName" size=10> </TD>
   <TD> <INPUT DATAFLD="LastName" size=10> </TD>
   <TD> <INPUT DATAFLD="Name" size=15> </TD>
   <TD> <INPUT DATAFLD="Title" size=20> </TD>
   <TD> <INPUT DATAFLD="Type" size=10> </TD>
   <TD> <INPUT DATAFLD="Email" size=10> </TD>
   <TD> <INPUT DATAFLD="ManagerEmail" size=10> </TD>
   <TD> <INPUT DATAFLD="Building" size=3> </TD>
   <TD> <INPUT DATAFLD="Room" size=5> </TD>
   <TD> <INPUT DATAFLD="Phone" 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 in the table. Move off that Row. <BR>
Submit the Changes to your DBMS or cancel the updates. </H4>
</Center>
<Script Language="VBScript">
<!--
' Set parameters of RDS.DataControl at Run Time
Sub SubmitChange_OnClick
   RDC.SubmitChanges   
   RDC.Refresh
End Sub

Sub CancelUpdate_OnClick
   RDC.CancelUpdate
   RDC.Refresh
End Sub
-->
</Script>
</BODY>
</HTML>

The following code fragment shows how to use the SubmitChanges method with an RDSServer.DataFactory object. You may want to submit changes to the RDSServer.DataFactory if you are working on a Visual Basic project where the RDS.DataControl isn't used. To create this project, open a Visual Basic form and place on it a list box (List1), two text boxes (txtConnect and txtGetRecordset), and two command buttons (cmdGetRecordset and cmdSubmitChanges).

Dim ads As Object   ' RDS.DataSpace object
Dim adf As Object   ' RDSServer.DataFactory object

Private Sub UserDocument_Initialize()
   Call Form_Load
End Sub

Private Sub Form_Load()
   txtConnect.Text = "Dsn=Pubs;Uid=sa;Pwd=;"
   txtGetRecordset.Text = "Select au_lname from authors"
End Sub

Private Sub cmdGetRecordset_Click()
   Dim Server As String
   Server = txtServer.Text

   ' Create RDS.DataSpace using CreateObject Method of RDS.DataSpace.
   Set ads = CreateObject("RDS.DataSpace")
   Set adf = ads.CreateObject("RDSServer.DataFactory", Server)

   ' Populate ListBox with Recordset.
   MousePointer = vbHourglass
   Dim objADORs As Object
   Set objADORs = adf.Query(CStr(txtConnect.Text), CStr(txtGetRecordset.Text))
   List1.Clear
   While Not objADORs.EOF
      List1.AddItem objADORs(0).Value
      objADORs.MoveNext
   Wend
   MousePointer = vbNormal
End Sub
Sub cmdSubmitChanges_OnClick
   adf.SubmitChanges " Dsn=Pubs;Uid=sa;Pwd=;",_
   objADORs
End Sub