Lecture base access

**lqayoub** · 13/05/2016, 01h10

Salut !

J'ai un problème au mon projet de fin d'étude !
j'ai besoin d'un code vb qui m'à aidé pour relier le champs de dant_mal d' access avec les cas ç cocher de visual basic.net !
et merci ! : )
Nom : Untitled 1.jpg
Affichages : 507
Taille : 54,4 Ko

Nom : Untitled 1.jpg
Affichages : 507
Taille : 54,4 Ko

**jopopmk** · 13/05/2016, 07h41

Salut,

... toi tu vas être bien reçu

"j'ai besoin d'un code" n'a, à ma connaissance, jamais rien amené de bon.
De plus le titre de ton sujet devrait refléter le problème, pas son urgence ou son contexte.
Que ce soit pour le travail, l'école ou 4fun n'a pas vraiment d'importance.

Sinon qu'as-tu comme code actuellement ? Qu'as-tu essayé pour pallier ton problème ?

Invité · 13/05/2016, 14h06

Nom : téléchargement.jpg
Affichages : 248
Taille : 3,1 Ko

**ZenZiTone** · 13/05/2016, 14h32

Envoyé par lqayoub

j'ai besoin d'un code vb qui m'à aidé pour relier le champs de dant_mal d' access avec les cas ç cocher de visual basic.net !
Nom : Untitled 1.jpg
Affichages : 507
Taille : 54,4 Ko

Tu as besoin de développer un code VB pour relier le champ x de ta base access à un composant logiciel (Winform sûrement).

Dans ce cas, on pourra t'aider si tu as des bloquages lors du développement ! Mais sûrement pas te donner une réponse toute faite

Tu peux dors et déjà regarder le tutoriel : Cours complet pour apprendre VB.NET

Il est très complet et aborde plus de sujet que ce dont tu as besoin, je te laisse fouiller et trouver tes réponses.

**lqayoub** · 13/05/2016, 17h02

Voila M. @jopopmk

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
Dim rech As String = Txt_Rechercher.Text
        Dim sx, ea, dm As String
        Dim SQL_rech As String = "select * From T_Patient where Nom like '" & rech & "'"
        Dim cmd As New OleDbCommand(SQL_rech, maconnection)
        maconnection.Open()
        Dim dtred = cmd.ExecuteReader
        If dtred.Read = True Then
            Txt_CNI.Text = dtred.Item(1).ToString
            Txt_Nom.Text = dtred.Item(2).ToString
            Txt_Prenom.Text = dtred.Item(3).ToString
            DateTimePicker_Naissance.Value = dtred.Item(4).ToString
            Txt_Tele.Text = dtred.Item(5).ToString
            sx = Trim(dtred.Item(6).ToString)
            If sx = "Masculin" Then
                Rad_Musculin.Checked = True
            ElseIf sx = "Femminin" Then
                Rad_Femminin.Checked = True
            End If
            Txt_Adress.Text = Trim(dtred.Item(7).ToString)
            Cmb_NaturesOperation.Text = Trim(dtred.Item(8).ToString)
            Txt_Prix.Text = Trim(dtred.Item(9).ToString)
            Txt_Paiment.Text = Trim(dtred.Item(10).ToString)
            Txt_Reset.Text = Trim(dtred.Item(11).ToString)
            ea = Trim(dtred.Item(12).ToString)
            If ea = "Enfant" Then
                Rad_Enfant.Checked = True
            Else
                Rad_Adult.Checked = True
            End If
            dm = Trim(dtred.Item(13).ToString)
            If dm = "  like %55," Then
                Check_55.Checked = True
            End If
            If dm = "  like %54," Then
                Check_54.Checked = True
            End If
            If dm = " like %53," Then
                Check_53.Checked = True
            End If

**ebastien** · 13/05/2016, 17h31

Bonjour,

Tu peux faire :

Code :

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

Check_55.Checked = dm.Contains("55")

