domenica 28 marzo 2010

Recuperare le informazioni di mapping delle entità in Linq2SQL

In questo piccolo post vorrei mostrarvi un modo per recuperare, dato il tipo di un oggetto generato con il designer di Lnq2SQL, la tabella di mapping e le eventuali colonne di mapping delle singole proprietà.

Quando generiamo il modello dei dati in Linq2SQL, l’ambiente di sviluppo crea per noi il codice VB.NET per la definizione delle classi che mappano le nostre tabelle e il DataContext per accedere alla banca dati.

Supponiamo di avere una tabella di clienti:

imagee di generare il modello Linq2SQL. In questo caso Visual Studio genera per noi una classe Clienti:

  1. <Table(Name:="dbo.Clienti")> _
  2. Partial Public Class Clienti
  3.     Implements System.ComponentModel.INotifyPropertyChanging,  _
  4.                 System.ComponentModel.INotifyPropertyChanged
  5.  
  6.     .
  7.     .
  8.  
  9.     <Column(Storage:="_IDCliente", AutoSync:=AutoSync.OnInsert, DbType:="Int NOT NULL IDENTITY", IsPrimaryKey:=True, IsDbGenerated:=True)> _
  10.     Public Property IDCliente() As Integer
  11.         .
  12.         .
  13.     End Property
  14.  
  15.     <Column(Storage:="_CodiceCliente", DbType:="Char(10) NOT NULL", CanBeNull:=False)> _
  16.     Public Property CodiceCliente() As String
  17.         .
  18.         .
  19.     End Property
  20.  
  21.     <Column(Storage:="_DescrizioneCliente", DbType:="NVarChar(100) NOT NULL", CanBeNull:=False)> _
  22.     Public Property DescrizioneCliente() As String
  23.         .
  24.         .
  25.     End Property
  26.  
  27.     .
  28.     .
  29.  
  30. End Class

Come possiamo osservare, la classe e le proprietà della stessa, vengono decorate con appositi attributi che mappano la classe e i suoi membri sulla tabella e sui campi della banca dati.

In particolare TableAttribute (Table nel precedente codice) associa la classe alla tabella (“dbo.Clienti” nell’esempio precedente) mentre ColumnAttribute (Column nel precedente codice) associa una proprietà ad un campo della banca dati.

Per recuperare, quindi, a runtime i parametri di mapping delle classi con la banca dati, possiamo recuperare gli attributi di cui sopra.

Per fare questo possiamo utilizzare i due seguenti metodi di estensione:

  1. Imports System.Runtime.CompilerServices
  2. Imports System.Data.Linq.Mapping
  3.  
  4. Public Module Linq2SqlModule
  5.     <Extension()> _
  6.     Public Function GetLinq2SqlTable(ByVal objectType As Type) As String
  7.         Dim retval As String = Nothing
  8.         Try
  9.             Dim attrib = CType(objectType.GetCustomAttributes(GetType(TableAttribute), _
  10.                                                               True).FirstOrDefault(),  _
  11.                                                               TableAttribute)
  12.             If attrib IsNot Nothing Then
  13.                 retval = attrib.Name
  14.             End If
  15.         Catch ex As Exception
  16.             retval = Nothing
  17.         End Try
  18.         Return retval
  19.     End Function
  20.  
  21.     <Extension()> _
  22.     Public Function GetLinq2SqlField(ByVal objectType As Type, _
  23.                                      ByVal propertyName As String) As String
  24.         Dim retval As String = Nothing
  25.         Try
  26.             Dim entityProp = (From p In objectType.GetProperties() _
  27.                              Where String.Compare(p.Name, propertyName, True) = 0 _
  28.                              Select p).FirstOrDefault()
  29.             If entityProp IsNot Nothing Then
  30.                 Dim attrib = CType(entityProp.GetCustomAttributes(GetType(ColumnAttribute), _
  31.                                                                   True).FirstOrDefault(),  _
  32.                                                                   ColumnAttribute)
  33.                 If attrib IsNot Nothing Then
  34.                     retval = attrib.Storage.Replace("_", "")
  35.                 End If
  36.             End If
  37.         Catch ex As Exception
  38.             retval = Nothing
  39.         End Try
  40.         Return retval
  41.     End Function
  42. End Module

 

Nessun commento: