Пример объекта DataSpace и метода CreateObject (VBScript)
Важный
Начиная с Windows 8 и Windows Server 2012, компоненты сервера RDS больше не включены в операционную систему Windows (дополнительные сведения см. в статье Windows 8 и Windows Server 2012 Compatibility Cookbook). Клиентские компоненты RDS будут удалены в будущей версии Windows. Избегайте использования этой функции в новой работе разработки и планируйте изменение приложений, которые в настоящее время используют эту функцию. Приложения, использующие RDS, должны перенестися в службы данных WCF.
В следующем примере показано, как использовать метод CreateObjectRDS. DataSpace с бизнес-объектом по умолчанию RDSServer.DataFactory. Чтобы протестировать этот пример, вырезайте и вставьте этот код между> текстом <<и тегами /Body> в обычном HTML-документе и назовите его DataSpaceVBS.asp. Скрипт ASP определит сервер.
<!-- BeginDataSpaceVBS -->
<html>
<head>
<!--use the following META tag instead of adovbs.inc-->
<!--METADATA TYPE="typelib" uuid="00000205-0000-0010-8000-00AA006D2EA4" -->
<meta name="VI60_DefaultClientScript" content=VBScript>
<meta name="GENERATOR" content="Microsoft Visual Studio 6.0">
<title>DataSpace Object and CreateObject Method 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>
<h1>DataSpace Object and CreateObject Method Example (VBScript)</h1>
<H2>RDS API Code Examples</H2>
<HR>
<H3>Using Query Method of RDSServer.DataFactory</H3>
<!-- RDS.DataSpace ID rdsDS-->
<OBJECT ID="rdsDS" WIDTH=1 HEIGHT=1
CLASSID="CLSID:BD96C556-65A3-11D0-983A-00C04FC29E36">
</OBJECT>
<!-- RDS.DataControl with parameters set at run time -->
<OBJECT classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33"
ID=RDS WIDTH=1 HEIGHT=1>
</OBJECT>
<TABLE DATASRC=#RDS>
<TBODY>
<TR>
<TD><SPAN DATAFLD="FirstName"></SPAN></TD>
<TD><SPAN DATAFLD="LastName"></SPAN></TD>
</TR>
</TBODY>
</TABLE>
<HR>
<INPUT TYPE=BUTTON NAME="Run" VALUE="Run">
<H4>Click Run -
The <i>CreateObject</i> Method of the RDS.DataSpace Object Creates an instance of the RDSServer.DataFactory.
The <i>Query</i> Method of the RDSServer.DataFactory is used to bring back a Recordset.</H4>
<Script Language="VBScript">
Dim rdsDF
Dim strServer
Dim strCnxn
Dim strSQL
strServer = "https://<%=Request.ServerVariables("SERVER_NAME")%>"
strCnxn = "Provider='sqloledb';Data Source=" & _
"<%=Request.ServerVariables("SERVER_NAME")%>" & ";" & _
"Integrated Security='SSPI';Initial Catalog='Northwind';"
strSQL = "Select FirstName, LastName from Employees"
Sub Run_OnClick()
Dim rs
' Create Data Factory
Set rdsDF = rdsDS.CreateObject("RDSServer.DataFactory", strServer)
'Get Recordset
Set rs = rdsDF.Query(strCnxn, strSQL)
' Use RDS.DataControl to bind Recordset to data-aware Table above
RDS.SourceRecordset = rs
End Sub
</Script>
</body>
</html>
<!-- EndDataSpaceVBS -->
В следующем примере показано, как использовать метод CreateObject для создания экземпляра пользовательского бизнес-объекта VbBusObj.VbBusObjCls. Он также использует скрипты Active Server Pages для идентификации имени веб-сервера.
Чтобы просмотреть полный пример, откройте селектор примеров приложений. В столбце уровня клиента выберите VBScript в Internet Explorer. В столбце среднего уровня выберите настраиваемый бизнес-объект Visual Basic.
Заметка
Если вы подключаетесь к поставщику источников данных, поддерживающего проверку подлинности Windows, следует указать Trusted_Connection=да или встроенную безопасность = SSPI вместо идентификатора пользователя и пароля в строке подключения.
Sub Window_OnLoad()
strServer = "https://<%=Request.ServerVariables("SERVER_NAME")%>"
Set BO = ADS1.CreateObject("VbBusObj.VbBusObjCls", strServer)
txtConnect.Value = "dsn=Pubs;uid=MyUserID;pwd=<password>;"
txtGetRecordset.Value = "Select * From authors for Browse"
End Sub