Pense à la balise [CODE] (le dièse dans la barre d'outils)

**lqayoub** · 17/05/2016, 03h15

Merci beaucoup

Desolé, Mais tu peux me aidé encore s'il te plait
maintenant je veux supprimer l'espase dans un champs sur accéss, par ce que, l'enregistrement qui enregistrer avec lui, il me faire beaucoup des problem sure la recherche !
ps : désolé pour mon niveaux de français !
Nom : Sans titre.JPG
Affichages : 232
Taille : 5,8 Ko

Nom : Sans titre.JPG
Affichages : 232
Taille : 5,8 Ko

Invité · 17/05/2016, 07h07

Bonjour,

Txt_Nom.Text = dtred.Item(2).ToString.Trim!

Ça c'est du Vba pas du . Net!
ea = Trim(dtred.Item(12).ToString

**lqayoub** · 17/05/2016, 22h04

Merci Beaucoup !
Mais encore même problème !
Voila Mon code comptel de button enregister !

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
Private Sub But_Enregister_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But_Enregister.Click
        Dim savlnto As New OleDb.OleDbCommand
        Dim dtadapter As New OleDbDataAdapter(sql_Patient, maconnection)
        savlnto.Connection = maconnection
        savlnto.CommandType = CommandType.Text
        savlnto.CommandText = "insert into T_Patient(Numero_Patient,CIN_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)" & " values (' " & Txt_Num_Patient.Text.Trim & " ',' " & Txt_CNI.Text.Trim & " ',' " & Txt_Nom.Text.Trim & " ',' " & Txt_Prenom.Text.Trim & " ',' " & DateTimePicker_Naissance.Value.ToString("dd/MM/yyyy").Trim & " ',' " & Txt_Tele.Text.Trim & " ',' " & sexe.Trim & " ',' " & Txt_Adress.Text.Trim & " ',' " & Cmb_NaturesOperation.Text.Trim & " ',' " & Txt_Prix.Text.Trim & " ',' " & Txt_Paiment.Text.Trim & " ',' " & Txt_Reset.Text.Trim & " ',' " & Enfant_Adult.Trim & " ',' " & Dants_Mal & " ',' " & Qustion_Problems & " ',' " & Txt_SousTraitmentMedicale.Text.Trim & " ',' " & Txt_PrendMedicament.Text.Trim & " ',' " & Txt_MedicamentContre.Text.Trim & " ',' " & Qustion_Allergie & " ',' " & Txt_Enceinte.Text.Trim & " ',' " & Txt_Mois.Text.Trim & " ',' " & Medicamment & " ',' " & Txt_Remarque.Text.Trim & " ',' " & Txt_ImprestionTratment.Text.Trim & " ',' " & DateTimePicker_Inscription.Value.ToString("dd/MM/yyyy").Trim & " ')"
        maconnection.Open()
        savlnto.ExecuteNonQuery()
        dtset.Clear()
        dtadapter.Fill(dtset, "T_Patient")
        maconnection.Close()
        MsgBox("votre nouveau enregistrement et bien enregistrer")
 
        Txt_Nom.Clear()
        Txt_Prenom.Clear()
        If Rad_Femminin.Checked = False Then
            Rad_Femminin.Checked = True
        End If
        If Rad_Musculin.Checked = False Then
            Rad_Musculin.Checked = True
        End If
        'DateTimePicker_Inscription.Refresh()
        Txt_CNI.Clear()
        Txt_Adress.Clear()
        Txt_Tele.Clear()
        Cmb_NaturesOperation.Text = ""
        Txt_Prix.Clear()
        Txt_Paiment.Clear()
        Txt_Reset.Clear()
        'Dant_Mal
        'Qustion santé
        Txt_SousTraitmentMedicale.Clear()
        Txt_MedicamentContre.Clear()
        Txt_PrendMedicament.Clear()
        Txt_Enceinte.Clear()
        Txt_Mois.Clear()
        'Question allergie
        Txt_Remarque.Clear()
        'Medicament
        Txt_ImprestionTratment.Clear()
    End Sub

Invité · 18/05/2016, 09h59

Bonjour,
Je ne sais pas quel est le problème exactement, mais je note que tu mets des espaces dans ta requête!
,' " & Txt_Prenom.Text.Trim & " ',' " & DateTimePicker_Naissance.Value.ToString("dd/MM/yyyy").Trim & " ',!

,'" & Txt_Prenom.Text.Trim & "','"& DateTimePicker_Naissance.Value.ToString("dd/MM/yyyy").Trim & "',

**lqayoub** · 18/05/2016, 11h14

Merci beaucoup

**lqayoub** · 19/05/2016, 01h53

Merci encore M. @rdurupt
maintenant le code dinterface ajouter est valider !
Mais j'ai un autre problem dans la button modifier, les enregistrement ne sont pas modifier dans la bas de donnée access

Code :

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

1
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"

et desolé pour dérangement

Invité · 19/05/2016, 08h08

Bonjour,
Les mêmes causes produisent les mêmes effets!

Code :

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

where Nom=  '" & n & " ' "

si tu gère tes requêtes de cette façon, tu n'auras plus de problème avec le Schpountz [']!

Code :

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

1
2
3
4
5
6
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("@Numero_Patient", OleDbType.VarWChar, 255).Value = Txt_Nom.Text.Trim
        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")

**lqayoub** · 19/05/2016, 14h59

Tous les politesses ne suffisent pas à exprimer mes remerciements
Merci Merci Merci Merci .......

**lqayoub** · 19/05/2016, 20h07

Desolé encore !
Mais j'ai un ereurr :/
Nom : Sans titre.JPG
Affichages : 379
Taille : 238,4 Ko

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

Tu peux s'il te palit, me aide par la mathode :

Code :

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

 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 & " ' "

Invité · 19/05/2016, 20h27

Je dois trouver autant de paramètres que se point d'interrogation [?]

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
 @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
@Nom

**lqayoub** · 19/05/2016, 22h56

Merci
maintenant le botton qui afficher le message "votre enregistrement etait modifier"
Mais Quand je vois la table dans l'access, l'enregistrement n'est pas modifier dans la table d'access !

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
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=@Numero_Patient,Nom=@Nom,Prenom=@Prenom,Date_Naissance=@Date_Naissance,Tele=@Tele,Sexe=@Sexe,Adresse_Residentiel=@Adresse_Residentiel,Nature_De_Operation=@Nature_De_Operation,Prix=@Prix,Paiement=@Paiement,Reset=@Reset,Enfant_Adult=@Enfant_Adult,Dants_Mal=@Dants_Mal,Qustion_Problems=@Qustion_Problems,Qustion_Medical1=@Qustion_Medical1,Qustion_Medica2=@Qustion_Medica2,Qustion_Medical3=@Qustion_Medical3,Qustion_Allergie=@Qustion_Allergie,Qustion_enceinte=@Qustion_enceinte,Qustion_enceinte_Mois=@Qustion_enceinte_Mois,Medicamment=@Medicamment,Remaque_De_Santé=@Remaque_De_Santé,Impression_traitement=@Impression_traitement,Date_Inscription=@Date_Inscription where Nom=@Nom"
        Edit_into.Parameters.Add("@Numero_Patient", OleDbType.VarWChar, 255).Value = Txt_Nom.Text.Trim
        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

Invité · 19/05/2016, 23h44

C'est presque bon!

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
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("@Numero_Patient", OleDbType.VarWChar, 255).Value = Txt_Nom.Text.Trim
        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
Edit_into.Parameters.Add("@Nom", OleDbType.VarWChar, 255).Value = Txt_Nom.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