Bonjour à tous ,

En faite, je suis en train de programmer la partie "Connexion" de mon programme, afin de protéger celui-ci, et d'y accéder aux contenus, que si l'utilisateur est bien enregistré dans ma bdd qui se trouve en ligne.
Donc j'ai installé Mysql pour avoir (Mysql.data, etc.), et là, quand j'execute mon code, celui-ci ne veut pas se connecter, il se bloque tout simplement, et rapporte toujours un problème au niveau de la ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
myData = myCommand.ExecuteReader
Voici mon 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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
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=db4free.net; user id=*******; password=*********; database=********"
 
        Try
            conn.Open()
        Catch myerror As MySqlException
            MsgBox("Erreur de connection à la base de donnée")
        End Try
 
        Dim MyAdapter As New MySqlDataAdapter
 
        Dim sqlquery = "SELECT * FROM login WHERE username = '" + UsernameTextBox.Text + "' AND password= '" + PasswordTextBox.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("Login invalide")
        Else
            MsgBox("Connexion autorisée !")
            Form1.Show()
            Me.Hide()
        End If
    End Sub
    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub
 
    Private Sub LoginForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class
Peut être est-ce le serveur en face qui est trop lent, je ne sais pas . Je suis encore dans mes débuts, donc .

Je programme sous Visual Basic 2010 Express Edition, donc je ne sais pas si le code est pour cette version, ou peut être peut-on l'améliorer selon l'avancement.

J'ai fais à partir des tutos suivant :

[ame="http://www.youtube.com/watch?v=u1waZnO8PCk&feature=mfu_in_order&playnext=1&videos=rxWqIuO5cTQ"]http://www.youtube.com/watch?v=u1waZnO8PCk&feature=mfu_in_order&playnext=1&videos=rxWqIuO5cTQ[/ame]

PARTIE 1 :
[ame="http://www.youtube.com/watch?v=MAnlhHOUc3Y&feature=related"]http://www.youtube.com/watch?v=MAnlhHOUc3Y&feature=related[/ame]

PARTIE 2 :
[ame="http://www.youtube.com/watch?v=zSZ6Sq-yJ8s&feature=related"]http://www.youtube.com/watch?v=zSZ6Sq-yJ8s&feature=related[/ame]