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