Auf Englisch lesen

Freigeben über


ODSOColumn-Objekt (Office)

Stellt ein Feld in einer Datenquelle dar. ODSOColumn -Objekt ist ein Mitglied der ODSOColumns -Auflistung.

Hinweise

Die ODSOColumns -Auflistung enthält alle Datenfelder in einer Seriendruck-Datenquelle (beispielsweise Name, Adresse und Ort).

Sie können keine Felder zur ODSOColumns -Auflistung hinzufügen. Alle Datenfelder in einer Datenquelle werden automatisch in der ODSOColumns -Auflistung enthalten.

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.

Beispiel

In diesem Beispiel werden Name und Wert des ersten Felds im ersten Datensatz der Datenquelle abgerufen, die mit der aktiven Publikation verknüpft 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: " & .Item(1).Name & vbLf & _ 
 "Value: " & .Item(1).Value 
 End With 
End Sub

Siehe auch

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.