Manipulations autour d'une base de données ACCESS

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour,

Normal, la sélection de ligne est perdue pendant le tri et la procédure ChargeDetails ne peut trouver de CurrentRow.

Pour te dépanner, tu peux ajouter la procédure DGVTout_Sorted et modifier le code de ChargeDetails :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub ChargeDetails() '... ... ... Dim IdAstuceEnCours As Integer Try IdAstuceEnCours = DGVTout.Item("IdAstuce", DGVTout.CurrentRow.Index).Value Catch Exit Sub End Try SQL = "SELECT Fichier FROM T_FICHIER WHERE XIdAstuceFichier = " & IdAstuceEnCours ' ... ... ... Private Sub DGVTout_Sorted(sender As Object, e As EventArgs) Handles DGVTout.Sorted DGVTout_SelectionChanged(Me, Nothing) End Sub
Si j'ai un peu de temps, je verrai s'il n'y a pas une méthode plus "convenable". Mais sûrement qu'il serait préférable d'interdire le tri "automatique" sur le clic d'un Header et programmer toi-même ce tri en refaisant la requête principale (sur Astuce) avec une clause ORDER BY sur le champ concerné par le Header cliqué.

... :D

06/12/2020, 09h08
rezolu

Bonjour Phil Rob

Oui le mieux c'est d'interdire le tri, j'en aie pas besoin car par la suite j'utiliserai un textbox de recherche.
Par contre j'ai testé ton exemple, mais quand je change une valeur il ne la retiens pas dans la DB.

Il y a aussi un truc que je ne comprend pas :

Sur mon portable cela fonctionne mais sur mon pc fixe j'ai le message suivant :
System.InvalidOperationException*: 'Le fournisseur 'Microsoft.ACE.OLEDB.12.0' n'est pas inscrit sur l'ordinateur local

Bonne journée

1 pièce(s) jointe(s)

Re,

Tu peux désactiver le tri par clic des Header en ajoutant ces lignes de code à la fin de MontreDonnees() :
Code:

1 2 3 4 For C As Integer = 0 To DGVTout.ColumnCount - 1 DGVTout.Columns(C).SortMode = System.Windows.Forms.DataGridViewColumnSortMode.Programmatic Next
Tu peux ensuite remettre ChargeDetails en ordre comme ceci :
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub ChargeDetails() ' ... ... ... Dim IdAstuceEnCours As Integer 'Try IdAstuceEnCours = DGVTout.Item("IdAstuce", DGVTout.CurrentRow.Index).Value 'Catch ' Exit Sub 'End Try ' ... ... ...
et supprimer la procédure DGVTout_Sorted().

Pour la suite, si tu veux programmer un tri basé sur une colonne en particulier, le mieux sera de le faire sur la DataTable, ou bien recommencer la requête avec la clause ORDER BY (plus lourd pour le système, et aussi pour le programmeur ... ). Le déclenchement de ce tri peut être programmé dans la procédure :
Code:

