salut tout le monde,je suis en cours de création d'une applicatio au sein de mon stage.
je souhaite créer un bouton de suppression qui permet de supprimer un enregistrement bien precisé par son identifiant voilà mon code:
Private Sub Command1_Click()
If (Text2.Text = "") Then
MsgBox "Aucn identifiant n'est saisie", vbInformation, ""
Text2.Text = ""
Else
Adodc1.RecordSource "select * from Voiture where Identifiant '" & Text2.Text & "';"
Dim Warning As Integer
Warning = MsgBox("étes vous sûr de vouloir supprimer cette voiture?", vbCritical + vbYesNo, "Warning!!!")
If (Warning = vbYes) Then
Adodc1.Refresh
Adodc1.Recordset.Delete
MsgBox ("votre voiture est supprimée")
Else
MsgBox ("suppression annulée")
End If
End If
End Sub
quand je passe à l'execution,il m'affiche le msgbox de confirmation de supression,qu'on je clique sur ok un message d'erraur s'ffiche en disant types de données incompatible.
je trouve pas la source du probléme,pouvez vous SVP m'aider?
Merci d'avance
---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list ---
Mon site
merci beaucoup tout d'abord.
Alors j'ai fait ce que vous m'avez conseiller tout en mettant delete avant le refrech.
le probleme est au niveau du ligne
Adodc1.Refresh
je sais pas si la source d'erreur est que j'ai mis pour adodc1 en propriétes
select * from Voiture
qu'en pensez vous?
Vous n’avez pas trouvé la réponse que vous recherchez ?
quand je met annuler il m'affiche la msgbox "suppression annulée" donc çava,
la probleme c au niveau de la suppression.quand je clique ok(c'est à dire confirmation de suppression) il m'affiche un message d'erreur '91' varible de type objet ou variable WITH non definie
il y a pas adodc.Fields!!!ça marche pas.
en l'ajoutant l'execution s'arrête dés mon cliqu sur le bouton de suppression.
avez vous une autre proposition SVP.
j'ai consulter la discussion dont vous m'avez parler NHenry mais j'ai pas trouvé ce que je cherche,peut être que j'arrive plutôt pas à comprendre les différentes lignes.
Je reprend le message :
cn (la connexion ADODB.Connection)
cn.execute "UPDATE users SET numero = 4405;", RecordAff
Si à la place de "UPDATE .."
Tu mets ta requête DELETE, ça devrait passer.
---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list ---
Mon site
je suis désolée si je pose beaucoup de questions,mais j'ai pas compris comment je dois declarer cn?
en fait j'utilise l'adodc mais dans le code j'ajoute rien.
cn est la connexion à la base de données.
Elle existe forcément.
Je n'utilise que des connexions par le code, donc j'aurais du mal à t'aiguiller, dsl.
---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS et aussi ce lien[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list ---
Mon site