当前位置：首页 > 文档资料 > Microsoft Office 对象参考 >

DataSource 属性

优质

小牛编辑

132浏览

2023-12-01

返回或设置一个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

免责声明：以上内容版权归原作者所有，如有侵犯您的原创版权请告知，我们将尽快删除相关内容。感谢每一位辛勤著写的作者，感谢每一位的分享。