Comment migrer vos projets vers VB.NET ?

Les nouveautés majeures VB .Net :

• Visual Basic .Net est un véritable langage orienté objet (l'héritage, le polymorphisme sont une réalité) ;
• la gestion des erreurs est améliorée via la gestion structurée des exceptions ;
• la prise en charge d'applications multithreadées est désormais possible.

La plate-forme .NET :

• une meilleure scalabilité : Les ADO .Net améliorent la scalabilité de votre application en favorisant le mode déconnecté et en réduisant le nombre de connexions et de verrous SGBD. La gestion de la Session ASP a été améliorée et peut être partagée parmi plusieurs serveurs d'une ferme Web ;
• des performances accrues : L'objet DataReader a été conçu pour sa rapidité d'accès aux données. Les pages ASP .Net sont désormais compilées ;
• un déploiement facilité : Le déploiement de votre application sera réalisé par un simple XCOPY.

Passer à Visual Basic .NET ne signifie pas simplement changer la syntaxe du langage à utiliser. Le développeur doit monter en compétences sur de nombreux volets : en programmation orientée objet ou connaissance du FrameWork .NET. Cette mise à niveau à un coût non négligeable. Les premiers retours d'expérience sur .NET montrent que les coûts initiaux d'acquisition de la technologie et d'implémentation sont, à terme, compensés par les gains de productivité et de maintenance.

Comme je l'ai précisé plus haut, la notion de coût dépend aussi de votre structure. Si c'est un facteur déterminant pour vous, il faut savoir que d'autres solutions sont possibles. Par exemple, migrer votre application partie par partie permet de réduire les coûts et de s'approprier la technologie progressivement.

Le type d'application est également un facteur important à prendre en compte. L'application est-elle une application Web ? Le code est-il modulaire ? La technologie que j'utilise aujourd'hui est-elle implémentée en Visual Basic .Net ? Autant de questions qui vous orienteront ou non vers une migration.

Cette option s'avère intéressante si vous souhaitez :

• bénéficier de meilleures performances et accroître la scalabilité de votre application (l'utilisation d'ASP .Net et ADO .Net permet de les améliorer) ;
• migrer votre application, mais que le code existant Visual Basic ne possède pas d'équivalence en Visual Basic .Net ou qu'il est impossible de le migrer.

Cette solution présente les inconvénients suivants :

• pas de réutilisabilité du code existant ;
• investissement humain et financier important.

Avantages :

• réutilisation d'une partie du code existant ;
• amélioration des performances et de la scalabilité pour les parties migrées.

Inconvénients :

• le code migré n'est pas forcément performant et nécessitera des réajustements ;
• certaines portions migrées (par exemple utilisant les ADO) ne bénéficieront pas des avantages de .NET.

Avantages :

• amélioration des performances et de la scalabilité pour les parties migrées ;
• préservation de l'investissement en réutilisant du code existant.

Inconvénients :

• l'utilisation simultanée de Visual Basic et de Visual Basic .Net peut engendrer des problèmes de déploiement et de maintenance ;
• l'interopérabilité COM+/.NET peut légèrement dégrader les performances de votre application.

Il n'y a pas de solution unique et chacun doit trouver la solution qui s'adapte à ses besoins. En revanche, la solution de migration partielle me semble être un bon compromis. Elle consiste à migrer les éléments de votre application en fonction de vos besoins. Elle permet de préserver l'existant et de réutiliser votre code via l'interopérabilité COM+/.Net. Elle permet d'acquérir progressivement des compétences sur la technologie et d'en tirer des enseignements pour les futurs développements .Net.

III-A-1. Les fonctionnalités non supportées▲

III-A-2. Les mots clés non supportés▲

Il est recommandé d'installer votre projet sur la machine d'où sera lancée la migration. Cela garantit que le projet VB6 fonctionne et que tous les éléments utilisés par le projet (composants, contrôles …) sont disponibles au moment de la migration.

D'autre part l'assistant de migration accepte seulement des projets Visual Basic 6. Donc si vous disposez de versions antérieures, il est recommandé de les migrer au préalable vers Visual Basic 6.

La mise à niveau peut être réalisée par étapes en commençant par la partie cliente, puis les objets métiers, et enfin les objets données. Il est possible d'aller au-delà du simple portage et d'intégrer les améliorations du framework .NET. À noter que la migration sera d'autant plus facilitée que votre application a été conçue de façon modulaire et qu'elle respecte certaines bonnes pratiques de programmation. Nous verrons tout ceci en détail par la suite.

La migration d'un projet peut être décomposée en plusieurs étapes que nous allons décrire ci-dessous.

1. Choix des éléments à migrer.
   Il convient de définir quelles parties applicatives vont être migrées en se référant à la stratégie présentée ci-dessus.
2. Préparation à la migration du projet Visual Basic 6.
   Des corrections peuvent être apportées au code Visual Basic 6 avant le passage de l'assistant de mise à niveau. Il est plus simple de traiter ces corrections directement en Visual Basic et de laisser l'assistant effectuer la mise à jour plutôt que de les effectuer une fois la mise à niveau réalisée.
3. Migration de l'application via l'assistant de migration de l'VS.Net
4. Correction des anomalies détectées par l'assistant.
   L'assistant ne corrige qu'une partie des problèmes; charge au développeur de compléter la mise à niveau.
5. Test de l'application.
   Une fois la mise à niveau achevée, il faut réaliser les tests de non-régression pour s'assurer que l'application présente toujours les comportements attendus.

III-C-1. Choix des éléments à migrer▲

Function CreerClient(ByVal sSiret As String, _
   ByVal sNomClient As String, _
   ByVal iNumero As Integer, _
   ByVal sRue As String, _
   ByVal sCodePostal As String, _
   ByVal sCommune As String, _
   ByRef vIdentifiant As Variant) As Integer

III-C-2. Préparation à la migration du projet Visual Basic 6▲

III-C-3. La migration de l'application via l'assistant de migration▲

Pour migrer notre projet Visual Basic nous allons utiliser l'assistant de migration fournit par Microsoft. Pour cela nous ouvrons notre projet .vbp avec l'IDE Visual Studio .NET. L'assistant nous propose dès lors de mettre à niveau notre projet.

Nous choisissions ensuite le type de projet, en l'occurrence il s'agit d'un ActiveX Server de type DLL.

Nous sélectionnons l'emplacement où sera stocké le nouveau projet.

Enfin nous lançons la migration de notre projet.

Une fois la mise à niveau réalisée, un rapport de mise à jour nous est proposé.

Ce rapport présente les erreurs et les avertissements détectés par l'outil de mise à jour regroupés par fichier. Pour chaque erreur, une description détaillée indique pourquoi le code présente une anomalie et comment la corriger.

Ce rapport est complété par quatre types de commentaires directement intégrés au code de l'application :

• UPGRADE_ISSUE : fait référence à des lignes qui empêchent le code de compiler ;
• UPGRADE_TODO : fait référence à des lignes qui compilent, mais peuvent, à l'exécution, générer des erreurs ;
• UPGRADE_WARNING : fait référence à des lignes qui compilent et qui peuvent peut-être provoquer des erreurs à l'exécution ;
• UPGRADE_NOTE : fait référence à du code qui compile pour lequel le passage à VB .Net peut provoquer des effets indésirables.

Étudions maintenant le code généré par l'assistant de mise à niveau VB .NET et regardons les modifications apportées.

• Génération d'une classe VB .NET qui contient les méthodes de notre précédente classe Visual Basic.
• Modification des types de données. Le type Integer a été remplacé par du Short. Le Variant par Object.
• Modification de l'appel à des fonctions qui intègre désormais obligatoirement des parenthèses.
• Modification de certaines constantes utilisées. Par exemple l'option adCmdStoredProc a été remplacée par ADODB.CommandTypeEnum.adCmdStoredProc.

III-C-4. Correction des anomalies détectées par l'assistant▲

Implements COMSVCSLib.IObjectConstruct
Private sConstructString As String
                            
Private Sub IObjectConstruct_Construct(ByVal pCtorObj As Object)
                            
    Const NomFonction = "IObjectConstruct_Construct"
                              
    Dim sConstruct As IObjectConstructString
    Set sConstruct = pCtorObj
    sConstructString = sConstruct.ConstructString
                              
End Sub

Public Class DataAccess
                        
Inherits System.EnterpriseServices.ServicedComponent
                    
    Private sConstructString As String
                        
    Private Const NomModule As String = "DataClient"
                        
    Protected Overrides Sub Construct(ByVal constructString As String)
        sConstructString = constructString
    End Sub 'Construct

'UPGRADE_ISSUE: La constante vbLogToNT n'a pas été mise à niveau. 
'Cliquez ici : 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2070"'
'UPGRADE_ISSUE: App méthode App.StartLogging - Mise à niveau non effectuée 
'Cliquez ici : 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
App.StartLogging("", vbLogToNT)
                            
'UPGRADE_ISSUE: La constante vbLogEventTypeError n'a pas été mise à niveau. 
'Cliquez ici : 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2070"'
'UPGRADE_ISSUE: App méthode App.LogEvent - Mise à niveau non effectuée 
'Cliquez ici : 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2069"'
App.LogEvent(Err.Source & " " & Err.Description, vbLogEventTypeError)

Imports System.Diagnostics.EventLog
'...
Dim myLog As New EventLog("Application", System.Environment.MachineName, "Classe DataAccess")
myLog.WriteEntry(Err.Source & " " & Err.Description, EventLogEntryType.Error)

Function CreerClient(…)
Dim ctx As ObjectContext    
'...
    Set ctx = GetObjectContext
    If Not ctx Is Nothing Then
       ctx.SetComplete
       Set ctx = Nothing
    End If

Imports System.EnterpriseServices
    
<Transaction(TransactionOption.Required)> _
    Public Class DataAccess
    Inherits System.EnterpriseServices.ServicedComponent
                            
    <AutoComplete()> Function CreerClient(ByVal sSiret As String, ByVal sNomClient As String, _
        ByVal iNumero As Short, _
        ByVal sRue As String, _
        ByVal sCodePostal As String, _
        ByVal sCommune As String, _
        ByRef vIdentifiant As Object) As Short
                            '...