1 2 3 4 Private Sub DGVTout_ColumnHeaderMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DGVTout.ColumnHeaderMouseClick ' End Sub
Pour ce qui est de l'erreur Microsoft.ACE.OLEDB.12.0' n'est pas inscrit sur l'ordinateur local, il te faut changer de plateforme et choisir x64 (au besoin, tu peux l'ajouter dans le "Gestionnaire de configuration ...") :
Pièce jointe 585951

... :D

Suite ....

Si après avoir désactivé le tri sur clic des Headers avec mon code du message précédent (dans MontreDonnees()), tu programmer toi-même le tri de cette façon (l'algo de tri est élémentaire, il existe plus performant). Ceci a au moins l'avantage de ne pas réinterroger la DB.

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
 
    Private Sub DGVTout_ColumnHeaderMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DGVTout.ColumnHeaderMouseClick
        TriDataTableCroissant(e.ColumnIndex)
        DGVTout.Rows(0).Selected = True
    End Sub
 
    Private Sub TriDataTableCroissant(ColIdx As Integer)
        Dim TemoinPermutation As Boolean = True
        While TemoinPermutation
            TemoinPermutation = False
            For R As Integer = 0 To MesAstuces.Tables(NomTableAstuces).Rows.Count - 2
                If MesAstuces.Tables(NomTableAstuces).Rows.Item(R)(ColIdx).ToString > MesAstuces.Tables(NomTableAstuces).Rows.Item(R + 1)(ColIdx).ToString Then
                    Permutation(R, R + 1)
                    TemoinPermutation = True
                End If
            Next
        End While
    End Sub
 
    Private Sub Permutation(Ligne1 As Integer, Ligne2 As Integer)
        Dim Tmp As String
        For C As Integer = 0 To MesAstuces.Tables(NomTableAstuces).Columns.Count - 1
            Tmp = MesAstuces.Tables(NomTableAstuces).Rows.Item(Ligne1)(C).ToString
            MesAstuces.Tables(NomTableAstuces).Rows.Item(Ligne1)(C) = MesAstuces.Tables(NomTableAstuces).Rows.Item(Ligne2)(C)
            MesAstuces.Tables(NomTableAstuces).Rows.Item(Ligne2)(C) = Tmp
        Next
    End Sub

... :D

06/12/2020, 17h32
rezolu

Merci Phil Rob

Peux-tu me dire comment mettre a jour les données vers la database

Bonne soirée

Diverses approches existent, notamment celle qui consiste à parcourir les DataTable pour détecter les témoins de modifications (GetChanges() sur ajout, modif et suppression) et effectuer les mises à jour qui s'imposent dans la DB.

Dans la mesure où la programmation est relativement "manuelle" et qu'elle assume presque tout les points de détail, je suis d'avis de répercuter chaque modification dans la DB aussitôt qu'elle est confirmée. Cela permet de n'effectuer qu'un court accès à la DB et de gérer de suite les éventuels problèmes (doublon interdit, ou suppression interdite, ou modification de données déjà supprimées, ...).

Dans cette manière de faire, une procédure est écrite pour chaque commande de mise à jour.
Ainsi, pour ta gestion des "Type", il te faut un formulaire spécifique de consultation et gestion des types (ce doit être une tâche préalable puisque les types sont nécessaires aux ajouts des astuces).
Ce Form contiendra vraisemblablement un DataTable nommé "LesTypes" (par ex.) et éventuellement ajouté au DataSet de ton application.
Ce DataTable affectera le DataSource du composant que tu choisiras pour présenter les données.
Lorsque tu modifies un type dans un composant lié au DataTable, le type est modifié dans le DataTable.
Par ailleurs, le Form va permettre aussi l'ajout et suppression de type. Un TextBox peut servir à l'encodage d'un nouveau type, à confirmer par exemple avec un bouton "Ajout".
De même un bouton "Supprimer" doit permettre la suppression du type sélectionné à ce moment.
Ce sont les codes de ces boutons qui doivent produire l'ajout et la suppression dans le DataTable "LesTypes".
Mais ces modif, ajout et suppression n'ont d'effet que dans le DataTable.
C'est pourquoi, dans chacun de ces cas, il faut programmer la mise à jour immédiate de la DB.
Pour cela, il faut écrire les procédures ModifierType, AjoutType et SupprimerType, lesquelles contiendront respectivement les commandes UPDATE, INSERT et DELETE nécessaires. Dans ces procédures seront gérées les éventuelles erreurs, par exemple les procédure ModifierType et AjouterType ne peuvent produire un doublon sur le champ Type, la procédure SupprimerType ne peut permettre la suppression d'un enregistrement lié avec T_ASTUCEPROG.

Peut-être devrais-tu mettre en place cette gestion des types et me communiquer les noms des DataSet et DataTable utilisés, je pourrai alors t proposer les commades de mise à jours.

En attendant, si tu veux remplacer mon code de tri par le suivant, tu disposeras de code pouvant trier n'importe quel DataTable, sur n'importe quelle colonne, en croissant ou en décroissant. L'algo de tri est toujours rudimentaire, c'est ± un tri à bulles ... mais pour les fêtes, les bulles c'est bien :D
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 34 35 36 Private Sub DGVTout_ColumnHeaderMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DGVTout.ColumnHeaderMouseClick TriToutDataTableSelonSens(MesAstuces.Tables(NomTableAstuces), e.ColumnIndex, True) ' Décroissant si False DGVTout.Rows(0).Selected = True End Sub Private Sub TriToutDataTableSelonSens(ByRef DT As DataTable, ColonneCle As Integer, Optional Croissant As Boolean = True) ' Tri déc roissant si Croissant = False Dim TemoinPermutation As Boolean = True While TemoinPermutation TemoinPermutation = False If Croissant Then For R As Integer = 0 To MesAstuces.Tables(NomTableAstuces).Rows.Count - 2 If DT.Rows.Item(R)(ColonneCle).ToString > DT.Rows.Item(R + 1)(ColonneCle).ToString Then PermutDeuxLignesToutDataTable(DT, R, R + 1) TemoinPermutation = True End If Next Else For R As Integer = 0 To MesAstuces.Tables(NomTableAstuces).Rows.Count - 2 If DT.Rows.Item(R)(ColonneCle).ToString < DT.Rows.Item(R + 1)(ColonneCle).ToString Then PermutDeuxLignesToutDataTable(DT, R, R + 1) TemoinPermutation = True End If Next End If End While End Sub Private Sub PermutDeuxLignesToutDataTable(ByRef DT As DataTable, Ligne1 As Integer, Ligne2 As Integer) Dim Tmp As String For C As Integer = 0 To DT.Columns.Count - 1 Tmp = DT.Rows.Item(Ligne1)(C).ToString DT.Rows.Item(Ligne1)(C) = DT.Rows.Item(Ligne2)(C) DT.Rows.Item(Ligne2)(C) = Tmp Next End Sub
... :D

2 pièce(s) jointe(s)

Suite ...

J'ai ajouté une gestion des types à mon application de tests. Jusqu'à présent, je n'ai implémenté que la consultation (rien qu'un ± copier-coller des codes de FDGVEtListes).

Si j'ai du temps demain, j'y implémenterai les ajouts, modifications et suppressions. Voici le projet : Pièce jointe 585996

Pièce jointe 585997

J'ai laissé un petit bug dans le tri que je t'ai envoyé tout à l'heure. Cela ne l'empêche pas de fonctionner dans cette application, mais cela l'empêche de traiter un autre DataTable. Voici le code corrigé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    Private Sub TriToutDataTableSelonSens(ByRef DT As DataTable, ColonneCle As Integer, Optional Croissant As Boolean = True)  ' Tri déc roissant si Croissant = False
        Dim TemoinPermutation As Boolean = True
        While TemoinPermutation
            TemoinPermutation = False
            If Croissant Then
                For R As Integer = 0 To DT.Rows.Count - 2                ' !!!!!!!! et non MesAstuces.Tables(NomTableAstuces)
                    If DT.Rows.Item(R)(ColonneCle).ToString > DT.Rows.Item(R + 1)(ColonneCle).ToString Then
                        PermutDeuxLignesToutDataTable(DT, R, R + 1)
                        TemoinPermutation = True
                    End If
                Next
            Else
                For R As Integer = 0 To DT.Rows.Count - 2                '!!!!!!!! et non MesAstuces.Tables(NomTableAstuces)
                    If DT.Rows.Item(R)(ColonneCle).ToString < DT.Rows.Item(R + 1)(ColonneCle).ToString Then
                        PermutDeuxLignesToutDataTable(DT, R, R + 1)
                        TemoinPermutation = True
                    End If
                Next
            End If
        End While
    End Sub

A demain .... :D

07/12/2020, 13h05
Phil Rob

1 pièce(s) jointe(s)

Bonjour,

Voici la gestion des types ± complète.

Vois la vidéo : https://www.dropbox.com/s/1fru2oroj9...tType.mp4?dl=0

Dans cette video, tu verras que la suppression du type XLS ne fonctionne pas : c'est normal car ce type est déjà lié à T_ASTUCEPROG.

Voici le projet Pièce jointe 586061 à jour, tu y trouveras tous les codes utiles. Bien entendu, c'est la gestion facile parce que la table ne contient qu'un seul champ. Il y aura beaucoup plus à écrire pour un enregistrement de T_ASTUCEPROG, mais tu peux suivre le même schéma de programmation.
Dans le code SQL de la commande UPDATE, je place la valeur directement à partir du DataTable. Pour un enregistrement de T_ASTUCEPROG, ce sera plus long à écrire, peut-être sera-t-il utile à cet endroit, d'utiliser les Parameters de l'objet Command : cela ne sera pas tellement plus court, mais plus sûr et plus lisible.

Peut-être peux-tu commencer un Form de gestion des détails (Fichier et Image), il sera utile aussitôt un T_ASTUCEPROG ajouté. Cette gestion des détails (ou les 2 : Fichier d'une part et Image d'autre part) sont presque aussi simples que la gestion des types. Simplement, il faut y ajouter la copie d'un IdAstuce existant.

... :D
08/12/2020, 07h24
rezolu

Bonjour Phil Rob

Merci pour ton aide, mais je n'ai pas encore eu le temps de regarder pour adapter avec tes dernier messages.

Je le ferai dès que je trouve un peu de temps dans la semaine.

Par contre pour l'erreur Microsoft.ACE.OLEDB.12.0' n'est pas inscrit sur l'ordinateur local, peux -tu me dire comment l'ajouter dans le "Gestionnaire de configuration

Passe une bonne journée
08/12/2020, 08h00
Phil Rob

Bonjour Rezolu,

Je ne saurais mieux t'expliquer que par cette vidéo : https://www.dropbox.com/s/og10skte49...86X64.mp4?dl=0 .

Probablement qu'après avoir fait le travail montré sur la vidéo, il te faudra "nettoyer" et "compiler" pour ne plus avoir d'erreur d'exécution : Menu "Générer / Nettoyer la solution et Générer / Compiler la solution".

Très bonne journée ... :D
13/12/2020, 16h51
rezolu

Bonsoir Phil Rob

J'ai enfin trouvé un peu de temps pour regardé ton exemple.
Encore un tout grand merci, mais je ne comprend pas bien la façon dont son enregistrée les données du formulaire FconfirmeTypes est-il possible de modifie, ajouter ou supprimer directement via le formulaire FgestTypes.

Si tu pouvait me mettre un exemple d'ajout, modif et suppression directement dans le formulaire FgestTypes se serait super.

Merci d'avance

Bonne soirée
13/12/2020, 20h07
Phil Rob

Bonjour Rezolu,

Les modifications, ajouts et suppressions sont effectuées directement dans FGestType, sur base de ce qui est encodé dans TBTypes, la seule TextBox du Form (il n'y a qu'un seul champ à saisir, donc une seule TextBox suffit).

Mon choix est de commander l'enregistrement dans la DB aussitôt que cette TextBox perd le Focus (sur événement Leave). Mais lorsque l'utilsatuer quitte la TextBox (par exemple en cliquant sur "Suivant"), j'utilise le FConfimeType pour savoir s'il veut ajouter une nouvelle donnée ou bien modifier celle qui était affichée dans la TextBox avant qu'il y tape autre chose. C'est à cet endroit aussi que je demande la confimation d'une suppression? As-tu regarder la vidéo ?

Mais tu peux organiser l'ergonomie autrement selon ce que tu veux (l'uilisateur doit-il annoncer préalablement son intention d'ajouter, ou modifier, acceptes-tu d'enregistrer une modif ou une suppression sans requérir la confirmation, et tant pis s'il a juste laissé tomber sur le clavier, la pomme qu'il était entrain de manger ...). Mais là, je ne peux organiser à ta place ...

