Propiedad OfficeDataSourceObject.ConnectString (Office)

Obtiene o establece una cadena que representa la conexión al origen de datos de combinación de correo especificado. Lectura y escritura.

Sintaxis

expresión. ConnectString

expresión Variable que representa un objeto OfficeDataSourceObject .

Ejemplo

En este ejemplo se comprueba si el cadena de conexión contiene los caracteres ODSOOutlook y muestra un mensaje en consecuencia.

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

Vea también

• Miembros del objeto OfficeDataSourceObject

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.