SubmitChanges メソッドの例 (VBScript)

次のコードでは、RDS.DataControl オブジェクトに対する SubmitChanges メソッドの使用方法を示します。

この例をテストするには、このコードをコピーして通常の ASP ドキュメントに貼り付け、「SubmitChanges.asp」という名前で保存してください。ASP スクリプトでサーバーを識別しています。

<%@ 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;Data Source=MyServer;"> 
</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>

次のコードの一部分は、RDSServer.DataFactory オブジェクトに対する SubmitChanges メソッドの使用方法を示しています。RDS.DataControl が使われない Visual Basic プロジェクトの場合、RDSServer.DataFactory に変更を送る必要がある場合があります。このプロジェクトを作成するには、Visual Basic のフォームを開き、リストボックス (List1)、3 つのテキストボックス (txtServer、txtConnect、および txtGetRecordset)、2 つのコマンドボタン (cmdGetRecordset と cmdSubmitChanges) を配置します。

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

Private Sub UserDocument_Initialize()
    Call Form_Load
End Sub

Private Sub Form_Load()
    txtServer.Text = "http://MyWebServer"
    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
    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