Imports MySql.Data.MySqlClient Imports System.Data.OleDb Imports System.Security.Cryptography Public Class Form1 Public ConnexionSql As String = "Database=madatabase;" & "Data Source=monsite;" & "User Id=monid;Password=monpassword;" & "Connection Timeout=20" Public Sub Lecture() Try Dim USER As String = TXTBOX_USER.Text Dim PASS As String = TXTBOX_PASS.Text Dim connection As New MySqlConnection(ConnexionSql) connection.Open() Dim query As String "SELECT id FROM users WHERE pass MD5(CONCAT('Sa je vous le dit pas mais ce sont des lettres au hasard',@pass)) and user = @user LIMIT 1" Dim command As New MySqlCommand(query, connection) command.Prepare() command.Parameters.AddWithValue("@pass", PASS) command.Parameters.AddWithValue("@user", USER) Dim mysqlReader As MySqlDataReader = command.ExecuteReader() ' Call Read before accessing data. Dim hasmatch As Boolean = False While mysqlReader.Read() Dim record As IDataRecord = CType(mysqlReader, IDataRecord) If record(0) Then hasmatch = True End If End While If hasmatch Then MsgBox("Bravo, vous vous êtes connecté " & USER) LB_CONNECT.Text = "Bravo " & USER & ", vous êtes connectés" Else MsgBox("Vous n'êtes pas connecté") LB_CONNECT.Text = "Vous n'êtes pas connectés" End If mysqlReader.Close() ' Call Close when done reading. mysqlReader.Close() connection.Close() Catch ex As Exception LB_ERREUR.Text = ex.Message End Try End Sub Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load End Sub Private Sub BT_COMMENC_Click(sender As System.Object, e As System.EventArgs) Handles BT_COMMENC.Click Lecture() End Sub End Class
Vous l'avez compris, cela ne marche pas ...
S'il vous plaît aidés-moi :)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question