Bonjour à tous,
j'aimerais créer plusieurs classes mais moi et la POO j'ai vraiment du mal.
Pour info ces classes me serviront pour stocker toutes les propriétés qui constituent les tables, colonnes... etc , tous ce qui décrient les tables d'un fichier Access .Mdb, ceci afin de pouvoir recréer le fichier depuis le code et également pour manipuler le nom des champs dans le code plus facilement. (Je pourrait déposer un controle Dataset typé sur ma feuille en mode design, mais j'ai choisi de tout faire par le code).

Pour l'instant j'ai crée une classe colonne comme ceci :
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
 
' Ne pas oublier d'importer la reference : Microsoft ADO Ext. 2.8 for DDL and Security
Public Class Colonne
 
    Private _Nom As String
    Public Property nom() As String
        Get
            Return _Nom
        End Get
        Set(ByVal value As String)
            _Nom = value
        End Set
    End Property
 
    Private _Type As ADOX.DataTypeEnum
    Public Property Type() As ADOX.DataTypeEnum
        Get
            Return _Type
        End Get
        Set(ByVal value As ADOX.DataTypeEnum)
            _Type = value
        End Set
    End Property
 
    Private _Size As Integer
    Public Property Size() As Integer
        Get
            Return _Size
        End Get
        Set(ByVal value As Integer)
            _Size = value
        End Set
    End Property
 
End Class
Une classe colonnes qui contient ma collection de colonne comme ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Public Class Colonnes
    Inherits List(Of Colonne)
  End Class
J'aimerais savoir créer une classe Table que je puisse utiliser comme ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
dim MaCollectiondeColonnes as New Colonnes
MaTable.add (MaCollectiondeColonnes)
J'aimerais aussi pouvoir accéder à chaque propriétés des colonnes à partir de leur nom :
En gros :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
table1.ColonneName1 'me retourne un string "ColonneName1"
table1.ColonneName1.Size ' me retourne un Integer = 20
j'ai trouvé ce type de collection qui correspondrait à ce que je veux faire mais comment l'inscrire dans ma classe ? :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
dim Colonnes As New SortedList(Of String, Colonne)
Désolé si je mélange un peu tout mais comme vous pouvez le voir je ne sais du tout manipuler les classes et j'aimerais vraiment arriver à les écrire.
J'espère que vous voyez l'idée et que vous pourrait m'aider.