Discussion :

[Pol63]

bonjour

le but final est d'ouvrir le générateur de requete SQL, si vous avez une autre méthode je suis preneur

la méthode que j'ai trouvé, je bloque car j'ai besoin d'un IServiceProvider à donner en paramètre à une sub, mais je ne sais pas comment en obtenir un à l'exécution


d'ailleurs il me faudrait une variable qui implémente IContainer, la aussi j'en trouve pas


description plus complete :

avec un componentmodel.editor sur un string, j'arrive à récupérer context et provider as IServiceProvider, que je donne ensuite à une sub d'une dll (via reflection) et ca m'ouvre le générateur de requete
enfin ceci en mode design
mais je voudrais pouvoir l'ouvrir en mode execution aussi

extrait du code pour le mode design :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Public Class RQeditor
    Inherits System.Drawing.Design.UITypeEditor
 
 
    Public Overrides Function EditValue(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal provider As  System.IServiceProvider, ByVal value As Object) As Object
 
 
         Dim ass As System.Reflection.Assembly
         ass = System.Reflection.Assembly.Load("Microsoft.VSDesigner, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a")

puis execution de la méthode
EditValueInternal (context,sqlcommand,provider,value,0,False)

une fois que ca marchera je pourrais poster le code complet !

[AP]

tu n'as rien qui hérite de composant ou de control? tu peux te servir de ISite comme IServiceProvider. A verifier que cela fonctionne également quand tu n'es pas en designmode.

[Pol63]

c'est bien le problème
j'ai compris une partie de visual studio, il créé des Isite et des services
mais en mode execution, les me.site et autre getservice me retourne du nothing
pourtant l'objet propertygrid arrive à trouver des services en mode execution

enfin j'ai bien peur qu'il y ait trop de choses bloquées
j'ai pourtant réussi à avancer un peu

si qqn est interressé par le requeteur pour le mode design je peux poster le reste du code

[AP]

Une question bête, pourquoi tu veux faire cela au moment du runtime?

[Pol63]

pour une appli qu'on peut faire évoluer sans l'arreter (elle doit fonctionner 24/24 et si possible 365/365)
pouvoir changer les requetes d'un grid etc...

[AP]

un peu de lecture:
http://weblogs.asp.net/cazzu/archive...10/129140.aspx
http://mikehadlow.blogspot.com/2006/...etservice.html

Ca à l'air d'être possible mais je n'ai pas testé. Dans tous les cas, la réponse m'intéresse.

[Pol63]

mouais ... j'sais pas trop quoi faire
le code qui suit fonctionne parfaitement en mode design
la classe est une classe d'éditor, à mettre en attribut avant une propriété de type string par exemple


dans mes tests, si j'envoie nothing pour la variable context, ca marche quand meme
par contre c'est la variable provider qu'il faudrait que j'arrive à constituer en mode execution pour que ca fonctionne

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
34
35
36
37
38
39
40
41
42
43
44
45
46
 
    Public Class RQeditor
        Inherits System.Drawing.Design.UITypeEditor
 
 
        Public Overrides Function EditValue(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal provider As System.IServiceProvider, ByVal value As Object) As Object
 
 
            Dim ass As System.Reflection.Assembly
            ass = System.Reflection.Assembly.Load("Microsoft.VSDesigner, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a")
 
 
            Dim f As Object
            f = ass.CreateInstance("Microsoft.VSDesigner.Data.SQL.Design.SqlCommandTextEditor")
 
            Dim mth As System.Reflection.MethodInfo
            mth = f.GetType.GetMethod("EditValueInternal", Reflection.BindingFlags.Public Or Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance)
 
 
 
            Dim connexion As New System.Data.SqlClient.SqlConnection(_chaine_de_connexion_a_utiliser)
 
 
            Dim cmd As New System.Data.SqlClient.SqlCommand("", connexion)
 
 
            Dim parameters(5) As Object
            parameters(0) = context ' context As ITypeDescriptorContext
            parameters(1) = cmd ' dbCommand As IDbCommand
            parameters(2) = provider ' provider As IServiceProvider
            parameters(3) = value ' value As Object
            parameters(4) = 0 ' cmdOperation As CommandOperation
            parameters(5) = False ' enableMorphing As Boolean
 
 
            Return mth.Invoke(f, parameters)
 
 
        End Function
 
 
        Public Overrides Function GetEditStyle(ByVal context As System.ComponentModel.ITypeDescriptorContext) As System.Drawing.Design.UITypeEditorEditStyle
            Return System.Drawing.Design.UITypeEditorEditStyle.Modal
        End Function
 
    End Class