Discussion :

[lqayoub]

j'ai un autre problem dans la button modifier, les enregistrement ne sont pas modifier dans la bas de donnée access
j'utilise deux methodes mais le meme problem !
1er methode

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
 
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Dim n As String = Trim(Txt_Rechercher.Text)
        Dim Edit_into As New OleDb.OleDbCommand
        Dim dtAdapter As New OleDbDataAdapter(sql_Patient, maconnection)
        Edit_into.Connection = maconnection
        Edit_into.CommandType = CommandType.Text
        Edit_into.CommandText = "update T_Patient set Numero_Patient='" & Trim(Txt_Nom.Text) & "', Nom= '" & Trim(Txt_Nom.Text) & "'  , Prenom= '" & Trim(Txt_Prenom.Text) & "' , Date_Naissance= '" & Trim(DateTimePicker_Naissance.Value.ToString("dd/MM/yyyy")) & "',Tele= '" & Trim(Txt_Tele.Text) & "',Sexe= '" & Trim(sexe) & "',Adresse_Residentiel= '" & Trim(Txt_Adress.Text) & "',Nature_De_Operation= '" & Trim(Cmb_NaturesOperation.Text) & "',Prix= '" & Trim(Txt_Prix.Text) & "',Paiement= '" & Trim(Txt_Paiment.Text) & "',Reset= '" & Trim(Txt_Reset.Text) & "',Enfant_Adult= '" & Trim(Enfant_Adult) & "',Dants_Mal= '" & Trim(Dants_Mal) & "',Qustion_Problems= '" & Trim(Qustion_Problems) & "',Qustion_Medical1= '" & Trim(Txt_SousTraitmentMedicale.Text) & "',Qustion_Medica2= '" & Trim(Txt_PrendMedicament.Text) & "',Qustion_Medical3= '" & Trim(Txt_MedicamentContre.Text) & "',Qustion_Allergie= '" & Trim(Qustion_Allergie) & "',Qustion_enceinte= '" & Trim(Txt_Enceinte.Text) & "',Qustion_enceinte_Mois= '" & Trim(Txt_Mois.Text) & "',Medicamment= '" & Trim(Medicamment) & "',Remaque_De_Santé= '" & Trim(Txt_Remarque.Text) & "',Impression_traitement= '" & Trim(Txt_ImprestionTratment.Text) & "',Date_Inscription= '" & Trim(DateTimePicker_Inscription.Value.ToString("dd/MM/yyyy")) & "' where Nom=  '" & n & " ' "
        maconnection.Open()
        Edit_into.ExecuteNonQuery()
        dtset.Clear()
        dtAdapter.Fill(dtset, "T_Patient")
        maconnection.Close()
        MsgBox("Votre enregistrement à ete modifie", MsgBoxStyle.Information)
        DataGridView1.DataSource = dtset
        DataGridView1.DataMember = "T_Patient"

