problème de sauvegarde d'une 2ème datagridview

**norddist** · 23/08/2010, 01h20

Bonjour à tous,

j'ai crée une 2ème datagridview nomé table_commande qui se trouve dans la même fenetre (form1),
le tableau de cette datagridview se trouve en bas et s'intitule: "pièces à commander",en bas de l'aplication quand on la lance, voir la copie d'écran en attaché au message,
quand j'appuye sur le bouton "Sauver" j'ai une syntaxe erreur quand je lance
l'aplication,l'erreur est:

Erreur 1 Une valeur de type 'projet_inventaire.Database_commandeDataSet1' ne peut pas être convertie en 'projet_inventaire.database_inventaireDataSet1'. C:\Users\compaq\Desktop\projet_inventaire1\projet_inventaire\projet_inventaire\Form1.vb 116 42 projet_inventaire

ci-joint en attaché des screen copy.

P.S.
La 1ère datagridview table_inventaire (1er tableau en haut intitulé "stock de pièces dans la camionette" je n'ai pas ce pbm car le bouton "Sauver" marche trés bien, car le tableau se sauvegarde bien (quand je quite l'aplication et que je relance les données sont bien enregistrées)

le code est :

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
90
91
92
93
94
95
96
97
98
99
100
 
Public Class Form1
 
    Private Sub Table_inventairBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
        Me.Table_inventairBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database_inventaireDataSet1)
        'sous prog de creation de la base de données au tout début du projet
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO : cette ligne de code charge les données dans la table 'Database_commandeDataSet1.Table_commande'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.Table_commandeTableAdapter.Fill(Me.Database_commandeDataSet1.Table_commande)
        'TODO : cette ligne de code charge les données dans la table 'Database_inventaireDataSet1.Table_inventair'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.Table_inventairTableAdapter.Fill(Me.Database_inventaireDataSet1.Table_inventair)
 
    End Sub
 
    'déclaration de la table_inventaire 
    Private Sub Table_inventairDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Table_inventairDataGridView.CellContentClick
 
    End Sub
 
    'bouton AddSAP (ajout de réfences pièces détachée dans la table_inventaire)
    Private Sub Button1AddSAP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1AddSAP.Click
        Me.Table_inventairBindingSource.AddNew()
    End Sub
 
    'bouton RemoveSAP (suprimer une référence de pièce détaché dans la table_inventair)
    Private Sub Button2RemoveSAP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2RemoveSAP.Click
        Me.Table_inventairBindingSource.RemoveCurrent()
    End Sub
 
    'bouton Save (sauvegade des modification apportées à la table_inventair)
    Private Sub Button3Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3Save.Click
        Me.Validate()
        Me.Table_inventairBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database_inventaireDataSet1)
    End Sub
 
 
    'onglet recherche suivant SAP (référence de pièce détachée de la table_inventair)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Me.Table_inventairTableAdapter.FillBySAP(Me.Database_inventaireDataSet1.Table_inventair, TextBox1.Text)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
    End Sub
 
 
    'bouton recherche suivant Description (Description de pièce de la table_cinventaire)
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Me.Table_inventairTableAdapter.FillByDescription(Me.Database_inventaireDataSet1.Table_inventair, TextBox2.Text)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
 
    End Sub
 
 
 
 
    'bouton recherche suivant Box (Boite de rangement des pièce de la table_inventaire)
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Try
            Me.Table_inventairTableAdapter.FillByNumBox(Me.Database_inventaireDataSet1.Table_inventair, TextBox3.Text)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
 
    End Sub
 
    'bouton "afficher tout" pour aficher toutes les pièces de la table_inventaire
    Private Sub FillBySAP2ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FillBySAP2ToolStripButton.Click
        Try
            Me.Table_inventairTableAdapter.FillBySAP2(Me.Database_inventaireDataSet1.Table_inventair, SAPToolStripTextBox.Text)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
 
    End Sub
 
    'bouton pour augmenter la quantité d'une pièce dans la table_inventaire
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Table_inventairBindingSource.Current.row.Quantity = Table_inventairBindingSource.Current.row.Quantity + 1
    End Sub
 
    'bouton pour diminuer la quantité d'une pièce dans la table_inventaire
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Table_inventairBindingSource.Current.row.Quantity = Table_inventairBindingSource.Current.row.Quantity - 1
    End Sub
 
 
 
    Private Sub Table_commandeDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Table_commandeDataGridView.CellContentClick
 
    End Sub
    'déclaration de la table_commande

