Office.OfficeDataSourceObject.Columns.md

title	keywords	f1_keywords	api_name	ms.assetid	ms.date	ms.localizationpriority
OfficeDataSourceObject.Columns property (Office)	vbaof11.chm232004	vbaof11.chm232004	Office.OfficeDataSourceObject.Columns	02a3eb37-df7a-923a-6a98-dbb980b413f7	01/22/2019	medium

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 members

[!includeSupport and feedback]