Listview avec base de données access

Version imprimable

03/06/2008, 11h26
bastos77

Listview avec base de données access

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

Voici une fonction que tu peux adapter pour ton cas :

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
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

03/06/2008, 14h18
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.
03/06/2008, 16h27
callo

Citation:

Envoyé par 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.

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

Ajout balise code

oui j'ai fais:

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
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

03/06/2008, 17h31
callo

Citation:

Envoyé par bastos77

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 ?
03/06/2008, 17h41
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
03/06/2008, 18h00
callo

Pourrais-tu nous faire voir plus en details ton code en incluant la ou tu appelles la fonction Read_Access ?
04/06/2008, 12h29
bastos77

je l"ai juste créer la de le code, je l'appel pas
04/06/2008, 12h42
ProgElecT

Code:

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

seulement pour cette partie du code

Code:

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

App.Path
04/06/2008, 13h52
callo

ProgElecT, merci pour la correction:D

Citation:

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

Dans ton code tu as mis

Code:

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
04/06/2008, 16h15
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
04/06/2008, 16h34
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
04/06/2008, 17h44
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
04/06/2008, 17h57
callo

Citation:

Envoyé par 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

Citation:

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
04/06/2008, 19h34
Delbeke

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