D'avance merci.

**methylene** · 23/08/2010, 09h30

Salut,

Tu mets le code de tes différents boutons, mais je ne vois pas le code correspondant au bouton "save" de ton 2ème DGV.

De plus,

Code :

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

1
2
3
4
5
6
    Private Sub Table_inventairBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
        Me.Table_inventairBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database_inventaireDataSet1)
        'sous prog de creation de la base de données au tout début du projet
    End Sub

Il manque le Handler sur ce bouton il me semble.

**norddist** · 23/08/2010, 10h35

Envoyé par methylene

Salut,

Tu mets le code de tes différents boutons, mais je ne vois pas le code correspondant au bouton "save" de ton 2ème DGV.

De plus,

Code :

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

1
2
3
4
5
6
    Private Sub Table_inventairBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
        Me.Table_inventairBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database_inventaireDataSet1)
        'sous prog de creation de la base de données au tout début du projet
    End Sub

Il manque le Handler sur ce bouton il me semble.

c'est juste il manque la fin du code qui n'est pas passé,
Qu'est ce le "handler" et à quoi sert-il?
Mais je ne comprend pas car le bouton dont tu me parle marche tres bien pour la 1ère DGV de la table_inventaire.
le code du bouton "Save" de la 2ème DGV (table_commande se trouve à la fin de ce code:

voici la 2ème partie du 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
    'bouton AddSAP (ajout de réfences pièces détachée dans la table_commande)
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.Table_commandeBindingSource.AddNew()
    End Sub
 
    'bouton RemoveSAP (suprimer une référence de pièce détaché dans la table_commande)
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Me.Table_commandeBindingSource.RemoveCurrent()
    End Sub
 
    'bouton Save (sauvegade des modification apportées à la table_commande)
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Me.Validate()
        Me.Table_commandeBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database_commandeDataSet1)
    End Sub
 
 
End Class

**methylene** · 23/08/2010, 10h45

Le Handler, c'est ce qui va faire qu'un Sub et un contrôle vont être lié et généré une action "écrite" dans le Sub rapporté au Handler.

Par exemple :

Code :

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

Handles Button6.Click

Ou encore :

Code :

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

Handles MyBase.Load

Quand tu créés des contrôles par le mode création, normalement les Handler s'ajoutent automatiquement.

hors sur le bout de code que ej t'ai cité, tu sembles déclenché un Click, mais le Handler n'est pas présent :

Code :

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

    Private Sub Table_inventairBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Mais si cela fonctionne, tant mieux :-).

**norddist** · 23/08/2010, 11h10

Envoyé par methylene

Le Handler, c'est ce qui va faire qu'un Sub et un contrôle vont être lié et généré une action "écrite" dans le Sub rapporté au Handler.

Par exemple :

Code :

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

Handles Button6.Click

Ou encore :

Code :

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

Handles MyBase.Load

Quand tu créés des contrôles par le mode création, normalement les Handler s'ajoutent automatiquement.

hors sur le bout de code que ej t'ai cité, tu sembles déclenché un Click, mais le Handler n'est pas présent :

Code :

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

    Private Sub Table_inventairBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Mais si cela fonctionne, tant mieux :-).

ok merci pour l'explication du Handler,

oui mais cela ne fonctionne pas pour la 2ème dgv.

**norddist** · 03/09/2010, 16h04

bonjours à tous,

j'apporte une précision supplémentaire.

je join le code avec la ligne soulignée qui crée l'erreur (la ligne se trouve à la fin du code, l'endroit concernée: "Me.Database_commandeDataSet1"),
et bizarement quand je déplace le code de ce bouton "save" à un autre endroit du code ce n'est plus cette ligne qui est soulignée mais une autre mais tjr dans le même code c'est à dire "buton8_click", là je ne comprend plus:

si vous pouvez m'éclaircir !!!!!!!!
d'avance merci pour votre aide.

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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO : cette ligne de code charge les données dans la table 'Database_commandeDataSet1.Table_commande'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.Table_commandeTableAdapter.Fill(Me.Database_commandeDataSet1.Table_commande)
        'TODO : cette ligne de code charge les données dans la table 'Database_inventaireDataSet1.Table_inventair'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.Table_inventairTableAdapter.Fill(Me.Database_inventaireDataSet1.Table_inventair)
 
    End Sub
 
    '================================= code la 1ère datagridview table_inventaire ====================================================
 
    'déclaration de la table_inventaire 
    Private Sub Table_inventairDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Table_inventairDataGridView.CellContentClick
 
    End Sub
 
    'bouton AddSAP (ajout de réfences pièces détachée dans la table_inventaire)
    Private Sub Button1AddSAP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1AddSAP.Click
        Me.Table_inventairBindingSource.AddNew()
    End Sub
 
    'bouton RemoveSAP (suprimer une référence de pièce détaché dans la table_inventair)
    Private Sub Button2RemoveSAP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2RemoveSAP.Click
        Me.Table_inventairBindingSource.RemoveCurrent()
    End Sub
 
    'bouton Save (sauvegade des modification apportées à la table_inventair)
    Private Sub Button3Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3Save.Click
        Me.Validate()
        Me.Table_inventairBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database_inventaireDataSet1)
    End Sub
 
 
    'onglet recherche suivant SAP (référence de pièce détachée de la table_inventair)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Me.Table_inventairTableAdapter.FillBySAP(Me.Database_inventaireDataSet1.Table_inventair, TextBox1.Text)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
    End Sub
 
    'bouton recherche suivant Description (Description de pièce de la table_cinventaire)
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Me.Table_inventairTableAdapter.FillByDescription(Me.Database_inventaireDataSet1.Table_inventair, TextBox2.Text)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
 
    End Sub
 
    'bouton recherche suivant Box (Boite de rangement des pièce de la table_inventaire)
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Try
            Me.Table_inventairTableAdapter.FillByNumBox(Me.Database_inventaireDataSet1.Table_inventair, TextBox3.Text)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
 
    End Sub
 
    'bouton "afficher tout" pour aficher toutes les pièces de la table_inventaire
    Private Sub FillBySAP2ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FillBySAP2ToolStripButton.Click
        Try
            Me.Table_inventairTableAdapter.FillBySAP2(Me.Database_inventaireDataSet1.Table_inventair, SAPToolStripTextBox.Text)
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
 
    End Sub
 
    'bouton pour augmenter la quantité d'une pièce dans la table_inventaire
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Table_inventairBindingSource.Current.row.Quantity = Table_inventairBindingSource.Current.row.Quantity + 1
    End Sub
 
    'bouton pour diminuer la quantité d'une pièce dans la table_inventaire
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Table_inventairBindingSource.Current.row.Quantity = Table_inventairBindingSource.Current.row.Quantity - 1
    End Sub
 
 
    '================================= code la 2ème datagridview table_commande ====================================================
 
    'déclaration de la table_commande
    Private Sub Table_commandeDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Table_commandeDataGridView.CellContentClick
 
    End Sub
 
    'bouton AddSAP (ajout de réfences pièces détachée dans la table_commande)
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.Table_commandeBindingSource.AddNew()
    End Sub
 
    'bouton RemoveSAP (suprimer une référence de pièce détaché dans la table_commande)
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Me.Table_commandeBindingSource.RemoveCurrent()
    End Sub
 
    'bouton Save (sauvegade des modification apportées à la table_commande)
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Me.Validate()
        Me.Table_commandeBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database_commandeDataSet1)
    End Sub
 
End Class

Envoyé par norddist

ok merci pour l'explication du Handler,

oui mais cela ne fonctionne pas pour la 2ème dgv.

problème de sauvegarde d'une 2ème datagridview

VB.NET

Vue hybride

Discussions similaires

Partager

Partager