ODSOColumns 对象

表示邮件合并数据源中数据域的 ODSOColumn 对象的集合。

使用 ODSOColumns 对象

使用Columns 属性返回ODSOColumns 集合。本示例显示附加到活动应用程序的数据源中的域名。

Sub ShowFieldNames()
    Dim appOffice As OfficeDataSourceObject
    Dim intCount As Integer

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

    With appOffice.Columns
        For intCount = 1 To .Count
            MsgBox "Column Name: " & .Item(intCount).Name
        Next
    End With
End Sub

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

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: " & .Columns(1).Name & _
            "Value: " & .Columns("FirstName").Value
    End With
End Sub

OfficeDataSourceObject ODSOColumns ODSOColumn