dracula - Il blog di Fabio "dracula" Civerchia

Recuperare la risorsa dall'assembly

Quando includiamo una immagine nell'assembly è possibile recuperarla tramite la classe reflection

Questo è comodo quando carichiamo immagini direttamente dall'assembly.

in imageTemplate impostiamo il nome dell'immagine che inclusa nell'asembly

Nomeassembly.Classe= qui possiamo impostare qualsiasi classe del nostro progetto

imageTemplate = nome dell?immagine

Friend Shared Function GetResourceImage(ByVal imageTemplate As String) As Image

Dim assembly1 As Reflection.Assembly = Reflection.Assembly.GetAssembly(GetType(Nomeassembly.Classe))

Dim stream1 As IO.Stream = assembly1.GetManifestResourceStream("NomeAssembly." & imageTemplate)

If (stream1 Is Nothing) Then

Return Nothing

End If

Return Image.FromStream(stream1)

End Function

Le novità che troveremo nel nuovo Dataset di ADO.NET 2.0

Le novità più importanti riguardano gli indici che sono stati completamente riscritti

Il supporto alla serializzazione binaria

Caricare un datatareader in un colpo solo in un datatable etc..

L'articolo http://msdn.microsoft.com/data/default.aspx?pull=/library/en-us/dnadonet/html/datasetenhance.asp

Buona lettura

Abilitare l?Intellisense in Visual Studio.net per XSLT

Abilitare l?Intellisense in Visual Studio.net per XSLT è possibile, basta scaricare i file xslschema e seguire le istruzioni nel readme. Il sito dove prelevare http://www.fesersoft.com/dotNet/

Tags: XSLT

Compressione in asp.net

Una delle novità che sarà disponibile in asp.net (Web Service) è la possibilità di compressione dei messaggi, infatto basta abilitare la classe proxy con il comando proxy.EnableDecompression = true tale comando abilita la classe allo scambio dei dati in forma compressa quindi più performate.

Nelle versioni attuali di Asp.net e iis è sono già abilitate per lo scambio dei dati in modalità compressa, essa funziona solo con i Browser Microsoft 5.5 o superiori, quando quando IIS riceve una richiesta verifica se il browser è abilitato a ricevere la compressione.

Per abilitare la compressione asp.net vedere il link

http://support.microsoft.com/default.aspx?scid=kb;en-us;322603

Tags: ASP.NET, IIS, Windows Server

Convertire un DataReader in un DataTable, e ottenere il Mapping direttamente in un oggetto DataTable senza l�oggetto DataSet

Un titolo un po� lungo :-)

Per varie che siano le cause capita di convertire un oggetto DataReader in un DataTable per fare cò dobbiamo ereditare una classe DbDataAdapter che implementa un set di funzioni per fornire una tipizzazione forte, inoltre eredita maggior parte delle funzionalità necessarie per una completa implementazione di DataAdapter.

Veniamo al codice.

Imports System

Imports System.Data

Imports System.Data.Common

Namespace DataUtil

Public Class DataReaderAdapter

Inherits DbDataAdapter

Protected Overrides Function CreateRowUpdatedEvent(ByVal dataRow As System.Data.DataRow, ByVal command As System.Data.IDbCommand, ByVal statementType As System.Data.StatementType, ByVal tableMapping As System.Data.Common.DataTableMapping) As System.Data.Common.RowUpdatedEventArgs

Return Nothing

End Function

Protected Overrides Function CreateRowUpdatingEvent(ByVal dataRow As System.Data.DataRow, ByVal command As System.Data.IDbCommand, ByVal statementType As System.Data.StatementType, ByVal tableMapping As System.Data.Common.DataTableMapping) As System.Data.Common.RowUpdatingEventArgs

Return Nothing

End Function

Public Function FillFromReader(ByVal DataTable As DataTable, ByVal dataReader As IDataReader) As Int32

Return Me.Fill(DataTable, dataReader)

End Function

Public Function FillSchemaTable(ByVal DataTable As DataTable, ByVal Tipo As SchemaType, ByVal Command As IDbCommand, ByVal Behavior As CommandBehavior) As DataTable

Return Me.FillSchema(DataTable, Tipo, Command, Behavior)

End Function

Protected Overrides Sub OnRowUpdated(ByVal value As System.Data.Common.RowUpdatedEventArgs)

End Sub

Protected Overrides Sub OnRowUpdating(ByVal value As System.Data.Common.RowUpdatingEventArgs)

End Sub

End Class

End Namespace

I metodo che ci servono sono i classici ma con più funzionalità Fill e FillSchema.

L�esempio console per provare:

Imports System.Data

Imports System.Data.SqlClient

Module Module1

Sub Main()

Console.WriteLine("Inizio connessione. Premi Invio per continuare")

Console.ReadLine()

Dim da As SqlDataAdapter

Dim cn As SqlConnection = New SqlConnection("Server=(local);database=Northwind;user id=sa;password=fabio;")

Dim sql As String = "Select * from Employees"

Dim cmd As New SqlCommand(sql, cn)

cn.Open()

Dim dra As DataUtil.DataReaderAdapter = New DataUtil.DataReaderAdapter

Dim DtX As DataTable = dra.FillSchemaTable(New DataTable("mia"), SchemaType.Source, cmd, CommandBehavior.Default)

Dim dr As SqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)

Dim dt As DataTable = New DataTable

dra.FillFromReader(dt, dr)

dr.Close()

Dim i As Int32

For i = 0 To dt.Rows.Count - 1

Console.WriteLine(dt.Rows(i)(1).ToString())

Console.WriteLine("")

Console.WriteLine("Visualizzazione del Mapping. Premere invio.")

