Problème avec une requête sql en access à afficher sur l'interface vb6

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.

Salut

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

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

Citation:

---

cela s'enregistre également dans un combobox

---

Comment, par ligne de code est remplis ton combobox ?

voici un bout de mon code

Code:

---

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

---

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:

---

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

---

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:

---

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

---

Exemple d'une requête

Code:

---

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.

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

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?

Citation:

---

Envoyé par hugnka

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

---

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:

---

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

---

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

Bonjour,

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

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:

---

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:

---

Combo3Departement.Clear

---

je ne sais plus comment faire

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

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

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