Discussion :

[myriame]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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

[Pol63]

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

& ""

l'utilité ?

[myriame]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pol63]

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

[Nathanael Marchand]

C'est pas du access ca plutot?

[Pol63]

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