Console.ReadLine()

Dim Colonna As DataColumn

For Each Colonna In DtX.Columns

Console.WriteLine("Caption {0} AllowDBNull {1} AutoIncrement {2} AutoIncrementSeed {3} AutoIncrementStep {4} MaxLength {5} DataType {6}", Colonna.Caption, Colonna.AllowDBNull, Colonna.AutoIncrement, Colonna.AutoIncrementSeed, Colonna.AutoIncrementStep, Colonna.MaxLength, Colonna.DataType)

Console.ReadLine()

End Sub

End Module

ciao

Tags: Off Topic

Far Partire l'emulatore per Pocket PC e Smart Phone da riga di comando

A volte quando non si dispone di visual studio bisogna fare a manina...

Una volta scaricati uno dei due SDK es. per Pocket Pc 2003, andare nella cartella (C:\Programmi\Windows CE Tools\wce420\POCKET PC 2003\Emulation) naturalmente

Se avete lasciato il percorso di Default.

Aprite il Notepad e scrivete

start "" "C:\Programmi\Windows CE Tools\Common\Platman\bin\PBEmulator.exe" /MemorySize 48 /Fastbackground /Skin "C:\Programmi\Windows CE Tools\wce420\POCKET PC 2003\Emulation\Pocket_PC_Emulator_Skin.xml" /CEImage "C:\Programmi\Windows CE Tools\wce420\POCKET PC 2003\Emulation\PPC_2003_WWE_VIRTUAL_RADIO.bin" /VMName "POCKET PC 2003 - POCKET PC 2003 Emulator" /HostKey 165

poi salvate con emul.cmd

Modificate eventuali percorsi per puntare allo skin e il tipo di emulatore.

Il file Windows Mobile 2003 Second Edition Emulator Images for Pocket PC - WWE.msi scaricabile da Microsoft contiene vari tipi di emulatori.

P.S.

Complimenti a Cristian J

Link di articaoli su asp.net 2.0

Vi segnalo due articoli in inglese su asp.net 2.0 cose che abbiamo ampiamente visto in Whidbey Day spiegate nelle sessioni di Daniele.

1° come implementare la sicurezza attraverso l'editor di visual studio

http://msdn.microsoft.com/msdnmag/issues/04/06/ASPNET20Security/default.aspx

2° la nuova funzionalità di Callback ossia effettuare il post della pagina senza che essa venga refresciata

http://www.dotnetjunkies.com/Tutorial/E80EC96F-1C32-4855-85AE-9E30EECF13D7.dcik

ciao.

Tags: ASP.NET, ASP.NET 2.0

Evidenziare un testo nei risultati di una ricerca con le regular expression in .net

Prendendo spunto dallo script #438 - Evidenziare un testo nei risultati di una ricerca con le regular expression in .Net la evidenziazione risulta più facile e potente.
Infatti le classi del Framework ci mette a disposizione il namespace
System.Text.RegularExpressions che ci permette di ottenere lo stesso risultato ma con delle varianti molto interessanti.
Visto lo script #438 essofa una replace del testo che noi gli passiamo indipendentemente da come esso sia formattato, cioè se è tutto maiuscolo, minuscolo o sole le iniziali.
La Regular non fa altro che trovare il testo e sostituirlo con quello che gli passiamo, ma se abbiamo l'esigenza di
evidenziare solo quelli che hanno l'iniziale maiuscola oppure evidenziare il testo ma lasciarlo come è stato
scritto oppure rendere tutto maiuscolo o minuscolo come facciamo?
la Replace della classe Regex in uno dei suoi metodi in overload ci da la possibilità di definire un Delegante,
ciòè una funzione che faccia il lavoro definita da Noi.

La funzione delegante si chiama MatchEvaluator e si occupa di analizare ogni occorenza trovata dal metodo Replace,
quindi possiamo analizzare ogni singola parola e trattarla a nostro piacimento.

StrDoc -> contiene il testo a cui applichiamo una ricerca
Pattern -> è la stringa che dobbiamo cercare
Colora -> è la funzione delegante che si occupa di trattare ogni singola parola
reOpt -> sono le opzioni che possiamo aggiungere (vedi MSDN)
StrDoc = Regex.Replace(StrDoc, Pattern, AddressOf Me.Colora, reOpt)

La Funzione colora non fa altro che analizzare le parole trovate.

    Private Shared Function Colora(ByVal m As Match) As String
        Return "" & m.Value & "" ' in questo modo lascia le parole come sono state scritte
    End Function

Oppure possiamo rendere la prima lettera maiuscola

Private Shared Function Colora(ByVal m As Match) As String
      Dim x As String = m.ToString()
      ' verifico se il primo carattere è minuscolo, se è così lo rendo maiuscolo
      If Char.IsLower(x.Chars(0)) Then
         Return Char.ToUpper(x.Chars(0)) & x.Substring(1, x.Length - 1)
      End If
      Return x
End Function

Il prossimo vedremo la funzione Group.

Ritorno da Whidbey Day

Che dire mi sono divertito moltissimo, sessioni molto interessanti, una sola mia nota negativa è il non essermi fermato a cena con gli altri.

Non ho potuto neanche scambiare quattro parole con daniele e cristian, avevo il treno subito finita l'ultima sessione. :-(

La prossima mi devo organizzare meglio......

Esportare dati con office 2003

Interessante articolo su come esportare dati da un Db sql server a Excell o Word 2003 usando le Office PIAs

http://msdn.microsoft.com/office/default.aspx?pull=/library/en-us/dno2k3ta/html/ODC_Office2003ADONET.asp

ciao e buona pasqua a tutti

(n.b. non è un messaggio del presidente)

Tags: Database, SQL Server