je veux modifier un enregistrement dans une table, voici=20
mon code :
OldSTE =3D Txtsociete.Text
ValeurChamps =3D "PARIS"
'V=E9rifie que la connexion est bien ferm=E9e
If ADOcnx.state =3D adStateOpen Then
ADOcnx.Close
End If
Set ADOcnx =3D Nothing
Call MyFonctions.InitConnection
Dim sQuery As String
sQuery =3D "update clients set nom =3D '" & OldSTE & "' where=20
Ville =3D '" & ValeurChamps & "'"
Debug.Print sQuery ' imprime dans la fen=EAtre d'ex=E9cution
Call ADOcnx.Execute("update clients set nom =3D '" & OldSTE=20
& "' where Ville =3D '" & ValeurChamps & "'")
Je n'ai aucun message d'erreur et pourtant=20
l'enregistrement n'est pas modifi=E9
Pouvez-vous me dire ou est l'erreur
Merci d'avance pour vos r=E9ponses
Cordialement
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
geo
jean claude a écrit:
Bonjour à tous
je veux modifier un enregistrement dans une table, voici mon code :
OldSTE = Txtsociete.Text ValeurChamps = "PARIS" 'Vérifie que la connexion est bien fermée If ADOcnx.state = adStateOpen Then ADOcnx.Close End If Set ADOcnx = Nothing Call MyFonctions.InitConnection
Dim sQuery As String sQuery = "update clients set nom = '" & OldSTE & "' where Ville = '" & ValeurChamps & "'" Debug.Print sQuery ' imprime dans la fenêtre d'exécution Call ADOcnx.Execute("update clients set nom = '" & OldSTE & "' where Ville = '" & ValeurChamps & "'")
Je n'ai aucun message d'erreur et pourtant l'enregistrement n'est pas modifié
Pouvez-vous me dire ou est l'erreur Merci d'avance pour vos réponses Cordialement
Jean Claude
Question bête : il y a bien un enregistrement avec "PARIS" dans la base ?
Géo
jean claude a écrit:
Bonjour à tous
je veux modifier un enregistrement dans une table, voici
mon code :
OldSTE = Txtsociete.Text
ValeurChamps = "PARIS"
'Vérifie que la connexion est bien fermée
If ADOcnx.state = adStateOpen Then
ADOcnx.Close
End If
Set ADOcnx = Nothing
Call MyFonctions.InitConnection
Dim sQuery As String
sQuery = "update clients set nom = '" & OldSTE & "' where
Ville = '" & ValeurChamps & "'"
Debug.Print sQuery ' imprime dans la fenêtre d'exécution
Call ADOcnx.Execute("update clients set nom = '" & OldSTE
& "' where Ville = '" & ValeurChamps & "'")
Je n'ai aucun message d'erreur et pourtant
l'enregistrement n'est pas modifié
Pouvez-vous me dire ou est l'erreur
Merci d'avance pour vos réponses
Cordialement
Jean Claude
Question bête : il y a bien un enregistrement avec "PARIS" dans la base ?
je veux modifier un enregistrement dans une table, voici mon code :
OldSTE = Txtsociete.Text ValeurChamps = "PARIS" 'Vérifie que la connexion est bien fermée If ADOcnx.state = adStateOpen Then ADOcnx.Close End If Set ADOcnx = Nothing Call MyFonctions.InitConnection
Dim sQuery As String sQuery = "update clients set nom = '" & OldSTE & "' where Ville = '" & ValeurChamps & "'" Debug.Print sQuery ' imprime dans la fenêtre d'exécution Call ADOcnx.Execute("update clients set nom = '" & OldSTE & "' where Ville = '" & ValeurChamps & "'")
Je n'ai aucun message d'erreur et pourtant l'enregistrement n'est pas modifié
Pouvez-vous me dire ou est l'erreur Merci d'avance pour vos réponses Cordialement
Jean Claude
Question bête : il y a bien un enregistrement avec "PARIS" dans la base ?
Géo
JCM
Salut
Oui mais en fait j'ai mélangé set nom et where ville
a par cela le code est bon
Merci pour ta réponse cordialement JCM
-----Message d'origine----- jean claude a écrit:
Bonjour à tous
je veux modifier un enregistrement dans une table,
voici
mon code :
OldSTE = Txtsociete.Text ValeurChamps = "PARIS" 'Vérifie que la connexion est bien fermée If ADOcnx.state = adStateOpen Then ADOcnx.Close End If Set ADOcnx = Nothing Call MyFonctions.InitConnection
Dim sQuery As String sQuery = "update clients set nom = '" & OldSTE & "'
where
Ville = '" & ValeurChamps & "'" Debug.Print sQuery ' imprime dans la fenêtre d'exécution Call ADOcnx.Execute("update clients set nom = '" &
OldSTE
& "' where Ville = '" & ValeurChamps & "'")
Je n'ai aucun message d'erreur et pourtant l'enregistrement n'est pas modifié
Pouvez-vous me dire ou est l'erreur Merci d'avance pour vos réponses Cordialement
Jean Claude
Question bête : il y a bien un enregistrement
avec "PARIS" dans la base ?
Géo
.
Salut
Oui mais en fait j'ai mélangé set nom et where ville
a par cela le code est bon
Merci pour ta réponse
cordialement
JCM
-----Message d'origine-----
jean claude a écrit:
Bonjour à tous
je veux modifier un enregistrement dans une table,
voici
mon code :
OldSTE = Txtsociete.Text
ValeurChamps = "PARIS"
'Vérifie que la connexion est bien fermée
If ADOcnx.state = adStateOpen Then
ADOcnx.Close
End If
Set ADOcnx = Nothing
Call MyFonctions.InitConnection
Dim sQuery As String
sQuery = "update clients set nom = '" & OldSTE & "'
where
Ville = '" & ValeurChamps & "'"
Debug.Print sQuery ' imprime dans la fenêtre d'exécution
Call ADOcnx.Execute("update clients set nom = '" &
OldSTE
& "' where Ville = '" & ValeurChamps & "'")
Je n'ai aucun message d'erreur et pourtant
l'enregistrement n'est pas modifié
Pouvez-vous me dire ou est l'erreur
Merci d'avance pour vos réponses
Cordialement
Oui mais en fait j'ai mélangé set nom et where ville
a par cela le code est bon
Merci pour ta réponse cordialement JCM
-----Message d'origine----- jean claude a écrit:
Bonjour à tous
je veux modifier un enregistrement dans une table,
voici
mon code :
OldSTE = Txtsociete.Text ValeurChamps = "PARIS" 'Vérifie que la connexion est bien fermée If ADOcnx.state = adStateOpen Then ADOcnx.Close End If Set ADOcnx = Nothing Call MyFonctions.InitConnection
Dim sQuery As String sQuery = "update clients set nom = '" & OldSTE & "'
where
Ville = '" & ValeurChamps & "'" Debug.Print sQuery ' imprime dans la fenêtre d'exécution Call ADOcnx.Execute("update clients set nom = '" &
OldSTE
& "' where Ville = '" & ValeurChamps & "'")
Je n'ai aucun message d'erreur et pourtant l'enregistrement n'est pas modifié
Pouvez-vous me dire ou est l'erreur Merci d'avance pour vos réponses Cordialement
