Modification d'un enregistrement

**loverdev** · 10/07/2007, 12h58

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** · 10/07/2007, 13h08

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

**loverdev** · 11/07/2007, 08h07

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** · 11/07/2007, 09h16

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** · 11/07/2007, 09h29

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

**SaumonAgile** · 11/07/2007, 09h45

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).

**loverdev** · 11/07/2007, 10h56

Peux tu me corriger mon code ou me donner un exemple?

**SaumonAgile** · 11/07/2007, 11h27

Code :

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

"UPDATE table SET champ = nouvelle_valeur WHERE champ = valeur_recherchee AND autrechamp = autre_valeur_recherchee"

C'est du SQL de base, je vois ce qui te pose problème...

**loverdev** · 11/07/2007, 11h35

Merci Saumonagile j'ai plus ce msg d'erreur mais l'insertion de l'enregistrement modifié ne s'effectue pas. pourquoi?

**SaumonAgile** · 11/07/2007, 11h47

Ben ce n'est pas une insertion que tu fais, c'est une mise à jour...
Tu dois avoir un enregistrement modifié, mais en aucun cas, tu n'auras un nouvel enregistrement.

**loverdev** · 11/07/2007, 12h06

Comment je fais pour modifier un enregistrement existant?

**loverdev** · 12/07/2007, 08h51

Saumonagile j'ai pas compris ce que vous voulez dire par vous devez avoir un enregistrement modifié. Pouvez vous me précisez avec plus de détails?

**SaumonAgile** · 12/07/2007, 09h10

Le problème est que ta requête SQL essaie de modifier TOUT les enregistrements au lieu de modifier seulement celui que tu veux.
Dans ton code comment sais tu quel enregistrement tu veux modifier ?

La solution c'est que ta requête ne doit pas modifier tout les enregistrements, mais seulement celui qui t'intéresse. C'est à ça que sert la clause WHERE de la requête UPDATE : à spécifier les critères de modification de ta requête.
Si tu souhaites modifier la clé primaire d'un enregistrement, tu dois faire une requête du genre :

Code :

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

UPDATE table SET cle = nouvelle_cle WHERE cle = ancienne_cle

Après, je ne vois pas quoi dire de plus, si tu ne comprends toujours pas, commence par les cours de SQL avant d'essayer de l'appliquer dans ton code.

**loverdev** · 12/07/2007, 09h36

La seule modification qu'il effectue c'est qu'il efface la clé primaire bien qu'au niveau du champ "txtnumab.text" il existe une valeur et il ne prend pas en compte les autres modifications effectuées.

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
 
Dim cnx As New OleDbConnection
        Dim command = New OleDbCommand("update Abonnement set Abonnement.Num_abonnement='" & Txtnumab.Text & "'" & "where 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

**SaumonAgile** · 12/07/2007, 09h45

Utilise plutot des paramètres SQL pour passer les valeurs de tes paramètres plutot que de concaténer directement les valeurs issues de tes textbox.
Regarde du côté de OleDbParameter dans la MSDN.

**loverdev** · 12/07/2007, 11h01

J'ai trouvé la solution toute seule

. La voici :

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
 
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
        Dates.Visible = False
        Txtdates.Visible = True
        Datef.Visible = False
        Txtdatef.Visible = True
        Cbxfrs.Visible = False
        Txtnomfrs.Visible = True
        Txtnumab.Enabled = False
        Txtnumab.ReadOnly = True
        Txtlibab.Enabled = False
        Txtdates.Enabled = False
        Txtdates.ReadOnly = True
        Txtdatef.Enabled = False
        Txtdatef.ReadOnly = True
        Txtmontantab.Enabled = False
        Txtmontantab.ReadOnly = True
        Txtnumfrs.Enabled = False
        Txtnumfrs.ReadOnly = True
        Txtnomfrs.Enabled = False
        Txtnomfrs.ReadOnly = True
        Dim cnx As New OleDbConnection
        Dim command = New OleDbCommand("update Abonnement set Abonnement.Num_abonnement='" & Cbxnumab.Text & "'" & ", Abonnement.Lib_abonnement='" & Txtlibab.Text & "'" & ", Abonnement.Date_debut_ab='" & Dates.Value & "'" & ", Abonnement.Date_fin_ab='" & Datef.Value & "'" & ", Abonnement.Montant_ab='" & Txtmontantab.Text & "'" & ", Abonnement.Num_frs='" & Txtnumfrs.Text & "'" & ",Abonnement.Nom_frs='" & Cbxfrs.Text & "'" & "where 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()
            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

Modification d'un enregistrement

VB.NET

Discussions similaires

Partager

Partager