OfficeDataSourceObject.DataSource Property - PowerPoint

Gets or sets a String that represents the name of the attached data source. Read/write.

Syntax

expression.DataSource

expression A variable that represents an OfficeDataSourceObject object.

Example
The following example sets the name of the data source if the name is blank.

Visual Basic for Applications

Visual Basic for Applications
`Sub SetAndReturnDataSourceName() Dim appOffice As OfficeDataSourceObject Set appOffice = Application.OfficeDataSourceObject With appOffice .Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _ "UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees" If .DataSource = "" Then .DataSource = "Northwind" MsgBox .DataSource End If End With End Sub`

Sub SetAndReturnDataSourceName() Dim appOffice As OfficeDataSourceObject Set appOffice = Application.OfficeDataSourceObject With appOffice .Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _ "UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees" If .DataSource = "" Then .DataSource = "Northwind" MsgBox .DataSource End If End With End Sub

data data source datasource datasource property ofv

See also: