Extraire des données d'une BDD

**amtdev** · 04/02/2007, 18h23

Bonjour à tous,
Pour être bref et claire, je présente ma BDD. Constituée de trois tables:
Continent ( Code_C, Nom_C )
Pays ( Code_P, Nom_P, #Code_C )
Ville (Code_V, Nom_V, #Code_P)

Je veux afficher sur une même feuille le contenu des trois tables sur des DBGrid ou DataGrid, de manière à ce que la liste des villes affichées sur le 3ème DBGrid doit correspondre au pays sélectionné dans le 2ème DBGrid et que la liste des pays affichés sur le 2ème DBGrid doit correspondre au continent sélectionné sur le 1er DBGrid. Chaque changement d'une sélection doit se répercuter sur les autres DBGrid. Comment dois-je procéder ? Merci d'avance pour votre aide. Je tiens comme même à préciser que ma BDD est créée sous Access et j'utilise le DataEnvironment pour la connexion. Merci encore.

**LeXo** · 04/02/2007, 19h15

sur access tu as un assistant de création de requete graphique

alors tu fais ta requete graphiquement et ensuite tu la passes en mode sql comme ça tu as ta requete

t'as plus qu'a la coller dans ton appli

mais c juste une jointure interne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

select * from Continent INNER JOIN pays on Continent.code_C= pays.Code_P;

voila ça doit donner un truc comme ça avec encore un INNER JOIN en facteur

mais tu devrais mettre ton post dans SQL

allez bon courage

**sovo** · 04/02/2007, 22h29

Bon si je comprend bien, tu as trois DBGrid et tu voudrais qu'en fonction de choix sur un DBGridX, on affiche des infos sur DBGridX+1 en fonction du choix c'est bien ca ??

Si c'est le cas alors je crois que tu devras faire deux routines pour les deux premiere DBGrid (pour les continent et les pays). Et tes requettes ce feront en fonction de cela. Si c'est bien le cas inspire toi de ce bout de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
'Tout d'abord on va nome
'DBG1 le DBGrid pour les Continents
'DBG2 le DBGrid pour les Pays
'DBG3 le DBGrid pour les Villes
 
'Ensuite ce code est inspire du Datagrid qui je crois sera proche des metodes
'et propriete du DBGrid
 
Private Sub BD1_Click ()
     Dim CC As String      'CC = Code_C
 
     CC = DBG1.Recordset!Code_C
     DBG2.Recordsource = "Select Pays.*,Continent.Code_C from Pays, Continent " & _
                         "Where Pays.Code_C = Continent.Code_C"
     DBG2.Refresh
End Sud
 
 
Private Sub BD2_Click ()
     Dim CP As String      'CP = Code_P
 
     CP = DBG2.Recordset!Code_P
     DBG3.Recordsource = "Select Ville.*, Pays.Code_P from Ville, Pays " & _
                         "Where Ville.Code_P = Pays.Code_P"
     DBG3.Refresh
End Sud

Bon je n'ai pas tester le code mais ca devrais faire ce que tu veux.

D'autre part je te conseillerais d'utiliser les ListBox a la place des DBGrid, mais il y auras une tonne de manipulation en Background a faire, sinon ce sera plus joli.

**Delbeke** · 05/02/2007, 07h44

Perso, j'utiliserais l'evenement reposition du control data lié a la premiere grille
chaque fois qu'une nouvelle ligne est selectionnée dans le datagrid, le controle data declenche cet evenement. C'est pratique et en plus :
- si pour une raison ou une aure, ton code deplace l'enregistrement courant, pas d'autre code a ecrire.
- la deuxieme grille est positionée des le lancement de la feuille

**BM42** · 05/02/2007, 09h38

Salut

Comme tu utilise un dataenvironment tu peut créer une nouvelle commande avec ta jointure se qui te permettra d'effectuer ta recherche avec de simple texbox. (Si bien entendu cela te convient)

A+

**amtdev** · 05/02/2007, 20h50

Merci à tous,
J'ajoute que j'ai utilisé dans le DataEnvironment des commandes et des commandes filles.
Une commade pour la table continent, dans laquelle j'ajoute une commande fille pour la table ville et dans cette dernière encore une commande fille pour la table ville.
Quand je navigue dans la table continent, le liste des pays change en fonction du continent sélectionné, mais la liste des villes ne suit pas. (le 3ème datagrid est vide)