Discussion :

[loverdev]

Je veux modifier un enregistrement mais d'après le code que j'ai établi aucune modification ne s'effectue. Comment faire?

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
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
 
Private Sub Btnmodif_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnmodif.Click
        Btnmodif.Enabled = False
        Btnannuler.Enabled = False
        Btnediter.Enabled = True
        Dim cnx As New OleDbConnection
        Dates.Visible = False
        Txtdates.Visible = True
        Txtdates.Text = ""
        Datef.Visible = False
        Txtdatef.Visible = True
        Txtdatef.Text = ""
        Cbxfrs.Visible = False
        Txtnomfrs.Visible = True
        Txtnomfrs.Text = ""
        Txtnumab.Enabled = False
        Txtnumab.ReadOnly = True
        Txtnumab.Text = ""
        Txtlibab.Enabled = False
        Txtlibab.Text = ""
        Txtdates.Enabled = False
        Txtdates.ReadOnly = True
        Txtdatef.Enabled = False
        Txtdatef.ReadOnly = True
        Txtmontantab.Enabled = False
        Txtmontantab.ReadOnly = True
        Txtmontantab.Text = ""
        Txtnumfrs.Enabled = False
        Txtnumfrs.ReadOnly = True
        Txtnumfrs.Text = ""
        Txtnomfrs.Enabled = False
        Txtnomfrs.ReadOnly = True
        Txtnomfrs.Text = ""
        Dim command = New OleDbCommand("update Abonnement set Abonnement.Num_abonnement='" & Cbxnumab.Text & "'", cnx)
        Try
            cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\Administrateur.STANDARD\Mes documents\Projet Budget\Budget\Budget\Marches.mdb"
            cnx.Open()
 
        Catch ex As Exception
 
        End Try
        Me.Dispose()
        Frmprincipale.Show()
    End Sub

[SaumonAgile]

Ben il faudrait sans doute que tu exécutes la requête avec un ExecuteNonQuery()...

[loverdev]

J'ai fait comme tu m'as dit sauf que quand j'essaye d'insérer cet enregistrement modifié il me met qu'il y a un risque de doublons. Il n'accepte pas de réinsérer la clé primaire qui est le numéro de l'abonnement. comment faire pour qu'il accepte de le réinscrire?
voici mon nouveau 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
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
 
Private Sub Btnmodif_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnmodif.Click
        Btnmodif.Enabled = False
        Btnannuler.Enabled = False
        Btnediter.Enabled = True
        Dim cnx As New OleDbConnection
        Dates.Visible = False
        Txtdates.Visible = True
        Txtdates.Text = ""
        Datef.Visible = False
        Txtdatef.Visible = True
        Txtdatef.Text = ""
        Cbxfrs.Visible = False
        Txtnomfrs.Visible = True
        Txtnomfrs.Text = ""
        Txtnumab.Enabled = False
        Txtnumab.ReadOnly = True
        Txtnumab.Text = ""
        Txtlibab.Enabled = False
        Txtlibab.Text = ""
        Txtdates.Enabled = False
        Txtdates.ReadOnly = True
        Txtdatef.Enabled = False
        Txtdatef.ReadOnly = True
        Txtmontantab.Enabled = False
        Txtmontantab.ReadOnly = True
        Txtmontantab.Text = ""
        Txtnumfrs.Enabled = False
        Txtnumfrs.ReadOnly = True
        Txtnumfrs.Text = ""
        Txtnomfrs.Enabled = False
        Txtnomfrs.ReadOnly = True
        Txtnomfrs.Text = ""
        Dim command = New OleDbCommand("update Abonnement set Abonnement.Num_abonnement='" & Cbxnumab.Text & "'")
        Try
            cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\Administrateur.STANDARD\Mes documents\Projet Budget\Budget\Budget\Marches.mdb"
            cnx.Open()
            command.connection = cnx
            command.executenonquery()
            MsgBox("L'abonnement a été modifié avec succès", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            If Not (cnx Is Nothing) Then
                cnx.Close()
            End If
        End Try
        Me.Dispose()
        Frmprincipale.Show()
    End Sub

[SaumonAgile]

C'est normal, tu essaies réaffecter la même clé primaire à toutes les lignes de la table. Tu n'aurais pas oublié la clause WHERE de ta requête UPDATE ?

Et au passage, ça ne sert à rien de faire un Me.Dispose à la fin...

[loverdev]

Comment je peux corriger cela? Peux tu me donner un exemple ou de corriger mon code SVP?

[SaumonAgile]

Ben tu ajoutes une clause WHERE dans ta requête SQL pour ne mettre à jour qu'un des enregistrements (celui qui correspond à tes critères).