Discussion :

[snakeon]

bonjour je travaille dans une application qui est reliée avec access
j ai un probleme au niveau d affichage des données dans datagridview et voila les etapes que j ai utilisé:
CLASS CONNECTION

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
28
29
30
31
32
33
34
35
36
37
38
39
40
public class connection
 
    dim maconnection as oledbconnection = new oledbconnection
    dim adapter as oledbdataadapter = new oledbdataadapter
 
    dim chaineconnection as string = "provider=microsoft.jet.oledb.4.0;" & _
    "data source=|datadirectory|\cyberdb.mdb" & ";" & _
      "persist security info=false"
 public function select_datatable(byval cmd as oledbcommand) as datatable
        dim dt as new datatable
        try
            maconnection.close()
            maconnection.connectionstring = chaineconnection
            maconnection.open()
            if maconnection.state = connectionstate.open then
                cmd.connection = maconnection
                adapter.selectcommand = cmd
                ' dt = new datatable
                adapter.fill(dt)
            else
                msgbox("connexion failed...")
            end if
        catch ex as exception
            msgbox(ex.message & " select_datatable")
        end try
        return dt
    end function
 
    public function mise_a_jour(byval cmd as oledbcommand) as integer
 
        dim i as integer
        maconnection.close()
        maconnection.connectionstring = chaineconnection
        maconnection.open()
        cmd.connection = maconnection
        i = cmd.executenonquery()
        return i
    end function
 
end class

DATACCESS:

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
imports system.data.oledb
 
 
public class dataaccess
 
    dim con as new connection
public function listdesplaystations() as datatable
        dim cd as new oledbcommand
        dim dt as new datatable
        try
 
            cd.commandtext = "select * from playstation"
            dt = con.select_datatable(cd)
        catch ex as exception
            msgbox(ex.message & " liste des playstation")
        end try
        return dt
 
 
    end function
 
end class

et dans la class ou se trouve le datagrid j ai mis ce code:

Code :

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

1
2
3
4
5
6
7
8
9
imports system.windows.forms
 
public class playstation
    dim dacces as new dataaccess
    private sub playstation_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load
 
        playstationdatagridview.datasource = dacces.listdesplaystations
    end sub
end class

Merci de vous me donner la sollution

[Danyel]

j ai un probleme au niveau d affichage des données dans datagridview

Quel probleme ?

[snakeon]

j'ai pas dis le probleme? oh lala,
c est un probleme d affichage des données de la base de données access

[Danyel]

c est un probleme d affichage des données de la base de données access

Lequel ???
Des problemes d'affichage, il peut y en avoir 250k de sortes ...

[Charaf Eddine]

j'ai pas dis le probleme? oh lala,
c est un probleme d affichage des données de la base de données access

Je croix qu'il veut dire que son datagrid n'affiche rien du tout. Peut être la requête ne retourne rien ou tout simplement la connexion à la base de données n'est pas établie.

Plus d'explication serai mieux.

[Hinault Romaric]

Fait une exécution pas à pas pour voir ou sa bloque.

@++

[snakeon]

oui c bien ca elle n affiche rien du tout,le code ca me parait correcte mais je comprens pas, j ai en realité 6 datagridview les 3 sont en bonne forme mais les autres pas du tout, et ce qui m enerve ils ont le meme code les meme etapes . tout

[mactwist69]

Salut.

C'est juste une idée, mais lorsque tu fais

Code :

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

Datagridview.datasource=playstation.fonction()

Ta fonction retourne une datatable, mais tu ne la mets pas dans une variable datatable (persistante?).

Essai donc de faire:

Code :

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

1
2
Dim dt2 = playstation.retourne_datatable
MonDataGridView.datasource=dt2

[nokia1600]

Ou peut être qu'il lui faut une ligne pour récupérer les données de la requêtes avant. Si tu exécutes une requête sans récuperer une donnée le datagrid ne peut rien afficher

Pour ma part quand j'utilise des bases de données avec VB.net je déclare un Dataset puis une fonction getrows qui permet de récuperer les données, et enfin une fonction actionRows qui permet de modifier les données.

[snakeon]

mais j ai les autres datagridview qui fonctionnent parfaitement et avec le meme code, je comprens pas

[snakeon]

enfin j'ai resolu le probleme en mettant Connection dans la classe DATACCESS entre [] et c'est fini merci a tout le monde