Discussion :

[Yayam]

Bonjour,

je travail sur une gestion des employées sur VB.Net dont la base est sur SQL Server 2005.

pour les opération ajouter, supprimer et rechercher ils marchent trés bien

mais la modification ne marche pas, par exemple j'ai un employée qui doit renouvler son contrat donc je doit modifier sa date de début de contrat et celle de la fin et aussi le nombre de contrat, mais sans changer son ID, nom prenom, adresse et tte autres informations.

Voila le code que j'ai utilisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
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)
 
        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
 
 
        OleDbDataAdapter1.UpdateCommand.ExecuteNonQuery()

Merciiii d'avance

[_PascalC_]

Salut, ton SqlCommand "A" ne semble pas utiliser ton objet OleDbConnection1 (SqlConnection plutôt non ?).
De plus tu affectes une string dans ton premier paramètre "@Nb_Contrat" pour lequel tu as spécifié un type Int. Passe plutôt à ton paramètre quelque chose du genre : int.Parse(TextBox2.Text)
Enfin a aucun moment tu n'exécutes ce SqlCommand. En tout cas pas le bon visiblement...

[Hinault Romaric]

C'est tout a fait normal tu n'exécute pas ta commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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()

@++

[Yayam]

Merciiiiiiiiiiiiiiii Bcp ))))))))