[Dataset et dataAdapter] Problème de logique

Version imprimable

Bonjour,

suite à un problème en fin de semaine dernière sur un temps d'insertion de données trop long en base via de multiples appels de proc stock, mon chef m'a conseillé de passer par un dataset pour améliorer mes perfs. cf http://www.developpez.net/forums/sho...d.php?t=455355 pour plus d'explication)

Je débute avec les dataset et dataAdapter.

En gros voilà ce qui m'arrive.
J'ai un planning à remplir pour une semaine (4 périodes par jour) et plusieurs agents. Lorsque j'appuie sur enregistrer j'ai un flux XML qui arrive coté serveur.

mon flux est du style
Code:

1 2 3 4 5 6 <A idagent="" idantenne=""> <T code="" date="" modif="" estAbsence="" /> <T code="" date="" modif="" estAbsence="" /> <T code="" date="" modif="" estAbsence="" /> </A>
modif prend la valeur 0 ou 1 suivant si le code a été modifié avant l'enregistrement.
estAbsence prend la valeur 0 ou 1 suivant si mon code est une absence ou une activite.

Ma table est la suivante :
Code:

1 2 3 4 5 6 7 8 9 10 create table PLNG_ANTENNE ( IDPLNGANTENNE int identity(1,1) not null, ID_AGENT int not null, ID_ACTIVITE int null, ID_MA int null, ID_ANTENNE int not null, TableTemps_ID int not null, constraint PK_PLNG_ANTENNE primary key (IDPLNGANTENNE) )
Maintenant mon problème est de savoir comment gérer mon dataset et mon adapter pour insérer ou mettre à jour mes données.

J'avoue ne pas trop savoir par où commencer...

D'après ce que je comprends, il faudrait que tu utilises la méthode Update du DataAdapter comme dans l'exemple ci-dessous :

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
Public Function CreateCommandAndUpdate( _
    ByVal connectionString As String, _
    ByVal queryString As String) As DataSet
 
    Dim dataSet As DataSet = New DataSet
 
    Using connection As New OleDbConnection(connectionString)
        connection.Open()
        Dim dataAdapter As New OleDbDataAdapter()
 
        dataAdapter.SelectCommand = New OleDbCommand( _
            queryString, connection)
 
        Dim commandBuilder As OleDbCommandBuilder = _
            New OleDbCommandBuilder(dataAdapter)
 
        dataAdapter.Fill(dataSet)
 
        ' Code to modify the data in the DataSet here. 
 
        ' Without the OleDbCommandBuilder this line would fail.
        dataAdapter.Update(dataSet)
    End Using
    CreateCommandAndUpdate = dataSet
End Function

Plus d'infos : http://msdn2.microsoft.com/en-us/lib...te(VS.80).aspx

10/12/2007, 12h14
jbrasselet

Merci de ta réponse. J'ai juste une question supplémentaire.

Dois-je remplir mon dataset avec mon xml ou avec la command select de mon adapter.
C'est là que j'ai un gros problème de compréhension...
10/12/2007, 12h28
npuzin

Tu dois remplir impérativement ton dataset avec la commande :

dataAdapter.Fill(dataSet)

puis tu fais toutes les modifs que tu veux sur ton dataset

Et ensuite tu appelles la ligne suivante pour faire persister dans ta base tes modifs :

dataAdapter.Update(dataSet)
10/12/2007, 12h52
jbrasselet

OK.
Donc je remplis mon dataset avec la commande et ensuite je le modifie avec mes données de mon xml.

Je testes ça cet am

Bon j'ai tenté et ça marche pas mais je me pose une question :
est-ce qu'il ne faut aps que je rajoute un insertcommand et un updatecommand si je veux que mes données se mettent à jour?

Je me demandes aussi si le fait que mon select soit compliqué a un effet sur l'update...

Je vous met mon code en dessous au cas où :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
 
