1 2 3 4 5 6 7 8 9 10 11 12
| Private Sub EmployéToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles EmployéToolStripMenuItem.Click
Dim con As OleDbConnection
Dim com As OleDbCommand
con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= C:\Users\Allah\Desktop\gestion de parc 2\gestion du parc informatique\base de donneés\GSPI.accdb")
com = New OleDbCommand("delete * from employé where [matricule_emp number]=@matricule_emp", con)
con.Open()
com.Parameters.AddWithValue("@matricule_emp", TB_emp.Text)
com.ExecuteNonQuery()
MsgBox("Record Deleted")
con.Close()
End Sub |
Partager