Lire dans un Base de donnée

Version imprimable

Bonjour à tous,
Je suis sur un projet et j'ai ajouter une connexion via la base de donner.
J'utilise Mysql.
Tout fonctionne mes j'aimerais ajouter lorsque la personne se connecte le logiciel va regarder dans la bdd si l'utilisateur à la key = 1
si il à la key = 0 alors il se connecte pas c'est la que survient le problème je ne trouve pas comment faire pour que le logiciel regarde si le compte à la key.
Pouvez vous m'aider ?
Voici mon code pour la connexion :

Code:

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
47
48
49
50
51
52
 
Imports MySql.Data.MySqlClient
 
Public Class Form1
    Dim conn As New MySqlConnection
    Private Function Connect(ByVal server As String, ByRef user As String, ByRef password As String, ByRef database As String)
        'On se connecte avec les information donner
        conn.ConnectionString = "server=" + server + ";" _
        & "user id=" + user + ";" _
        & "password=" + password + ";" _
        & "database=" + database + ";"
        Try
            'Si il y a aucune erreur on ouvre la connexion
            conn.Open()
            Return True
        Catch ex As MySqlException
            'Si il y a une erreur on affiche le message suivant
            Return MsgBox("Aucune Connexion au Mysql")
        End Try
    End Function
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Connect("localhost", "root", "", "miniteck") 'On change si besoin
    End Sub
 
    Private Sub KryptonButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KryptonButton1.Click
        Dim myCommand As New MySqlCommand
        Dim myAdapter As New MySqlDataAdapter
        Dim myData As MySqlDataReader
        Dim SQL As String
        Dim Email As String = KryptonTextBox1.Text.Replace("'", "\'")
        Dim motdepasse As String = KryptonTextBox2.Text.Replace("'", "\'")
        SQL = "SELECT * FROM `accounts` WHERE `username` = '" + Email + "' and `password` = '" + motdepasse + "'"
 
        Try
            myData = myCommand.ExecuteReader()
            myData.Read()
 
 
 
            If myData.HasRows = 0 Then 'Si le mot de passe ou l'email ne correspond pas a se qu'il y a dans la BDD alors on affiche
                MsgBox("Il se peut que votre comptes soit invalide")
                myData.Close()
            Else 'Si le mot de passe et l'email correspond a un compte alors on affiche
                MsgBox("Bienvenue " + KryptonTextBox1.Text)
                myData.Close()
                Me.Visible = False
                InAppWindows.Show()
            End If
        Catch ex As MySqlException
            MsgBox(ex.Message)
        End Try
    End Sub

Merci pour votre aide.

19/06/2011, 23h05
eddyphan
La key existe t-elle dans la table Utilisateur?
Si oui, alors
Puisque vous avez déjà récupéré les valeurs de la table relatives à l'utilisateur connecté via son mail et son mot de pass,
il faut vérifier au sein de ses valeurs, si la key =1 ou 0 par rapport à cet utilisateur juste avant votre ligne de code
Code:

1 2 MsgBox("Bienvenue " + KryptonTextBox1.Text)
de sorte que si c'est =1, il arrive à cette ligne, sinon, il refuse l'accès.

Merci à vous et bonne chance
19/06/2011, 23h46
miniteck27140

Bonjour tout d'abord merci de votre réponse,
Le problème survient c'est que je ne trouve pas comment faire pour savoir si la clefs = 1 du compte qui essaye de lancer le logiciel avec le compte.
J'ai tester plusieurs chose je tombe toujours sur la clefs = 0 alors que le compte à la clefs = 1 :S
20/06/2011, 04h13
spamitovic
Tu as deux solutions :

soit tu vérifies ceci à partir de ta requête :

Code:

SQL = "SELECT * FROM `accounts` WHERE `username` = '" + Email + "' and `password` = '" + motdepasse + "' and `key` = 1"

ou bien avant :

Code:

MsgBox("Bienvenue " + KryptonTextBox1.Text)

tu mets ça :
Code:

1 2 3 4 5 6 If myData.GetInt16(champs) = 1 then ' Tout va bien Else ' Rien ne va !!! End If

Merci pour réponse,
J'ai fait ceci :

Code:

  SQL = "SELECT * FROM `accounts` WHERE `username` = '" + Email + "' and `password` = '" + motdepasse + "' and `key` = 1"

Code:

1
2
3
4
5
6
7
8
9
10
   If myData.HasRows = 0 Then 'Si le mot de passe ou l'email ne correspond pas a se qu'il y a dans la BDD alors on affiche
                MsgBox("Il se peut que votre comptes soit invalide")
                myData.Close()
            Else 'Si le mot de passe et l'email correspond a un compte alors on affiche
 
                MsgBox("Bienvenue " + KryptonTextBox1.Text)
                myData.Close()
                Me.Visible = False
                InAppWindows.Show()
            End If

Tout marche merci beaucoup pour vos réponse j'espère que sa va en aider plus d'un

20/06/2011, 10h51
spamitovic
Non "champs" est l'index de la colonne "key"
si par exemple tu as les colonnes suivantes :

id - username - password - key

donc tu vas mettre :
Code:

1 2 3 4 5 6 If myData.GetInt16(3) = 1 then ' Tout va bien Else ' Rien ne va !!! End If