Discussion :

[BasicZX81]

Bonjour à tous,
Je suis surpris de voir qu'il n'y pas d'énumération pour les types dans le Framwork ou alors j'ai pas trouvé.
(En ADOX il y a les DataTypeEnum mais j'utilise ADO)

j'aurais besoin de cette énumeration créer des procédures de construction de DataColomn et j'aimerais que cela fonctionne de cette manière :
- Retrouver cette enumération dans l’éditeur VB (pour éviter les risques d'erreurs)
- Pouvoir passer le type en tant qu'argument à ma procédure de construction.

Par exemple :

Code :

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

1
2
3
4
Private sub BuildMaColonne (TableName as string, ColonneName as string, ColonneType as ColonneType)
Dim MaTable As New DataTable(TableName)
MaTable.Columns.Add(ColonneName, Type.GetType(ColonneType))
End Sub

j'ai pensais à utiliser des structures dans ce style mais je trouve ça étrange de devoir faire cela :

Code :

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

1
2
3
4
5
 Public Structure ColonneType
        Const TypeInt32 as String = "System.int32"
        Const TypeString as String = "System.string"
.....
    End Structure

EDIT : Rajouté 'As String'

Vous pensez que j'ai raté quelques choses ou je peux continuer en suivant cette technique ?

[plume13]

Hello,

Si j'ai bien compris ce que tu veux faire, je pense que tu peux le faire en utilisant la généricité (je te le fais en Csharp pour être sure de ne pas faire d'erreur de syntaxe, mais en VB.Net ça se fait aussi) :

Code :

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

1
2
3
4
5
private void BuildMaColonne<T> (string tableName, string colonneName)
{
    DataTable maTable = new DataTable(tableName);
    maTable.Columns.Add(colonneName, typeof(T))
}

[Pol63]

ca n'apporte rien de plus que de faire gettype(integer) car pour déterminer T il faut écrire (of integer)

[tomlev]

J'ai pas trop compris ton problème... il y a des enum en .NET
http://msdn.microsoft.com/en-us/libr...vs.100%29.aspx

Cela dit ça ne correspond pas vraiment à ton besoin ; pourquoi ne pas passer directement un Type en paramètre de ta méthode ?

Code :

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

1
2
3
4
5
6
7
8
Private sub BuildMaColonne (TableName as string, ColonneName as string, ColonneType as Type)
    Dim MaTable As New DataTable(TableName)
    MaTable.Columns.Add(ColonneName, ColonneType)
End Sub
 
...
 
BuildMaColone("UneTable", "UneColonne", GetType(Int32))

(soit dit en passant, ta méthode ne sert à rien... Elle ajoute une nouvelle colonne dans une nouvelle table, et vu que tu ne récupères jamais cette table, elle est perdue...)

[plume13]

Oui mais ça permet d'avoir une seule fonction pour différents types et non une fonction par type. Après je ne sais pas si c'est ce qui est souhaité, vu qu'il n'y a pas le contexte d'utilisation...

[Pol63]

il y a bien une utilité, c'est d'avoir moins de chose à écrire grace à l'intellisense, pratique quand on doit souvent faire appel à une méthode
ca sert aussi à restreindre le type depuis l'écriture du code plutot que de vérifier le type et de thrower

je vois 2 possibilités
la 1ère c'est une enum

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
 
public enum Types
  integer = 1
  booleen = 2
etc...
 
public sub add(..., t as types)
dim vbtype as system.type
select case t
  case integer 
    vbtype = gettype(integer)
   case booleen
    vbtype = gettype(boolean)
 ...
   case else
     throw ...
end select

la 2ème que je viens de trouver alors que ca fait 2 ans que je me demande comment on fait c'est :

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
 
''' <summary>
''' 
''' </summary>
''' <remarks></remarks>
''' <completionlist cref="colType"/>
Public NotInheritable Class colType
 
    Private Sub New(vbtype As System.Type)
        _VbType = vbtype
    End Sub
 
 
    Private _VbType As System.Type
    Public ReadOnly Property VbType As System.Type
        Get
            Return _VbType
        End Get
    End Property
 
 
 
    Private Shared _integer As New colType(GetType(Integer))
    Public Shared ReadOnly Property [Integer] As colType
        Get
            Return _integer
        End Get
    End Property
 
 
    Private Shared _bool As New colType(GetType(Boolean))
    Public Shared ReadOnly Property [Boolean] As colType
        Get
            Return _bool
        End Get
    End Property
 
 
...
End Class

Code :

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

1
2
3
4
5
6
 
 Sub a(tn As String, cn As String, t As colType)
        Dim dt As New DataTable(tn)
        dt.Columns.Add(cn, t.VbType)
 
    End Sub

ca fonctionne via l'aide xml qui permet de préciser quelle classe utiliser, puis les shared property sont proposées par défaut dans l'intellisense (comme pour system.drawing.color et autres)
il y a des chances que cette solution ne fonctionne pas en c#

[plume13]

Désolée, mais je ne comprends pas trop la subtilité de ta 2ème solution.
Franchement j'ai beau me creuser la tête, je n'arrive pas à comprendre pour quelle utilisation c'est approprié (et mieux que de la généricité), sachant que tu es obligé de définir explicitement les types que tu vas gérer...

[Pol63]

je ne sais pas si le datatable permet de gérer tous les types possibles ...

enfin il cherche à énumérer les types, or pour énumérer il faut une liste finie du moins avec une enum
la solution 2 est la même que la solution 1 mais en différent
elle permet de déporter le code de manière plus réutilisable, et ca fait le même effet qu'une enum au niveau de l'intellisense
elle est utilisée par microsoft dans certains cas, comme pour les drawing.color, brush et quelques autres classes ...

[BasicZX81]

Merci beaucoup pour vos réponses,
Très interressant comme solution Pol63, je la garde sous le coude pour m'en resservir.
Finalement j'utilise les structures pour rester le plus simple possible.
Ce n'est pas vraiment une énumération mais l'intellisense fonctionne (dès que je tape ColonneType, il me propose la liste de tout mes types).
Par contre j'ai fait une erreur dans ma procédure, il faut remplacer le type ColonneType par un type String.

Code :

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

1
2
3
4
Private sub BuildMaColonne (TableName as string, ColonneName as string, ColonneType as String)
Dim MaTable As New DataTable(TableName)
MaTable.Columns.Add(ColonneName, Type.GetType(ColonneType))
End Sub

[tomlev]

Pourquoi une structure plutôt qu'une classe ?

La seule raison pour laquelle il peut être utile de choisir une structure est si tu veux une sémantique de valeur lors du passage de paramètre, mais en l'occurrence tu ne vas jamais créer d'instance de cette structure, donc ça n'a pas de sens. Crée plutôt une classe statique (ou un module, vu qu'en fait les classes statiques n'existent pas en VB.NET...)