OfficeDataSourceObject.Columns Property - PowerPoint

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.

Visual Basic for Applications

Visual Basic for Applications
`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`

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

columns columns property ofv

See also: