Propriété OfficeDataSourceObject.Columns (Office)

Obtient un objet ODSOColumns qui représente les champs dans une source de données. En lecture seule.

Syntaxe

expression. Colonnes

expression Variable qui représente un objet OfficeDataSourceObject .

Exemple

L'exemple suivant montre comment afficher les noms de champs de la source de données liée à la publication active.

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

Voir aussi

• Membres de l’objet OfficeDataSourceObject

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.