2eme method

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
Private Sub But_Modifier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But_Modifier.Click
        Dim n As String = Trim(Txt_Rechercher.Text)
        Dim Edit_into As New OleDb.OleDbCommand
        Dim dtAdapter As New OleDbDataAdapter(sql_Patient, maconnection)
        Edit_into.Connection = maconnection
        Edit_into.CommandType = CommandType.Text
        Edit_into.CommandText = "update T_Patient set Numero_Patient=?,Nom=?,Prenom=?,Date_Naissance=?,Tele=?,Sexe=?,Adresse_Residentiel=?,Nature_De_Operation=?,Prix=?,Paiement=?,Reset=?,Enfant_Adult=?,Dants_Mal=?,Qustion_Problems=?,Qustion_Medical1=?,Qustion_Medica2=?,Qustion_Medical3=?,Qustion_Allergie=?,Qustion_enceinte=?,Qustion_enceinte_Mois=?,Medicamment=?,Remaque_De_Santé=?,Impression_traitement=?,Date_Inscription=? where Nom=?"
        Edit_into.Parameters.Add("@Nom", OleDbType.VarWChar, 255).Value = Txt_Nom.Text.Trim
        Edit_into.Parameters.Add("@Prenom", OleDbType.VarWChar, 255).Value = Txt_Prenom.Text.Trim
        Edit_into.Parameters.Add("@Date_Naissance", OleDbType.VarWChar, 255).Value = DateTimePicker_Naissance.Value.ToString("dd/MM/yyyy")
        Edit_into.Parameters.Add("@Tele", OleDbType.VarWChar, 255).Value = Txt_Tele.Text.Trim
        Edit_into.Parameters.Add("@sexe", OleDbType.VarWChar, 255).Value = sexe.Trim
        Edit_into.Parameters.Add("@Adresse_Residentiel", OleDbType.VarWChar, 255).Value = Txt_Adress.Text.Trim
        Edit_into.Parameters.Add("@Nature_De_Operation", OleDbType.VarWChar, 255).Value = Cmb_NaturesOperation.Text.Trim
        Edit_into.Parameters.Add("@Prix", OleDbType.Integer, 255).Value = Txt_Prix.Text.Trim
        Edit_into.Parameters.Add("@Paiement", OleDbType.Integer, 255).Value = Txt_Paiment.Text.Trim
        Edit_into.Parameters.Add("@Reset", OleDbType.Integer, 255).Value = Txt_Reset.Text.Trim
        Edit_into.Parameters.Add("@Enfant_Adult", OleDbType.VarWChar, 255).Value = Enfant_Adult.Trim
        Edit_into.Parameters.Add("@Dants_Mal", OleDbType.VarWChar, 255).Value = Dants_Mal.Trim
        Edit_into.Parameters.Add("@Qustion_Problems", OleDbType.VarWChar, 255).Value = Qustion_Problems.Trim
        Edit_into.Parameters.Add("@Qustion_Medical1", OleDbType.VarWChar, 255).Value = Txt_SousTraitmentMedicale.Text.Trim
        Edit_into.Parameters.Add("@Qustion_Medica2", OleDbType.VarWChar, 255).Value = Txt_PrendMedicament.Text.Trim
        Edit_into.Parameters.Add("@Qustion_Medical3", OleDbType.VarWChar, 255).Value = Txt_MedicamentContre.Text.Trim
        Edit_into.Parameters.Add("@Qustion_Allergie", OleDbType.VarWChar, 255).Value = Qustion_Allergie.Trim
        Edit_into.Parameters.Add("@Qustion_enceinte", OleDbType.VarWChar, 255).Value = Txt_Enceinte.Text.Trim
        Edit_into.Parameters.Add("@Qustion_enceinte_Mois", OleDbType.VarWChar, 255).Value = Txt_Mois.Text.Trim
        Edit_into.Parameters.Add("@Medicamment", OleDbType.VarWChar, 255).Value = Medicamment.Trim
        Edit_into.Parameters.Add("@Remaque_De_Santé", OleDbType.VarWChar, 255).Value = Txt_Remarque.Text.Trim
        Edit_into.Parameters.Add("@Impression_traitement", OleDbType.VarWChar, 255).Value = Txt_ImprestionTratment.Text.Trim
        Edit_into.Parameters.Add("@Date_Inscription", OleDbType.VarWChar, 255).Value = Txt_ImprestionTratment.Text.Trim
        maconnection.Open()
        Edit_into.ExecuteNonQuery()
        dtset.Clear()
        dtAdapter.Fill(dtset, "T_Patient")
        maconnection.Close()
        MsgBox("Votre enregistrement à ete modifie", MsgBoxStyle.Information)
        DataGridView1.DataSource = dtset
        DataGridView1.DataMember = "T_Patient"
    End Sub

[aserf]

Bonjour,

Pourquoi n'utilisez vous pas le CommandBuilder ? il vous permet de Créé automatiquement les Commande Select/Update/Delete/Insert.
ce qui vous permet d’être sur de bien écrire votre requette.

Ensuite il peut être plus simple de faire une datatable avec un Fill, ensuite vous pourrez Ajouter/Modifier/Supprimer des enregistrements puis laisser le dataAdapter faire le travail avec un Update ?

Cordialement,