treeview avec acces bdd

Version imprimable

Bonjour à toutes et à tous,

Voila je suis étudiant en BTS IG et je cherche à résoudre un problème pour afficher des infos d'une bdd acess :

Code:

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
28
29
30
31
32
33
34
35
 
 
Private Sub ComboBox_Serie_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox_Serie.SelectedIndexChanged
 
        Dim enregistrementcourant As String
 
        rsserie.AbsolutePosition = ComboBox_Serie.SelectedIndex + 1
 
        'Requete tomes
        sqltome = "SELECT distinct * FROM tblBds, tblExemplaires WHERE tblBds.id_bd = tblExemplaires.id_bd AND tblBds.id_serie = " & rsserie.Fields("tblBds.id_serie").Value & ";"
 
 
        'suppression des anciens tomes
        TreeView1.Nodes.Clear()
 
        If rstome.State = 1 Then
            rstome.Close()
        End If
 
        rstome.Open(sqltome, Cnx, CursorTypeEnum.adOpenStatic)
 
 
        While Not rstome.EOF
            TreeView1.Nodes.Add(rstome.Fields("titre_bd").Value)
            enregistrementcourant = rstome.Fields("tblBds.id_bd").Value
 
 
            While Not rstome.EOF And rstome.Fields("tblBds.id_bd").Value = enregistrementcourant
                TreeView1.Nodes(0).Nodes.Add(rstome.Fields("id_exemplaire").Value)
                rstome.MoveNext()
            End While
 
        End While
 
end sub

Je veux faire en sorte d'afficher les tomes (titre_bd) à la racine du treeview puis les exemplaires de la dite BD un nœud en dessous. Je développe en ADO..

Lorsque je choisi une série dans le combobox il me dit :

Citation:

BOF ou EOF est égal à True ou l'enregistrement actuel a été supprimé. L'opération demandée nécessite un enregistrement actuel.

au niveau du 2ème "tant que pas"

ça serait sympa que j'ai une réponse, merci à vous !

08/10/2011, 20h44
Pol63

ado sur .net ?? quelle utilité ?
utilises ado.net ... (system.Data.oledb pour access, system.Data.SclClient pour sql server, system.data.odbc pour odbc etc...)
08/10/2011, 21h14
cartman29

Citation:

Envoyé par Pol63

ado sur .net ?? quelle utilité ?
utilises ado.net ... (system.Data.oledb pour access, system.Data.SclClient pour sql server, system.data.odbc pour odbc etc...)

bah on a vu la semaine dernière l'ADO puis après l'ADO.net mais j'ai commencé mon TP sur l'ADO. Du coup j'aimerais bien comprendre ma faute et pouvroi rendre mon projet.
08/10/2011, 22h35
Pol63

le message d'erreur vient d'ADO, en .net les gens utilisent plus que majoritairement ADO.net (et à juste titre)

tu aurais surement plus de réponses sur le forum vb6 où l'utilisation d'ADO est la norme, ou sinon attendre lundi qu'il y ait plus de passage ^^

RESOLU !

Résolu par mon prof :

Code:

1
2
3
4
5
6
7
8
9
10
dim enregistrementcourant as string
 
enregistrementcourant = ""
While not rstome.EOF
    If rstome.fields("tblBds.id_bd").value.tostring <> enregistrementcourant then
       enregistrementcourant.nodes.add(rstome.fields("tblBds.id_bd").value, rstome.fields("titre_bd").value)
   end if
   Treeview1.nodes(enregistrement).nodes.add(rstome.fields("id_exemplaire").value)
 rstome.movenext()
end while

Bonne soirée ! :ccool: