slt tous le monde!
quelqu'un peut m'aider a résoudre cette erreur. a chaque fois que j'entre le nom et le mot de passe utilisateur, il m'affiche une erreur:BOF ou EOF es égal à true ou l'enregistrement actuel a été supprimé. L'opération demandée nécessite un enregistrement actuel. Pourtant ya des enregistrement dans ma table Utilisateur. Il marche aussi en DAO mais dès que je change en ADODB il m'affiche cette erreur
merci d'avance
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
26
27
28
29
30
31
32 Option Explicit Public LoginSucceeded As Boolean Private Sub cmdCancel_Click() LoginSucceeded = False Me.Hide End Sub private sub cmdOK() Dim cn As ADODB.Connection Dim record As ADODB.Recordset Set cn = New ADODB.Connection Set record = New ADODB.Recordset cn.Open "DSN=BDDSources", "", "" record.Open "SELECT * FROM Utilisateur WHERE Utilisateur.[Nom Utilisateur] LIKE '" & Text1.Text & "'", cn, adOpenDynamic, adLockOptimistic If Text1.Text = record.Fields(0) And Text2.Text = record.Fields(1) Then LoginSucceeded = True Me.Hide MsgBox "Welcome", vbOKOnly, "Login" Else MsgBox "Invalid Password, try again!", vbInformation, "Login" Text2.SetFocus SendKeys "{Home}+{End}" End If cn.Close record.Close Set cn = Nothing Set record = Nothing end sub
Partager