Modification sans toucher la clé

**loverdev** · 24/08/2007, 09h04

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** · 24/08/2007, 09h28

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** · 24/08/2007, 09h31

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** · 24/08/2007, 09h43

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** · 24/08/2007, 10h03

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

**loverdev** · 24/08/2007, 10h14

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** · 24/08/2007, 10h59

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

**loverdev** · 24/08/2007, 11h46

J'ai tjrs le même msg d'erreur :

Code :

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

1
2
 
 SCMD = String.Format("update Fournisseur set Fournisseur.Nom_frs='{0} ', Fournisseur.Adr_frs='{1}', Fournisseur.Tel_frs='{2}', Fournisseur.Fax_frs='{3}', Fournisseur.Email_frs='{4}' where Num_frs='{5}'", Txtnomfrs.Text, Txtadr.Text, Txttel.Text, Txtfax.Text, Txtemail.Text, Cbxnomfrs.Text)

**Pol63** · 24/08/2007, 11h52

revient sans le string.format alors ...
j'en vois pas trop l'utilité

de tout facon c'est des SqlParameters qu'il faut utiliser
car si un utilisateur met un apostrophe dans le nom d'un fournisseur ta requete va planter si tu passes par un string

**loverdev** · 24/08/2007, 12h09

Je ne comprend pas ce que tu veux dire par "revient sans le string.format alors ...". Si je l'enlève il y aura une erreur de syntaxe

**Pol63** · 24/08/2007, 12h16

au debut tu utilisais
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)

sans utiliser de string.format

**loverdev** · 24/08/2007, 12h26

JPelli m'as conseillé de faire ça en plus je ne sais pas comment je peux modifier un enregistrement sans modifier la clé primaire.

**JPelli** · 24/08/2007, 13h10

Bonjour,
Pour moi l'utilisation d'un string.format simplifie la construction de la requête mais ta façon est tout aussi valable(avant c'est ce que je faisais).
Avant d'exécuter la requête, récupère le texte de la commande SQL et teste là dans un éditeur SQL car en effet s'il y a des ' dans le texte il faut les doubler.(avec un .replace("'","''")).
La clé primaire sert à trouver un enregistrement afin de le modifier avec un update.(ou de le supprimer).
Dans ta requête je suppose que la clé primaire est le champ Num_frs et tu peux faire la mise à jour(update) des autres champs de l'enregistrement.
Bon boulot

Jean

**Pol63** · 24/08/2007, 13h12

Envoyé par loverdev

JPelli m'as conseillé de faire ça en plus je ne sais pas comment je peux modifier un enregistrement sans modifier la clé primaire.

faut arreter de fumer !

si tu ne fais pas "SET champ_cle_primaire = .." alors il ne sera pas modifié (regarde l'aide de ton sgdb (sql server ou autre))
utilises un sqlcommand (regarde l'aide de vs ou trouve un tuto sur l'accès aux données)
et si possible des sqlparameters

**loverdev** · 24/08/2007, 13h31

En faisant comme dab voici le msg d'erreur qui apparaît "La champ 'Num_frs' n'est pas un champ pouvant être mis à jour".

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
 
 Private Sub Btnvalider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnvalider.Click
        Dim cnx As New OleDbConnection
        Dim cmd As New OleDbCommand
        cmd.CommandText = ("update Fournisseur set Fournisseur.Num_frs='" & Txtnumfrs.Text & "'" & ", 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 Nom_frs='" & Cbxnomfrs.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()
            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** · 24/08/2007, 13h41

puisque tu es réfractaire à la touche F1 je vais te le mettre ici

syntaxe de la commande update

UPDATE nom_table SET champ=nouvelle_valeur
WHERE condition

champ=nouvelle_valeur, à mettre pour tous les champs qu'on veut modifier

or tu ne veux pas modifier la clé primaire

ALORS POURQUOI TU LA METS DANS LA REQUETE ????

set Fournisseur.Num_frs='" & Txtnumfrs.Text

j'en suis à la limite de penser que tu trolles le forum depuis 2 mois ...

**SaumonAgile** · 24/08/2007, 14h05

Envoyé par JPelli

Bonjour,
Pour moi l'utilisation d'un string.format simplifie la construction de la requête mais ta façon est tout aussi valable(avant c'est ce que je faisais).

En fait, tu voulais sûrement dire que ces deux méthodes sont aussi mauvaises l'une que l'autre

Comme l'a dit Sperot, la bonne méthode est d'utiliser des DbParameter.

Envoyé par JPelli

Avant d'exécuter la requête, récupère le texte de la commande SQL et teste là dans un éditeur SQL car en effet s'il y a des ' dans le texte il faut les doubler.(avec un .replace("'","''")).

Cette méthode est un réliquat des langages peu évolués datant du siècle dernier (PHP avant la version 5 par exemple). Je te conseille de te renseigner sur les paramètres SQL, ici par exemple.

**fred777888999** · 24/08/2007, 16h48

Cbxnomfrs.Text
Les combos ont une ppte text accessibles en vb ? Remarque j'y connais rien en vb, mais en c#, ce serai Cbxnomfrs.SelectedItem.Text...

Modification sans toucher la clé

VB.NET

Discussions similaires

Partager

Partager