Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Stellt einen Filter auf eine verknüpfte Seriendruck-Datenquelle angewendet werden soll. Das ODSOFilter-Objekt ist ein Member des ODSOFilters-Objekts .
Hinweise
Jeder Filter ist eine Zeile in einer Abfragezeichenfolge. Verwenden Sie die Eigenschaften Spalte, Vergleich,Vergleich und Konjunktion , um das Abfragekriterium der Datenquelle zurückzugeben oder festzulegen.
Beispiel
Im folgenden Beispiel wird ein vorhandener Filter geändert, sodass alle Datensätze, die nicht das Feld "Region " oder "Region" aufweisen, aus dem Seriendruck entfernt werden.
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.