Le programme que je t'ai envoyé montre comment effectuer les enregistrements dans la DB avec les procédures ModifierType(), SupprimerType() et AjouterType() qui réalisent l'opération sur base des données du DataTable et de l'ID qu'on leur passe.

Je ne vais sans doute pas avoir trop de temps dans les quelques jours qui viennent, mais si je peux t'aider, je le ferai dès que possible.

:)

Bonsoir Phil Rob

J'ai trouvé la solution pour intégrer directement les commandes dans le formulaire gestion type sans passer par FconfirmeType

Je te joint le code, cela te parait claire?

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 BAjouter_Click(sender As Object, e As EventArgs) Handles BAjouter.Click
        'Resultat = 1
        Dim NouvelId As Integer
        If AjouterType(NouvelId, TBTypes.Text) Then ' reçoit le nouvel ID par ByRef de NouvelId
            MesTypes.Tables(NomTableTypes).Rows.Add(NouvelId, TBTypes.Text) ' Si ok, on ajoute au DataTable
            ChargeDonnees()
            MontreDonnees()
        End If
        'Me.Close()
    End Sub
 
    Private Sub BModifier_Click(sender As Object, e As EventArgs) Handles BModifier.Click
        Dim ValeurEnregistement As String = DGVTout.Item("Type", DGVTout.CurrentRow.Index).Value
        Dim IdEnregistrement As Integer = DGVTout.Item("IdType", DGVTout.CurrentRow.Index).Value
        MesTypes.Tables(NomTableTypes).Rows(Me.BindingContext(MesTypes.Tables(NomTableTypes)).Position).Item("Type") = TBTypes.Text
        If ModifierType(IdEnregistrement) Then
            ChargeDonnees()
            MontreDonnees()
 
            ValeurEnregistement = TBTypes.Text  ' si OK, rein à faire, cette ligne de code peut être en commentaire
        Else  ' si pas OK, il faut remettre la bonne dans l'enregistrement en cours.
            MesTypes.Tables(NomTableTypes).Rows(Me.BindingContext(MesTypes.Tables(NomTableTypes)).Position).Item("Type") = ValeurEnregistement
 
        End If
    End Sub

