Dim R_save As String = "INSERT INTO T_Chant (titre, Auteur_Texte, Auteur_Musique, Code, Remarque) VALUES (Val_Titre, Val_AuteurTexte, Val_AuteurMusique, Val_Code, Val_Rem)" cmd = New OleDbCommand(R_save, con) With cmd.Parameters .AddWithValue("Val_titre", TextBox_Titre.Text) .AddWithValue("Val_AuteurTexte", TextBox_AuteurParoles.Text) .AddWithValue("Val_AuteurMusique", TextBox_AuteurMusique.Text) .AddWithValue("Val_Code", TextBox_Code.Text) .AddWithValue("Val_Rem", TextBox_Remarques.Text) End With cmd.Connection.Open() cmd.ExecuteReader() cmd.Connection.Close()
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question