Discussion :

[bastos77]

bonjour ca fais pas très longtemps que je fais du vb et je voudrais savoir s'il vous plait comment afficher une table access dans une listview.

merci,beaucoup et vive l'équipe de france

[callo]

Voici une fonction que tu peux adapter pour ton cas :

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
 
Public Function Read_Access()
 
Dim Index As Integer
 
ListView.Sorted = False
ListView.ListItems.Clear
Index = 1
 
Set DBase = OpenDatabase(Path & "AccessBase.mdb")
 
Sql = "select * from Moteur"
Set Rs = DBase.OpenRecordset(Sql, dbOpenDynaset)
 
' Remplissage du listView
While Not Rs.EOF
' Ecriture dans le LV de la recherche
 
        ListView.ListItems.Add Index, , Rs.Fields("Cle")
        ListView.ListItems(Index).SubItems(1) = Rs.Fields("Type")
        ListView.ListItems(Index).SubItems(2) = Rs.Fields("Ref")
        ListView.ListItems(Index).SubItems(3) = Rs.Fields("Aff")
        ListView.ListItems(Index).SubItems(4) = Rs.Fields("NSerie")
        ListView.ListItems(Index).SubItems(5) = Rs.Fields("Puissance")
        ListView.ListItems(Index).SubItems(6) = Rs.Fields("Tension")
 
    Index = Index + 1
 
    Rs.MoveNext
Wend
 
Rs.Close     'Fermeture
 
'Rafraissement du listView
ListView.Refresh
ListView.Sorted = True
 
End Function

[bastos77]

merci,

mais excuse ma comprehension, je ne sais pas a quoi correspond la requete
sql (Sql = "select * from Moteur") est-ce que j'en ai besoin avec access?
j'ai mes colonnes dans ma liste view, mais j'ai pas l'affichage de la table.
dans le code j'ai pas compris où on m'étais la liaison de la table.

[callo]

merci,

mais excuse ma comprehension, je ne sais pas a quoi correspond la requete
sql (Sql = "select * from Moteur") est-ce que j'en ai besoin avec access?
j'ai mes colonnes dans ma liste view, mais j'ai pas l'affichage de la table.
dans le code j'ai pas compris où on m'étais la liaison de la table.

Remplace Sql = "select * from Moteur" par ta chaine sql. Genre Sql = "select * from Tatable".
C'est juste un exemple que j'ai mis, a toi d'adapter

[bastos77]

oui j'ai fais:

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
Public Function Read_Access()
 
Dim Index As Integer
Dim db As Database
Dim tb As Recordset
 
 
listview1.Sorted = False
listview1.ListItems.Clear
Index = 1
 
Set db = OpenDatabase(Path & "\db2.mdb")
 
SQL = "select * from clients"
 
Set tb = db.OpenRecordset(SQL, dbOpenDynaset)
While Not tb.EOF
       listview1.ListItems.Add Index, , tb.Fields("Code")
        ListView.ListItems(Index).SubItems(1) = tb.Fields("Societe")
        ListView.ListItems(Index).SubItems(2) = tb.Fields("Interlocuteur")
 
    Index = Index + 1
 
    tb.MoveNext
Wend

[callo]

merci,
j'ai mes colonnes dans ma liste view, mais j'ai pas l'affichage de la table.

As-tu un message d'erreur pouvant nous mettre sur une piste? As-tu fais un debogage pas a pas pour voir si le programme ne bloque pas quelque part ?

[bastos77]

j'ai pas de message d'erreur ma fenetre s'ouvre les index sont présent mais la liste ne s'affiche pas ma table s'apelle bien clients, mes champs sont code,societe,interlocuteur,adresse,cp,villle,pays,tel,portable,fax,email

[callo]

Pourrais-tu nous faire voir plus en details ton code en incluant la ou tu appelles la fonction Read_Access ?

[bastos77]

je l"ai juste créer la de le code, je l'appel pas

[ProgElecT]

Code :

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

Set db = OpenDatabase(Path & "\db2.mdb")

seulement pour cette partie du code

Code :

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

Set db = OpenDatabase(App.Path & "\db2.mdb")

App.Path

[callo]

ProgElecT, merci pour la correction

je l"ai juste créer la de le code, je l'appel pas

Dans ton code tu as mis

Code :

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

Public Function Read_Access()

. Avant que les instructions de cete fonction ne soit executees, faudrait que tu appelle ta fonction. Soit tu ajoutes carrement les instructions de ta fonction directememt. N'oublie pas de tenir compte de la correction apportee par ProgElecT. Ce qui suppose que ta base access se trouve dans le meme repertoire que ton application

[bastos77]

oui ma base est dans le meme repertoire et le APP comme la montrer proelect
je l'avais deja modifier, mais est ce que je suis obliger d'utiliser une fonction

[Delbeke]

Un minimum d'effort serait bien venu de ta part.Si tu ne sais pas qu' ajouter une fonction sans l'appeller est pariel que de ne rien faire du tout, c'est que tu as besoin d'apprendre un minimum les bases de la programmation.

Tu trouveras des tutoriels ici

Commences par çà et reviens nous voir quand tu auras tout lu

[bastos77]

merci, l'ami de 1 j'ai déja vu tous c tutoriel lu des bouquin, j'ai juste un probleme sur ma listview,alors a la prochaine

ps= j'ai mes champs qui sont vides

[callo]

merci, l'ami de 1 j'ai déja vu tous c tutoriel lu des bouquin, j'ai juste un probleme sur ma listview,alors a la prochaine

mais est ce que je suis obliger d'utiliser une fonction

Il est clair que tu as besoin d'un minimum de bases de la programmation.
Et si tu ne fournis pas plus d'effort et que tu donnes des reponses de ce genre, il serait vraiment difficile de t'aider

[Delbeke]

Je clos cette discution, elle n'apporteras plus rien je pense