1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Base de Donnees
  5. Treeview d'une base de donnée

Treeview d'une base de donnée

Soyez le premier à donner votre avis sur cette source.

Vue 10 079 fois - Téléchargée 1 609 fois

Télécharger le projet
Commenter

Description

Treeview permettant de hierarchiser une base de donnée et d'afficher des données corespondantes a un noeud pere

Source / Exemple : 


Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim i As Integer
Dim j As Integer

Dim nom As String

Private Sub Form_Load()
   Set cn = New ADODB.Connection
   cn.Open "provider = microsoft.jet.oledb.4.0;data source = c:\bd\vb6.mdb", "", ""
   Set rs = New ADODB.Recordset
trvbd.Nodes.Add , , "racine", "Base de données VB6"
   
   rs.Open " select * from relation ", cn, adOpenStatic, adLockReadOnly, adCmdText
   
   Do While Not rs.EOF
   
      nom = rs.Fields(0).Value
   
      On Error Resume Next
      
      'on extrait les valeurs contenu ds les colonnes (rs.fields(0).values)
      trvbd.Nodes.Add "racine", tvwChild, nom, nom

      trvbd.Nodes.Add nom, tvwChild, nom & rs.Fields(1).Value, rs.Fields(1).Value
         
      rs.MoveNext
         
   Loop
   
End Sub

Private Sub trvbd_NodeClick(ByVal Node As MSComctlLib.Node)

   rs.MoveFirst
   
   On Error Resume Next
   
   Do While Not rs.EOF 'scan la bd jusqu'a la fin

      'si le noeud parent = une donnée de la colonne nomcontrole et le noeudfils = une donnée de la colonne nompropriete alors
      If Node.Parent.Text = rs.Fields("nomcont").Value And Node.Text = rs.Fields("nomprop").Value Then
      
         lbprprt.Caption = rs.Fields("exemple").Value 'on renvoit la donnée de la colonne exemple correspondante dans le caption
         
         Exit Do 'sortie de la boucle
         
      End If
      
      rs.MoveNext 'on avance le curseur de 1
     
      
   Loop
   
   'si si le noeud parent = une donnée de la colonne nomcontrole et le noeudfils = rien alors
   If Node.Parent.Text = rs.Fields("nomcont").Value And Node.Text = "" Then
   
      lbprprt.Caption = "" 'on ecris rien ds le caption
      
   End If
   
End Sub
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Signaler
Messages postés
94
Date d'inscription
dimanche 24 avril 2011
Statut
Membre
Dernière intervention
15 janvier 2014
J'essaye mais il y a manque de la Bdd, donc erreur et ça affiche...
Signaler
Messages postés
2
Date d'inscription
mercredi 14 juin 2006
Statut
Membre
Dernière intervention
26 juin 2006
chokran 3la had site lwa3ra chhal men mara 3at9atni
Signaler
Messages postés
62
Date d'inscription
mardi 9 octobre 2001
Statut
Membre
Dernière intervention
2 septembre 2008
Serait le fun une capture pour ton code.

Surtour que ta source fait mention d'éléments graphiques.
S'inscrire maintenant

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.

Du même auteur (djls)