Discussion :

[yot_teddy]

Bonjour,

Je désire remplir un DataGridView avec un classeur Excel 2007 possédant > 256 colonnes. Le problème est que seul 256 colonnes sont chargées.
Existe-il un moyen?

Voici un extrait du code:

Code :

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

1
2
3
4
5
6
7
8
9
10
ds.Clear()
da.SelectCommand() = New OleDbCommand("SELECT * FROM [" & CurrTable & "$" & "]")
da.SelectCommand().Connection = DBConnectionImport
da.FillSchema(ds, SchemaType.Source, CurrTable & "$")
da.Fill(ds, CurrTable & "$")
 
'dtTemp = ds.Tables(CurrTable & "$")
 
Form_UI_Main.DataGridView_MàJ_SelectProjet.DataSource = ds 'dt  ' 
Form_UI_Main.DataGridView_MàJ_SelectProjet.DataMember = CurrTable & "$"

Je vous en remercie d'avance ;-)

[Flamby38]

Il me semble que le datagridview n'est pas limité en colonnes mais en largeur, regarde du ctoé de l'attribut FillWeight des colonnes.
Ceci dit, je plains l'utilisateur du tableau

[yot_teddy]

Merci pour ton message!!!

J'ai testé avec DataGridView..::.AutoResizeColumns mais quelle que soit la largeur mon datatgridview est limité à 255

[yot_teddy]

Non, ce n'est pas le datagridview qui limite le nb. Je soupçonne plutôt le DataAdapter... Si qqun à la solution...

[Skalp]

En fait il s'agit du provider OleDb qui limite la sélection à 255 colonnes (essayez de faire un "SELECT * FROM [Feuil1$]" dans un OleDbDataReader, vous verrez qu'il n'y a que 255 colonnes en résultat).

Pour pouvoir sélectionner plus de 255 colonnes dans une feuille Excel, il faut le faire en plusieurs fois par tranches de 255 en spécifiant la plage de données dans la requête.

Exemple avec 383 colonnes :

Code SQL :

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

1
2
3
4
-- Colonnes 0 à 255 :
SELECT * FROM [Feuil1$A1:IU10]
-- Colonnes 256 à 383 :
SELECT * FROM [Feuil1$IV1:NS10]

Si vous utilisez un DataSet, il vous est possible d'alimenter plusieurs DataTable (ici, deux) puis de faire un Merge des DataTable.

[yot_teddy]

SUPER JE T'EN REMERCIE !!!

[yot_teddy]

Maintenant un autre petit souci:

il merge bien les 2 tables mais dans mon datagridview j'ai un décalage au niveau des lignes :

123456789101112131415
xxxxxxxxx
yyyyyyyyy
..............xxxxxxxxxxxxx
...............yyyyyyyyyyyyy

Code C# :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
        da.SelectCommand() = New OleDbCommand("SELECT * FROM [" & CurrTable & "$A1:IU10" & "]")
        da.SelectCommand().Connection = DBConnectionImport
        da.Fill(dt1)
 
 
        da.SelectCommand() = New OleDbCommand("SELECT * FROM [" & CurrTable & "$IV1:NS10" & "]")
        da.SelectCommand().Connection = DBConnectionImport
        da.Fill(dt2)
 
        dt1.Merge(dt2)
        ds.Tables.Add(dt1)
 
        Form_UI_Main.DataGridView_MàJ_SelectProjet.DataSource = ds
        Form_UI_Main.DataGridView_MàJ_SelectProjet.DataMember = ds.Tables(0).ToString

[Flamby38]

A mon avis l'information qu'il manque c'est la clef primaire.
Pour faire correspondre une ligne de dt1 avec une ligne de dt2, il faut une référence commune.
Je pense que dans tes select, tu devrais donc mettre seulement 254 colonne + une colonne de clef primaire. Ensuite tu devrais definir un .primarykey pour dt1 et dt2, et à ce moment là peut être que le merge se fera correctement.

[yot_teddy]

ça me parait une bonne idee...

N'étant que débutant en SQL peux-tu m'indiquer comment utiliser "SELECT" pour 2 colonnes distinctes?

[Skalp]

il merge bien les 2 tables mais dans mon datagridview j'ai un décalage au niveau des lignes

Oui, en y réfléchissant, ce n'est pas étonnant car il merge en fonction du nom de colonne, en ajoutant les données à la suite.
Alors que dans ton cas, il faut ajouter les données dans des colonnes supplémentaires.

