ainsi je cherche un aide pour la recherche si cet ouvrier existe ou non lors de sa création ou lors du suppression.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub BtnOk_Click(sender As Object, e As EventArgs) Handles BtnOk.Click Cn.Open() SQ " Select CNRPS, Mutuel From TPersonnels where CIN " & TXTCIN.Text & "" Cmd.CommandText = SQ Cmd.Parameters.Add("CIN", System.Data.OleDb.OleDbType.Double) Cmd.Parameters("CIN").Value = TXTCIN.Text Dr = Cmd.ExecuteReader() ' Erreur "ExecuteReader: Connection property has not been initialized." Dr.Read() 'FrmPersonnels.TXTCIN.Text = IIf(IsDBNull(Dr("CIN")), "", Dr("CIN")) FrmPersonnels.TXTCNRPS.Text = IIf(IsDBNull(Dr("CNRPS")), "", Dr("CNRPS")) FrmPersonnels.TXTMutuel.Text = IIf(IsDBNull(Dr("Mutuel")), "", Dr("Mutuel")) FrmPersonnels.TXTNumBadge.Text = IIf(IsDBNull(Dr("NumBadge")), "", Dr("NumBadge")) FrmPersonnels.TXTPreNomPers.Text = IIf(IsDBNull(Dr("PreNomPers")), "", Dr("PreNomPers")) FrmPersonnels.TXTPerePers.Text = IIf(IsDBNull(Dr("CNRPS")), "", Dr("CNRPS")) FrmPersonnels.TXTNomPers.Text = IIf(IsDBNull(Dr("NomPers")), "", Dr("NomPers")) Dr.Close() Cn.Close() FrmPersonnels.Show() Close() End Sub