Discussion :

[tun_code]

Salut, j'ai essayé de réaliser une fenêtre de connexion à l'aide de vb.net 2010 et MySQL. J'ai installé MySQL connector et j'ai ajouté la référence mysql.data.dll mais lorsque j'exécute ce code, Visual studio indique qu'il y a un problème (message afficher : Ouvrez les guillemets après la chaîne de caractères ''.
Expression de type non booléen spécifiée dans un contexte où une condition est attendue, près de ''.) ,Cmd sélectionner: myData = myCommand.ExecuteReader
Merci pour votre aide

code source :

Code vb :

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
Imports MySql.Data.MySqlClient
 
Public Class LoginForm1
 
    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
 
        Dim conn As MySqlConnection
        conn = New MySqlConnection()
        conn.ConnectionString = "server=localhost; user id=root; password=; database=cnx_user"
 
        Try
            conn.Open()
        Catch myerror As MySqlException
            MsgBox("error connecting to database")
        End Try
        Dim myAdapter As New MySqlDataAdapter
        Dim sqlquery = "SELECT * FROM cnx_user Where login = '" + txt_login.Text + "' AND password '" + txt_password.Text
        Dim myCommand As New MySqlCommand()
        myCommand.Connection = conn
        myCommand.CommandText = sqlquery
        myAdapter.SelectCommand = myCommand
        Dim myData As MySqlDataReader
        myData = myCommand.ExecuteReader
        If myData.HasRows = 0 Then
            MsgBox("Invalide Login !")
        Else
            MsgBox("login accepted")
            Form1.Show()
            Me.Hide()
        End If
        Me.Close()
    End Sub
 
    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub
 
End Class

[Unkof]

Salut,

Moi je vois ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim sqlquery = "SELECT * FROM cnx_user Where login = '" + txt_login.Text + "' AND password '" + txt_password.Text

à remplacer par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim sqlquery = "SELECT * FROM cnx_user Where login = '" + txt_login.Text + "' AND password = '" + txt_password.Text + "'"

T'as oublié le = pour password =, tu n'as pas fermé les ' pour ton txt_password.Text.