DataSet et DataTable

Version imprimable

06/04/2008, 19h27
Tsoupi

DataSet et DataTable

Bonjour à tous,

Je vous expose mon problème. Je souhaite récupérer le contenu d'une table de ma BDD (SQL Server) et la mettre dans une DataTable en passant par un DataSet. Jusque là, pas de soucis.

Ensuite, j"envoie cette datatable sur une autre partie de mon application afin de la manipuler (ajout de lignes), ... Jusque là, j'y arrive encore.

Mais aprés, j'aimerais savoir si c'est possible de renvoyer cette DataTable à la BDD afin de mettre à jour la bonne table correspondante avec les changements effectuer pour assurer la persistance des données. Si oui, quelle est la démarche à entreprendre ?

Merci d'avance pour votre aide.
06/04/2008, 19h34
Poulain

Tiens regarde ici:http://plasserre.developpez.com/v6-5.htm,
vas à "ajouter un enregistrement"
06/04/2008, 19h51
Tsoupi

Oui mais l'exemple donné sur ce site (trés bon au passage) est réalisé sur un seul formulaire. Mon idée, c'était de recup les données dans une DataTable, et ensuite d'envoyer cette DataTable seule ailleurs. Par conséquent, elle n'est plus liée à un DataSet et à la BDD donc, non ?
06/04/2008, 20h05
Poulain

Envoi le code que tu utilise pour "envoyer" ta datatable, et celui que tu utilise pour charger ton dataset stp

Donc en fait, j'ai ma FormMain avec toute la partie graphique et une DAL pour regrouper tout ce qui est accés aux données, y'a aussi une couche métier pour les objets.

Dans ma FormMain, je fais appel à une fonction présente dans ma DAL qui se charge de récupérer une DataTable et la renvoie.
Code:

1 2 3 Public Function GetArretSrv() As System.Data.DataTable Return Me.SqlHelper.GetDataTable(Data.CommandType.StoredProcedure, "ArretSrv_SELECT") End Function
Cette fonction fait appel à ma classe SQLHelper dans laquelle on trouve différente fonction et procédure : GetDataTable, GetDataSet, ExecuteNonQuery, ExecuteScalar, ...

Ex :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Public Function GetDataTable(ByVal CommandType As System.Data.CommandType, ByVal CommandText As String, ByVal ParamArray CommandParameters() As System.Data.SqlClient.SqlParameter) As System.Data.DataTable 'Récupération des résultats Dim dsResults As System.Data.DataSet = Me.GetDataSet(CommandType, CommandText, CommandParameters) 'Vérification du DataSet et des DataTable If Not dsResults Is Nothing AndAlso dsResults.Tables.Count > 0 Then Return dsResults.Tables(0) Else Return Nothing End If End Function
Donc je me retrouve avec ma DataTable sur ma FormMain.

Ce que j'aimerais faire, c'est ajouter des lignes dans cette DataTable à partir de ma FormMain et ensuite de la renvoyer à ma DAL en utilisant une nouvelle sub. Cette procédure serait charger de mettre à jour la BDD SQL Server. J'espère avoir été assez clair :D

Ps : Tsoupi c'est moi (enfin, le compte de ma cop).

07/04/2008, 15h45
Steven62
Personne pour m'aider ?

Pour l'instant, je fais comme ça :
Code:

1 2 Dim objArretSrvDataHelper As New ReseauLibrary.DAL.ArretSrvDataHelper objArretSrvDataHelper.InsertArretSrv(champ1, champ2, etc...)
Je met ça dans une boucle. Ca créé donc une connexion / déconnexion à chaque ajout dans la table ArretSrv. Pas tip top. Pour ça que je veux faire une boucle qui ajoute des lignes à ma DataTable (récupérée comme expliqué plus haut) et que seulement à la fin, j'envoie cette DataTable pour sauvegarder les données.
07/04/2008, 16h32
Poulain

Je pense que c'est faisable, mais trop compliqué pour moi, je passe la main...:aie:
07/04/2008, 23h53
olsimare

Bonjour.

Attention, c'est une question c.. :
pourquoi n'envoies tu pas un dataadapter au lieu d'une datatable ?

Peu importe que la connexion soit fermée, tu conserveras quand même les commands et les indicateurs de maj ou d'insertion de lignes.

Cdt.
08/04/2008, 08h10
Steven62

Citation:

Envoyé par olsimare

Bonjour.

Attention, c'est une question c.. :
pourquoi n'envoies tu pas un dataadapter au lieu d'une datatable ?

