Compartilhar via

Propriedade OfficeDataSourceObject.DataSource (Office)

  • Artigo

Obtém ou define um String que representa o nome da fonte de dados anexada. Leitura/gravação.

Sintaxe

expressão. Datasource

Expressão Uma variável que representa um objeto OfficeDataSourceObject .

Exemplo

O exemplo a seguir define o nome da fonte de dados se o nome estiver em branco.

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

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.