Discussion :

[Marie_7]

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 :

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
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

[Thumb down]

Bonjour,

Code :

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

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)

[Marie_7]

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 .


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

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
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

[Thumb down]

Pour commencer il te faut télécharger le connecteur MySQL :
https://www.codeproject.com/tips/493...s-using-vb-net

[Marie_7]

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

[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