Office VBA教程:ODSOColumns对象

   
OfficeDataSourceObject
ODSOColumns
ODSOColumn

表示邮件合并数据源中数据域的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

上页:Office VBA教程:ODSOColumn对象 下页:Office VBA教程:ODSOFilter对象

Office VBA教程:ODSOColumns对象

Office VBA教程:ODSOFilter对象 Office VBA教程:ODSOFilters对象
Office VBA教程:OfficeDataSourceObject对象 Office VBA教程:PropertyTest对象
Office VBA教程:PropertyTests集合对象 Office VBA教程:ScopeFolder对象
Office VBA教程:ScopeFolders集合 Office VBA教程:Script对象
Office VBA教程:Scripts集合对象 Office VBA教程:SearchFolders集合
Office VBA教程:SearchScope对象 Office VBA教程:SearchScopes集合
Office VBA教程:Signature对象 Office VBA教程:SignatureSet集合
Office VBA教程:WebPageFont对象 Office VBA教程:WebPageFonts集合对象
Office VBA教程:New对象 Office VBA教程:ActionControl属性
Office VBA教程:ActiveMenuBar属性 Office VBA教程:AdaptiveMenu属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号