Passa ai contenuti principali

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

 

Commenti

Post popolari in questo blog

VB.NET: Convertire un file DOC in RTF e PDF con office interop

In questo post vorrei proporvi del codice per poter convertire un file .doc in un file .rtf oppure .pdf utilizzando le API di interoperabilità di Office.Creeremo una classe, DocConverter, che esporrà le due funzionalità sopra citate.Cominciamo con il prevedere un attributo privato della classe che rappresenterà l’applicazione Word che utilizzeremo per la conversione. Creeremo l’istanza dell’attributo privato all’interno del costruttore della classe:PublicSubNew()
IfNot CreateWordApp() Then
ThrowNew ApplicationException("Assembly di interoperabilità con Office non trovato!")
EndIf
EndSub
Private _wordApp As Word.ApplicationClass
ProtectedFunction CreateWordApp() AsBoolean
Dim retval = True
Try
_wordApp = New Word.ApplicationClass()
_wordApp.Visible = False
Catch ex As System.Exception
_wordApp = Nothing
retval = False
EndTry
Return retval
EndFunction

La conversione del file doc sarà effettuata aprendo il file stesso ed eseguendo un’operazione di SaveAs:

Pr…

Cambiare la lingua di Visual Studio 2008

Oggi ho avuto qualche problema installando Windows Mobile 6 Professional SDK Refresh e Windows Mobile 6 Standard SDK Refresh.Scaricati i file di installazione e installati, ho provato a creare un progetto di tipo Windows Mobile 6.0 e mi sono beccato questo errore:Dopo qualche smanettamento abbiamo scoperto (e ringrazio il mitico Matteo per l’aiuto) che il mio Visual Studio 2008, pur essendo in Inglese (prova ne era il fatto che gli hotfix e la SP installata erano nella lingua di Albione) aveva come lingua impostata quella del sistema operativo (italiano).Ovviamente, non avrebbe mai potuto trovare la cartella 1040 (italiano) visto che l’installazione dell’SDK aveva supposto che la lingua del Visual Studio fosse Inglese (1033).La soluzione del problema è duplice:1) Duplicate la cartella 1033 presente nel percorso evidenziato dall’errore e la rinominate 10402) cambiate la lingua di Visual Studio.Per questa ultima eventualità basta andare nel menù Strumenti/Opzioni:e cambiare il linguaggi…

Tascam DR-05 registratore digitale per tutti

Diverso tempo fa ho acquistato il registratore digitale Tascam DR-05 e, ora, dopo diversi mesi di utilizzo, posso dire la mia a proposito.

Si tratta di un ottimo registratore digitale con microfono stereo che permette di ottenere registrazioni di ottima qualitaà anche in ambienti non perfetti dal punto di vista acustico.

Interessante la possibilità di utilizzare un cavalletto di piccole dimensioni come HAMA Mini treppiede o Mini Cavalletto Universale per tenere il microfono sollevato dal tavolo in fase di registrazione grazie allàattacco universale per macchina fotografica che il microfono ha nella parte inferiore.

Da segnalare anche il menu’ ben fatto e la possibilita’ di utilizzare una scheda SD esterna per memorizzare i file audio. Anche a livello di consumo batterie non e’ niente male. Consiglio l’uso delle alcaline non ricaricabili.

Il mio utilizzo e’ stato prettamente di registrazione di podcast vocali (no musica) ma le recensioni confermano che se la cava egregiamente con la mu…