pb de verification en vb6Résolu

Question

bonjour,
jai un form dans lequel se trouve un textbox. lorsque je rentre une donnee je lenregistre 
directement dans ma table mais je voulais faire une verification avant pour savoir si 
lenregistrement existai dans la table, voivi une partie du code, cette partie me permet
de verifier si lenregistrement existe dans ma table:



With rs
    .ActiveConnection = Conn    .Source "SELECT numEmp FROM employe WHERE NumEmp " & Chr$(34) & empcb.Text & Chr$(34)
    .Open
End With


If rs("numEmp") <> empcb.Text Then
MsgBox "Cet employ&#233; nexiste pas! Veuillez ressaisir un code barre employe!"
empcb.Text = " "
End If
 lorsque jexecute ce code vb6 me genere lerreur suivante: BOF ou EOF est egale a true
ou lenregistrement actuel a ete supprime. au lieu de rentrer dans ma boucle. 
pouvez vous me dire pourqoi? et me corriger si possible. merci davance.

Renfield · Accepted Answer

ton code est &#233;trange....

tu dis : 

donne moi l'id de l'employ&#233; dont l'id est empcb.text
si cet id n'est pas empcb.text alors 
....

tu pourrais faire quelque chose comme :

With rs
    .ActiveConnection = Conn    .Source "SELECT COUNT(0) AS[Count] FROM employe WHERE NumEmp '" & empcb.Text &  "' "
    .Open
End With
If rs("Count") = 0 Then
MsgBox "Cet employ&#233; nexiste pas! Veuillez ressaisir un code barre employe!"
empcb.Text = " "
End If

Renfield
Admin CodeS-SourceS - MVP Visual Basic

elisabeth_nov · Answer

merci beaucoup Renfield

Pb de verification en vb6

2 réponses

Discussions similaires