DataSource 属性

       

返回或设置一个 String 类型,表示附加的数据源的名称。可读写。

expression.DataSource

expression   必需。该表达式返回“应用于”列表中的对象之一。

示例

如果数据源的名称为空,本示例设置其名称。

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