Discussion :

[nadong]

Bonjour à tous,

J'ai une application a développer en vb.net 2010 (Visual Studio) avec une base MS Access 2010.
La première partie de mon programme était de permettre aux rééducateurs de pouvoir enregistrer les actes de la semaine dans une table appeler "acte".
La deuxième partie est de s'occuper de la modification (pour le chef de service).
Voici le problème :
Quand le rééducateur rentre dans son espace pour enregistrer ses actes de la semaine, il a dans cette interface un bouton permettant d'aller dans un autre formulaire dans lequel il y a un listbox auquel on doit sélectionner l'enregistrement a modifier mais rien ne s'affiche.

Voici le 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
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
'_________________________REMPLIR LA LISTE D'ENREGISTREMENT A MODIFIER________________________________________________________________________________________
 
        'Récupérer le numéro du rééducateur afin d'afficher ses enregistrements
        fourthSQL = "SELECT DISTINCT * FROM reeducateur"
        dta.SelectCommand.CommandText = fourthSQL
        dta.Fill(dts, "reeducateur")
 
        For i = 0 To dts.Tables("reeducateur").Rows.Count - 1
            Dim nomReeducateur As String = frmBReeducateur.lblAfficherReeducConnecter.Text
            If nomReeducateur = dts.Tables("reeducateur").Rows(i).Item("nomReeduc") Then
                Dim noReeducateur As Integer = dts.Tables("reeducateur").Rows(i).Item("noReeduc")
 
                'Liste des enregistrements de la table Actes
                firstSQL = "SELECT DISTINCT * FROM acte WHERE noReeduc =" & noReeducateur & " ORDER BY nomUsager ASC"
                dta.SelectCommand.CommandText = firstSQL
                dta.Fill(dts, "acte")
 
                For j = 0 To dts.Tables("acte").Rows.Count - 1
                    'Récupérer tous les champs de la table acte dans des variables
                    Dim varNoUsager = dts.Tables("acte").Rows(i).Item("noUsager")
                    Dim varNomUsager = dts.Tables("acte").Rows(i).Item("nomUsager")
                    Dim varPrenomUsager = dts.Tables("acte").Rows(i).Item("prenomUsager")
                    Dim varNoReeduc = dts.Tables("acte").Rows(i).Item("noReeduc")
                    Dim varNoSem = dts.Tables("acte").Rows(i).Item("noSem")
                    Dim varMois = dts.Tables("acte").Rows(i).Item("mois")
                    Dim varTypeSemaine = dts.Tables("acte").Rows(i).Item("typeSemaine")
                    Dim varDeplacements = dts.Tables("acte").Rows(i).Item("deplacements")
                    Dim varVisitesMedicales = dts.Tables("acte").Rows(i).Item("visitesMedicales")
                    Dim varJourneesExceptionnelles = dts.Tables("acte").Rows(i).Item("journeesExceptionnelles")
                    Dim varRencontreFamilles = dts.Tables("acte").Rows(i).Item("rencontreFamilles")
                    Dim varReunions = dts.Tables("acte").Rows(i).Item("reunions")
                    Dim varInterventiontsTelephoniques = dts.Tables("acte").Rows(i).Item("nbActe")
                    Dim varNbActes = dts.Tables("acte").Rows(i).Item("nbActe")
 
                    frmSelectActe.lstSelectActes.Items.Add(varNomUsager & " " & _
                                                            varPrenomUsager & " " & _
                                                            varNoSem & " " & _
                                                            varMois & " " & _
                                                            varNbActes)
 
                Next
            End If
        Next

Pouvez-vous m'aider s'il vous plais ???

[egautier18]

Bonjour,

Je me permet plusieurs remarques.

Dans votre code vous ajoutez tous les actes de tous les rééducateur. Je pense que vous vous voulez seulement tous les actes d'un rééducateur non ? (EDIT : désolé je n'ai pas vu le IF - Un if sur un nom n'est peut être pas la meilleur idée, un nom n'ai pas unique.
Vous pouvez également faire des SELECT sur des Datatables afin d'ajouter une condition et de vous évitez une boucle plus longue avec un if au début. )
Je pense que vous ne devriez pas mettre le DISTINCT.
Je vous conseille de faire des classes, plutôt que de déclaré X variables. Cela sera plus facilement exploitables par la suite.

A+

[nadong]

Je vous remercie pour ces conseils, pouvez-vous développez un peu avec un petit exemple svp

Merci d'avance pour votre aide...

[Kropernic]

Hello,

Je plussoie les remarques déjà faites.

Pourriez-vous poster la définition de vos tables dans la DB ? Nous pourrons alors vous aider plus avant.

Le bout de code que vous montrer, s'effectue-t-il sur le formulaire nommé frmSelectActe ? Si oui, utilisez le mot clef Me.

Je pense qu'il serait préférable de typer vos variables dans lesquelles vous affectez les valeurs récupérées de la DB. En effet, la méthode dts.Tables("acte").Rows(i).Item("noUsager") retourne un objet de type Object (en caricaturant, sans type défini). En typant cela, vous vous faciliterez la vie car vous aurez alors accès aux fonctionnalités souvent fort pratique qu'offre le type en question. En plus, ce sera beaucoup plus propre et facilitera le travail du compilateur.

Pour vous donner une idée, ajoutez ces deux lignes tout en haut de votre page de code :

Code :

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

1
2
Option Explicit On
Option Strict On

[Pol63]

si frmSelectActe n'est pas me, où est déclarée cette variable ?
si vous utilisez directement le nom du form le problème doit venir de là


avez vous fait du pas à pas pour voir ce qui se passe ?

[nadong]

