Discussion :

[loverdev]

Comment je peux modifier certains champs d'un enregistrement et ne pas modifier d'autres. Par exemple : J'ai une table "Fournisseur" et je veux modifier certains champs de cette table d'un enregistrement sauf que je ne veux pas modifier la clé de cette table car elle doit être intouchable. 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
 
Private Sub Btnvalider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnvalider.Click
        Dim cnx As New OleDbConnection
        Dim cmd = New OleDbCommand("update Fournisseur set Fournisseur.Nom_frs='" & Txtnomfrs.Text & "'" & ", Fournisseur.Adr_frs='" & Txtadr.Text & "'" & ", Fournisseur.Tel_frs='" & Txttel.Text & "'" & ", Fournisseur.Fax_frs='" & Txtfax.Text & "'" & ", Fournisseur.Email_frs='" & Txtemail.Text & "'" & " where Num_frs='" & Txtnumfrs.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()
            cmd.connection = cnx
            cmd.executenonquery()
            MsgBox("Le fournisseur 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
        Frmprincipale.Show()
        Me.Close()
    End Sub

[LaChips]

Bonjour,
Je ne comprend pas ce que tu veux dire par modifier la clef : est ce que tu parles de la clef primaire? qui dans ce cas à l'air d'être le numéro de fournisseur et dans ta requête tu ne la modifies pas donc je ne vois pas l'utilité de ta question.

Si tu veux qu'elle ne soit pas modifiable par une requête, applique des droits sur ta table fournisseurs et la colonne numéro de fournisseur

[JPelli]

Bonjour,
Pour créer la requête utilise un string.format(l'encodage est plus simple)

Code :

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

1
2
3
dim SCMD as string
scmd = string.format("update Fournisseur set Fournisseur.Nom_frs='{0}', {1}','{2}','{3}','{4}' where Num_frs = '{5}' ",
Txtnomfrs.Text , Txtadr.Text, Txttel.Text, Txtfax.Text , Txtemail.Text Txtnumfrs.Text).

Pour répondre à ta question, il faut placer dans la requête uniquement les champs à modifier.
Exemple :

Code :

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

1
2
scmd = string.format("update Fournisseur set Fournisseur.Nom_frs='{0}' where Num_frs = '{1}' ",
Txtnomfrs.Text, Txtnumfrs.Text).

va modifier le champ Fournisseur.Nom ayant la clé Txtnumfrs.text.
La clé de l'enregistrement ne peut pas être modifiée sauf par delete/insert.
J'espère que cela répond à ta question.
Bon boulot Jean

[loverdev]

J'ai essayé comme tu l'a dis mais là il ne prend même pas en considération les modifications effectuées. Voici ce que j'ai fait :

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
 
Private Sub Btnvalider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnvalider.Click
        Dim cnx As New OleDbConnection
        Dim SCMD As String
        SCMD = String.Format("update Fournisseur set Fournisseur.Nom_frs=' ', Fournisseur.Adr_frs='', Fournisseur.Tel_frs='', Fournisseur.Fax_frs='', Fournisseur.Email_frs='' where Num_frs=''", Txtnomfrs.Text, Txtadr.Text, Txttel.Text, Txtfax.Text, Txtemail.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()
            MsgBox("Le fournisseur 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
        Frmprincipale.Show()
        Me.Close()
    End Sub

[Pol63]

tu as retiré ton objet command et tu ne l'executes pas ta requete
c'est donc un fonctionnement normal ...

[loverdev]

J'ai essayé ceci mais il me sort ce msg d'erreur "Type de données incompatibles dans l'expression de critère"

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
 
 Private Sub Btnvalider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnvalider.Click
        Dim cnx As New OleDbConnection
        Dim SCMD As String
        Dim cmd As New OleDbCommand
        SCMD = String.Format("update Fournisseur set Fournisseur.Nom_frs=' ', Fournisseur.Adr_frs='', Fournisseur.Tel_frs='', Fournisseur.Fax_frs='', Fournisseur.Email_frs='' where Num_frs=''", Txtnomfrs.Text, Txtadr.Text, Txttel.Text, Txtfax.Text, Txtemail.Text)
        cmd.CommandText = SCMD.ToString
        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()
            cmd.Connection = cnx
            cmd.ExecuteNonQuery()
            MsgBox("Le fournisseur 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
        Frmprincipale.Show()
        Me.Close()
    End Sub

[Pol63]

ton String.Format ne ressemble pas à celui qu'on t'a proposé
il y avait des {1} ..