Discussion :

[JetLibre]

Bonjour tous le monde

J'ai chargé mon DataGrid et tout va bien. Voici le 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
 Cn.Open() 'Ouverture de la connexion
                Cmd.CommandType = CommandType.Text
                Cmd.CommandText = "Select TPersCertifs.DateCertifs, Certifs.TypesCertifs, TPersCertifs.MotifCertifs From TPersCertifs INNER JOIN Certifs ON TPersCertifs.CodeCertifs = Certifs.CodeCertifs Where CIN = " & TXTCIN.Text & " Order By TPersCertifs.DateCertifs"
                Da = New OleDb.OleDbDataAdapter(Cmd)
                Cmd.Connection = Cn
                Dr = Cmd.ExecuteReader
                Dt.Load(Dr)
                Da.Fill(Ds, "TPersCertifs")
                Dr.Close()
                Cn.Close()
                DataGridCertifs.DataSource = Ds
                DataGridCertifs.DataMember = "TPersCertifs"
                DataGridCertifs.Columns(0).HeaderText = "Date Certificat"
                DataGridCertifs.Columns(1).HeaderText = "Type Certificat"
                DataGridCertifs.Columns(2).HeaderText = "Motif Certificat"

Je voudrais remplir (Ajouter, Modifier, Supprimer...) ma table directement Via ma DataGrid.