Discussion :

[bisounux]

Bonjour à tous, je souhaite copier simplement quelques colonnes d'un datatable, vers un autre datatable, afin d'en avoir un nouveau conforme à mes attentes.

Code :

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

1
2
3
4
5
6
7
8
9
10
        MaTable = MaConnexion.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, Restriction)
        MaConnexion.Close()
        For i = 0 To MaTable.Columns.Count - 1
 
            Select Case i
                Case 2, 3, 6, 7, 8, 10, 11, 13, 15
                    MaTableResultat.Columns.Add(MaTable.Columns(i))
            End Select
        Next
        Return MaTableResultat

Selement voilà, ce code ne marche pas ! Ce qui doit être normale. Mais pourquoi?
Voici le message windows

Column 'TABLE_NAME' already belongs to another DataTable.

Merci pour votre aide. Si le message n'est pas clair, n'hésitez pas.
Bisounux

[graphicsxp]

Salut,
Tu ne peux pas ajouter une datacolumn appartenant déjà à une datatable, à une autre datatable, d'ou le message d'erreur...

Utilise la méthode Copy si tu veux faire une copie de ton datatable.

@+

[bisounux]

Le problème avec la méthode 'Copy' c'est que la copie du datatable est compléte, or, comme le montre le code, je souhaite uniquement copier les colonnes énumérées dans le 'Select Case', pour créer un autre datatable plus pertinent...

[leSeb]

Voici une proposition ...

Conserve ton code mais modifiant la ligne de copie de colonne.

Code :

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

1
2
3
4
Select Case i
   Case 2, 3, 6, 7, 8, 10, 11, 13, 15
      MaTableResultat.Columns.Add(New DataColumn( ..... ))
End Select

Utilise les propriétés des colonnes de table à copier comme paramètre de la nouvelle colonne.

[neguib]

Mais souhaites-tu simplement avoir un Clone de la structure ou y compris les données (Rows) :

[leSeb]

Si tu souhaites faire un clone (comme le dit neguib) il te faut faire une autre boucle insérant les lignes dans ton nouveau DataTable (utilisation de la méthode NewRow du DataTable).

[neguib]

Si tu souhaites faire un clone (comme le dit neguib) il te faut faire une autre boucle insérant les lignes dans ton nouveau DataTable (utilisation de la méthode NewRow du DataTable).

C'est pas vraiment ce dont je voulais parler
Le clone est une simple copie de la structure sans les données justement, directement accessible par la méthode DataTable.Clone, donc au lieu d'ajouter des DataColumns, il faudra en retirer c'est tout aussi judicieux.

Par contre s'il veut faire une copie de toutes les données exceptées certains champs, il faudra ajouter une implémentation particulière de la méthode ImportRow après avoir construit la structure des colonnes par une méthode inspirée de la tienne:

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
 
Private Function GetNewTable(ByVal origin As DataTable) As DataTable
 Dim columns() As Integer = New Integer(){2, 3, 6, 7, 8, 10, 11, 13, 15}
 Dim newTable As New DataTable(origin.TableName)
 Dim index As Integer
 
 For Each index In columns
   With origin.Columns(index)
     newTable.Columns.Add(New DataColumn(.ColumnName, .DataType))
   End With
 Next
 
 '...code necessaire si besoin des données
 
 Return newTable
End Function

[bisounux]

J'ai essayé toutes sortes de choses dont ça :

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
  Public Function LireTout() As DataTable
        Dim Restriction() As Object = Nothing '{Nothing, Nothing, Nothing, "TABLE"}
        Dim MaTableResultat As New DataTable("Resultat")
        Dim MesResCollection As New Collection
        Dim test As New Object()
        Dim i As Int16
        Dim j As Int16
        Dim k As Int16
 
        ConnexionBdd()
        MaTable = New DataTable("Test")
        MaTable = MaConnexion.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, Restriction)
        MaConnexion.Close()
 
        MaTableResultat.Columns.Add("NomTable", Type.GetType("System.String"))
        MaTableResultat.Columns.Add("NomColonne", Type.GetType("System.String"))
        MaTableResultat.Columns.Add("PositionOrdinal", Type.GetType("System.Int32"))
        MaTableResultat.Columns.Add("ColonneDefault", Type.GetType("System.Boolean"))
        MaTableResultat.Columns.Add("ValeurDefaut", Type.GetType("System.String"))
        MaTableResultat.Columns.Add("TypeDonnee", Type.GetType("System.Int32"))
        MaTableResultat.Columns.Add("MaxiCaractere", Type.GetType("System.String"))
        MaTableResultat.NewRow()
 
        For i = 0 To MaTable.Rows.Count - 1
            k = 0
            For j = 0 To MaTable.Columns.Count - 1
                Select Case j ' ça plante ici malgré de nombreuses tentatives...Je n'arrive pas à faire ce que je veux!
                    Case 2, 3, 6, 7, 8, 11, 13
                        MesResCollection.Add(MaTable.Rows(i).Item(j))
                        k = k + 1
                End Select
            Next
 
            MaTableResultat.Rows.Add(test).
 
        Next
 
 
        Return MaTableResultat
 
    End Function

