Bonjour
je suis entrain de developper une application windows form pour la gestion de personnel:
une sub-window de demande de création et modification de compte ou l'utilisateur saisie ses données et une autre sub-window ou l'administrateur lui attribue un login et password, et depuis laquelle il ajoute une authentification ou modifie une dejà existante
la sub-window accounts depuis laquelle l'administrateur attribue des username et password est bien en marche, et assure bien la mise à jour dela base de données, si j'ajoute des comptes depuis l'interface ou je modifie les comptes, ça marche, mais la fenetre compte ne marche pas, dès que je l'excute tout se plante
voila mes deux codes, je vous prie de verifier ou se situe ma faute, et merci d'avance
code compte:
et ça marche bien
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 Private Sub Butnmodif_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Butnmodif.Click sql = "update account set name ='" & cmbxiduser.Text & "', privilege='" & cmbxpriv.Text & "', login='" & txtlogin.Text & "' , password='" & txtpswd.Text & "', Secret_Question='" & txtsecretq.Text & "', Secret_Answer= '" & txtsecretan.Text & "', email='" & txtemail.Text & "',accstatus= '" & cmbxstate.Text & "' where login = '" & txtlogin.Text & "'" cmd = New MySqlCommand(sql) dataadapt = New MySqlDataAdapter(cmd) datset = New DataSet cmd.Connection() = cn cmd.ExecuteNonQuery() txtemail.Text = "" txtlogin.Text = "" txtpswd.Text = "" txtsecretan.Text = "" txtsecretq.Text = "" cmbxiduser.Text = "" cmbxpriv.Text = "" ButnNew.Enabled = True ButtnSave.Enabled = False End Sub
parcontre, la sub-window user ne marche pas, et voila son code
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
22 Private Sub Butnmodif_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Butnmodif.Click sql = "update user set maritalstatus ='" & cmbxmaritstat.Text & "', sex='" & cmbxsex.Text & "', name='" & txtname.Text & "' , phonenumber='" & txtphone.Text & "', shortname='" & txtshrtname.Text & "', Secret_Question='" & txtsecretq.Text & "', Secret_Answer= '" & txtsecretan.Text & "', email='" & txtEmail.Text & "', country= '" & cmbxgovern.Text & "', address='" & txtadress.Text & "' where name= '" & txtname.Text & "'" cmd = New MySqlCommand(sql) dataadapt = New MySqlDataAdapter(cmd) datset = New DataSet cmd.Connection() = cn cmd.ExecuteNonQuery() txtEmail.Text = "" txtname.Text = "" txtshrtname.Text = "" txtphone.Text = "" txtsecretan.Text = "" txtsecretq.Text = "" txtadress.Text = "" cmbxsex.Text = "" cmbxmaritstat.Text = "" cmbxgovern.Text = "" ButnNew.Enabled = True ButtnSave.Enabled = False End Sub
Partager