ce code marche ici mais pas là :'(
:oops::oops:Bonjour:oops::oops:
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:
Code:
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 |
et ça marche bien
parcontre, la sub-window user ne marche pas, et voila son code
Code:
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 |
