Datacontex, nombre de la tabla

"Paul" preguntó:

Yo tengo

<Table(Name:="dbo.Cliente")> _
Partial Public Class Clientes

End Class

Quiero conseguir el nombre "Clientes" es decir el nombre que el le da
a la clase

¿Cómo obtendrías el nombre de cualquier clase incluida en tu proyecto? Digo
yo que tendrías que recurrir a técnicas de reflexión para enumerar las
clases existentes en tu proyecto.

Tienes que tener en cuenta que los objetos «System.Data.Linq.Table(Of T)» se
encuentran implentados como propiedades públicas del objeto DataContext que
hayas creado, y cada propiedad devuelve una referencia de la clase «Table(Of
T)» correspondiente, en tu caso, la propiedad «Clientes» del objeto
DataContext devolverá una referencia a la clase «Clientes»:

Dim dc As New DataClasses1DataContext

' Referenciamos la tabla Clientes a través de la propiedad
' Clientes del objeto DataContext.
'
Dim t As Table(Of Clientes) = dc.Clientes

Para recorrer las propiedades de un objeto DataContext, ejecutarías algo
parecido a lo siguiente:

Imports System.Reflection

' Referenciamos el objeto DataContext.
'
Dim dc As New DataClasses1DataContext

' Obtengo el Type de la instancia actual de la clase
'
Dim ty As Type = dc.GetType

' Obtengo las propiedades públicas del objeto
'
Dim properties() As PropertyInfo = ty.GetProperties

' Recorremos la colección de propiedades públicas.
'
For Each p As PropertyInfo In properties

If p.PropertyType.Name.Contains("`"c) Then
MessageBox.Show(p.Name, p.PropertyType.Name)
End If

Next

Como solamente deseas obtener el nombre de las propiedades que referencian
un objeto «Table(Of T)», vas a tener suerte, porque en este caso, la
propiedad «PropertyType» devuelve como nombre la palabra «Table`1», de ahí
que haya utilizado el método «Contains» para averiguar si el nombre del
objeto System.Type tiene un acento invertido. :-)

Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.