modification base de données

**cladchildren** · 12/12/2011, 17h58

Bonjour ,

j'ai une datagrid associer a une tabcontrol qui contient des tabpage.
lorsque je clique sur une ligne de ma datagrid cela alimente les textbox d'une de mes tabpage choisi a ce moment je peut modifier mes données et lorsque je clique sur valider RIEN est pris en compte je ne comprends pas pourquoi, aucune données modifiées n'est prisent en compte.

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
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
 
    Private Sub frmModification_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        '---------------------------------Alimentation comboboxcommandant---------------------------'
        dttcommandant = Dtsvoyage.COMMANDANT
        dtacommandant.Fill(dttcommandant)
 
        bdscommandant.DataSource = Dtsvoyage
        bdscommandant.DataMember = dttcommandant.ToString
 
        Cmbcommandant.DataSource = bdscommandant 'ou dttCommandant
        Cmbcommandant.DisplayMember = dttcommandant.NOMCOMMANDANTColumn.ToString      'displaymember = ce qui apparait dans la combo = dans la combocat on prends la colonne nomcat
        Cmbcommandant.ValueMember = dttcommandant.NUMCOMMANDANTColumn.ToString   'valueMember valeur que l'on récupere ( le contenu du numéro)
 
        '---------------------------------Alimentation comboboxBateau---------------------------'
        dttbateau = Dtsvoyage.BATEAU
        dtabateau.Fill(dttbateau)
 
        bdsbateau.DataSource = Dtsvoyage
        bdsbateau.DataMember = dttbateau.ToString
 
        Cmbbateau.DataSource = bdsbateau
        Cmbbateau.DisplayMember = dttbateau.TYPEBATEAUColumn.ToString
        Cmbbateau.ValueMember = dttbateau.NUMBATEAUColumn.ToString
        '---------------------------------Alimentation comboboxTrajet---------------------------'
        dtttrajet = Dtsvoyage.TRAJET
        dtatrajet.Fill(dtttrajet)
 
        bdstrajet.DataSource = Dtsvoyage
        bdstrajet.DataMember = dtttrajet.ToString
 
        CmbTrajet.DataSource = bdstrajet
        CmbTrajet.DisplayMember = dtttrajet.HEUREDEPARTColumn.ToString
        CmbTrajet.ValueMember = dtttrajet.NUMTRAJETColumn.ToString
        '--------------------------------------------------------------------------------------'
        '---------------------------------Alimentation comboboxPort---------------------------'
        dttport = Dtsvoyage.PORT
        dtaport.Fill(dttport)
 
        bdsport.DataSource = Dtsvoyage
        bdsport.DataMember = dttport.ToString
 
        Cmbport.DataSource = bdsport
        Cmbport.DisplayMember = dttport.VILLEPORTColumn.ToString
        Cmbport.ValueMember = dttport.NUMPORTColumn.ToString
        '--------------------------------------------------------------------------------------'
        '---------------------------------Alimentation comboboxClient---------------------------'
        dttclient = Dtsvoyage.CLIENT
        dtaclient.Fill(dttclient)
 
        bdsclient.DataSource = Dtsvoyage
        bdsclient.DataMember = dttclient.ToString
 
        Cmbclient.DataSource = bdsclient
        Cmbclient.DisplayMember = dttclient.NOMCLIENTColumn.ToString
        Cmbclient.ValueMember = dttclient.NUMCLIENTColumn.ToString
        '--------------------------------------------------------------------------------------'
        dttcommandant = Dtsvoyage.COMMANDANT
        dtacommandant.Fill(dttcommandant)
 
        bdscommandant.DataSource = Dtsvoyage
        bdscommandant.DataMember = dttcommandant.ToString
        '----------------------------------
        dttbateau = Dtsvoyage.BATEAU
        dtabateau.Fill(dttbateau)
 
        bdsbateau.DataSource = Dtsvoyage
        bdsbateau.DataMember = dttbateau.ToString
        '--------------------------------
        dtttrajet = Dtsvoyage.TRAJET
        dtatrajet.Fill(dtttrajet)
 
        bdstrajet.DataSource = Dtsvoyage
        bdstrajet.DataMember = dtttrajet.ToString
        '----------------------------------------
        dttport = Dtsvoyage.PORT
        dtaport.Fill(dttport)
 
        bdsport.DataSource = Dtsvoyage
        bdsport.DataMember = dttport.ToString
        '---------------------------------
        dttclient = Dtsvoyage.CLIENT
        dtaclient.Fill(dttclient)
 
        bdsclient.DataSource = Dtsvoyage
        bdsclient.DataMember = dttclient.ToString
        '-----------------------------------------------
        dttreservation = Dtsvoyage.RESERVATION
        dtareservation.Fill(dttreservation)
        bdsreservation.DataSource = Dtsvoyage
        bdsreservation.DataMember = dttreservation.ToString
    End Sub
    Private Sub TabPagetrajet_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPagetrajet.Enter
        Dtgmodif.DataSource = bdstrajet
    End Sub
    Private Sub TabBateau_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabBateau.Enter
        Dtgmodif.DataSource = bdsbateau
    End Sub
    Private Sub Tabcommandant_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tabcommandant.Enter
        Dtgmodif.DataSource = bdscommandant
    End Sub
    Private Sub TabPort_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPort.Enter
        Dtgmodif.DataSource = bdsport
    End Sub
    Private Sub TabClient_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabClient.Enter
        Dtgmodif.DataSource = bdsclient
    End Sub
    Private Sub TabReservation_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabReservation.Enter
        Dtgmodif.DataSource = bdsreservation
    End Sub
    Private Sub Dtgmodif_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Dtgmodif.CellClick
 
        If TabPagetrajet.Focus Then
            Txtboxnumtrajet.Text = Dtgmodif.CurrentRow.Cells.Item("NUMTRAJET").Value
            Txtboxvildeptraj.Text = Dtgmodif.CurrentRow.Cells.Item("VILLEDEPART").Value
            Txtboxvilarriv.Text = Dtgmodif.CurrentRow.Cells.Item("VILLEARRIVE").Value
            Txtboxheurdep.Text = Dtgmodif.CurrentRow.Cells.Item("HEUREDEPART").Value
            Txtboxheurarr.Text = Dtgmodif.CurrentRow.Cells.Item("HEUREARRIVE").Value
            Cmbbateau.Text = Dtgmodif.CurrentRow.Cells.Item("NUMBATEAU").Value
            Cmbcommandant.Text = Dtgmodif.CurrentRow.Cells.Item("NUMCOMMANDANT").Value
        ElseIf TabBateau.Focus Then
            Txtboxnumbateau.Text = Dtgmodif.CurrentRow.Cells.Item("NUMBATEAU").Value
            Txtboxtypebateau.Text = Dtgmodif.CurrentRow.Cells.Item("TYPEBATEAU").Value
            Txtboxplacedispo.Text = Dtgmodif.CurrentRow.Cells.Item("NBRPLACEBATEAU").Value
            Txtboxvilactuel.Text = Dtgmodif.CurrentRow.Cells.Item("VILLEACTUELLE").Value
            TxtBoxetat.Text = Dtgmodif.CurrentRow.Cells.Item("ETATBATEAU").Value
        ElseIf Tabcommandant.Focus Then
            Txtboxnumcommandant.Text = Dtgmodif.CurrentRow.Cells.Item("NUMCOMMANDANT").Value
            Txtnomcomm.Text = Dtgmodif.CurrentRow.Cells.Item("NOMCOMMANDANT").Value
            Txtboxpren.Text = Dtgmodif.CurrentRow.Cells.Item("PRENOMCOMMANDANT").Value
            Txtboxvillecomm.Text = Dtgmodif.CurrentRow.Cells.Item("VILLECOMMANDANT").Value
        ElseIf TabClient.Focus Then
            Txtboxnumcli.Text = Dtgmodif.CurrentRow.Cells.Item("NUMCLIENT").Value
            Txtboxnomcli.Text = Dtgmodif.CurrentRow.Cells.Item("NOMCLIENT").Value
            Txtboxprecli.Text = Dtgmodif.CurrentRow.Cells.Item("PRENOMCLIENT").Value
            Txtadresscli.Text = Dtgmodif.CurrentRow.Cells.Item("ADRESSECLIENT").Value
        ElseIf TabPort.Focus Then
            Txtboxnumport.Text = Dtgmodif.CurrentRow.Cells.Item("NUMPORT").Value
            Txtboxvilport.Text = Dtgmodif.CurrentRow.Cells.Item("VILLEPORT").Value
            Txtboxnbremplac.Text = Dtgmodif.CurrentRow.Cells.Item("NBREMPLACEMENT").Value
        ElseIf TabReservation.Focus Then
            Txtboxnumreser.Text = Dtgmodif.CurrentRow.Cells.Item("NUMRESERVATION").Value
            TxtBoxprix.Text = Dtgmodif.CurrentRow.Cells.Item("PRIXRESERVATION").Value
            CmbTrajet.Text = Dtgmodif.CurrentRow.Cells.Item("NUMTRAJET").Value
            Cmbport.Text = Dtgmodif.CurrentRow.Cells.Item("NUMPORT").Value
            Cmbclient.Text = Dtgmodif.CurrentRow.Cells.Item("NUMCLIENT").Value
 
 
        End If
    End Sub
 
    Private Sub ButValider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButValider.Click
        Dim vRep As DialogResult
        vRep = MessageBox.Show("Etes vous sûr de vouloir modifier ce trajet ? ", "Suppression", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If vRep = Windows.Forms.DialogResult.Yes Then
            bdstrajet.EndEdit()
 
        End If
    End Sub

Merci de m'aider

**tomlev** · 12/12/2011, 18h12

Envoyé par cladchildren

lorsque je clique sur valider RIEN est pris en compte je ne comprends pas pourquoi, aucune données modifiées n'est prisent en compte aidez moi !!

C'est à dire ? Les modifications ne sont pas enregistrées dans la base de données ? Bah c'est normal, tu n'as écrit aucun code pour mettre à jour la DB...

Il faut faire appeler Update sur tes DataAdapters

Code :

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

1
2
3
4
5
6
dtacommandant.Update(dttcommandant)
dtabateau.Update(dttbateau)
dtatrajet.Update(dtttrajet)
dtaport.Update(dttport)
dtaclient.Update(dttclient)
dtareservation.Update(dttreservation)

**cladchildren** · 12/12/2011, 18h22

merci pour ta réponse j'ai effectivement essayer meme avant de poster mais sans succes :/ ou alors je l'ai mal placer j'avais placer justement ce code au formclosing de la feuille

**tomlev** · 12/12/2011, 18h26

Il faudrait plutôt le faire dans ButValider_Click, non ?

**cladchildren** · 12/12/2011, 18h30

j'ai essayer ceci :

Code :

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

1
2
3
4
5
6
7
8
 Private Sub ButValider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButValider.Click
        Dim vRep As DialogResult
        vRep = MessageBox.Show("Etes vous sûr de vouloir modifier ce trajet ? ", "Suppression", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If vRep = Windows.Forms.DialogResult.Yes Then
            bdstrajet.EndEdit()
        End If
        dtatrajet.Update(dtttrajet)
    End Sub

et

Code :

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

1
2
3
4
5
 
    Private Sub frmModification_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
 
        dtatrajet.Update(dtttrajet)
    End Sub

si on s'interessee juste a trajet mais sans succes >< je perds espoir

modification base de données

VB.NET

Vue hybride

Discussions similaires

Partager

Partager