ODSOColumn 对象

ODSOColumns ODSOColumn

表示数据源中的域。ODSOColumn 对象为 ODSOColumns 集合的成员。ODSOColumns 集合包括邮件合并数据源中的所有数据域（例如，名字、地址和城市）。

使用 ODSOColumn 对象

使用 Columns(index) 返回单个 ODSOColumn 对象，其中 index 为数据域名称或索引号。索引号表示数据域在邮件合并数据源中的位置。本示例检索附加到活动发布内容的数据源中第一条记录的第一个域名和值。

Sub GetDataFromSource()

    Dim appOffice As OfficeDataSourceObject

    Set appOffice = Application.OfficeDataSourceObject
    appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _
        "UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees"

    With appOffice.Columns
        MsgBox "Field Name: " & .Item(1).Name & vbLf & _
            "Value: " & .Item(1).Value
    End With
End Sub

说明

不能向 ODSOColumns 集合添加域。ODSOColumns 集合自动包括数据源中的所有数据域。