Peut-on regrouper la fonction ajouter et le clic bouton ajouter ensemble ?

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
34
 
Private Sub BAjouter_Click(sender As Object, e As EventArgs) Handles BAjouter.Click
                Dim NouvelId As Integer
 
ParametroConexion()
        MaConexion.Open()
        MaCommande = MaConexion.CreateCommand()
 
        SQL = "INSERT INTO T_TYPE (Type) VALUES( '" & LeType & "'); "
        MaCommande.CommandText = SQL
        If MaCommande.ExecuteNonQuery() = 1 Then
            ' Ajout effectué
        Else
            ' Erreur
            MaConexion.Close()
            MaCommande.Dispose()
            Return False
        End If
 
        SQL = " SELECT MAX(IdType) FROM T_TYPE"
        MaCommande.CommandText = SQL
        Id = MaCommande.ExecuteScalar()
 
        MaConexion.Close()
        MaCommande.Dispose()
        Return True
 
        If AjouterType(NouvelId, TBTypes.Text) Then ' reçoit le nouvel ID par ByRef de NouvelId
            MesTypes.Tables(NomTableTypes).Rows.Add(NouvelId, TBTypes.Text) ' Si ok, on ajoute au DataTable
            ChargeDonnees()
            MontreDonnees()
        End If
        'Me.Close()
    End Sub

