sub command1_click() dim db as database dim rs as recordset set db=opendatabase("c:\client.mdb") set rs=db.open recordset("client",dbopentable) rs.seek=","text1.text if rs.nomatch then msgbox"client inexistant" else list1.additem rs("no_client")&""& rs("nom") end if rs.close db.close end sub
euh, c koi un seek?
Seek c'est une méthode de recherche.Juste une remarque, il faut toujours faire un :rs.movenextSinon tu risques de sauter les premiers enregistrements...dans certains casJM
euh j'ai pas tout compris !tu pourrais pas faire un exemple ?A +RnoSat
Set rs=db.open recordset("client",dbopentable)rs.moveFirst '(Excuse c'était movefirst)rs.seek=","text1.text
comment fait-on un index???
Si ta base c'est access, cela se passe dans ta table en mode création tu sélectionnes un champ et tu cliques sur le menu index puis dans l'affichage tu précise si c'est une clé primaire...Regardes la doc access.L'indexation de champs dans access est très utile car cela accélère grandement les requetes...
J'avais déjà indexé mes tables, mais lorsque j'essaie d'exécuter la commande SEEK, il me retourne le message d'erreur: 3251 "Le fournisseur actuel ne prend pas en charge l'interface necessaire pour la fonctionnalité d'index" Merci.
Cela dépend de la façon dont tu te connectes à ta base (DAO ADO...)Je crois qu'avec ADO cela ne marche pas ...Je n'ai pas mes codes à la maison mais si tu peux m'envoyer un topo un peu plus complet sur ton cas sur mon adresse pro :jean-marc.lucien@acoss.frJe regarderai ça demainJM
Je te remercie beaucoup pour ton attention, JmLucienVB, mais j'ai réussi à me débrouiller en faisant quelque chose de fonctionnel avec la commande find, ce qui réponds à mes attentes, Bonne semaine!
MERCI
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 873 499 membres 33 nouveaux aujourd'hui 16 151 membres club