A mon avis l'information qu'il manque c'est la clef primaire.
Pour faire correspondre une ligne de dt1 avec une ligne de dt2, il faut une référence commune.
Je pense que dans tes select, tu devrais donc mettre seulement 254 colonne + une colonne de clef primaire. Ensuite tu devrais definir un .primarykey pour dt1 et dt2, et à ce moment là peut être que le merge se fera correctement.

Les possibilités de SQL avec Excel sont très limitées. Avec notre solution actuelle, on ne peut sélectionner qu'une plage de données adjacentes et je n'ai aucune idée comment sélectionner deux colonnes séparées dans ce cas.

A mon avis, il vaut mieux se faire un script perso d'ajout des données :
1. Ajouter les colonnes du deuxième DataTable (DT2) dans le DataTable final (DTF) : DTF.Columns.AddRange()
2. Ajouter les données dans le DTF avec des boucles qui vont bien

[Flamby38]

Ok, j'avoue ne pas connaitre le fonctionnement d'excel du point de vue SQL.
Si on admet que le select dans excel va renvoyer les lignes dans l'ordre, on peut créer notre propre clef primaire avec la propriété autoincrement.

le code devrait ressembler a quelquechose comme ca (à titre purement indicatif) :

Code :

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

1
2
3
4
 
dt1.addcolumn("ID")
dt1.column("ID").autoincrement  = true
dt1.prymarykey = dt1.column("ID)

Ainsi quand on remplit la datatable 1, on aura une colonne numérotée.
Si on fait la meme chose sur la datable 2, on aura la meme colonne numérotée.
Et quand on fera le merge, je pense que ca devrait faire ce qu'il faut.

Sinon, eh bien la solution de skalp marche certainement bien, mais c'est un peu plus pénible à implémenter je pense.

[yot_teddy]

Merci pour ton aide!

voilà ce que j'obtiens:

Code VB.NET :

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
        da.SelectCommand() = New OleDbCommand("SELECT * FROM [" & CurrTable & "$A1:IU39" & "]")
        da.SelectCommand().Connection = DBConnectionImport
        da.Fill(dt1)
 
        da.SelectCommand() = New OleDbCommand("SELECT * FROM [" & CurrTable & "$IV1:NS39" & "]")
        da.SelectCommand().Connection = DBConnectionImport
        da.Fill(dt2)
 
        dtf.Merge(dt1)
 
        Dim i As Integer
        Dim colonne(dt2.Columns.Count) As DataColumn
 
        For i = 0 To dt2.Columns.Count - 1
            colonne(i) = New DataColumn(i.ToString)
            colonne(i) = dt2.Columns(i)
        Next i
 
        dtf.Columns.AddRange(colonne)
 
        ds.Tables.Add(dtf)

Là je reçois l'erreur

La colonne [..] appartient déjà à un autre DataTable.

Je ne vois pas ou est le problème

[Skalp]

Là je reçois l'erreur "La colonne [..] appartient déjà à un autre DataTable."

La solution que je te proposait était à implémenter à la place du Merge (donc plus besoin de Merge).
Ton erreur vient du fait que l'instance de l'objet DataColumn est déjà associée à ton dt2 et elle ne peut pas appartenir à un autre DataTable. Je n'y avais pas pensé et effectivement, c'est embêtant...

Essaye plutôt la solution de Flamby qui semble bcp plus élégante que la mienne et qui profite de la méthode Merge :

Ainsi quand on remplit la datatable 1, on aura une colonne numérotée.
Si on fait la meme chose sur la datable 2, on aura la meme colonne numérotée.
Et quand on fera le merge, je pense que ca devrait faire ce qu'il faut.

[yot_teddy]

Merci beaucoup à vous 2 !!!

Voici le code fonctionnel:

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
 
 'Table 1
        dt1.Columns.Add("ID")
        dt1.Columns("ID").AutoIncrement = True
 
        Dim PrimaryKeyColumns(0) As DataColumn
        PrimaryKeyColumns(0) = dt1.Columns("id")
        dt1.PrimaryKey = PrimaryKeyColumns
 
        da.SelectCommand() = New OleDbCommand("SELECT * FROM [" & CurrTable & "$A1:IU39" & "]")
        da.SelectCommand().Connection = DBConnectionImport
        da.Fill(dt1)
 
        'Table 2
        dt2.Columns.Add("ID")
        dt2.Columns("ID").AutoIncrement = True
 
        PrimaryKeyColumns(0) = dt2.Columns("id")
        dt2.PrimaryKey = PrimaryKeyColumns
 
        da.SelectCommand() = New OleDbCommand("SELECT * FROM [" & CurrTable & "$IV1:NS39" & "]")
        da.SelectCommand().Connection = DBConnectionImport
        da.Fill(dt2)
 
        'Fusion Table & Table 2
        dt1.Merge(dt2)