次の方法で共有

URL プロパティの使用例 (VBScript)

適用先: Access 2013 | Access 2016

次のコードでは、クライアント側で URL プロパティを設定して、データ ソースへの変更の送信を処理する .asp ファイルを指定する方法を示します。

<!-- BeginURLClientVBS --> 
<%@ Language=VBScript %> 
<html>
<head> 
<meta name="VI60_DefaultClientScript" content=VBScript> 
<meta name="GENERATOR" content="Microsoft Visual Studio 6.0"> 
<title>URL Property Example (VBScript)</title> 
<style> 
<!-- 
body { 
font-family: 'Verdana','Arial','Helvetica',sans-serif; 
BACKGROUND-COLOR:white; 
COLOR:black;
} 

.thead { 
background-color: #008080; 
font-family: 'Verdana','Arial','Helvetica',sans-serif; 
font-size: x-small; 
color: white; 
} 

.thead2 { 
background-color: #800000; 
font-family: 'Verdana','Arial','Helvetica',sans-serif; 
font-size: x-small; 
color: white; 
} 

.tbody { 
text-align: center; 
background-color: #f7efde; 
font-family: 'Verdana','Arial','Helvetica',sans-serif; 
font-size: x-small; 
}
--> 

</style> 
</head> 
<body onload=Getdata()>
<h1>URL Property Example (VBScript)</h1> 
<OBJECT classid=clsid:BD96C556-65A3-11D0-983A-00C04FC29E33 height=1 id=ADC width=1>
</OBJECT> 

<table datasrc="#ADC" align="center"> 
<thead> 
<tr id="ColHeaders" class="thead2"> 
<th>FirstName</th> 
<th>LastName</th>
<th>Extension</th> 
</tr> 
</thead> 
<tbody class="tbody"> 
<tr>
<td><input datafld="FirstName" size=15> </td> 
<td><input datafld="LastName" size=25> </td> 
<td><input datafld="Extension" size=15> </td>
</tr> 
</tbody> 
</table>

<script Language="VBScript"> 

Sub Getdata()

msgbox "getdata" 

ADC.URL = "https://<%=Request.ServerVariables("SERVER_NAME")%>/URLServerVBS.asp" 

ADC.Refresh 

End Sub
</script> 
</body> 
</html> 
<!-- EndURLClientVBS -->

URLServerVBS.asp にあるサーバー側のコードによって、更新された Recordset がデータ ソースに更新されます。

<!-- BeginURLServerVBS --> 
<%@ Language=VBScript %> 
<% 
' XML output req's 
Response.ContentType = "text/xml" 

const adPersistXML = 1 

' recordset vars 
Dim strSQL, rsEmployees 
Dim strCnxn, Cnxn 

strCnxn = "Provider='sqloledb';Data Source=" & _ 
Request.ServerVariables("SERVER_NAME") & ";" & _ 
"Integrated Security='SSPI';Initial Catalog='Northwind';" 

Set Cnxn = Server.CreateObject("ADODB.Connection") 

Set rsEmployees = Server.CreateObject("ADODB.Recordset") 

strSQL = "SELECT FirstName, LastName, Extension FROM Employees" 

Cnxn.Open strCnxn 

rsEmployees.Open strSQL, Cnxn 

' output as XML 
rsEmployees.Save Response, adPersistXML 

' Clean up 
rsEmployees.Close 
Cnxn.Close
Set rsEmployees = Nothing 
Set Cnxn = Nothing
%> 
<!-- EndURLServerVBS -->

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。