Par contre je ne sais pas quel code mettre pour supprimer un enregistrement.

Bonne soirée

Salut,

Après hésitations (et sans tester), je crois que tu peux effectivement procéder comme tu le fais. Finalement, tu mets sous l'événementielle de chaque bouton le code que j'ai placé dans TBTypes_Leaves.
Il est important de conserver à part ces procédures qui agissent réellement sur la DB (un peu comme dans une cuisine professionnelle : on ne traite pas le "froid" et le "chaud" sur le même plan de travail ... comparaison à la mode ... :D:D:D ). Remarque que ces procédures vérifient la cohérence des opérations demandées : Ne pas ajouter de doublon sur Type, ni en produire un par modification d'un autre, ne pas supprimer un type déjà lié à T_ASTUCEPROG.

Attention, dans ta procédures BAjouter, tu écris à la fois les codes d'insertion dans la DB et l'appel de ma procédure AjouterType !

Une seule chose à éviter :

Code:

1
2
3
 
            ChargeDonnees()
            MontreDonnees()

Il ne sert à rien de faire ces opérations à chaque modif ou Ajout (avec cette organisation du code) car tu agis la DB et si cela c'est bien passé, tu agis aussitôt sur le DataTable. Il en résulte que FDB et DataTable sont toujours synchro, pas besoin de recharger.

