Discussion :

[BasicZX81]

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.

[BasicZX81]

Bonjour, n'ayant eu aucune réponse je me permets de reformuler et préciser ma demande.
Aujourd'hui dans mon code j'utilise des structures pour accéder facilement aux nom de tables et de colonnes d'une BDD. Par exemple : Tables.Table1 ou Colonnes.Colonne1 pour obtenir les valeurs string ("Table1" et "Colonne1"), c'est pratique puisque je peux accéder aux nom de tables et de colonnes directement dans l'intelisense de l'IDE et evite beaucoup de risque d'erreur.
Voici la structure (c'est la même chose pour les colonnes) :

Code :

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

1
2
3
4
5
  Public Structure Tables
        Const Table1 As String = "Table1"
        Const Table2 As String = "Table2"
        Const Table3 As String = "Table3"
     End Structure

Problème, je ne peux pas utiliser ce principe pour stocker les type de champs et leurs tailles c'est pourquoi je souhaite créer des classes. Le problème que je rencontre est comment accéder à un élément par son Nom ?

[BasicZX81]

Bonjour, J'ai fait ceci. C'est un bon début je pense mais on doit surement pouvoir faire mieux et surtout je n'arrive pas à accéder à une colonne en particulier à partir de son nom :

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
    Public Structure Colonne
        Public Nom As String
        Public type As ADOX.DataTypeEnum
        Public size As Integer
    End Structure
    Public Structure Tables
        Public Colonne1 As Colonne
        Public Colonne2 As Colonne
        Public Colonne3 As Colonne
    End Structure
    Dim List As List(Of Tables)
 
    Public Sub Test()
        Dim MaTable As New Tables
        MaTable.Colonne1.Nom = "Toto"
        MaTable.Colonne1.type = DataTypeEnum.adChar
        MaTable.Colonne1.size = 10
        List.Add(MaTable)
 
        MaTable.Colonne2.Nom = "Toto1"
        MaTable.Colonne2.type = DataTypeEnum.adChar
        MaTable.Colonne2.size = 20
        List.Add(MaTable)
 
' Pour accéder à une propriété d'une colonne à partir de son index :
        MsgBox(List(0).Champ1.Nom)
' Pour accéder à une propriété d'une colonne à partir de son nom :
????????
    End Sub

Merci beaucoup si vous pouvez m'aider sur ce point en particulier.

[-N4w4k-]

Bonjour,

peut être que l'Entity Framework résoudrait tes problèmes. En effet, tu peux générer les objets dont tu parles à partir de ta base de données en quelques clics..