Compartilhar via

Propriedade OfficeDataSourceObject.ConnectString (Office)

  • Artigo

Obtém ou define um String que representa a conexão com a fonte de dados de mala direta especificada. Leitura/gravação.

Sintaxe

expressão. ConnectString

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

Exemplo

Este exemplo verifica se a cadeia de conexão contém os caracteres ODSOOutlook e exibe uma mensagem de acordo.

Sub VerifyCorrectDataSource() 
 Dim appOffice As OfficeDataSourceObject 
 
 Set appOffice = Application.OfficeDataSourceObject 
 appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _ 
 "UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees" 
 
 If InStr(appOffice.ConnectString, "ODSOOutlook") > 0 Then 
 MsgBox "Your Outlook address book is used as the data source." 
 Else 
 MsgBox "Your Outlook address book is not used as the data source." 
 End If 
 
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.