Objeto OfficeDataSourceObject (Office)

Representa el origen de datos de combinación de correspondencia de una operación de combinación de correspondencia.

Observaciones

Para trabajar con el objeto OfficeDataSourceObject, dimensione una variable como objeto OfficeDataSourceObject. A continuación, puede trabajar con los distintos métodos y propiedades asociados al objeto. Utilice el SetSortOrder método para especificar cómo desea ordenar los registros en un origen de datos.

Ejemplo

En el ejemplo siguiente se ordena primero el origen de datos según el código postal en orden descendente y, a continuación, el apellido y el nombre en orden ascendente.

Sub SetDataSortOrder() 
 Dim appOffice As OfficeDataSourceObject 
 
 Set appOffice = Application.OfficeDataSourceObject 
 appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _ 
 "UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees" 
 
 appOffice.SetSortOrder SortField1:="ZipCode", _ 
 SortAscending1:=False, SortField2:="LastName", _ 
 SortField3:="FirstName" 
End Sub

Utilice la columna, Comparación, CompareTo y junto propiedades para devolver o establecer el criterio de consulta del origen de datos. 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 
 
 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 OfficeDataSourceObject
• Referencia del modelo de objeto

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.