Dim lstAgentsXml As XmlNodeList
        Dim agentXml As XmlNode
        Dim periodeXml As XmlNode
 
        Dim i As Integer
        Dim j As Integer
        Dim k As Integer
 
        Dim idAgent As Integer
        Dim codeMa As String
        Dim codeActivite As String
        Dim idjour As Integer
 
        Dim enregistrementTrouve As Boolean = False
 
        Dim ds As DataSet = New DataSet
        Dim table As DataTable
        Dim row As DataRow
 
        Dim connexionStr As String = ConfigurationSettings.AppSettings("ConnectionString")
        Dim requete As String
        Dim connection As SqlConnection = New SqlConnection(connexionStr)
 
 
        connection.Open()
 
        requete = "SELECT P.id_agent, P.id_antenne,"
        requete = requete & "P.TableTemps_ID,"
        requete = requete & "P.id_ma, P.id_activite"
        requete = requete & " FROM PLNG_ANTENNE P JOIN AGENT A ON A.ID_AGENT=P.ID_AGENT "
        requete = requete & " LEFT OUTER JOIN TableTemps T ON P.TableTemps_ID=T.TableTemps_ID "
        requete = requete & " LEFT OUTER JOIN MOTIF_ABSENCE M ON M.ID_MA=P.ID_MA"
        requete = requete & " LEFT OUTER JOIN ACTIVITE AC ON AC.ID_ACTIVITE=P.ID_ACTIVITE"
        requete = requete & " LEFT OUTER JOIN agent_antenne B on A.id_agent=B.id_agent"
 
        If idSemaine = 53 Then
            requete = requete & " WHERE	P.ID_ANTENNE=" & idAntenne.ToString
            requete = requete & " AND	((T.TableTemps_SemaineAnnee=" & idSemaine.ToString & " AND T.TableTemps_Annee=" & annee.ToString & ") OR (T.TableTemps_SemaineAnnee=1 AND T.TableTemps_Annee=" & annee.ToString & "+1))"
            requete = requete & " AND	T.TableTemps_Heure in (8,12,13,14)"
        Else
            requete = requete & " WHERE	P.ID_ANTENNE=" & idAntenne.ToString
            requete = requete & " AND	T.TableTemps_SemaineAnnee=" & idSemaine.ToString
            requete = requete & " AND   T.TableTemps_Annee=" & annee.ToString
            requete = requete & " AND	T.TableTemps_Heure in (8,12,13,14)"
        End If
 
        requete = requete & " ORDER BY A.ID_STATUT, A.code_agent, T.TableTemps_DateEntiere, t.TableTemps_Heure"
        Dim da As SqlDataAdapter = New SqlDataAdapter(requete, connection)
 
        da.Fill(ds)
        table = ds.Tables("Table")
        Try
            'Parcours le fichier xml
            lstAgentsXml = xml.GetElementsByTagName("A")
            For i = 0 To lstAgentsXml.Count - 1
                agentXml = lstAgentsXml(i)
                idAgent = agentXml.Attributes("id_agent").Value
                'Parcours des périodes
                For j = 0 To agentXml.ChildNodes.Count - 1
                    periodeXml = agentXml.ChildNodes(j)
                    If CInt(periodeXml.Attributes("modif").Value) = 1 Then
                        'Recup du code
                        If CInt(periodeXml.Attributes("estAbsence").Value) = 1 Then
                            codeMa = periodeXml.Attributes("code").Value
                        Else
                            codeActivite = periodeXml.Attributes("code").Value
                        End If
                        'recup de la date
                        idjour = (New BaseDTOFactory).rechercherIdJour(periodeXml.Attributes("date_entiere").Value)
 
                        'Recherche dans le ds
                        enregistrementTrouve = False
                        Dim expression As String = "id_agent=" & idAgent.ToString & " AND tabletemps_id=" & idjour
                        Dim foundRows() As DataRow     'résultat dans des DataRow
                        foundRows = table.Select(expression)
                        If foundRows.Length > 0 Then
                            enregistrementTrouve = True
                        End If
 
                        If enregistrementTrouve Then
                            'update
                            table.Rows(k).Item(3) = (New AbsenceDTOFactory).rechercherIdAbsence(codeMa)
                            table.Rows(k).Item(4) = (New ActiviteDTOFactory).rechercherIdActivite(codeActivite)
                        Else
                            'insert
                            row = ds.Tables("Table").NewRow()
                            row("id_agent") = idAgent
                            row("id_antenne") = idAntenne
                            row("TableTemps_ID") = idjour
                            row("id_ma") = (New AbsenceDTOFactory).rechercherIdAbsence(codeMa)
                            row("id_activite") = (New ActiviteDTOFactory).rechercherIdActivite(codeActivite)
                        End If
                    End If
                Next
            Next
 
            da.Update(ds)
        Catch ex As Exception
            LOGGER.Error("Erreur dans la fonction InsererSemaine :" & ex.Message)
        Finally
            connection.Close()
        End Try

