1 2 3 4 5 6 7 8 9 10 11 12
|
OleDbConnection1.Open()
Dim A As New SqlClient.SqlCommand("update Employe set Nb_Contrat=@Nb_Contrat,Tmp_Travail=@Tmp_Travail,Date_Debut=@Date_Debut,Date_Fin=@Date_Fin where Id_Emp=" & TextBox1.Text, OleDbConnection1)
A.Parameters.AddWithValue("@Nb_Contrat", SqlDbType.Int).Value = TextBox2.Text
A.Parameters.AddWithValue("@Tmp_Travail", SqlDbType.Text).Value = TextBox3.Text
A.Parameters.AddWithValue("@Date_Debut", SqlDbType.DateTime).Value = DateTimePicker1.Value
A.Parameters.AddWithValue("@Date_Fin", SqlDbType.DateTime).Value = DateTimePicker2.Value
A.ExecuteNonQuery() |