Vb/access
Résolu/Fermé
A voir également:
- Vb/access
- Vb cable - Télécharger - Audio & Musique
- Vb - Télécharger - Langages
- Access appdata - Guide
- Bios access - Guide
- Avis stream access ✓ - Forum Virus
3 réponses
le combobox doit étre remplie par les noms voila le code nécessaire:
je vais utiliser une connexion à la base de donnée
'dim con as new adodb.connection
'dim rs as adodb.recordset
sub form_load()
'con.privider="micrsoft.jet.oledb.4.0"
'con.connectionstring="le chemin de la base de donnée"
'con.open
'set rs=new adodb.recordset
'rs.open "table qui contient les noms",con,adopenkeyset,adlockoptimistic
je vais faire une boucle qui parcourit tous les recordsets de la table
'while not rs.eof
'combo1.addtem rs.fields("nom")
'rs.movenexte
'wend
'end sub
maintenant lorsque je séléctione un nom les autres champs de la table s'affichent
voila le code convenable:
'private sub combo1_click()
rs.movefirst
for i=0 to combo1.listindex-1
rs.movenext
next i
dim req as string
req="select * from table where table.nom=' " & combo1.text & " ' "
dim rs1 as new adodb.recordset
rs1.open req,con,adopenkeyset,adlockoptimistic
afficher les autres informations de la tanble concérné
end sub
je vais utiliser une connexion à la base de donnée
'dim con as new adodb.connection
'dim rs as adodb.recordset
sub form_load()
'con.privider="micrsoft.jet.oledb.4.0"
'con.connectionstring="le chemin de la base de donnée"
'con.open
'set rs=new adodb.recordset
'rs.open "table qui contient les noms",con,adopenkeyset,adlockoptimistic
je vais faire une boucle qui parcourit tous les recordsets de la table
'while not rs.eof
'combo1.addtem rs.fields("nom")
'rs.movenexte
'wend
'end sub
maintenant lorsque je séléctione un nom les autres champs de la table s'affichent
voila le code convenable:
'private sub combo1_click()
rs.movefirst
for i=0 to combo1.listindex-1
rs.movenext
next i
dim req as string
req="select * from table where table.nom=' " & combo1.text & " ' "
dim rs1 as new adodb.recordset
rs1.open req,con,adopenkeyset,adlockoptimistic
afficher les autres informations de la tanble concérné
end sub
Salut meryem,
je n'ai pas réussi à trouver mais je vous envoie vers ce site (exemple qui peut vous aider).
http://officesystem.access.free.fr/ex_requetes_vba.htm
mais si vous voulez seulement faire une simple rechrche, vous pouriez établire un formulaire à partir de votre requête et puis faire votre rechrche à l'aide d'un macro.
Bonne chance.
Merci.
je n'ai pas réussi à trouver mais je vous envoie vers ce site (exemple qui peut vous aider).
http://officesystem.access.free.fr/ex_requetes_vba.htm
mais si vous voulez seulement faire une simple rechrche, vous pouriez établire un formulaire à partir de votre requête et puis faire votre rechrche à l'aide d'un macro.
Bonne chance.
Merci.
12 juil. 2005 à 21:31
même si je n'utilise pas votre méthode pour acceder à la base,
sa ne fait rien
mais je crois qu'elle veut faire la recherche sur selection de l'input box et votre procédure va parcourire toute les éléments de l'input box.
je ne suis pas vraiment fort mais je crois qu'elle a besoin 'une requête paramétée.
chercher sur google.
je n'ai pas le temps maitenant peut être demain.
Bonne chance.
Merci