Propiedad OfficeDataSourceObject.Columns (Office)

Obtiene un objeto ODSOColumns que representa los campos de un origen de datos. Solo lectura.

Sintaxis

expresión. Columnas

expresión Variable que representa un objeto OfficeDataSourceObject .

Ejemplo

En el siguiente ejemplo se muestran los nombres de campo del 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 "Field Name: " & .Item(intCount).Name 
 Next 
 End With 
End Sub

Vea también

• Miembros del objeto OfficeDataSourceObject

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.