Bonjour à tous,
j'ai un problème avec une requete Update sous Visual Basic 6.0
J'ai le code suivant :
Mais il me fait l'erreur suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Dim cmd As New ADODB.Command cmd.ActiveConnection = connexion cmd.CommandText = "Update avoir " & _ " set Code_MC=(Select Max(Code_MC) from Main_Courante)" & _ " where Code_Equipe=" & Feuille_Démarrage.Nom_Equipe.ItemData(Feuille_Démarrage.Nom_Equipe.ListIndex) & _ " and Code_Vacation=" & Feuille_Démarrage.Libellé_Vac.ItemData(Feuille_Démarrage.Libellé_Vac.ListIndex) & _ " and Numero_Agent=" & Feuille_Démarrage.Nom_Ctq_Ou_Adjoint.ItemData(Feuille_Démarrage.Nom_Ctq_Ou_Adjoint.ListIndex) & _ " and Date_Vacation=#" & Format(Feuille_Démarrage.Label9.Caption, "mm/dd/yyyy") & "#;" MsgBox cmd.CommandText cmd.Execute
Erreur d'éxecution '-2147467259(80004005)'
L'opération doit utiliser une requête qui peut être mise à jour.
Pouvez-vous m'aider?
Merci d'avance.[/code]
Partager