Share via

Columns Property

  • Article

Returns an ODSOColumns object that represents the fields in a data source.

expression.Columns

*expression   * Required. An expression that returns one of the objects in the Applies To list.

Example

The following example displays the field names in the data source attached to the active publication.

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 "Field Name: " & .Item(intCount).Name
        Next
    End With
End Sub

Applies to | OfficeDataSourceObject Object