Modification sans toucher la clé

Version imprimable

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:

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

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

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

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:

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 boulot8-) Jean

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:

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

24/08/2007, 10h03
Pol63

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

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

Code:

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

24/08/2007, 10h59
Pol63

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

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

Code:

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)

24/08/2007, 11h52
Pol63

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
24/08/2007, 12h09
loverdev

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 :bug:
24/08/2007, 12h16
Pol63

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
24/08/2007, 12h26
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.
24/08/2007, 13h10
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).
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 boulot8-) Jean
24/08/2007, 13h12
Pol63

Citation:

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

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:

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

24/08/2007, 13h41
Pol63

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 ????

Citation:

set Fournisseur.Num_frs='" & Txtnumfrs.Text

j'en suis à la limite de penser que tu trolles le forum depuis 2 mois ...
24/08/2007, 14h05
SaumonAgile

Citation:

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.

Citation:

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.
24/08/2007, 16h48
fred777888999

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