Discussion :

[hugnka]

j'ai à créer un logiciel sous VB6(dépassé mais cahier de charge oblige),basé aussi sur access.Jusqu'à là tout se passe bien mais mon problème c'est que j'ai une requête sql que je voudrais récupérer depuis l'interface vb.J'explique j'ai une table"DEPARTEMENT" avec les champs nomdepart ...... et lorsqu'on enregistre un nom de département cela s'enregistre également dans un combobox pour une réquête voulant obtenir la liste de tous les responsables par département mais le problème est qu'il des doublons au niveau de mon combobox.

[ProgElecT]

Salut

Il faut faire un select Distinct nom du champ dans la requête à l'ouverture de ton recordset.

[hugnka]

oui depuis access cela a été fait mais le problème en fait est au niveau de vb en particulier sur mon combobox comment faire pour ne pas avoir des départements en double

[ProgElecT]

cela s'enregistre également dans un combobox

Comment, par ligne de code est remplis ton combobox ?

[hugnka]

voici un bout de mon code

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
Private Sub Combo3_Click()
Label1 = "HISTORIQUE DES RESPONSABLES ET SOUS-RESPONSABLES D'UN DEPARTEMENT"
seconnecter
 
Dim rs As ADODB.Recordset
Set rs = New Recordset
rs.Open "select  * From [Requête responsable_sous-responsable] Where [Département]= '" & Combo3 & "'", con, adOpenDynamic, adLockOptimistic
Set MSHFlexGrid1.Recordset = rs
 
rs.Close
con.Close
 
       Set rs = Nothing
       Set con = Nothing
End Sub

[ProgElecT]

Là tu mes le code pour remplir le MSHFlexGrid1.
Je suppose que les doublons sont dans le Combo3, c'est le code qui rempli ce combo3 qu'il faut nous mettre.
Si non, pour supprimer des doublons dans ton combo3, sur un Form un Combobox et un CommandButton et ce

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
Option Explicit
 
Private Sub Command1_Click()
Dim T As Integer, U As Integer
For T = 0 To Combo1.ListCount - 1
    For U = T + 1 To Combo1.ListCount - 1
        If Combo1.List(U) = Combo1.List(T) Then Combo1.RemoveItem (T)
    Next U
Next T
End Sub
 
Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "Pas doublon"
Combo1.AddItem "Doublon"
Combo1.AddItem "Doublon"
Combo1.AddItem "pour demo"
Combo1.ListIndex = 0
End Sub

[hugnka]

au fait je comprend maintenant que dans ma table[DEPARTEMENT], le champ"nomdepart" a la propriété (Indexé avec doublons) ce qui fait que le combobox récoit tout ce qui est nom de département.
Maintenant je ne sais plus quoi faire.Mais est-ce que ce code de ma requête est juste

Code :

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

rs.Open "select  * From [Requête responsable_sous-responsable] Where [Département]= '" & Combo3 & "'", con, adOpenDynamic, adLockOptimistic

[ProgElecT]

Exemple d'une requête

Code :

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

Rqt = "Select all distinct Champ2Text From " & Me.Caption & " Where Champ2Text  <> ' truc ' Order By Champ2Text"

A savoir que si Order By est utilisé, il doit correspondre au champ du distinct.

[hugnka]

Merci je vais essayer d'adapter ce code au mien et je vous ferez signe

[hugnka]

je n'y arrive pas mais est-ce que vous pouvez me conseiller une autre méthode quand au remplissage des noms de département dans mon combobox sans doublons et adapter cela à ma requête?

[ProgElecT]

..... quand au remplissage des noms de département dans mon combobox sans doublons et adapter cela à ma requête?

'1° temps remplir le ComboBox (sans doublon grâce à Distinct)

Code :

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

1
2
3
4
5
6
7
8
9
rs.Open "select DISTINCT nomdepart From DEPARTEMENT Order By nomdepart", con, adOpenDynamic, adLockOptimistic
If rs.State = adStateOpen Then
    ComboDerpartement.Clear
    While Not rs.EOF
        ComboDerpartement.AddItem rs.Fields("nomdepart")
        rs.MoveNext
    Wend
    rs.Close
End If

'2° temps remplir le MSHFlexGrid pour HISTORIQUE DES RESPONSABLES ET SOUS-RESPONSABLES D'UN DEPARTEMENT

Code :

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

1
2
3
4
5
6
 
rs.Open "select  * From [responsable_sous-responsable] Where [Département]= '" & ComboDerpartement.List(ComboDerpartement.ListIndex) & "'", con, adOpenDynamic, adLockOptimistic
If rs.State = adStateOpen Then
    Set MSHFlexGrid1.Recordset = rs
    rs.Close
End If

[hugnka]

j'essai d'adapter ces codes mais il y a un message d'erreur qui est"un objet est requis" je ne plus comment faire

[OhMonBato]

Bonjour,

toujours mettre le code et specifier la ligne qui provoque l'erreur, c'est le minimum.

[hugnka]

je ne sais pas comment coordonner tout cela dans mon code ( j'ai oublié de préciser mais je suis vraiment très débutant en vb6)
Voila ce que j'ai de manière générale dans mon combobox3

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
Private Sub Combo3_Click()
Label1 = "HISTORIQUE DES RESPONSABLES ET SOUS-RESPONSABLES D'UN DEPARTEMENT"
seconnecter
 
Dim rs As ADODB.Recordset
Set rs = New Recordset
rs.Open "select DISTINCT nomdepart From DEPARTEMENT Order By nomdepart", con, adOpenDynamic, adLockOptimistic
If rs.State = adStateOpen Then
    Combo3Departement.Clear
    While Not rs.EOF
        Combo3Departement.AddItem rs.Fields("nomdepart")
        rs.MoveNext
    Wend
    rs.Close
End If
rs.Open "select  * From [responsable_sous-responsable] Where [Département]= '" & Combo3Departement.List(Combo3Departement.ListIndex) & "'", con, adOpenDynamic, adLockOptimistic
If rs.State = adStateOpen Then
    Set MSHFlexGrid1.Recordset = rs
    rs.Close
End If
rs.Close
con.Close
 
       Set rs = Nothing
       Set con = Nothing
End Sub

A ce niveau quand j'exécute ma requête un message d'erreur "un objet est requis" apparait et après débogage voici la ligne qui est en couleur jaune

Code :

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

Combo3Departement.Clear

je ne sais plus comment faire

[ProgElecT]

Sûrement a remplacer ComboDerpartement par le nom de ton ComboBox (Combo3 ?)

[hugnka]

j'ai rectifié et effectivement c'était cela,mais après tout cela le résultat ne s'affiche pas dans le MSHFlexgrid1

[hugnka]

Merci à tous pour votre disponibilité et pour toutes vos réponses car le problème se posait au niveau de access et cela a été réglé.