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

Columns 属性

优质

小牛编辑

123浏览

2023-12-01

返回表示数据源中字段的 ODSOColumns 对象。

expression.Columns

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

示例

本示例显示附加到活动发布内容的数据源字段。

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 "Field Name: " & .Item(intCount).Name
        Next
    End With
End Sub

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