Bonjour,
Tout d'abord, je vous présente une description sur le but atteindre.
J'ai deux table client et User. Un User peut ajouter plusieurs client. j'ai besoin d'afficher le nom d'user qui a ajouter le client.
Comme solution, j'ai créer une variable booléenne nommé etat. Lorsque l'user est connecté la variable etat sera vrai et lorsqu'il quitte l'application la variable etat sera faux et comme codeet j'ai comme erreur " Aucune valeur donnée pour un ou plusieurs des paramètres requis."
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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46 Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click Dim lg As String = Me.UsernameTextBox.Text() Dim psw As String = Me.PasswordTextBox.Text() Dim DBA As String = Environment.GetEnvironmentVariable("DB_PRESSING_ENV") ' Déclaration Objet Connexion Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data source=" & DBA & "\P13PRESSING_DB.accdb") ' Déclaration Objet Commande Dim MyCommand As OleDbCommand = MyConnexion.CreateCommand() MyCommand.CommandText = "SELECT * FROM [User] where login ='" & lg & "';" MyConnexion.Open() Dim MyReader As OleDbDataReader = MyCommand.ExecuteReader() If MyReader.Read() Then If MyReader.GetString(o) = lg Then If MyReader.GetString(1) = psw Then If MyReader.GetBoolean(5) = True Then adminAccueil.Show() Else userAccueil.Show() End If ' Modification de l'état de l'utilisateur (connecté ou non) Dim MyCommandmaj As OleDbCommand = MyConnexion.CreateCommand() MyCommandmaj.CommandText = "UPDATE [User] Set etat = True WHERE login ='" & lg & "';" Dim MyReaderMaj As OleDbDataReader = MyCommandmaj.ExecuteReader() MyReaderMaj.Close() Me.Hide() Else MsgBox("Mot de passe incorrecte!", MsgBoxStyle.Information, "Invalid Input") End If Else MsgBox("Nom de l'utilisateur non reconnu!") End If Else MsgBox("Erreur! Utilisateur non reconnu!", MsgBoxStyle.Critical, "Echec Connexion") End If MyReader.Close() MyConnexion.Close() End Sub
Avez vous une autre solution ?
Merci
Partager