Discussion :

[mactwist69]

Bonjour bonjour!

Voila, j'ai des problèmes de datatable... Voici les cas:

Ca, ca marche:

Code :

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

1
2
3
4
5
6
Dim d1 as new datatable
Ajoute_ligne (d1)
 
Private Sub Ajoute_ligne (ByRef dt as DataTable)
dt.rows.Add("Salut","Salut")
End Sub

Ca marche puisque après l'appel de la procédure, les lignes sont présentent.


Ca, Ca marche pas:

Code :

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

1
2
3
Dim ds as new DataSet
ds.Tables.Add("d1")
Ajoute_ligne (ds.Tables("d1"))

Après l'appel de la procédure, la table est vide.

------

Ca ca marche:

Code :

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

1
2
Dim dt as new datatable
dt = DS.Tables(0).Clone

Ca, Ca marche pas:

Code :

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

1
2
3
Dim ds as new dataset
ds.Add("d1")
ds.Tables("d1") = DS.Tables(0).Clone

Ca me souligne la dernière ligne avec l'erreur:

La propriété Item est ReadOnly.

Si quelqu'un pouvait m'éclairer... Merci d'avance

[mactwist69]

Bon et bien j'ai trouver une solution, qui ne me plais pas trop.

Au lieu d'avoir 8 Datatable dans mon Dataset, j'ai maintenant 8 Datasets.

Car les passages par references et les clones fonctionnent parfaitement.

Je laisse ce post encore un peu, si quelqu'un pouvait éclaircir ce sujet.

[nsanabi]

ici tu passe une chaine de caractère à ton dataset

Code :

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

ds.Tables.Add("d1")

met ce code à la place

Code :

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

ds.Tables.Add(d1)

je te renvoi à ce post avec un problème semblable

[mactwist69]

Quand je faisais:

Code :

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

ds.Tables.Add("Table1")

C'était pour créer une table dans le dataset qui s'appelle Table1, puis j'essayais de copier le schema.

En prenant ta solution, ça sous-entend qu'il faut créer la datatable localement, puis l'ajouter au dataset?

Genre:

Code :

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

1
2
3
4
Dim ds as new dataset
dim dt as new datatable
dt = Me.AutreDataset.Tables(0).Clone
ds.Tables.Add(dt)

Parce que je trouvais de l'intérêt a ne pas créer localement toute mes datatables... pour les ajouter une a une... Tout ça juste pour copier le schéma.

D'aileurs le problème est le même. Même avec cette solution, on ne peut pas créer directement une datatable dans le dataset et copié un clone dedans.

Mais ca reglerai le problème de clonage en effet.

Par contre pour le passage par référence reste un problème. Car pour identifié une table dans un dataset il faut soit mettre son nom en String soit son numéro... Et cela ne semble pas marché.

[nsanabi]

la collection tables de l'objet dataset est en lecture seul (readonly)
tu peut tres bien récupérer ta datatable dans une variable et faire toutes les modifications voulu, la table dans le dataset changera automatiquement

modifier ce code

Code :

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

1
2
3
4
 
Dim ds as new dataset
ds.Add("d1")
ds.Tables("d1") = DS.Tables(0).Clone

et mettre à la place

Code :

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

1
2
3
4
5
 
Dim ds as new dataset
dim dt as datatable
dt=ds.Add("d1")
dt = DS.Tables(0).Clone

dt est juste une référence sur la table

Code :

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

ds.Tables("d1")

les changements sur la structure ou sur les données de dt seront en fait repercuté directement sur la table "d1" du dataset

donc il n'y a pas de problème pour le passage par reference

Code :

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

Ajoute_ligne (dt))

pour le clonage des datatable remplacer le code

Code :

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

1
2
3
4
 
Dim ds as new dataset
ds.Add("d1")
ds.Tables("d1") = DS.Tables(0).Clone

par celui là:

Code :

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

1
2
3
 
Dim ds as new dataset
ds.Tables(DS.Tables(0).Clone())

mais si tu veut cloner une dataset vers une autre tu pouvait simplement faire:

Code :

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

1
2
 
Dim ds As DataSet = DSorigine.Clone()

puis te débarrasser des tables en plus avec la méthode remove de la collection tables

[mactwist69]

Merci pour ces astuces !!