Propiedad ODSOFilter.CompareTo (Office)

Obtiene o establece una cadena que representa el texto que se va a comparar con el criterio de filtro de consulta. Lectura y escritura.

Sintaxis

expresión. CompareTo

expresión Variable que representa un objeto ODSOFilter .

Ejemplo

En el ejemplo siguiente se cambia un filtro existente para quitar de la combinación de correspondencia todos los registros que no tienen un campo Región igual a "WA".

Sub SetQueryCriterion() 
 Dim appOffice As Office.OfficeDataSourceObject 
 Dim intItem As Integer 
 
 Set appOffice = Application.OfficeDataSourceObject 
 appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _ 
 "UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees" 
 
 With appOffice.Filters 
 For intItem = 1 To .Count 
 With .Item(intItem) 
 If .Column = "Region" Then 
 .Comparison = msoFilterComparisonNotEqual 
 .CompareTo = "WA" 
 If .Conjunction = "Or" Then .Conjunction = "And" 
 End If 
 End With 
 Next intItem 
 End With 
End Sub

Vea también

• Miembros del objeto ODSOFilter

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.