Peu importe que la connexion soit fermée, tu conserveras quand même les commands et les indicateurs de maj ou d'insertion de lignes.

Cdt.

Pas bête :)

Je vais essayer et je vous tiens au courant.

Citation:

Envoyé par olsimare

Bonjour.

Attention, c'est une question c.. :
pourquoi n'envoies tu pas un dataadapter au lieu d'une datatable ?

Peu importe que la connexion soit fermée, tu conserveras quand même les commands et les indicateurs de maj ou d'insertion de lignes.

Cdt.

Je up le sujet car je viens de tester ta solution (j'étais sur autre chose en attendant).

J'ai donc fais comme tu m'as dis : je recup le DataAdapter et je fais mes MAJ dessus. Pourtant, ma BDD ne se met par à jour et je n'ai aucun message d'erreur.

Voici mon code :
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 Dim dsChangement As New DataSet Dim dtChangement As DataTable Dim daChangement As System.Data.SqlClient.SqlDataAdapter daChangement = Me.SqlHelper.GetDataAdapter(CommandType.StoredProcedure, "ChangementOrdreAffichage") daChangement.Fill(dsChangement) dtChangement = dsChangement.Tables(0) Dim dr1 As DataRow Dim ok As Boolean = True Dim i As Integer = 0 ' cette partie n'est pas importante, c'est là ou je fais mes modifs For Each dr1 In dtChangement.Rows If i >= Nouvelle - 1 And i < Ancienne - 1 Then dr1("Ordre_App") = i + 2 End If If i = Ancienne - 1 Then dr1("Ordre_App") = Nouvelle End If i = i + 1 Next 'et enfin je fais la MAJ dsChangement.AcceptChanges() daChangement.Update(dsChangement)
Une idée de la cause de mon problème ?

EDIT : J'ai ajouté le nom de la Table dans "daChangement.Update"
Ca donne : daChangement.Update(dsChangement, "App")

Maintenant, j'ai un message d'erreur à cette ligne à l'éxecution :

Impossible pour Update de trouver TableMapping['App'] ou DataTable 'App'.

16/04/2008, 14h13
Kropernic
Je vais p-e dire une grosse connerie car j'avoue que je maitrise mal le sujet (mais une formation devrait bientot corriger cela :mrgreen:) mais pour ma part, dans mon module d'accès aux données, quand je veux mettre ma DB à jour, je fais :
Code:

1 2 da.Update(ds.tables(0))
où da est un DataAdapter et ds un DataSet.

Je précise donc la table du dataset.
Je n'utilise pas non plus la procédure AcceptChanges.

En ce qui me concerne, ça fonctionne très bien.

Essaie p-e en mentionnant la table de l'index 0 dans ton update puisque tu ne fais quand même des modifications que dans celle-là.

Griftou.

Ca rejoint ce que j'ai fais dans mon Edit.

Mon code donne ça maintenant : (j'ai plus de message d'erreur mais tjs pas de modif dans la BDD)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 Dim dsChangement As New DataSet
            Dim dtChangement As DataTable
            Dim daChangement As System.Data.SqlClient.SqlDataAdapter
            daChangement = Me.SqlHelper.GetDataAdapter(CommandType.StoredProcedure, "ChangementOrdreAffichage")
            daChangement.Fill(dsChangement, "Appareillage")
            dtChangement = dsChangement.Tables("Appareillage")
            Dim dr1 As DataRow
            Dim ok As Boolean = True
            Dim i As Integer = 0
            For Each dr1 In dtChangement.Rows
                If i >= Nouvelle - 1 And i < Ancienne - 1 Then
                    dr1("Ordre_App") = i + 2
                End If
                If i = Ancienne - 1 Then
                    dr1("Ordre_App") = Nouvelle
                End If
                i = i + 1
            Next
 
            dsChangement.AcceptChanges()
            daChangement.Update(dsChangement, "Appareillage")

16/04/2008, 15h28
Kropernic
J'ai aussi beaucoup chipoté avec ce truc là. Sérieusement, plutot que
Code:

1 2 daChangement.Update(dsChangement, "Appareillage")
essaie
Code:

1 2 daChangement.Update(dsChangement.Tables(0))
Même si c'est juste pour me faire plaisir, essaie et dis moi quoi.

Griftou.
17/04/2008, 00h35
olsimare
Bonjour.

Je ne vois pas de CommandBuilder dans ton code.

Un truc du style :
Code:

1 2 Dim cmdBuilder As New SqlCommandBuilder(daChangement)
avant l'update vaut le coup d'être testé.

Cdt.