Discussion :

[matamat59]

Bonjour à tous ,

j'ai créer une base de donnée avec des nom prénom .....

dans mon code je n'ai pas de problème pour effacer , créer , enregistrer mais je rencontre un problème quand je souhaites modifier .

j'ai cette alarme :



et voici mon code pour la page :

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
Imports System.IO
 
Public Class formulaire_patient
    Private Sub formulaire_patient_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 'Base_de_donnée_patientDataSet.donnée_patient'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.Donnée_patientTableAdapter.Fill(Me.Base_de_donnée_patientDataSet.donnée_patient)
 
    End Sub
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles insert_photo.Click
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            PictureBox1.ImageLocation = OpenFileDialog1.FileName
 
        End If
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Print.Click
        Dim PageSetupDialog As New PageSetupDialog()
        PageSetupDialog.Document = PrintDocument1
        PageSetupDialog.PageSettings.Landscape = False
        Me.PrintDocument1.Print()
    End Sub
 
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        Dim bmp As New Bitmap(Me.Width, Me.Height, Imaging.PixelFormat.Format32bppArgb)
        Me.DrawToBitmap(bmp, New Rectangle(0, 0, Me.Width, Me.Height))
        e.Graphics.DrawImage(bmp, 10, 10)
    End Sub
 
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles precedent.Click
        DonnéepatientBindingSource.MovePrevious()
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles suivant.Click
        DonnéepatientBindingSource.MoveNext()
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles création_fiche.Click
        DonnéepatientBindingSource.AddNew()
    End Sub
 
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Delette.Click
        DonnéepatientBindingSource.RemoveCurrent()
    End Sub
 
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save.Click
        If TextBox1.Text = Nothing Then
            MsgBox("il manque une donnée", MsgBoxStyle.Exclamation, "vérification")
        End If
        DonnéepatientBindingSource.EndEdit()
        Donnée_patientTableAdapter.Update(Base_de_donnée_patientDataSet)
    End Sub
 
 
End Class

merci d'avance

Matthieu

[r.morel]

Salut,
Tu dois modifier ton TableAdapter et renseigner la requête pour l'update

[matamat59]

bon normalement c'est bon , mais j'ai un autre message qui apparaît quand je veux enregistrer ma modifictaion:

Prepare : la propriété CommandText n'a pas été initialisée.

des idées ?

[Sankasssss]

Bonjour,

as-tu renseigné l'UpdateCommand comme dit par r.morel?
Si oui, peux-tu nous montrer cette partie du code?

[matamat59]

Je ne comprend pas ce que je dois faire .

Je suis débutant dans VB et j'ai été dans les paramètre de la table adaptater .

Je n'ai pas modifié mon code ( voir plus haut )

as tu un exemple de ligne que je dois rajouter ?

merci d'avance

Matthieu

[Sankasssss]

Perso je n'utilise plus les datatable depuis longtemps. A l'époque je faisais tout en code mais il doit y avoir les même options dans l'éditeur graphique.
Ce que tu utilises c'est le modèle ADO, il y a l'aide MSDN qui l'explique très bien : ADO.NET
Plus particulièrement cette section : Extraction et modification de données dans ADO.NET
Qui donne sur : DataAdapters et DataReaders
Et enfin :
- Mise à jour de sources de données avec des DataAdapters
- Paramètres de DataAdapter

Donc ce qu'on retient c'est qu'il faut 3 commandes pour pouvoir mettre à jours la base de donnée : DeleteCommand, InsertCommand et UpdateCommand.

Comme marqué dans l'avant dernière page, tu peux soit remplir ces commandes manuellement, soit le faire automatiquement avec le CommandBuilders, voir : Génération de commandes à l'aide de CommandBuilders

Pour pouvoir plus t'aider encore il faudrait connaitre le type de base de donnée que tu utilises et la structure de la table que tu veux mettre à jour mais normalement tu devrais déjà pouvoir t'en sortir