Code Salade

[SQL Server] Quale valore di default: DEFAULT!

Alberto De Luca — Mon, 03 May 2010 18:11:13 GMT

Capita alle volte che le cose più banali siano quelle che risolvono problemi enormi. Oggi mi sono trovato davanti al dilemma di quale fosse il valore di default da impostare per un parametro di tipo DateTime in una Stored procedure. Se infatti utilizzo parametri di tipo 'Stringa' (char, varchar, nchar, text....) è semplice:

Create procedure....

@Nome varchar (200) = ''

Oppure per i numerici... il discorso non cambia:

@Quantita int = 0

E per i DateTime? Dopo varie peripezie e googlature varie la soluzione è alquanto semplice:

@DataNascita datetime = DEFAULT

Adesso vediamo se me lo ricordo!!!!

Alberto.

Contare quanti numeri in un numero double

Alberto De Luca — Fri, 09 Apr 2010 11:20:32 GMT

Oggi in community qualcuno ha chiesto come contare i numeri di un numero decimale. Classico esempio di come si potrebbe utilizzare Linq in una sola riga di codice:

(From c As Char In NumeroDec.ToString("f") Where Char.IsDigit(c)).Count

Mi auguro possa essere utile a qualcuno ;)

Alberto.

Estrarre un'icona da un ImageList

Alberto De Luca — Wed, 07 Apr 2010 12:30:58 GMT

Spesso capita di "incastrarsi" su problemi alquanto banali... quindi mi segno questo appunto:

Per estrarre un'immagine da un imagelist e caso mai convertirla in icona questo è il codice da usare:

Me.Icon = Drawing.Icon.FromHandle(DirectCast(MyImageList.Images(0), Bitmap).GetHicon)

Alberto

Tecniche di programmazione: AndAlso ed OrElse come si usano?

Alberto De Luca — Tue, 01 Sep 2009 10:15:35 GMT

Con la versione 2005 di VS sono stati introdotti gli operatori di cortocircuitazione booleana AndAlso ed OrElse. Questi due nuovi operatori se utilizzati con criterio possono rendere molto più veloce la valutazione dell'espressione booleana, sopratutto se utilizzati in Query Linq. Il loro principio di funzionamento è alquanto semplice, vediamo le differenze rispetto all'utilizzo degli operatori And e Or.

In un'espressione booleana If ((A = B) And (C = D)) Then il compilatore valuta entrambe le espressioni (A=B e C=D) prima di restituirne il risultato, così come accade per l'operatore Or.

Per contro, nell'espressione booleana If ((A = B) AndAlso (C = D)) Then la seconda espressione booleana (C = D) viene valutata esclusivamente se la prima espressione è uguale a True, perchè se (A = B) è False, sicuramente il risultato complessivo dell'espressione sarà False senza che sia necessario valutare anche la seconda espressione (C = D), stessa cosa per OrElse.

Alla luce di questo, onde evitare di caricare il compilatore di inutili valutazioni di espressioni booleane (spesso molto dispendiose) sarebbe corretto ordinare la sintassi booleana mettendo al primo posto le valutazioni booleane più ricorrenti ed in seguito quelle meno ricorrenti. Ad esempio, ammettiamo di avere una tabella contatti di cui devo valutare la nazionalità e una tabella collegata con l'indirizzo di residenza del contatto, che non è detto che sia completamente popolata per ogni contatto. Se devo eseguire una query Linq che mi estrae tutti i contatti Italiani che abbiano almeno un indirizzo attivo sarebbe corretto impostare il filtro cosi: Where Contatto.Nazionalita = "IT" AndAlso Contatto.Indirizzi.Count > 0, questo perchè il primo filtro scarta dal primo subset di risultati un bel po' di contatti che non sono italiani e permette al secondo filtro di lavorare con un subset più leggero.

Alla prossima!

Alberto.

Come impostare la connessione di un ADO.NET Entity Data Model a Runtime

Alberto De Luca — Fri, 31 Jul 2009 15:49:32 GMT

Oggi mi sono scornato con un problema di modifica della connessione al server SQL di un ADO.NET Entity Data Model. A prtima vista sembra che non sia possibile impostare facilemente la nuova stringa di connessione. Imprecando un po' alla fine ci sono riuscito, posto questa soluzione pur consapevole che non sia la migliore, però è funzionante

        Dim EntityCnBuilder As New System.Data.EntityClient.EntityConnectionStringBuilder()
        Dim CnBuilder As New SqlClient.SqlConnectionStringBuilder()
        CnBuilder.DataSource = "ISTANZA ServerSQL"
        CnBuilder.UserID = "MyUserID"
        CnBuilder.IntegratedSecurity = False
        CnBuilder.Password = "abcdefg12345678"
        CnBuilder.InitialCatalog = "MIODATABASE"
        CnBuilder.MultipleActiveResultSets = True
        EntityCnBuilder.ProviderConnectionString = CnBuilder.ConnectionString
        EntityCnBuilder.Name = ""
        EntityCnBuilder.Metadata = "res://*/MyModel.csdl|res://*/MyModel.ssdl|res://*/MyModel.msl"
'I metadati si ricavano dalla stringa di connessione che il wizard visualizza durante la creazione dell'Entity Data Model
'Successivamente sono visibili all'interno del file App.config alla sezione ConnectionStrings
        EntityCnBuilder.Provider = "System.Data.SqlClient"
        Dim EntityCn As New System.Data.EntityClient.EntityConnection(EntityCnBuilder.ConnectionString)
        Dim Data as New MyEntities(EntityCn)

Alla prossima!!!!

Alberto.

[Tips]: Report Sharp Shooter Image resize

Alberto De Luca — Fri, 06 Feb 2009 22:55:38 GMT