Je vois que j'ai modifié les procédures depuis mon dernier envoi, notamment sur le contrôle anti doublon en modif, et l'usage des paramètres "SQL" (ils te seront bien utiles quand tu travailleras sur des enregistrements plus longs). Je te suggère d'utiliser celles-ci :

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
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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
 
    Private Function SupprimerType(Id As Integer) As Boolean
        Dim SQL As String
 
        ParametroConexion()
        MaConexion.Open()
        MaCommande = MaConexion.CreateCommand()
 
        SQL = " SELECT COUNT(XIdTypeAstuce) FROM T_ASTUCEPROG WHERE XIdTypeAstuce = " & Id & "; "
        MaCommande.CommandText = SQL
        If MaCommande.ExecuteScalar() > 0 Then
            ' On ne peut supprimer un Type référencé dans T_ASTUCEPROG
            MaConexion.Close()
            MaCommande.Dispose()
            Return False
        End If
 
        SQL = "DELETE FROM T_TYPE WHERE IdType = @IdType;"
        MaCommande.CommandText = SQL
 
        MaCommande.Parameters.AddWithValue("@IdType", Id)
 
        If MaCommande.ExecuteNonQuery() = 1 Then
            ' Suppression effectée
        Else
            ' Erreur
            MaConexion.Close()
            MaCommande.Dispose()
            Return False
        End If
 
        MaConexion.Close()
        MaCommande.Dispose()
        Return True
    End Function
 
    Private Function ModifierType(Id As Integer) As Boolean
        Dim SQL As String
 
        ParametroConexion()
        MaConexion.Open()
        MaCommande = MaConexion.CreateCommand()
 
        ' Traiter ici l'indertiction de doublon sur Type
        SQL = "SELECT COUNT(IdType) FROM T_Type WHERE Type = @LeType; "
        MaCommande.CommandText = SQL
        MaCommande.Parameters.AddWithValue("@LeType", MesTypes.Tables(NomTableTypes).Rows(Me.BindingContext(MesTypes.Tables(NomTableTypes)).Position).Item("Type"))
        If MaCommande.ExecuteScalar() > 0 Then
            ' On ne peut créer un doublon sur Type
            MaConexion.Close()
            MaCommande.Dispose()
            Return False
        End If
 
        SQL = "UPDATE T_TYPE SET Type = @LeType WHERE IdType = @IdType; "
        MaCommande.CommandText = SQL
 
        MaCommande.Parameters.AddWithValue("@IdType", Id)
 
        If MaCommande.ExecuteNonQuery() = 1 Then
            ' Modif effectée
        Else
            ' Erreur
            MaConexion.Close()
            MaCommande.Dispose()
            Return False
        End If
 
        MaConexion.Close()
        MaCommande.Dispose()
        Return True
    End Function
 
    Private Function AjouterType(ByRef Id As Integer, ByVal LeType As String) As Boolean
        Dim SQL As String
 
        ParametroConexion()
        MaConexion.Open()
        MaCommande = MaConexion.CreateCommand()
 
        SQL = "INSERT INTO T_TYPE (Type) VALUES (@LeType); "
        MaCommande.CommandText = SQL
 
        MaCommande.Parameters.AddWithValue("@LeType", LeType)
 
        If MaCommande.ExecuteNonQuery() = 1 Then
            ' Ajout effectué
        Else
            ' Erreur
            MaConexion.Close()
            MaCommande.Dispose()
            Return False
        End If
 
        ' Lire le dernier ID attribué pour la mise à jour du DataTable (retour par paramètre ByRef)
        SQL = "SELECT MAX(IdType) FROM T_TYPE"
        MaCommande.CommandText = SQL
        Id = MaCommande.ExecuteScalar()
 
        MaConexion.Close()
        MaCommande.Dispose()
        Return True
    End Function

