OfficeDataSourceObject.Columns Property (Office)

Gets an ODSOColumns object that represents the fields in a data source. Read-only.

Syntax

expression. Columns

expression A variable that represents an OfficeDataSourceObject object.

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

See also

OfficeDataSourceObject Object

OfficeDataSourceObject Object Members