Примеры свойств Recordset и SourceRecordset (VBScript)
Важно!
Начиная с Windows 8 и Windows Server 2012 серверные компоненты RDS больше не включаются в операционную систему Windows (дополнительные сведения см. в Windows 8 и Windows Server 2012 совместимости). Клиентские компоненты RDS будут удалены в будущих версиях Windows. Избегайте использования этого компонента в новых разработках и запланируйте изменение существующих приложений, в которых он применяется. Приложения, использующие RDS, должны перейти в службу данных WCF.
В следующем примере показано, как задать необходимые параметры бизнес-объекта RDSServer.DataFactory по умолчанию во время выполнения.
Чтобы протестировать этот пример, вырезайте и вставьте этот код между <тегами Body> и </Body> в обычном HTML-документе и назовите его RecordsetVBS.asp. Скрипт ASP идентифицирует ваш сервер.
<!-- BeginRecordSetVBS -->
<%@ Language=VBScript %>
<html>
<head>
<meta name="VI60_DefaultClientScript" content=VBScript>
<meta name="GENERATOR" content="Microsoft Visual Studio 6.0">
<title>Recordset and SourceRecordset Properties 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>Recordset and SourceRecordset Properties Example (VBScript)</h1>
<Center>
<H2>RDS API Code Examples</H2>
<HR>
<H3>Using SourceRecordset and Recordset with RDSServer.DataFactory</H3>
<!-- RDS.DataSpace ID RDS1 -->
<OBJECT ID="RDS1" 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=RDC WIDTH=1 HEIGHT=1>
</OBJECT>
<TABLE DATASRC=#RDC>
<TR>
<TD> <INPUT DATAFLD="FirstName" SIZE=15> </TD>
<TD> <INPUT DATAFLD="LastName" SIZE=15></TD>
</TR>
</TABLE>
<HR>
<Input Size=70 Name="txtServer" Value="https://<%=Request.ServerVariables("SERVER_NAME")%>"><BR>
<Input Size=70 Name="txtConnect" Value="Provider='sqloledb';Integrated Security='SSPI';Initial Catalog='Northwind'"><BR>
<Input Size=70 Name="txtSQL" Value="SELECT FirstName, LastName FROM Employees">
<HR>
<INPUT TYPE=BUTTON NAME="Run" VALUE="Run"><BR>
</Center>
<Script Language="VBScript">
Dim rdsDF
Dim strServer
strServer = "https://<%=Request.ServerVariables("SERVER_NAME")%>"
Sub Run_OnClick()
Dim rs
' Create RDSServer.DataFactory Object
Set rdsDF = RDS1.CreateObject("RDSServer.DataFactory", strServer)
' Get Recordset
Set rs = rdsDF.Query(txtConnect.Value,txtSQL.Value)
' Set parameters of RDS.DataControl at run time
RDC.Server = txtServer.Value
RDC.SQL = txtSQL.Value
RDC.Connect = txtConnect.Value
RDC.Refresh
End Sub
</Script>
</body>
</html>
<!-- EndRecordsetVBS -->
См. также:
Объект DataFactory (RDSServer)
Свойства Recordset и SourceRecordset (служба удаленных рабочих столов)
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по