Compartilhar via


Objeto ODSOColumn (Office)

Representa um campo em uma fonte de dados. O objeto ODSOColumn é um membro da coleção ODSOColumns.

Comentários

A coleção ODSOColumns inclui todos os campos de dados em uma fonte de dados de mala direta (por exemplo, nome, endereço e cidade).

Você não pode adicionar campos à coleção ODSOColumns. Todos os campos de dados em uma fonte de dados são incluídos automaticamente na coleção ODSOColumns.

Use Columns(index), em que index é o nome do campo de dados ou o número do índice, para retornar um único objeto ODSOColumn . O número de índice representa a posição do campo de dados na fonte de dados de mala direta.

Exemplo

Este exemplo recupera o nome e valor do primeiro campo do primeiro registro da fonte de dados anexada à publicação ativa.

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

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.