formulaire de connexion VB (wampserver)

Version imprimable

Bonjour,
Jai essayé de créer un formulaire de connexion pour mon application créée en VB mais ça ne marche pas. Je n'ai pas pu me connecter à ma base de données sur wampserver. J'ai obtenu ce message:"Connexion au serveur indisponible."
Merci de m'aider à corriger ce code

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
Imports System.Data
Imports System.Data.SqlClient
 
 
Public Class Form1
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
        Dim conn As New SqlConnection("SERVER=localhost; uid =root; PASSWORD =; DATABASE =center_vb")
        Try
 
            conn.Open()
        Catch myerror As SqlException
 
            MsgBox("Connexion au serveur indisponible.", vbCritical)
 
            Exit Sub
        End Try
 
        Dim mysqladapter As New SqlDataAdapter
 
        Dim sqlquery = "SELECT *  FROM users WHERE  login='" & TextBox1.Text & " 'AND password='" & TextBox2.Text & "';"
        Dim mycommand As New SqlCommand
        mycommand.Connection = conn
        mycommand.CommandText = sqlquery
 
        mysqladapter.SelectCommand = mycommand
        Dim mydata As SqlDataReader
        mydata = mycommand.ExecuteReader()
 
        If mydata.HasRows = 0 Then
            MsgBox("Connexion refusée.", vbCritical)
        Else
            Form2.Show()
        End If
 
    End Sub
End Class

Bonjour,

Code:

1
2
3
4
5
6
Imports System.Data
 
Imports MySql.Data
Imports MySql.Data.MySqlClient
Dim connStr As String = "server=localhost;user=root;database=world;port=3306;password=******;"
Dim conn As New MySqlConnection(connStr)

2 pièce(s) jointe(s)

Bonjour,
Merci pour votre réponse,
D'abord j'ai remplacé Imports MySql.Data.MySqlClient par Imports System.Data.SqlClient par ce que j'ai obtenu cet erreur .
Pièce jointe 632963

Ensuite je ne peux pas ajouter un mot de passe par ce que root n'a pas un mot de passe donc j'ai laissé cette variable vide. En effet J'ai obtenu cet erreur
Pièce jointe 632964

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
Imports System.Data
Imports System.Data.SqlClient
 
 
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim connStr As String = "SERVER=localhost; uid =root;DATABASE =center_vb;port=3306; PASSWORD =;"
        Dim conn As New SqlConnection(connStr)
        Try
            conn.Open()
        Catch myerror As SqlException
            MsgBox("Connexion au serveur indisponible.", vbCritical)
            Exit Sub
        End Try
        Dim mysqladapter As New SqlDataAdapter
        Dim sqlquery = "SELECT *  FROM users WHERE  login='" & TextBox1.Text & " 'AND password='" & TextBox2.Text & "';"
        Dim mycommand As New SqlCommand
        mycommand.Connection = conn
        mycommand.CommandText = sqlquery
        mysqladapter.SelectCommand = mycommand
        Dim mydata As SqlDataReader
        mydata = mycommand.ExecuteReader()
        If mydata.HasRows = 0 Then
            MsgBox("Connexion refusée.", vbCritical)
        Else
            Form2.Show()
        End If
    End Sub
End Class

23/01/2023, 11h24
Thumb down

Pour commencer il te faut télécharger le connecteur MySQL :
https://www.codeproject.com/tips/493...s-using-vb-net
23/01/2023, 12h15
Marie_7

2 pièce(s) jointe(s)

Merci
J'ai déjà installé mysql-connector-net-8.0.11

Pièce jointe 632977

Pièce jointe 632978
25/01/2023, 11h57
Marie_7

Bonjour,
Le problème est résolu par l'installation de la version mysql connector 6.9.8 compatible avec .net 4.5 au lieu de mysql connector 8.0.11