Discussion :

[ptitepo]

Bjr,
Nous souhaitons afficher le contenu d1 table access, dans une textbox. Nous arrivons a en afficher 1, mais pour fér défiller les differents enregistrement, nous avons creer des bouton mais nous n'arrivons pas a les coder.

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
 
Dim monDR As OleDbDataReader 
 
Try
            OleDbConnectionDVD.Open()
            monDR = OleDbCommandGenre.ExecuteReader
            While monDR.Read
                txtIdGenre.Text = (monDR(0))
                indiceGenre = (monDR(0))
                txtLibelleGenre.Text = (monDR(1))
            End While
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        OleDbConnectionDVD.Close()

ceci est notre code qui permet dafficher 1 des valeurs dans les textbox
Merci de votre aide

[Invité]

Envoie le contenu de ta requête dans un DataTable, ensuite tu n'auras qu'à faire augmenter/diminuer ton index avec tes boutons et rafraichir tes contrôles. En plus, tu n'auras pas à rester connecté à ta BD.

[Pol63]

wow, je crois qu'il faut que tu relises le tuto qui explique les base de données
le code que tu nous as mis n'affiche pas une valeur dans un textbox, il affiche toutes les valeurs dans le textbox et tu ne vois que la dernière en fait ...

[ptitepo]

Oui je me suis embrouillé dans mes truc la.
Mon probleme c'est que en mode déconnecté, les modifications que j'effectue lorsque mon formulaire est ouvert ne sont plus visible lorsque je ferme ce dernier. Mais si je ne le ferme pas elle sont présente.
Je charge mes données, je les traite, et apré comment faire pour qu'elle se mette sur ma base de données access ?

[Pol63]

pour les lire, tu fais un select
pour les enregistrer, il faut faire un update
tout simplement
(avec executenonquery sur dbcommand)

[ptitepo]

J'ai un truc comme ca

Code :

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

1
2
3
4
5
6
        Dim nouveaugenre As DataRow
    Dim maDT As New DataTable
                        nouveaugenre = maDT.NewRow
                        nouveaugenre(1) = txt_numgenre.Text
                        nouveaugenre(2) = txt_libelle.Text
                        maDT.Rows.Add(nouveaugenre)

Pour creer un nouveau genre, Cela fonctionne tant que le formulaire est ouvert, c'est donc normal que cela ne s'ajoute pas sur la base de données access si ya pas de insert ?