Bon j'en suis pas loin :yaisse2:
Mon update fonctionne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Dim Updatecmd As SqlCommand = New SqlCommand("UPDATE PLNG_ANTENNE SET id_ma=@idMa, id_activite=@idActivite WHERE id_agent=@idAgent and tabletemps_id=@tableTempsId", connection)
        Updatecmd.Parameters.Add("@idAgent", SqlDbType.Int)
        Updatecmd.Parameters.Add("@tableTempsId", SqlDbType.Int)
        Updatecmd.Parameters.Add("@idMa", SqlDbType.Int)
        Updatecmd.Parameters.Add("@idActivite", SqlDbType.Int)
        da.UpdateCommand = Updatecmd
 
Updatecmd.Parameters("@idAgent").Value = idAgent
                            Updatecmd.Parameters("@tableTempsId").Value = idjour
 
                            table.Rows(k).Item(3) = (New AbsenceDTOFactory).rechercherIdAbsence(codeMa)
                            table.Rows(k).Item(4) = (New ActiviteDTOFactory).rechercherIdActivite(codeActivite)
                            'update
                            If CInt(periodeXml.Attributes("estAbsence").Value) = 1 Then
                                Updatecmd.Parameters("@idMa").Value = table.Rows(k).Item(3)
                                Updatecmd.Parameters("@idActivite").Value = System.DBNull.Value
                            Else
                                Updatecmd.Parameters("@idMa").Value = System.DBNull.Value
                                Updatecmd.Parameters("@idActivite").Value = table.Rows(k).Item(4)
                            End If
                            da.Update(ds)

Par contre mon insert ne fonctionne pas et je n'ai pas de message d'erreur :(

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
27
28
29
 
Dim InsertCmd As SqlCommand = New SqlCommand("INSERT INTO PLNG_ANTENNE(id_ma,id_activite,id_agent,id_antenne,tabletemps_id) values(@idMa,@idActivite,@idAgent,@idAntenne,@tableTempsId)", connection)
        InsertCmd.Parameters.Add("@idAgent", SqlDbType.Int)
        InsertCmd.Parameters.Add("@tableTempsId", SqlDbType.Int)
        InsertCmd.Parameters.Add("@idMa", SqlDbType.Int)
        InsertCmd.Parameters.Add("@idActivite", SqlDbType.Int)
        InsertCmd.Parameters.Add("@idAntenne", SqlDbType.Int)
        da.InsertCommand = InsertCmd
 
InsertCmd.Parameters("@idAgent").Value = idAgent
                            InsertCmd.Parameters("@idAntenne").Value = idAntenne
                            InsertCmd.Parameters("@tableTempsId").Value = idjour
 
                            'insert
                            row = ds.Tables("Table").NewRow()
                            row("id_agent") = idAgent
                            row("id_antenne") = idAntenne
                            row("TableTemps_ID") = idjour
                            row("id_ma") = (New AbsenceDTOFactory).rechercherIdAbsence(codeMa)
                            row("id_activite") = (New ActiviteDTOFactory).rechercherIdActivite(codeActivite)
 
                            If CInt(periodeXml.Attributes("estAbsence").Value) = 1 Then
                                InsertCmd.Parameters("@idMa").Value = row("id_ma")
                                InsertCmd.Parameters("@idActivite").Value = System.DBNull.Value
                            Else
                                InsertCmd.Parameters("@idMa").Value = System.DBNull.Value
                                InsertCmd.Parameters("@idActivite").Value = row("id_activite")
                            End If
                            da.Update(ds)

une petite idée?

10/12/2007, 16h35
jbrasselet

Arf j'ai trouvé.
j'avais oublié le

Code:

ds.Tables("Table").Rows.Add(row)

bon par contre ça n'améliore pas vraiment mais perf :(
10/12/2007, 16h39
npuzin

C'est quelle ligne qui rame ?

Le Fill ou l'update ?
10/12/2007, 16h53
jbrasselet

Ben mon souci je pense c'est que je n'arrive pas à faire un update général, je suis obligé de le faire ligne par ligne et ça me semble pas bon.
Je pense que cela doit venir de mes updatecommand et insertcommand.