Discussion :

[najoua01]

Bonjour tout le monde
Voici mon problème le suivant:
je veux ajouter des données à ma base de données
-si l'enregistrement est déja dans le tableau il fait la modification si non il fait l'ajout

voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 Try
            'CBool(Me.DataGridView1.Rows(i).Cells("ART_REF").Value.ToString)
            con.Open()
            Dim i As Integer = Me.DataGridView1.Rows.Count - 2
            Dim trouve As Boolean
            Dim b As Integer
            If trouve = False Then
                For b = 0 To i
                    cmd = New SqlCommand("select * from ARTICLE values('" & Me.DataGridView1.Rows(b).Cells("ART_REF").Value & "','" & Me.DataGridView1.Rows(b).Cells("ART_FAMILLE").Value & "','" & Me.DataGridView1.Rows(b).Cells("ART_DESEG").Value & "'," & Val(Me.DataGridView1.Rows(b).Cells("ART_PRIX_EURO").Value) & "," & Val(Me.DataGridView1.Rows(b).Cells("ART_PRIX_HT").Value) & ")", con)
                    cmd.ExecuteNonQuery()
                Next
            Else
                cmd1 = New SqlCommand("update ARTICLE set ART_FAMILLE='" & Me.DataGridView1.Rows(b).Cells("ART_FAMILLE").Value & "',ART_DESEG='" & Me.DataGridView1.Rows(b).Cells("ART_DESEG").Value & "',ART_PRIX_EURO=" & Val(Me.DataGridView1.Rows(b).Cells("ART_PRIX_EURO").Value) & ",ART_PRIX_HT=" & Val(Me.DataGridView1.Rows(b).Cells("ART_PRIX_HT").Value) & " where ART_REF='" & Me.DataGridView1.Rows(b).Cells("ART_REF").Value & "'", con)
                cmd1.ExecuteNonQuery()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        con.Close()

la modification ça amrche mais l'ajout ça marche pas aide moi svp
Salutations

[champomy62]

salut,

si tu fais un select pour ajouter des données ça risque de ne jamais fonctionnait...

Regarde plutôt du coté de " INSERT INTO "

[BB-69]

Bonjour,

Vous avez oublié une partie du code à priori, tel que vous utilisez votre bool 'trouve', vous ne pouvez pas passer sur votre update.
De plus je ne vois pas de code INSERT pour ajouter un enregistrement.

[najoua01]

re bonjour,
merci à votre réponse mais ça marche pas pour la modification l'ajout ça marche
voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 Try
            'CBool(Me.DataGridView1.Rows(i).Cells("ART_REF").Value.ToString)
            con.Open()
            Dim i As Integer = Me.DataGridView1.Rows.Count - 2
            Dim trouve As Boolean
            Dim b As Integer
            If trouve = False Then
                For b = 0 To i
                    cmd = New SqlCommand("insert into ARTICLE values('" & Me.DataGridView1.Rows(b).Cells("ART_REF").Value & "','" & Me.DataGridView1.Rows(b).Cells("ART_FAMILLE").Value & "','" & Me.DataGridView1.Rows(b).Cells("ART_DESEG").Value & "'," & Val(Me.DataGridView1.Rows(b).Cells("ART_PRIX_EURO").Value) & "," & Val(Me.DataGridView1.Rows(b).Cells("ART_PRIX_HT").Value) & ")", con)
                    cmd.ExecuteNonQuery()
                Next
            Else
                cmd1 = New SqlCommand("update ARTICLE set ART_FAMILLE='" & Me.DataGridView1.Rows(b).Cells("ART_FAMILLE").Value & "',ART_DESEG='" & Me.DataGridView1.Rows(b).Cells("ART_DESEG").Value & "',ART_PRIX_EURO=" & Val(Me.DataGridView1.Rows(b).Cells("ART_PRIX_EURO").Value) & ",ART_PRIX_HT=" & Val(Me.DataGridView1.Rows(b).Cells("ART_PRIX_HT").Value) & " where ART_REF='" & Me.DataGridView1.Rows(b).Cells("ART_REF").Value & "'", con)
                cmd1.ExecuteNonQuery()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        con.Close()

voici le message d"erreur:

violation of primary key contraint 'PK_ARTICLE' cannot insert duplicate key in object 'ARTICLE'.
The statement has been terminated

ça veux dire il passe justement à la requete insert

[BB-69]

Vous créez votre variable 'trouve' mais vous ne la modifié jamais, votre condition

Code :

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

trouve = false

sera toujours vrai et donc la commande insert sera toujours executé. Il faut ajouter une recherche dans la base pour mettre votre variable 'trouve' à vrai si la ligne existe.

[najoua01]

Bonjour,
j'ai met le condition 'trouve' si =true il fait la modification sinon il fait l'insertion