Remplir DataGridView avec classeur EXCEL 2007 (> 256 colonnes)

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:

---

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 ;-)

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 :mrgreen:

Merci pour ton message!!!

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

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

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:

---

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. :ccool:

SUPER JE T'EN REMERCIE !!!

:):):):):)

Maintenant un autre petit souci:

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

Citation:

---

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

---

Code:

---

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

---

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.

ça me parait une bonne idee...

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

Citation:

---

Envoyé par yot_teddy

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.

Citation:

---

Envoyé par 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.

---

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 :)

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:

---

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.

Merci pour ton aide!

voilà ce que j'obtiens:

Code:

---

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

Citation:

---

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

---

Je ne vois pas ou est le problème 8O

Citation:

---

Envoyé par yot_teddy

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 :

Citation:

---

Envoyé par Flamby38

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.

---

Merci beaucoup à vous 2 !!!

Voici le code fonctionnel:

Code:

---

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)

---