ODSOColumn-Objekt (Office)
Stellt ein Feld in einer Datenquelle dar. ODSOColumn -Objekt ist ein Mitglied der ODSOColumns -Auflistung.
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.
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
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.