si frmSelectActe n'est pas me, où est déclarée cette variable ?
si vous utilisez directement le nom du form le problème doit venir de là


avez vous fait du pas à pas pour voir ce qui se passe ?

frmSelectActe est un formulaire pas une variable comme vous l'avez deviné.
Pour le pas à pas vous avez bien fait de poser la question :
Quand le code est tel que je vous l'ai donné, alors la variables de la première boucle for "nomReeduc" est vide, et donc la suite ne peut pas arrivé, et :
Quand je garde seulement la deuxième boucle for et je met le restre en commentaire (1er boucle for + condition if) alors tout les rééducateur on tous les enregistrement de tout le monde se qui est logique vu qu'il n'y a pas de condition !
Pouvez-vous m'aider à faire cette condition svp, voici le code avec les commentaire :

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
'_________________________REMPLIR LA LISTE D'ENREGISTREMENT A MODIFIER________________________________________________________________________________________
 
        'Récupérer le numéro du rééducateur afin d'afficher ses enregistrements
        fourthSQL = "SELECT DISTINCT * FROM reeducateur"
        dta.SelectCommand.CommandText = fourthSQL
        dta.Fill(dts, "reeducateur")
 
        'For i = 0 To dts.Tables("reeducateur").Rows.Count - 1
        'Dim nomReeducateur As String = frmBReeducateur.lblAfficherReeducConnecter.Text
        'If nomReeducateur = dts.Tables("reeducateur").Rows(i).Item("nomReeduc") Then
        'Dim noReeducateur As Integer = dts.Tables("reeducateur").Rows(i).Item("noReeduc")
 
        'Liste des enregistrements de la table Actes
        firstSQL = "SELECT * FROM acte ORDER BY nomUsager ASC"
        dta.SelectCommand.CommandText = firstSQL
        dta.Fill(dts, "acte")
 
        For i = 0 To dts.Tables("acte").Rows.Count - 1
            'Récupérer tous les champs de la table acte dans des variables
            Dim varNoUsager = dts.Tables("acte").Rows(i).Item("noUsager")
            Dim varNomUsager = dts.Tables("acte").Rows(i).Item("nomUsager")
            Dim varPrenomUsager = dts.Tables("acte").Rows(i).Item("prenomUsager")
            Dim varNoReeduc = dts.Tables("acte").Rows(i).Item("noReeduc")
            Dim varNoSem = dts.Tables("acte").Rows(i).Item("noSem")
            Dim varMois = dts.Tables("acte").Rows(i).Item("mois")
            Dim varTypeSemaine = dts.Tables("acte").Rows(i).Item("typeSemaine")
            Dim varDeplacements = dts.Tables("acte").Rows(i).Item("deplacements")
            Dim varVisitesMedicales = dts.Tables("acte").Rows(i).Item("visitesMedicales")
            Dim varJourneesExceptionnelles = dts.Tables("acte").Rows(i).Item("journeesExceptionnelles")
            Dim varRencontreFamilles = dts.Tables("acte").Rows(i).Item("rencontreFamilles")
            Dim varReunions = dts.Tables("acte").Rows(i).Item("reunions")
            Dim varInterventiontsTelephoniques = dts.Tables("acte").Rows(i).Item("nbActe")
            Dim varNbActes = dts.Tables("acte").Rows(i).Item("nbActe")
 
            frmSelectActe.lstSelectActes.Items.Add(varNomUsager & " " & _
                                                    varPrenomUsager & " " & _
                                                    varNoSem & " " & _
                                                    varMois & " " & _
                                                    varNbActes)
 
        Next
        'End If
        'Next

[nadong]

En effet des lors où nous cliquons sur le bouton modifier du formulaire "frmBreeducateur" alors la listbox du formulaire "frmSelectActes" doit afficher les enregistrement précédemment enregistrer (mais seulement celui du rééducateur connecter)

Voici les champs de la table "acte"

Champ1 : noActe //NuméroAuto
Champ2 : noUsager //Numérique : numéro de l'usager
Champ3 : nomUsager //Texte : nom de l'usager
Champ4 : prenomUsager //Texte : prénom de l'usager
Champ5 : noReeduc //Numérique : numéro du rééducateur
Champ6 : noSem //Numérique : numéro de semaine
Champ7 : mois //Texte : en plus du numéro de semaine il faut savoir à quel mois il correspond
Champ8 : typeSemaine //Texte : le type de la semaine
Champ9 : deplacements //Numérique
Champ10 : visitesMedicales //Numérique
Champ11 : journeesExceptionnelles //Numérique
Champ12 : rencontreFamilles //Numérique
Champ13 : reunions //Numérique
Champ14 : interventiontsTelephoniques //Numérique
Champ15 : nbActe //Numérique : Somme des (Champ9 à Champ14)

Et Voici un enregistrement fictif :

noActe : 6329
noUsager : 251
nomUsager : Dupont
prenomUsager : Jean
noReeduc : 15
noSem : 12
mois : Mars
typeSemaine : 1C
deplacements : 2
visitesMedicales : 3
journeesExceptionnelles : 1
rencontreFamilles : 4
reunions : 3
nbActes : 13

Je viens de copier votre code, les deux lignes que vous m'avez donné plus haut.
Comment les faire ceci :

Je pense qu'il serait préférable de typer vos variables dans lesquelles vous affectez les valeurs récupérées de la DB. En effet, la méthode dts.Tables("acte").Rows(i).Item("noUsager") retourne un objet de type Object (en caricaturant, sans type défini). En typant cela, vous vous faciliterez la vie car vous aurez alors accès aux fonctionnalités souvent fort pratique qu'offre le type en question. En plus, ce sera beaucoup plus propre et facilitera le travail du compilateur.

Merci encore pour votre aide...