filtrage dans une listbox - VB6

Version imprimable

Bonsoir à tous,

je suis un débutant en VB6 je suis entrain de creer une petite appli pour faire des extractions d'ecritures...

J'ai dans mon form 2 Listbox : Une contient tout les codes société et l'autre
les comptes qui sont rattachés a ces sociétés.

Comment pourrais-je faire pour que lorsque je selectionne une société, seul les comptes qui lui sont rattachés apparaissent dans ma seconde Listbox?

voici le code qui me permet de remplir mes listbox :
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 Private Sub Form_Load() Dim xu2 As New CsoXU.XU24 Dim connexion As New ADODB.Connection connexion.ConnectionString = xu2.RechercheConnectionString connexion.Open Dim reccmp As New ADODB.Recordset Dim recacc As New ADODB.Recordset Set reccmp = New ADODB.Recordset Set reccmp = New ADODB.Recordset reccmp.Open "select cmp_code from companies order by cmp_code", connexion, adOpenForwardOnly, adLockReadOnly, adCmdText Do While Not reccmp.EOF Me.List1.AddItem (reccmp.Fields(0).Value) reccmp.MoveNext Loop reccmp.Close recacc.Open "select acc_code from accounts order by acc_code", connexion, adOpenForwardOnly, adLockReadOnly, adCmdText Do While Not recacc.EOF Me.List2.AddItem (recacc.Fields(0).Value) recacc.MoveNext Loop recacc.Close End Sub
J' essaye de trouver la solution depuis plus d'heure mais pas de soluce !!!! :cry:

merci pour votre aide

Voire avec F1 la clause Where
Exemple

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
Option Explicit
Dim connexion As New ADODB.Connection
Dim reccmp As New ADODB.Recordset
'Dim recacc As New ADODB.Recordset
Dim xu2 As New CsoXU.XU24
 
Private Sub Form_Load()
'Set reccmp = New ADODB.Recordset 'inutile puisque deja renseigné et declaré
'Set reccmp = New ADODB.Recordset 'inutile puisque deja renseigné et declaré
connexion.ConnectionString = xu2.RechercheConnectionString
connexion.Open: DoEvents
reccmp.Open "select cmp_code from companies order by cmp_code", connexion, adOpenForwardOnly, adLockReadOnly, adCmdText
List1.Clear
Do While Not reccmp.EOF
 List1.AddItem (reccmp.Fields(0).Value)
 reccmp.MoveNext: DoEvents
Loop
reccmp.Close
'pour initialiser et remplir le List2 lors de l'ouverture
'declanche la procedure Sub List1_Click()
List1.List(List1.ListIndex) = 0
End Sub
Private Sub List1_Click()
'un choix a ete fait par l'utilisateur (ou initialisation dût au Form_Load())
List2.Clear
reccmp.Open "select acc_code from accounts Where cmp_code  = " & List1.List(List1.ListIndex) & " order by acc_code", connexion, adOpenForwardOnly, adLockReadOnly, adCmdText
Do While Not reccmp.EOF
   List2.AddItem (reccmp.Fields(0).Value)
   reccmp.MoveNext: DoEvents
Loop
reccmp.Close
List2.List(List2.ListIndex) = 0
End Sub

Comme tu peux voire, un seul ADODB.Recordset est utilisé, j'ai REMER recacc , et réutilisé reccmp pour remplir le List2

Motif de l'edit, j'ai des doutes sur le suivi de tes posts
captainamerica75, Inscrit le vendredi 06 janvier 2006, Total message: 61, discussions ouvertes: 24, Nbr.de TAGs utilisés: 7, moyenne: 29/100, ma partitipation jusqua ce post: 1

26/05/2007, 17h42
captainamerica75

salut a toi,

merci pour ta soluce mais il me met un message :
" Erreur d'execution -2147217900
'CAS" : Nom de colonne incorrect

Qu'est ce que cela veut dire?
26/05/2007, 18h35
ProgElecT

Citation:

" Erreur d'execution -2147217900
'CAS" : Nom de colonne incorrect

Dans quelle procedure, Form_Load() ou List1_Click(), à quelle ligne ?

Que ce soit dans l'une ou l'autre, l'erreur indiquée signifie que le champs que l'on utilise n'existe pas dans la table qui vient d'être ouverte, donc cela doit être à la ligne List1.AddItem (reccmp.Fields(0).Value) de Form_Load() ou à la ligne List2.AddItem (reccmp.Fields(0).Value) de List1_Click().
A moins que le champs acc_code , n'existe pas dans la table accounts, et là je ne vois pas comment tu pourras recuperer les comptes qui sont rattachés aux codes sociétés.
Il faut absolument que dans tes 2 tables il y ait un champs commun, dans ton cas ce doit être cmp_code.

salut Prog,

Le message est a ce niveau ( cf.ligne en gras):

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub List1_Click()
'un choix a ete fait par l'utilisateur (ou initialisation dût au Form_Load())
List2.Clear
reccmp.Open "select acc_code from accounts Where cmp_code  = " & List1.List(List1.ListIndex) & " order by acc_code", connexion, adOpenForwardOnly, adLockReadOnly, adCmdTextDo While Not reccmp.EOF
   List2.AddItem (reccmp.Fields(0).Value)
   reccmp.MoveNext: DoEvents
Loop
reccmp.Close
List2.List(List2.ListIndex) = 0
End Sub

J'ai bien un champs cmp_code dans ma table accounts pourtant... :bug:

28/05/2007, 09h45
Phifi

Problème de type : tu concatènes un String ("SELECT...") et un numérique (List1.List(List1.ListIndex))
28/05/2007, 10h25
ProgElecT

Citation:

Envoyé par Phifi

Problème de type : tu concatènes un String ("SELECT...") et un numérique (List1.List(List1.ListIndex))

donc essais comme çà

Code:

reccmp.Open "select acc_code from accounts Where cmp_code = " & Cstr(List1.List(List1.ListIndex)) & " order by acc_code", connexion, adOpenForwardOnly, adLockReadOnly, adCmdTextDo While Not reccmp.EOF
29/05/2007, 14h45
captainamerica75

salut Prog,

J'ai testé ta correction et ca fonctionne nickel ;)

Merci à toi et à Phifi pour sa remarque.

Bien à toi, ;)