Bonjour à tous....
Tout d'abord, voici mon code (simple pourtant )
Mon problème est le suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim i As Integer EtatConnexion() //Sub pour fermer la connexion si elle est restée ouverte par erreur MaConnexion.Open() Try With MaCommande .Connection = MaConnexion .CommandText = "UPDATE Users SET ID=@a0, MDP=@a1 WHERE ID =" & Identifiant & "" .Parameters.Add("@a0", OleDbType.VarChar).Value = Identifiant .Parameters.Add("@a1", OleDbType.VarChar).Value = TextBox1.Text i = .ExecuteNonQuery() .Dispose() End With Catch ex As Exception MsgBox(ex.Message) End Try MaConnexion.Close() If i > 0 Then MsgBox("Votre Mot de Passe a été modifier avec succès", MsgBoxStyle.Information) End Sub
Lorsque que je lance la procédure en cliquant sur le bouton, il m'affiche le message d'exeption " Aucune valeur donnée pour un ou plusieurs des paramètres requis.".
Donc je clique sur OK du message, et lorsque que le relance la procédure par le même bouton, ben là ca marche normalement....
Euh ça fait 2 jours que je sèche.....
Merci d'avance....
Partager