Dato l'elevato interesse suscitato dal mio intervento sul Report Sharp Shooter nell'evento di Pistoia pubblico qua una tip molto interessante sull'utilizzo del Framework messo a disposizione da questa fantastica suite della PerpetuumSoft. Spesso ci troviamo nella situazione di inserire immagini definite dai clienti nei nostri report, oppure immagini che vengono modificate a seconda dl contenuto del report.Ma come fare affinchè le proporzioni dell'immagine vengano rispettate e non si vedano quelle orrende deformazioni? Di seguito una function che, dato un Array di Byte contenente l'immagine e il valore dell'altezza che vogliamo ottenere, restituisce l'oggetto Size da passare al report:

Public Shared Function ResizeImage(ByVal ImageByte As Byte(), ByVal Height As Integer) As PerpetuumSoft.Framework.Drawing.Vector

Dim ImgSize As System.Drawing.Size = ReminderReport.GetLogoSize(ImageByte)

Dim PerpSize As New PerpetuumSoft.Framework.Drawing.Vector(ImgSize)

If PerpSize.Y < Height Then

PerpSize = PerpSize.Multiply((PerpSize.Y / Height))

Else

PerpSize = PerpSize.Divide((PerpSize.Y / Height))

End If

Return PerpSize

End Function

Private Shared Function GetLogoSize(ByVal LogoBytes As Byte()) As System.Drawing.Size

Dim RetValue As System.Drawing.Size

Dim TmpFile As String = My.Computer.FileSystem.GetTempFileName

If LogoBytes IsNot Nothing Then My.Computer.FileSystem.WriteAllBytes(TmpFile, LogoBytes, False)

Dim Img As System.Drawing.Image = System.Drawing.Image.FromFile(TmpFile)

RetValue = Img.Size

Img.Dispose()

IO.File.Delete(TmpFile)

Else RetValue = New System.Drawing.Size(0, 0)

End If

Return RetValue

End Function

VB.NET 2005 - Leggere file delimitati come risorse

Alberto De Luca — Sun, 07 Oct 2007 12:41:17 GMT

Un semplicissimo snippet per leggere file a campi delimitati incorporandoli come risorse nel progetto utilizzando la classe TextFieldParser.

1) Inserire un nuovo file di testo tra le risorse del progetto nominandolo "FileDelimitato.txt".

2) Popolarlo con i dati delimitati.

3) Richiamare questa semplice routine da codice:

Dim fields As String()

Dim delimiter As String = ";"

Dim TxtReader As New System.IO.StringReader(My.Resources.FileDelimitato)

Using parser As New TextFieldParser(TxtReader)

parser.SetDelimiters(delimiter)

While Not parser.EndOfData

fields = parser.ReadFields()

End While

End Using

L'oggetto fields conterrà i vari campi recuperati come Array di stringhe.

Saluti,

Alberto De Luca

Visualizzare le mappe con VS 2005

Alberto De Luca — Fri, 28 Sep 2007 13:19:27 GMT

Per visualizzare la mappa di un luogo conoscendone l'indirizzo e la città, possiamo utilizzare google. Possiamo creare un gadget molto simpatico da inserire nelle applicazioni. Basta linkare l'indirizzo utilizzando questa sintassi:

http://maps.google.it/maps?hl=it&f=q&q= [INDIRIZZO] + " " + [CAP] + " " + [CITTA]+ " " + [PROVINCIA]

Oppure se si vuole ottenere un percorso:

http://maps.google.it/maps?hl=it&f=d&saddr=+ [IndirizzoPartenza] + " " + [CAPPartenza] + " " + [CittaPartenza] + " " + [ProvinciaPartenza] + "&daddr=" + [IndirizzoArrivo] + " " + [CAPArrivo] + " " + [CittaArrivo] + " " + [ProvinciaArrivo]

Un paio di esempi:

http://maps.google.it/maps?hl=it&f=q&q=Via%20del%20Corso,%2010,%2000187%20Roma

http://maps.google.it/maps?hl=it&f=d&saddr=Via%20del%20Corso,%2010,%2000187%20Roma&daddr=CORSO+MATTEOTTI+23900%2C+LECCO%2C+LC%2C+Italia

Saluti,

Alberto De Luca

Gestire le versioni con l'Installer di Visual Studio 2005

Alberto De Luca — Mon, 17 Sep 2007 00:01:01 GMT

Spesso viene fatta la domanda sul come poter effettuare un Deployment con Visual Studio 2005 gestendo correttamente le versioni. La cosa è molto semplice se non addirittura banale. Ogni installer (*.msi) ha un suo GUID per l'upgrade di installazione che possiamo facilmente trovare nella pagina delle proprietà del progetto di Installazione alla voce UpgradeCode ed una Versione del programma di Installazione (non del file che distribuiamo, proprio del progetto di Installazione) che troviamo alla voce Version:

Due Installer dello stesso Assembly da distribuire ma con GUID di Upgrade diversi sono considerati come uno l'aggiornamento dell'altro. Modificando la versione dell'installer automaticamente viene ricreato un nuovo GUID oppure con l'apposito pulsante posto sulla destra della proprietà è possibile far generare il nuovo GUID a Visual Studio. Questo codice viene utilizzato dal motore MSI per gestire il versioning sul PC ospite e riconoscere, in base al ProductCode, se quella che si sta installando è una versione di upgrade di un applicativo già esistente.

Semplice, no?

Alberto De Luca.

Utilizzo della classe My in VB 2005: un semplice esempio per creare un File-finder (trova file)

Alberto De Luca — Fri, 14 Sep 2007 23:35:09 GMT

Qui troverete un semplice progettino per svilupparsi un File finder...

In area risorse

Saluti,

Alberto De Luca