Propriedades FilterColumn, FilterCriterion, FilterValue, SortColumn e SortDirection e exemplo do método Reset (VBScript)
Importante
A partir do Windows 8 e do Windows Server 2012, os componentes do servidor RDS não estão mais incluídos no sistema operacional Windows (confira Windows 8 e Manual de Compatibilidade do Windows Server 2012 para obter mais detalhes). Os componentes do cliente RDS serão removidos em uma versão futura do Windows. Evite usar esse recurso em desenvolvimentos novos e planeje modificar os aplicativos que atualmente o utilizam. Os aplicativos que usam o RDS devem migrar para o Serviço de Dados do WCF.
O código a seguir mostra como definir o RDS. DataControl Server em tempo de design e vinculá-lo a uma tabela HTML com reconhecimento de dados usando uma fonte de dados. Recorte e cole o código a seguir no Bloco de Notas ou em outro editor de texto e salve-o como FilterColumnVBS.asp.
<!-- BeginFilterColumnVBS -->
<HTML>
<HEAD>
<META name="VI60_DefaultClientScript" Content="VBScript">
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>FilterColumn, FilterCriterion, FilterValue, SortColumn, and SortDirection
Properties and Reset Method Example (VBScript)</TITLE>
</HEAD>
<BODY>
<h1>FilterColumn, FilterCriterion, FilterValue, SortColumn, and SortDirection
Properties and Reset Method Example (VBScript)</h1>
<OBJECT classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33"
ID=RDS HEIGHT=1 WIDTH=1>
<PARAM NAME="SQL" VALUE="Select FirstName, LastName, Title, ReportsTo, Extension from Employees">
<PARAM NAME="SERVER" VALUE="<%=Request.ServerVariables("SERVER_NAME")%>">
<PARAM NAME="CONNECT" VALUE="Provider=SQLOLEDB;Initial Catalog=Northwind;Integrated Security=SSPI">
</OBJECT>
Sort Column: <SELECT NAME="cboSortColumn">
<OPTION VALUE=""></OPTION>
<OPTION VALUE=ID>ID</OPTION>
<OPTION VALUE=FirstName>FirstName</OPTION>
<OPTION VALUE=LastName>LastName</OPTION>
<OPTION VALUE=Title>Title</OPTION>
<OPTION VALUE=Title>ReportsTo</OPTION>
<OPTION VALUE=Phone>Extension</OPTION>
</SELECT>
<br>
Sort Direction: <SELECT NAME="cboSortDir">
<OPTION VALUE=""></OPTION>
<OPTION VALUE=TRUE>Ascending</OPTION>
<OPTION VALUE=FALSE>Descending</OPTION>
</SELECT>
<HR WIDTH="25%">
Filter Column: <SELECT NAME="cboFilterColumn">
<OPTION VALUE=""></OPTION>
<OPTION VALUE=FirstName>FirstName</OPTION>
<OPTION VALUE=LastName>LastName</OPTION>
<OPTION VALUE=Title>Title</OPTION>
<OPTION VALUE=Room>ReportsTo</OPTION>
<OPTION VALUE=Phone>Extension</OPTION>
</SELECT>
<br>
Filter Criterion: <SELECT NAME="cboCriterion">
<OPTION VALUE=""></OPTION>
<OPTION VALUE="=">=</OPTION>
<OPTION VALUE=">">></OPTION>
<OPTION VALUE="<"><</OPTION>
<OPTION VALUE=">=">>=</OPTION>
<OPTION VALUE="<="><=</OPTION>
<OPTION VALUE="<>"><></OPTION>
</SELECT>
<br>
Filter Value: <INPUT NAME="txtFilterValue">
<HR WIDTH="25%">
<INPUT TYPE=BUTTON NAME=Clear VALUE="CLEAR ALL">
<INPUT TYPE=BUTTON NAME=SortFilter VALUE="APPLY">
<HR>
<TABLE DATASRC=#RDS ID="DataTable">
<THEAD>
<TR>
<TH>FirstName</TH>
<TH>LastName</TH>
<TH>Title</TH>
<TH>Reports To</TH>
<TH>Extension</TH>
</TR>
</THEAD>
<TBODY>
<TR>
<TD><SPAN DATAFLD="FirstName"></SPAN></TD>
<TD><SPAN DATAFLD="LastName"></SPAN></TD>
<TD><SPAN DATAFLD="Title"></SPAN></TD>
<TD><SPAN DATAFLD="ReportsTo"></SPAN></TD>
<TD><SPAN DATAFLD="Extension"></SPAN></TD>
</TR>
</TBODY>
</TABLE>
<Script Language="VBScript">
<!--
Const adFilterNone = 0
Sub SortFilter_OnClick
Dim vCriterion
Dim vSortDir
Dim vSortCol
Dim vFilterCol
' The value of SortColumn will be the
' value of what the user picks in the
' cboSortColumn box.
vSortCol = cboSortColumn.options(cboSortColumn.selectedIndex).value
If(vSortCol <> "") then
RDS.SortColumn = vSortCol
End If
' The value of SortDirection will be the
' value of what the user specifies in the
' cboSortdirection box.
If (vSortCol <> "") then
vSortDir = cboSortDir.options(cboSortDir.selectedIndex).value
If (vSortDir = "") then
MsgBox "You must select a direction for the sort."
Exit Sub
Else
If vSortDir = "Ascending" Then vSortDir = "TRUE"
If vSortDir = "Descending" Then vSortDir = "FALSE"
RDS.SortDirection = vSortDir
End If
End If
' The value of FilterColumn will be the
' value of what the user specifies in the
' cboFilterColumn box.
vFilterCol = cboFilterColumn.options(cboFilterColumn.selectedIndex).value
If(vFilterCol <> "") then
RDS.FilterColumn = vFilterCol
End If
' The value of FilterCriterion will be the
' text value of what the user specifies in the
' cboCriterion box.
vCriterion = cboCriterion.options(cboCriterion.selectedIndex).value
If (vCriterion <> "") Then
RDS.FilterCriterion = vCriterion
End If
' txtFilterValue is a rich text box
' control. The value of FilterValue will be the
' text value of what the user specifies in the
' txtFilterValue box.
If (txtFilterValue.value <> "") Then
RDS.FilterValue = txtFilterValue.value
End If
' Execute the sort and filter on a client-side
' Recordset based on the specified sort and filter
' properties. Calling Reset refreshes the result set
' that is displayed in the data-bound controls to
' display the filtered, sorted recordset.
RDS.Reset
End Sub
Sub Clear_onClick()
'clear the HTML input controls
cboSortColumn.selectedIndex = 0
cboSortDir.selectedIndex = 0
cboFilterColumn.selectedIndex = 0
cboCriterion.selectedIndex = 0
txtFilterValue.value = ""
'clear the filter
RDS.FilterCriterion = ""
RDS.Reset(FALSE)
End Sub
-->
</Script>
</BODY>
</HTML>
<!-- EndFilterColumnVBS -->
Confira também
Objeto DataControl (RDS)
Propriedade FilterColumn (RDS)
Propriedade FilterCriterion (RDS)
Propriedade FilterValue (RDS)
Método Reset (RDS)
Propriedade SortColumn (RDS)
Propriedade SortDirection (RDS)
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de