FindRésolu

Question

Bonjour à tous

J'ai une base de données avec un adodc. puis un textbox.
Le texte que j'ecris dans le textbox s'enregistre dans la base de données.
Comment faire: si le texte que j'ecris dans le textbox existe deja dans la base de données pour appeler un message d'erreur?
Merci de votre aide.
Cordialement.

Gérard FILOTTO

B0mbJacK · Accepted Answer

Lu, 
tu dois faire une boucle dans ta base de donnée 
exemple 
Dim Presence as Booleen
Presence = False 
Data1.Recordset.MoveFirst ' on va au début 
While not Data1.Recordset.EOF ' tant kon arrive pas à la fin 
if Trim(lcase(Data1.Recordset(1))) = trim(lcase(Textbox1.text)then   
Present = true 
end if 
Data1.Recordset.MoveNext 
Wend 

if Presence then 
msbox "le nom existe déjà" 
else 
tu l'ajoute dans ta base de donnée 
end if

filotto · Answer

Bonjour,
Je te remercie beaucoup de ta reponse.
Cordialement

Gérard FILOTTO

jrivet · Answer

Salut, Sinon tu peux utiliser La propriété Filter du Recordset. Faisons un filtre sur la colonne nom d'une table représenter par le Recordset d'un Adodc Cela donnerais Adodc1.Recordset.Filter = "nom='" & Trim(Text1.Text) & "'" If Adodc1.Recordset.RecordCount > 0 Then Call MsgBox("Le nom sais existe déjà", vbCritical + vbOKOnly, "Erreur de saisie...") Coloration syntaxique automatique [AFCK] Voila j'espere que ca t'aide meme si tu as déjà la réponse @+, Ju£i?n

B0mbJacK · Answer

salut julien , 

ton exemple me plait beaucoup,tu viens de m'apprendre kelke chose  
en effet c'est plus rapide que de faire une boucle ....merci pour l'astuce ^^

filotto · Answer

Salut Julien
Je te remercie beaucoup de ta reponse.
Cordialement

Gérard FILOTTO

Find

5 réponses

Votre réponse

Discussions similaires