15/12/2020, 07h20
rezolu

Bonjour Phil Rob

Merci pour ton code, je teste cela ce soir.

Par contre pour le formulaire ou il y a les fichier je voudrai ajouter un bouton qui ouvre un formulaire pour ajouter des fichiers dans la liste, quelle instruction je dois utiliser pour ouvrir le formulaire sur le bon enregistrement.

Merci

Bonne journée
15/12/2020, 07h48
Phil Rob

Bonjour,

Pourquoi ne te contentes-tu pas d'un bouton Ajouter ? Car, comme pour les Types, avec les fichiers (et les images), tu ne peux ajouter qu'un seul champ à la fois.
Un bouton "Ajouter à la liste" qui ouvrirait une OpenFileDialogBox te permetrait d'aller chercher le (et mêmes les) fichier(s) à ajouter.
Je suppose que c'est exactement ce que tu feras dans un Form secondaire.

Mais pour répondre à ta question, tu peux passer l'ID de T_ASTUCEPROG en cours à une variable Public ou Friend du Form secondaire, et aussi si tu veux, ce dernier peux lire la valeur d'une variable Public ou Friend du Form principal. Nous avons déjà travaillé ces méthodes dans ton problème précédent (les Gammes).

C'est curieux comme les approches peuvent être tellement différentes en matière d'ergonomie ... J'estime l'usage de Form de confirmation avant action sur la DB très important et je n'utiliserai pas de Form secondaire pour la saisie d'un enregistrement d'un seul champs. Toi, tu fais exactement le contraire ! Et les deux approches se valent !!!

Bonne journée,

:D
15/12/2020, 08h53
rezolu

Bonjour Phil Rob

Oui je testerai avec un bouton ajouter comme pour Type

Bonne journée
17/12/2020, 08h11
rezolu

Bonjour Phil Rob

Ci-joint une capture d'écran avec la ligne qui pose problème.

Bonne journée
Pièce jointe 586836

Bonjour Resolu,

Je suppose que cela s'exécute dans FDGVEtListes (ou sa copie) puisque c'est là que se trouvent les procédures ChargeDonnees et MontreDonnees (que tu ne dois pas appeler puisque l'algorithme tient à jour et la DB et les DataTable : dans le cas précis de cet exemple, tu ne verras jamais le résultat de ton ajout de fichier vu qu'il n'est pas enregistré dans la DB et que tu recharges cette DB).

Alors, par rapport aux erreurs ...

Vu que l'ajout en DB n'est pas fait, tu ne reçois pas de ID pour le fichier. Il s'ensuit que ID vaut 0 et qu'au cours des différents essais que tu réalises, tu vas ajouter plusieurs fichiers avec un ID = 0. Cela risque de poser des problèmes dans la suite.

Pour ce qui est de l'erreur révélée par le message, je soupçonne que NomTableFichier n'existe pas ou bien que cette variable contienne un nom de table qui n'existe pas dans le DataTable.

Dans mon code, un DataTable est créée pour les fichiers dans ChargesDetails. Cette table ne contient que les fichiers liés au T_ASTUCEPROG en cours. En principe, tes ajouts de fichiers doivent se faire dans le même contexte. Mais dans mon code, ce DataTable s'appelle "TFichier" et je n'ai défini aucune variable NomTableFichier.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 '... ... ... SQL = "SELECT Fichier FROM T_FICHIER WHERE XIdAstuceFichier = " & IdAstuceEnCours Dim MonAdapter As OleDbDataAdapter = New OleDbDataAdapter(SQL, MaConexion) If Not MonAdapter Is Nothing Then Dim UneDataTable As New DataTable MonAdapter.Fill(UneDataTable) UneDataTable.TableName = "TFichier" MesAstuces.Tables.Add(UneDataTable) End If '... ... ...
... :D

17/12/2020, 09h17
rezolu

Bonjour Phil Rob

Je me permet de joindre mon projet car je n'y arrive pas

Merci

Voir 40 message(s) de cette discussion en une page