Derniers articles

Comment faire une jointure avec une fonction table param�tr�e.

Thu, 15 Apr 2010 10:08:01 -0400

On utilise CROSS APPLY pour faire un JOIN et OUTER APPLY pour faire un LEFT JOIN

Exemple :

Code SQL :

 
SELECT	Factures.IDFacture, 
		Factures.IDClient, 
		CalculFact.Qtee,
                CalculFact.Prix,
		CalculFact.SousTotal, 
		CalculFact.TPS, 
                CalculFact.TVQ, 
                CalculFact.Total
FROM	Factures CROSS APPLY 
		CalculFacture(Factures.IDFacture) AS CalculFact

Merci � �ric Vaillancour pour la piste SQL Prof

Exemple de curseur dans TSQL

Wed, 24 Feb 2010 17:56:36 -0500

Permet � l'aide des curseurs d'extraire une liste de nom pour les mettres sur une seul ligne s�par� par une virgule. Y'a peut-�tre une meilleur solution pour faire la m�me chose mais l'id�e est de montrer comment fonctionne les curseurs avec TSQL.

Code SQL :

 
CREATE FUNCTION dbo.ExempleCurseur
(
    @NomVille nvarchar(100)
)
RETURNS nvarchar(MAX)
AS
BEGIN    
    DECLARE @List nvarchar(MAX)
    DECLARE @tmpNom nvarchar(101)
 
    SELECT @List = ''
 
    DECLARE OPList CURSOR FOR
        SELECT dbo.Clients.Nom FROM dbo.Clients
        WHERE (dbo.Clients.Ville= @NomVille)
        ORDER BY dbo.Clients.Nom
 
    OPEN OPList
    FETCH NEXT FROM OPList INTO @tmpNom
 
    WHILE (@@FETCH_STATUS=0)
    BEGIN        
        SELECT @List=@List + @tmpNom + ', '
        FETCH NEXT FROM OPList INTO @tmpNom
    END
 
    CLOSE OPList
    DEALLOCATE OPList
 
    IF @List IS NULL
        SELECT @List = 'n/a'
    ELSE
        SELECT @List = SUBSTRING(@List,1,LEN(@List)-1) -- Supprime la derni�re virgule.
 
    RETURN @List
END
GO

Comment utiliser un objet Thread

Sun, 21 Feb 2010 15:17:01 -0500

Voici un exemple que j'ai trouv� sur le site de MSDN France par Pascal Belaud. Sur l'utilisation d'un objet Thread pour faire du multi threading. Vous pouvez d'ailleurs trouver sur le site de l'auteur une excellente suite de vid�os sur le .Net et en Fran�ais.

Code VB :

 
Imports System.Threading
 
