Objeto ODSOColumns (Office)

Colección de objetos ODSOColumn que representan los campos de datos de un origen de datos de combinación de correspondencia.

Ejemplo

Utilice las columnas propiedad para devolver la colección ODSOColumns. En el siguiente ejemplo muestra los nombres de campo en el origen de datos adjunto a la publicación activa.

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

Use Columns(index), donde index es el nombre del campo de datos o el número de índice, para devolver un único objeto ODSOColumn . El número de índice representa la posición del campo de datos en el origen de datos de combinación de correspondencia. En este ejemplo se recupera el nombre del primer campo y el valor del primer registro del campo FirstName en el origen de datos adjunto a la publicación activa.

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

Vea también

• Miembros del objeto ODSOColumns
• Referencia del modelo de objeto

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.