Objeto ODSOColumns

OfficeDataSourceObject ODSOColumns
ODSOColumn

Una colección de objetos ODSOColumn que representa los campos de datos de un origen de datos de combinación de correspondencia.

Utilizar el objeto ODSOColumns

Utilice la propiedad Columns para devolver la colección ODSOColumns. El ejemplo siguiente muestra los nombres de campos del origen de datos adjunto a la publicación activa.

Sub ShowFieldNames()
    Dim appOffice As OfficeDataSourceObject
    Dim intCount As Integer

    Set appOffice = Application.OfficeDataSourceObject
    appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _
        "UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees"

    With appOffice.Columns
        For intCount = 1 To .Count
            MsgBox "Column Name: " & .Item(intCount).Name
        Next
    End With
End Sub

Utilice Columns(index), donde index es el nombre o el número de índice de un campo de datos, para devolver un solo objeto ODSOColumn. El número de índice representa la posición del campo de datos en el origen de datos de combinación de correspondencia. Este ejemplo recupera el nombre del primer campo y el valor del primer registro del campo Nombre del origen de datos adjunto a la publicación activa.

Sub GetDataFromSource()
    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.Columns
        MsgBox "Field Name: " & .Columns(1).Name & _
            "Value: " & .Columns("FirstName").Value
    End With
End Sub