Objeto ODSOColumns (Office)

Uma coleção de objetos ODSOColumn que representam os campos de dados numa origem de dados de impressão em série.

Exemplo

Use as colunas propriedade para retornar a coleção ODSOColumns. O exemplo a seguir exibe os nomes de campos na fonte de dados anexada à publicação ativa.

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

Utilize Columns(index), em que o índice é o nome do campo de dados ou o número do índice, para devolver um único objeto ODSOColumn . O número de índice representa a posição do campo de dados na fonte de dados de mala direta. Este exemplo obtém o nome do primeiro campo e o valor do primeiro registo do campo FirstName na origem 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: " & .Columns(1).Name & _ 
 "Value: " & .Columns("FirstName").Value 
 End With 
End Sub

Confira também

• Membros do objeto ODSOColumns
• Referência do modelo de objeto

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.