Connect-Eigenschaft (Beispiel) (VBScript)
Wichtig
Ab Windows 8 und Windows Server 2012 sind RDS-Serverkomponenten nicht mehr im Windows-Betriebssystem enthalten (weitere Details finden Sie unter Windows 8 und Windows Server 2012 Compatibility Cookbook). RDS-Clientkomponenten werden in einer zukünftigen Version von Windows entfernt. Vermeiden Sie die Verwendung dieses Features in neuer Entwicklungsarbeit, und planen Sie, Anwendungen zu ändern, die derzeit dieses Feature verwenden. Anwendungen, die RDS verwenden, sollten zu WCF Data Servicemigrieren.
Dieser Code zeigt, wie die Connect-Eigenschaft zur Entwurfszeit festgelegt wird:
<OBJECT CLASSID="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" ID="ADC1">
.
<PARAM NAME="SQL" VALUE="Select * from Sales">
<PARAM NAME="CONNECT" VALUE="Provider=SQLOLEDB;Integrated Security=SSPI;Initial Catalog=Pubs">
<PARAM NAME="Server" VALUE="https://MyWebServer">
.
</OBJECT>
Im folgenden Beispiel wird gezeigt, wie Die Connect-Eigenschaft zur Laufzeit im VBScript-Code festgelegt wird.
Um dieses Beispiel zu testen, schneiden Sie den Code zwischen dem <Body-> und </Body->-Tags in einem normalen HTML-Dokument aus, und nennen Sie ihn ConnectVBS.asp. Das ASP-Skript identifiziert Ihren Server.
<!-- BeginConnectVBS -->
<%@ Language=VBScript %>
<HTML>
<HEAD>
<title>ADO Connect Property</title>
<%' local style sheet used for display%>
<STYLE>
<!--
BODY {
font-family: 'Verdana','Arial','Helvetica',sans-serif;
BACKGROUND-COLOR:white;
COLOR:black;
}
.tbody {
text-align: center;
background-color: #f7efde;
font-family: 'Verdana','Arial','Helvetica',sans-serif;
font-size: x-small;
}
-->
</STYLE>
</HEAD>
<BODY>
<h1>ADO Connect Property (RDS)</h1>
<HR>
<H3>Set Connect Property at Run Time</H3>
<% ' RDS.DataControl with no parameters set at design time %>
<OBJECT classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" ID=RDS HEIGHT=1 WIDTH=1></OBJECT>
<% ' Bind table to control for data display %>
<TABLE DATASRC=#RDS>
<TBODY>
<TR class="tbody">
<TD><SPAN DATAFLD="FirstName"></SPAN></TD>
<TD><SPAN DATAFLD="LastName"></SPAN></TD>
</TR>
</TBODY>
</TABLE>
<FORM name="frmInput">
SERVER: <INPUT Name="txtServer" Size="103" Value="https://<%=Request.ServerVariables("SERVER_NAME")%>"><BR>
DATA SOURCE: <INPUT Name="txtDataSource" Size="93" Value="<%=Request.ServerVariables("SERVER_NAME")%>"><BR>
CONNECT: <INPUT Name="txtConnect" Size="100"><BR>
SQL: <INPUT Name="txtSQL" Size="110" Value="Select FirstName, LastName from Employees">
<BR>
<INPUT TYPE=BUTTON NAME="Run" VALUE="Run">
<h4>
To make data grid appear, click 'Run' to see the connect string in text box above.
</h4>
</FORM>
<Script Language="VBScript">
' Set parameters of RDS.DataControl at Run Time
Sub Run_OnClick
Dim Cnxn
' build connection string
Cnxn = "Provider='sqloledb';"
Cnxn = Cnxn & "Data Source="
Cnxn = Cnxn & document.frmInput.txtDataSource.value & ";"
Cnxn = Cnxn & "Initial Catalog='Northwind';"
Cnxn = Cnxn & "Integrated Security='SSPI';"
' assign the value
document.frmInput.txtConnect.value = Cnxn
MsgBox "Here we go!"
' set RDS properties
RDS.Server = document.frmInput.txtServer.value
RDS.SQL = document.frmInput.txtSQL.value
RDS.Connect = document.frmInput.txtConnect.value
RDS.Refresh
End Sub
</Script>
</BODY>
</HTML>
<!-- EndConnectVBS -->