Propiedad OfficeDataSourceObject.DataSource (Office)

Obtiene o establece una cadena que representa el nombre del origen de datos adjunto. Lectura y escritura.

Sintaxis

expresión. DataSource

expresión Variable que representa un objeto OfficeDataSourceObject .

Ejemplo

El ejemplo siguiente establece el nombre del origen de datos si el nombre está en blanco.

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

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.