Discussion :

[Dark Ryus]

Bonjour,

J'essaie de faire une macro pour automatiser la commande "générer un script de création dans un projet.." que l'ont peut trouver en faisant un clic droit sur une procédure stockée de base de données.

Comment trouver cette commande en programmant une macro ?

Le but final est de pouvoir générer les script de toutes mes procédures automatiquement, car une par une c'est très long ....

Merci

Edit : j'ai trouvé "Autresmenuscontextuels.Noeuddobjet.Oracle.CreateScript2Project" en cherchant un peu. Comment faire pour utiliser cette commande dans une macro ?

Edit 2 :
J'ai commencé ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub CompileBaseRegions()
        Dim samples As UIHierarchyItem = DTE.ActiveWindow.Object.getItem("Connexions de données\MaBase\Procédures")
        For Each file In samples.UIHierarchyItems
            file.Select(vsUISelectionType.vsUISelectionTypeSelect)
            DTE.ExecuteCommand("Autresmenuscontextuels.Noeuddobjet.Oracle.CreateScript2Project")
        Next
    End Sub

Pour le moment mon code se bloque au niveau de DTE.ExecuteCommand car une popup s'ouvre pour demander une confirmation Oui/Non/Annuler. Je ne sais pas comment faire pour valider cette popup.... car ma boucle s'arrête tant que ma popup n'est pas fermée !

[Dark Ryus]

J'ai fait ce bout de code qui fonctionne bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
 
Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports EnvDTE90a
Imports EnvDTE100
Imports System.Diagnostics
 
Public Module CompileProcBase
 
    Sub CompileProcBase()
        Dim listeProc As UIHierarchyItem = DTE.ActiveWindow.Object.getItem("Connexions de données\Mabase.mabase\Procédures")
 
        For Each proc In listeProc.UIHierarchyItems
            proc.Select(vsUISelectionType.vsUISelectionTypeSelect)
            DTE.ExecuteCommand("Autresmenuscontextuels.Noeuddobjet.Oracle.CreateScript2Project")
            DTE.ActiveWindow.Close(vsSaveChanges.vsSaveChangesNo)
        Next
    End Sub
 
 
End Module

Seul petit faut que le dossier de sortie soit sélectionné dans l'explorateur de solution, et que la fenêtre sélectionné soit l'explorateur de serveur. Si la procédure existe déjà, un message de confirmation apparait, moi je supprimes toutes les procédures avant de lancer la macro, comme ça pas de popup d'avertissement.

J'ai fait le même pour les fonctions :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports EnvDTE90a
Imports EnvDTE100
Imports System.Diagnostics
 
Public Module CompileFoncBase
 
 
    Sub CompileFoncBase()
        Dim listeFonc As UIHierarchyItem = DTE.ActiveWindow.Object.getItem("Connexions de données\Mabase.Mabase\Fonctions")
 
        For Each fonc In listeFonc.UIHierarchyItems
            fonc.Select(vsUISelectionType.vsUISelectionTypeSelect)
            DTE.ExecuteCommand("Autresmenuscontextuels.Noeuddobjet.Oracle.CreateScript2Project")
            DTE.ActiveWindow.Close(vsSaveChanges.vsSaveChangesNo)
        Next
    End Sub
 
 
End Module

et aussi pour les triggers :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Imports System
Imports EnvDTE
Imports EnvDTE80
Imports EnvDTE90
Imports EnvDTE90a
Imports EnvDTE100
Imports System.Diagnostics
 
Public Module CompileTriggerBase
 
    Sub CompileTriggerBase()
        Dim listeTables As UIHierarchyItem = DTE.ActiveWindow.Object.getItem("Connexions de données\Mabase.Mabase\Tables")
 
        For Each table In listeTables.UIHierarchyItems
 
            table.UIHierarchyItems.Expanded = True
            Dim listeTigger As UIHierarchyItem = DTE.ActiveWindow.Object.GetItem("Connexions de données\Mabase.Mabase\Tables\" & table.Name & "\Déclencheurs")
            listeTigger.UIHierarchyItems.Expanded = True
            If listeTigger IsNot Nothing AndAlso listeTigger.UIHierarchyItems.Count > 0 Then
 
                For Each trigger In listeTigger.UIHierarchyItems
                    trigger.Select(vsUISelectionType.vsUISelectionTypeSelect)
                    DTE.ExecuteCommand("Autresmenuscontextuels.Noeuddobjet.Oracle.CreateScript2Project")
                    DTE.ActiveWindow.Close(vsSaveChanges.vsSaveChangesNo)
                Next
 
            End If
            listeTigger.UIHierarchyItems.Expanded = False
            table.UIHierarchyItems.Expanded = False
        Next
    End Sub
 
End Module