Public Class FormMain
 
    Private monThread As Thread
 
    Private Sub ButtonD�marrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonD�marrer.Click
 
        monThread = New Thread(AddressOf d�marrage)
        monThread.Start()
 
        MessageBox.Show(Me, "Thread d�marr�", "Threading", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
    End Sub
 
    Private Sub d�marrage()
 
        For index As Integer = 0 To 100000
 
            MAJLabel(index)
            Thread.Sleep(0)
 
        Next
 
    End Sub
 
    Private Delegate Sub MAJLabelDelegate(ByVal index As Integer)
 
    Private Sub MAJLabel(ByVal index As Integer)
 
        If LabelValeur.InvokeRequired Then
 
            LabelValeur.Invoke(New MAJLabelDelegate(AddressOf MAJLabel), index)
            Return
 
        End If
 
        LabelValeur.Text = index.ToString()
 
    End Sub
 
    Private Sub ButtonArr�ter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonArr�ter.Click
 
        monThread.Abort()
 
    End Sub
 
End Class

Vous remarquerez que l'auteur � utilis� des caract�res accentu�s dans son exemple. Bien que cela semble techniquement possible. De gr�ce, ne fait jamais �a dans vos code si vous ne voulez pas de probl�me.

Vous remarquerez �galement l'utilisation d'un Delegate avec la m�thode MAJLabel. Cette astuce permet de pouvoir modifier un composant graphique dans le Thread principal de l'application. Autrement cela n'aurait pas �t� possible car un Thread n'a pas le droit de modifier ce qui se passe dans un autre Thread.

TrueCrypt

Sun, 21 Feb 2010 14:05:01 -0500

Je vais vous parler de cryptage aujourd’hui. En fait, pour faire une histoire courte, je me suis achet� une clef USB pour pouvoir stocker des informations, mais je voulais que celle-ci soit s�curis�. Donc, je m’ach�te une clef qui venait avec, soi-disant, un logiciel de cryptage des donn�es. Bon bravo! Je d�balle ma clef et je d�marre le logiciel, mais rien n’y fait le logiciel plante toujours au moment du formatage de la clef. Je vais donc sur le site du fabricant et je t�l�charge la derni�re version du logiciel et toujours le m�me probl�me. Je perds patience et je d�cide de chercher un logiciel sur internet pour arriv� � mais fin et comble du bonheur j’ai trouv� un logiciel fabuleux et qui plus est, il est en open source et gratuit ayant pour nom TrueCrypt. Non seulement il peut cr�er des fichiers de cryptage sur une clef USB, mais vous pouvez �galement le faire sur des partitions compl�tes (par contre, je n’ai pas essay�). Le seul d�faut que je lui trouve c’est d’�tre seulement en anglais. Vous pouvez trouver le logiciel ici. Et j’ai trouv� un mini tutoriel (en anglais) qui explique comment crypter sur une clef USB. Bon cryptage.

WebBrowser et COM

Sun, 21 Feb 2010 13:47:01 -0500

Je suis pr�sentement � la d�couverte du composant WebBrowser avec lequel j’essaie de le faire interagir avec une Form de mon application. Le tout par le biais de COM (Component Object Model). Rien de bien compliqu� au premier abord. Voici le code que Micosoft sugg�re :

Code VB :

 
Imports System
Imports System.Windows.Forms
Imports System.Security.Permissions
 
Public Class Form1
  Inherits Form
 
  Private webBrowser1 As New WebBrowser()
  Private WithEvents button1 As New Button()
 
  Public Shared Sub Main()
	  Application.EnableVisualStyles()
	  Application.Run(New Form1())
  End Sub
 
  Public Sub New()
	  button1.Text = "call script code from client code"
	  button1.Dock = DockStyle.Top
	  webBrowser1.Dock = DockStyle.Fill
	  Controls.Add(webBrowser1)
	  Controls.Add(button1)
  End Sub
 
  Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
	  webBrowser1.AllowWebBrowserDrop = False
	  webBrowser1.IsWebBrowserContextMenuEnabled = False
	  webBrowser1.WebBrowserShortcutsEnabled = False
	  webBrowser1.ObjectForScripting = Me
	  ' Uncomment the following line when you are finished debugging.
	  'webBrowser1.ScriptErrorsSuppressed = True
	  webBrowser1.DocumentText = _
		  "<script type="text/javascript"><!�mce:0�></script><button> " &amp; _
		  "call client code from script code</button>" &amp; ""
  End Sub
 
  Public Sub Test(ByVal message As String)
	  MessageBox.Show(message, "client code")
  End Sub
 
  Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
	  webBrowser1.Document.InvokeScript("test", New String() {"called from client code"})
  End Sub
 
End Class

Bref, rien de bien compliquer. Mais voil� que quand je teste l’application, j’ai une erreur de script avec comme message que “window.external” est de r�f�rence NULL ou inatteignable. Finalement, la solution est vraiment b�te. Dans les options de votre application (je suis sous VS2008) � partir de l’onglet “Application” cliquez sur “Informations de l’assembly…” et vous devez activer la case � cocher “Rendre l’assembly visible par COM” Et voil�! Tout fonctionne � merveille. Je vous invite � consulter l’aide du composant WebBrowser pour plus de d�tail sur le code et ce composant qui est tr�s pratique pour afficher simplement une page web ou faire comme moi une interface dynamique entre une Form et une page Web.