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…

VB.NET for Dummies: Gli Eventi

Vorrei iniziare con questo post una serie dedicata ad aspetti di VB.NET di base che possono essere utile a coloro che si avvicinano al mondo .NET e che, in genere, non vengono trattati a livello base.La serie di post non ha la pretesa di essere assolutamente esaustivi sugli argomenti che tratteròIn questo primo post parleremo degli eventi.Cosa sono e a cosa servonoUn evento è la “notifica” dell’accadimento di qualcosa.Quando, ad esempio, premiamo un bottone della finestra di un’applicazione, dietro le quinte, il bottone stesso “notifica” al mondo circostante che qualcuno, in quell’istante, lo ha premuto.Sta, poi, al mondo circostante preoccuparsi di “intercettare” l’evento stesso per gestirlo (tramite un gestore di evento).Attenzione a non confondere la pressione del tasto con la “notifica” della pressione del tasto: l’evento è la “notifica” dell’accadimento, non l’accadimento stesso.Ma a cosa serve tutto ciò?Utilizzare gli eventi è un modo per disaccoppiare due o più attori del nostr…

Creare uno shortcut con VB.NET

Prendendo spunto da un post comparso sul forum MSDN vorrei proporvi un tip su come creare uno shortcut utilizzando VB.NET.Per poter creare uno shortcut possiamo procedere in due modi: o ci studiamo la struttura del file .lnk e scriviamo una classe che è in grado di ricreare tale struttura oppure utilizziamo Windows Scripting Host.La prima soluzione è percorribile ma laboriosa perchè la struttura di un file lnk non è banale. Chi fosse interessato a vedere come è composto, internamente, un file lnk può scaricare la seguente reference guide (link).Io vorrei proporvi la seconda strada e realizzerò una classe che incapsula l’utilizzo di Windows Scripting Host.L’object model di Windows Scripting Host è contenuto nella dll IWshRuntimeLibrary che può essere referenziata, nel nostro progetto, utilizzando il tab COM della finestra di aggiunta delle reference:Tra gli oggetti che troviamo all’interno della libreria utilizzeremo la classe WshShell e la classe WshShortcut.La prima delle due rappres…