Bonjour a tous
Voici mon petit probleme
J'ai une appli ou l'utilisateur doit choisir le nom d'une personne dans une combobox et grace a ca, je desire mettre des info du nom choisi dans un flexgrid :
ma combobox fonctionne mais aucune info ne s'affiche dans mon flexgrid :
je ne voi pa ou est mon erreur... peut etre a l'annonce de ma requete sql...(jessaye de afficher ma requete a lecran mais rien ne se passe)
si quelqu'un voit ou est mon erreur ca serait sympa
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89 Public rs As Recordset Public db As Database Public nb_colonne As Integer Public nb_ligne As Integer Public strsql As String Private Sub form_load() Set db = OpenDatabase("aaa.mdb") Set rs = db.OpenRecordset("select * from projet") Call ChargeCombo End Sub Sub ChargeCombo() Dim NbCcb As Integer Dim NbLcb As Integer Dim RSCombo As Recordset Set RSCombo = db.OpenRecordset("select * from projet") 'Ouverture du RecordSet projet If RSCombo.EOF Or RSCombo.BOF Then 'Vérification de l'éxistence de données ds la base MsgBox "Aucun élément trouvé pour le combo" Exit Sub End If RSCombo.MoveLast ' Positionne le curseur RSCombo.MoveFirst ' de déplacement NbCcb = RSCombo.Fields.Count 'Compte le nombre d'attributs NbLcb = RSCombo.RecordCount 'Compte le nombre d'enregistrements For i = 0 To NbLcb - 1 liste_ressource.AddItem RSCombo.Fields(3) '& " " & RSCombo.Fields(4) 'Charge la liste déroulante avec le champ 'le 3 soit le nom et 4 le prenom RSCombo.MoveNext 'Passe à l'enregistrement suivant Next End Sub Sub remplir_grid() Dim i As Integer Dim j As Integer 'Requête SQL de recherche des éléments strsql = "Select client.num_client, nom_projet, responsable_projet, date_debut_mission, date_fin_mission, lieu_mission, nom_client, resposable_client " strsql = strsql & " from client,projet " strsql = strsql & " where client.num_client=projet.num_client " strsql = strsql & " and nom_ressource = " & "'" & liste_ressource.Text & "'" 'Affichage de la requête MsgBox strsql 'Exécution de la requête Set rs = db.OpenRecordset(strsql) rs.MoveLast rs.MoveFirst nb_colonne = rs.Fields.Count nb_ligne = rs.RecordCount MSFlexGrid1.Cols = nb_colonne ' Affectation du nbre de colonnes à la Flexgrig MSFlexGrid1.Rows = nb_ligne ' Affectation du nbre de lignes à la Flexgrig Call videgrid(nb_ligne, nb_colonne) ' On vide la Flexgrid sil existe des données If rs.EOF Or rs.BOF Then 'Msg si aucun élément trouvé ds la base MsgBox "aucun élément trouvé" 'STOP Call videgrid(nb_ligne, nb_colonne) Exit Sub End If rs.MoveFirst 'Placement du curseur sur le 1er enregistrement For i = 0 To rs.RecordCount - 1 MSFlexGrid1.Row = i For j = 0 To rs.Fields.Count - 1 'Affichage des données ds flexgrid MSFlexGrid1.Col = j If IsNull(rs.Fields(j)) Then MSFlexGrid1.Text = "" Else MSFlexGrid1.Text = rs.Fields(j) End If Next rs.MoveNext Next End Sub Private Sub liste_ressource_Change() 'Affiche les enregistrements correspondant à cette catégorie Call remplir_grid End Sub
Partager