Bref, je vais m'empresser de faire ça avec ton code neguid. J'espère que ça va marcher. Ca commence à m'énerver alors que c'est plutôt simple...
Merci. Je vous tiens au courant.

[neguib]

Ca commence à m'énerver alors que c'est plutôt simple....

Hmm à la condition d'avoir écrit son algorithme, et d'avoir choisit le bon

[bisounux]

Le problème c'est que la méthode 'Columns.Add' n'ajoute que les colonnes ce qui est déjà bien. D'ailleurs merci beaucoup... Mais le problème est d'ajouté la 'Row' de la même manière dans les nouvelles colonnes. Exemple :
MonAncienDataTable :
Colonne1 Col2 Col3 Col4 Col 5
Item1 Rien Item2 Rien Item3
MonNouveauDataTable :
Colonne1 Col3 Col5
Item1 Item2 Item3

En effet, j'essaye de créer soit un DataRow, soit un Objet pour pouvoir utiliser la méthode 'MaTableResultat.Rows.Add'. Mais dès lors que j'essaye de construire un tableau d'objet ça plante :

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
 Dim MonTableauObjetTemps As New Object ()
 
        For i = 0 To MaTable.Rows.Count - 1 'Ca boucle autant de fois que le nombre de ligne contenu dans l'ancienne table
            k = 0 'Initialisation de k, un compteur pour le tableau d'objets
            For j = 0 To MaTable.Columns.Count - 1 'Ca boucle autant de fois que le nombre de colonne dans l'ancienne table
                Select Case j 'On choisit uniquement les colonnes qui nous interresse
                    Case 2, 3, 6, 7, 8, 11, 13 'C'est à dire le Case
                        MonTableauObjetTemps(k) = MaTable.Rows(i).Item(j) 'On entre dans un tableau d'objet l'item de la ligne i et de la colonne j, ça plante ici
                        k = k + 1 'on incrémente la valeur pour le tableau d'objet
                End Select
            Next 'Donc on boucle que sur un ligne i et on choisit la colonne j
            ' Dès que c'est fini...
            MaTableResultat.Rows.Add(MonTableauObjetTemps) 'On ajoute le tableau d'objet à la nouvelle table pour construire la row
            MonTableauObjetTemps = Nothing 'on initialise le tableau d'objet...
 
        Next 'Une ligne de la nouvelle table a été rajoutée, on passe à la suivante.....

Mon prolème réside essentiellement dans la déclaration d'objet intermédiaire (comme un tableau d'objet, un datarow, un datarowcollection), à chaque fois ou presque une 'Null Reference Exception' apparait.... Dans ma tête (surement petite il faut le croire), le tableau d'ojet serait l'équivalent de {Row(1).Item(2),Row(1).Item(3),Row(1).Item(5),...}
Voila

[bisounux]

Dans l'algo précédent :

Code :

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

1
2
Case 2, 3, 6, 7, 8, 11, 13 'C'est à dire le Case 
                        MonTableauObjetTemps(k) = MaTable.Rows(i).Item(j) 'On entre dans un tableau d'objet l'item de la ligne i et de la colonne j, ça plante ici

j'ai une erreur de ce type là :

No default member found for type 'Object'.

c'est une missing member exception....

[neguib]

Arf
reprenons mon code precedent et complétons donc

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
 
Private Function GetNewTable(ByVal origin As DataTable) As DataTable 
 Dim columns() As Integer = New Integer(){2, 3, 6, 7, 8, 10, 11, 13, 15} 
 Dim newTable As New DataTable(origin.TableName) 
 Dim index As Integer 
 
 For Each index In columns 
   With origin.Columns(index) 
     newTable.Columns.Add(New DataColumn(.ColumnName, .DataType)) 
   End With 
 Next 
 
 'code necessaire si besoin des données
 Dim baseRow As DataRow
 Dim dr As DataRow
 Dim colonne As Integer
 
 For Each baseRow In origin.Rows
    dr = newTable.NewRow()
    colonne = 0
    For Each index In columns
      dr(colonne) = baseRow(index)
      colonne += 1
    Next
    newTable.Rows.Add(dr)
 Next
 Return newTable 
End Function

[bisounux]

Comment dire..... vu comme ça..... MERCI MERCI MERCI
Victoire Franchement merci
Bisounux.