procédure de supression

Bonjour, j'ai écris une procédure pour supprimé un enregistremrement !
la voici :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

'supprimer un client Dim db As Database Dim rs As Recordset Dim sql As String Set db = CurrentDb 'vérification que les informations ont bien été saisies If IsNull(Forms!sup_CLIENTS!Nom_Cli) = True Then MsgBox (" Veuillez sélectionner un Client") Else sql = "select*from CLIENTS where Nom_Cli= " & Forms!sup_CLIENTS!Nom_Cli & "" Set rs = db.OpenRecordset("CLIENTS") Set rs = db.OpenRecordset(sql) rs.MoveFirst Do While rs.EOF = False 'vérification que l'utilisateur veut toujours supprimé le client If MsgBox("Voulez vous supprimer le client" & rs!Nom_Cli, vbYesNo) = vbYes Then rs.Delete End If rs.MoveNext Loop MsgBox ("le client a bien été supprimé.") rs.Close DoCmd.Close End If End Sub

---

le problème quand je l'execute, je recoi un message disant :

Citation:

---

erreur de syntaxe (opérateur absent) dans l'expression "Nom_Cli=????.

---

sachant que ???? c'est l'enregistrement que je veux supprimer !

merci de bien vouloir m'aider

quel affreux code vb6 ! ^^


en vb.net on utilises plus les recordset, on évite de concaténer une requête avec une valeur (dbparameters à la place)

"DELETE FROM CLIENTS where Nom_Cli = @NomClient"

et si possible on utilise des clés, parce que si 2 clients ont le même nom ton code va poser problème ...

Citation:

---

& ""

---

l'utilité ? :mouarf:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim db As Database Dim rs As Recordset Dim sql As String Set db = CurrentDb 'vérification que les informations ont bien été saisies If IsNull(Forms!sup_CLIENTS!Nom_Cli) = True Then MsgBox (" Veuillez sélectionner un Client") Else sql = "DELETE FROM CLIENTS where Nom_Cli = forms!sup_CLIENTS!Nom_Cli" Set Parameters = dbparameters(sql) Do While rs.EOF = False 'vérification que l'utilisateur veut toujours supprimé le client If MsgBox("Voulez vous supprimer le client" & rs!Nom_Cli, vbYesNo) = vbYes Then End If Loop MsgBox ("le client a bien été supprimé.") rs.Close DoCmd.Close End If End Sub

---

je l'ai écris ce cette manière mais sa fonctionne toujours pas

relis mon message ... tu verras que je dis que le mot recordset ne doit pas être écris dans un programme vb.net

et tu ferais mieux de commencer par lire un cours sur vb.net au lieu de taper du code au hasard

celui ci est pas trop mal : http://plasserre.developpez.com/cours/vb-net/
un peu long certes mais on part sur de bonnes bases avec


et le forum a une balise code pour la mise en forme du code

C'est pas du access ca plutot?

une macro access ressemblerait à ca oui, auquel cas c'est pas le bon forum et pas les bonnes réponses ^^
mais il y a aussi des gens qui ajoutent les dll qu'on utilisait à l'époque pour vb6 à vb.net pour utiliser des recordset ...

Oui mais c'est rare d'avoir des trucs comme ca dans du VB.Net:

Citation:

---

Forms!sup_CLIENTS!Nom_Cli

---

;)