La methode de recherche la plus rapide il faut absolument un indext pour travailler avec seek
SEEK ser a chercher dans une base de donne
Source / Exemple :
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
Conclusion :
entout cas pour moi il marche et j'attend vo critique
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.