Compartir a través de

Ejemplo de la propiedad URL (VBScript)

Se aplica a: Access 2013 | Access 2016

En el código siguiente se muestra cómo establecer la propiedad URL en el cliente a fin de especificar un archivo .asp que a su vez controle el envío de cambios al origen de datos.

<!-- 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 -->

El código del servidor que existe en URLServerVBS.asp envía el objeto Recordset actualizado al origen de datos.

<!-- 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 -->

Vea también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.