ODSOColumns-Objekt (Office)

Eine Auflistung von ODSOColumn-Objekten , die die Datenfelder in einer Seriendruck-Datenquelle darstellen.

Beispiel

Verwenden Sie die Spalten Eigenschaft, um der ODSOColumns -Auflistung zurückzugeben. Das folgende Beispiel zeigt die Namen der Felder in der Datenquelle mit der aktiven Publikation verknüpft ist.

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

Verwenden Sie Columns(index), wobei index der Datenfeldname oder die Indexnummer ist, um ein einzelnes ODSOColumn-Objekt zurückzugeben. Die Indexnummer stellt die Position des Datenfelds in der Seriendruck-Datenquelle dar. In diesem Beispiel werden der Name des ersten Felds und der Wert des ersten Datensatzes des Felds FirstName in der Datenquelle abgerufen, die an die aktive Publikation angefügt ist.

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

Siehe auch

• Elemente des ODSOColumns-Objekts
• -Objektmodellreferenz

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.