Comparaison de champs avec un nouvel enregistrementRésolu

Question

Bonjour,

J'entre des classes sur un formulaire.

Ce formulaire comporte 2 champs &#224; remplir (Num&#233;ro de la classe, Intitul&#233; de la classe). J'utilise un liaison adodc pour enregistrer mes champs dans la base de donn&#233;es.

Lorsque j'entre mon nouvel enregistrement, je souhaiterai qu'un message d'erreur s'affiche si l'enregistrement existe d&#233;j&#224; dans ma base ! 

(je pense &#224; quelque chose du genre :
1/ aller au premier enregistrement
2/ tant que l'on a pas atteint le dernier enregistrement faire...
3/ comparaison des champs avec ceux de la base
4/ si l'enregistrement existe d&#233;j&#224; faire
5/ erreur cette classe existe d&#233;j&#224; !
6/ fin tant que)

Merci d'avance.

@ntone reloaded!!!

cyberangel02 · Accepted Answer

Un d&#233;veloppeur VB m'a donn&#233; un exemple et j'ai r&#233;ussi &#224; l'adapter &#224; mon soft :

Private Sub Command1_Click()
Dim rep1
Dim rep2
Dim rep3
Dim m_AdoCnn As adodb.Connection
Set m_AdoCnn = New adodb.Connection
m_AdoCnn.Provider = "Microsoft.Jet.OLEDB.4.0"
m_AdoCnn.ConnectionString = "C:\Program Files\Microsoft Visual Studio\VB98\Biblio2004v2\biblio20.mdb"
m_AdoCnn.CursorLocation = adUseNone
m_AdoCnn.Open


Dim rs As New adodb.Recordset
Set rs = m_AdoCnn.Execute("SELECT Num_Cla FROM CLASSES")


If Text1 "" Or Text2 "" Then
rep2 = MsgBox("Il faut remplir tout les champs", vbExclamation + vbOKOnly, "Erreur")
Else
While Not rs.EOF
  If Text1 = rs("Num_Cla") Then
    rep3 = MsgBox("La classes existe d&#233;j&#224;", vbInformation + vbOKOnly, "Erreur")
    'lecture du recordset
    GoTo IdemCla:
  End If
  rs.MoveNext
Wend
rs.Close

@ntone reloaded!!!

cs_Jack · Answer

Salut
A mon avis, le plus simple serait de rechercher par un "Select ..." s'il existe un enregistrement avec les infos que tu veux ins&#233;rer, ce serait beaucoup plus rapide !
Si le RecordSet.Count te renvoie autre chose que 0, c'est que l'enregistrement existe d&#233;j&#224;.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cyberangel02 · Answer

Bonjour jack,

Merci pour ta r&#233;ponse. Pourrais-tu me donner la structure de ton id&#233;e ? J'ai un peu de mal avec le langage VB, d&#233;butant que je suis.

@ntone reloaded!!!

cyberangel02 · Answer

Jack, pourrais-tu me faire un squelette de l'id&#233;e que tu m'as propos&#233; (je ne sais pas comment &#233;crire &#231;a en VB).

Entre temps, j'ai essay&#233; autre chose mais &#231;a n'a pas march&#233;... voici ce que j'ai tent&#233; d'&#233;crire :

    Set rs = Adodc1.Recordset
    rs.MoveFirst
    While Not rs.EOF
        If (Text1 = rs!Num_Cla) Then
            MsgBox ("La classe existe d&#233;j&#224; !")
            Text1 = ""
        End If
        rs.MoveNext
    Wend
    rs.Close

@ntone reloaded!!!

Comparaison de champs avec un nouvel enregistrement

4 réponses

Discussions similaires