Freigeben über

ODSOFilter-Objekt (Office)

  • Artikel

Stellt einen Filter auf eine verknüpfte Seriendruck-Datenquelle angewendet werden soll. Das ODSOFilter-Objekt ist ein Element des ODSOFilters-Objekts .

Hinweise

Jeder Filter ist eine Zeile in einer Abfragezeichenfolge. Verwenden Sie die Eigenschaften Column, CompareTo, Comparison und Conjunction , um das Datenquellenabfragekriterium zurückzugeben oder festzulegen.

Beispiel

Im folgenden Beispiel wird ein vorhandener Filter so geändert, dass alle Datensätze aus dem Seriendruck entfernt werden, die kein Feld "Region " mit dem Wert "WA" aufweisen.

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

Verwenden Sie die Add-Methode des ODSOFilters-Objekts , um der Abfrage ein neues Filterkriterium hinzuzufügen. In diesem Beispiel wird eine neue Zeile zur Abfragezeichenfolge hinzugefügt und anschließend den kombinierten Filter auf die Datenquelle angewendet.

Sub SetQueryCriterion() 
 Dim appOffice As OfficeDataSourceObject 
 
 Set appOffice = Application.OfficeDataSourceObject 
 appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _ 
 "UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees" 
 
 With appOffice.Filters 
 .Add Column:="Region", _ 
 Comparison:=msoFilterComparisonIsBlank, _ 
 Conjunction:=msoFilterConjunctionAnd 
 .ApplyFilter 
 End With 
End Sub

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.