Discussion :

[bib34690]

Bonjour,

En VB, Je souhaite remplir manuellement 1 Dataset (ma base est propriétaire et ne possède pas de fournisseur).
- J'ai créé mon dataset depuis "Projet", "ajouter nouvel element", "dataset".
- j'ai défini ma table "Client" qui contient "Num", "Nom", "prenom".

dans mo code VB je fais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
        Dim myTable As DataTable = New DataTable("client", "DataSet1")
        Dim myDataRow As DataRow
        Do
            ' je lis tous les enreg.de ma base
            if not Lit_MaBase then exit do
 
            myDataRow = myTable.NewRow()
            myDataRow(0) = MaBase.Num
            myDataRow(1) = MaBase.NOM
            myDataRow(2) = MaBase.PRENOM
            myTable.Rows.Add(myDataRow)
        LOOP

...et il plante sur "myDataRow(0) = MaBase.Num" en disant qu'il ne trouve pas la colonne 0.

qq pourrait-il m'aider...
merci par avance.

[hellspawn_ludo]

Bonjour,

Je n'ai jamais utilisé de datarow mais en fonction du message d'erreur je dirais que tu as oublié de déclarer des datacolumn.

[bib34690]

J'ai bien défini mes champs "Num", "Nom", "prenom" dans la table comme indiqué dans mon message, en passant par l'éditeur.

Faut-il que je les redéfinisse dans le programme ?

[SaumonAgile]

Oui, il faut aussi définir les DataColumns dans le DataTable.

[bib34690]

désolé, j'ai du mal à comprendre ...

c'est bien ce que j'ai fait dans l'éditeur : j'ai créé ma DataTable et j'y ai défini les colonnes "Num", "Nom", "Prenom"

VB a alors rajouté DataSetClient.xsd à mon projet.

[SaumonAgile]

Ceci est extrait de la documentation SDK .NET concernant les dataset typés :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
CustomerDataSet customers = new CustomerDataSet();
SqlDataAdapter adapter = new SqlDataAdapter(
  "SELECT * FROM dbo.Customers;",
  "Data Source=(local);Integrated " +
  "Security=SSPI;Initial Catalog=Northwind");
 
adapter.Fill(customers, "Customers");
 
foreach(CustomerDataSet.CustomersRow customerRow in customers.Customers)
  Console.WriteLine(customerRow.CustomerID);

ça devrait résoudre ton problème.

[bib34690]

désolé mais je ne comprends pas la réponse (je suis débutant en VB et en .NET)...

Il me semble comprendre que cet exemple remplit automatiquement le Dataset nommé CustomerDataSet à partir de données Sql contenues dans la base Nortwind.
...ce qui est sans rapport avec ce que je souhaite faire.

Je veut remplir manuellement mon dataset en initialisant mes colonnes et en faisant .add ensuite.

Mon problème semble plutot 1 problème d'ouverture ou d'instanciation du Dataset créé depuis l'éditeur. VB semble ne pas trouver la déclaration de ce Dataset et donc pas de colonnes...il me semble. Il faudrait donc peut-être juste déclarer qq chose avant mais quoi ???

en tout cas merci pour ton aide

[hellspawn_ludo]

Va faire un tour ici si tu es débutant :

http://plasserre.developpez.com/v6-5.htm

Et plus précisément au niveau du titre qui se trouve en bas de la page :

Etudions en détails un DataSet:

[bib34690]

débutant, mais j'ai passé des journées à lire tout ce qui parle des Datasets...on y décrit trés en détail les Dataset remplis automatiquement en utilisant ADO (comme dans le lien passé ici) ...ce qui n'est pas mon cas, ou alors créés complètement à la main sans utiliser l'éditeur VB.
Je n'ai trouvé aucune info pour remplir manuellement 1 dataset créé dans l'éditeur VB.

Je suis certain que mon pb est trés simple...mais il manque 1 petit qq chose...

[SaumonAgile]

Ce que je ne comprends pas, c'est que tu dis avoir créé un DataSet avec le designer, mais dans le code que tu as posté, tu ne t'en sers pas... Je me demande pourquoi tu en as créé un si ensuite tu crées une autre DataTable à part.

[bib34690]

...développe 1 peu car le pb doit être là...je croyais que mon code l'ouvrait alors que je suis en train d'en creer 1 autre si je comprends bien ?

Pourtant j'utilise le nom du dataset et de la datatable que j'ai défini avec le designer...

[SaumonAgile]

Justement, dans l'exemple que je t'ai donné (extrait de la doc), ça montre comment instancier un DataSet typé (ce que tu as créé dans le designer), et comment accéder à une table définie dedans : c'est la ligne DataSet.Fill(...).

A mon avis tu dois instancier ton DataSet typé et ensuite obtenir une référence vers la table que tu as définie dedans, pour pouvoir ensuite ajouter des DataRow dans cette table.

[bib34690]

j'ai du mal à comprendre car 1 dataAdapter c'est normalement pour établir 1 lien avec 1 base ADO comme l'indique la requête fournie dans l'exemple cité.

[bib34690]

j'ai finallement trouvé 2 méthodes pour écrire dedans :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim MesEnfants As New DataSet1.DT_EnfantDataTable
DO
   '...init mes variables
   Dim NewEnfant As DataRow = MesEnfants.NewRow
   NewEnfant(0) = enfant.Num_dos
   ...
   MesEnfants.Rows.Add(NewEnfant)
LOOP

mais qd j'affiche le DGView (Datasource=DTEnfantBindingSource) qui pointe vers ce Dataset il n'y a aucune ligne. Pour que les données s'affichent, je dois réaffecter la datasource :

Code :

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

1
2
 
Me.DataGridView1.DataSource = MesEnfants

J'ai trouvé 1 autre méthode qui ne necessite pas de réafecter DataSource, mais elle est moins rapide :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
DataSet1.DT_Enfant.BeginLoadData()
Do
   ' init data ...
   dim NewEnfant as datarow = DataSet1.DT_Enfant.NewRow()
   NewEnfant(0) = enfant.Num_dos
   ...
   DataSet1.DT_Enfant.Rows.Add(NewEnfant)
Loop
DataSet1.DT_Enfant.EndLoadData()

je crois comprendre qu'avec cette méthode je remplis la datatable créé avec le designer, alors qu'avec la 1ère, j'en crée 1 nouvelle.

...pq la 2ème méthode est + rapide :n'existerait-il pas 1 mix des 2 pour avoir la vitesse de la 1ère sans créer 1 nvelle table, genre 1ère méthode avec copie du tableau généré dans la base à la fin.

SVP aidez-moi, je me sentirai moins bête et j'aurai l'illusion dêtre encore un peu agile moi aussi ...