Suppression d'un enregistrement Résolu

Question

bonjour,

dans une table de connexion contenant deux champs:
Login et Mdp, j'ai mis à l'administrateur une page pour ajouter et supprimer des comptes, voici le code du bouton supprimer:
Private Sub delet_Click()
Dim enr1, enr2 As String
strDB = "C:\pesageo.mdb"
strTable = "connexion"
 
Set oConn = New ADODB.Connection
oConn.Provider = "Microsoft.Jet.OLEDB.4.0"
oConn.Open strDB
 enr1 = Text1.Text
 enr2 = Text2.Text
Set oRS = New ADODB.Recordset
oRS.CursorLocation = adUseClientoRS.Open "SELECT * FROM connexion WHERE Login '" & enr1 & "' & Mdp '" & enr2 & "'", oConn, adOpenDynamic, adLockOptimistic, adCmdText

If oRS.EOF And oRS.BOF Then
 MsgBox "Aucun enregistrement!"
Else
  On Error GoTo Err_Delete
  oRS.Delete
  MsgBox "Utilisateur '" & Text1.Text & "' supprimé avec succès"
  'ne fait pas de .MoveNext car ton oRS est maintenant vide
  Adodc1.Refresh
End If
Exit Sub
Err_Delete:
MsgBox err.Description

End Sub

la finalité est de supprimer l'enregistrement choisi en passant par enr1 et enr2, quand je fais executer et je choisit un enregistrement existant, le message Aucun enregistrement s'affiche comme qoui il n y a aucun enregistrement.

Merci pour votre aide

cs_Nicko11 · Accepted Answer

Bonjour, la prmière chose (si tu ne l'as pas deja faite) sera de se mettre en mode debug, de voir ce que tu as pour enr1 et enr2 et si ces valeurs correspondent bien a un enregistrement de la bonne table. Ensuite, je sais pas si tu as besoin de ca : adCmdText
Est-ce vraiment necessaire ?

cs_Nicko11 · Answer

Euh en fait, je viens de voir un truc, as tu des doublons dans ta table car sinon, je pense que tu as une faute de synthaxe:

& Mdp : vaudrait mieux and au lieu de &

Test sans & Mdp = '" & enr2 & "' et normalement ca devrait marcher

cs_Nicko11 · Answer

Si tu n'as pas de doublons, il est inutile de vérifier le mot de passe. Seul le login compte

basamir · Answer

en fait j'ai posté en ayant des doublons c'est pour ça je voulais ajouter cette deuxième vérif, maintenant que j'ai corrigé le tir en évitant les doublants cette vérif ne vaut plus rien.

Merci quand même Nicko11.

Suppression d'un enregistrement

4 réponses

Votre réponse

Discussions similaires