Comment faire pour chercher une ligne sous access avec VB???

Question

J'ai un probleme je voudrais savoir comment recupére une ligne en fonction du nom
CAD une table employé ki a un nom et une autre table identité avec son nom également.Sous VB je voudrais faire une boucle pour rechercher l'égalité Comment Faire??? Aidez moi s'il vous plait

fg10 · Answer

plutot que l'utilisation d'une boucle Vb,il est plus simple de creer une relation(Nom=Nom) entre les 2 tables dans access ,puis de faire un select ou un filtre dans la 1ere table,la relation effectue directement le lien avec la deuxieme table

cs_Fanch29 · Answer

C'est ce que j'ai fai
je t'envoie le code
  Sql = "SELECT nomsal, prenomsal, adressesal, villesal, datenaiss, numtel From identite, emp where ename=nomsal"
     rsidentite.Open Sql, cnx
j'ai mi sa dans le formload

dans un boutton pour afficher j'ai mis sa

If textnom1 = rsidentite.Fields(0).Value Then
 textnomsal = rsidentite.Fields(0).Value
 textpresal = rsidentite.Fields(1).Value
 textadrsal = rsidentite.Fields(2).Value
 textvillesal = rsidentite.Fields(3).Value
 textdatenaiss = rsidentite.Fields(4).Value
 texttel = rsidentite.Fields(5).Value
End If
Cependant il m'affiche que la première personne et quand je click sur une personne du datagrid il ne m'affiche rien 
Ce que je n'arrrive pas a faire c de chercher l'égalité car il ne le fait pas tout seul et sa je n'arrive pas a le faire

merci d'avance

cs_CanisLupus · Answer

Salut,
tu n'aurais pas oublié un petit rsidentite.movenext quelquepart ?

Cordialement, CanisLupus

cs_CanisLupus · Answer

Essaie ça :

Sql = "SELECT nomsal, prenomsal, adressesal, villesal, datenaiss, numtel From identite, emp where ename=nomsal and nomsal = '" & textnom1  & "'"
rsidentite.Open Sql, cnx

if not  rsidentite.eof then
textnomsal = rsidentite.Fields(0).Value
textpresal = rsidentite.Fields(1).Value
textadrsal = rsidentite.Fields(2).Value
textvillesal = rsidentite.Fields(3).Value
textdatenaiss = rsidentite.Fields(4).Value
texttel = rsidentite.Fields(5).Value
else
msgbox "pas trouvé"
End If

Cordialement, CanisLupus

cs_Fanch29 · Answer

Merci bcp bon week end

Comment faire pour chercher une ligne sous access avec VB???

5 réponses

Discussions similaires