Discussion :

[afrodje]

Salut

je cherche à me connecter à ma base de donnée MySQL.
Mais je n'arrive pas.
J'ai telecharger ce code pour pouvoir ce connecter mais il me dis que la base de donnée est introuvable.

Voila la partie connection.

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
Public Sub config()
		'attention il faut mettre vos option de connection
        serv_db = "localhost"
        datbase = "toto"
        user_db = "admin"
        pwd_user_db = ""
		option_db = 35
 
 
		connex = New ADODB.Connection
		rs = New ADODB.Recordset
		rs1 = New ADODB.Recordset
		rs2 = New ADODB.Recordset
		rs_sub = New ADODB.Recordset
 
	End Sub
 
	Public Sub etablir_connec()
		On Error GoTo erreur
		connex.CursorLocation = ADODB.CursorLocationEnum.adUseServer
		connex.Open("DRIVER={MySql};SERVER=" & serv_db & ";DATABASE=" & datbase & ";USER=" & user_db & ";PASSWORD=" & pwd_user_db & ";OPTION=" & option_db & "")
		Exit Sub
erreur: 
		MsgBox("Impossible de trouver la base de données.")
	End Sub

Mes identifiants sont correct (car je les utilise avec du PHP)

Merci

[lutecefalco]

C'est du VB ça, pas du VB.NET non?

[afrodje]

C'est du VB ça, pas du VB.NET non?

Exact !
Je n'ai trouvé que du VB et pas de VB.net

[lutecefalco]

http://morpheus.developpez.com/mysqldotnet/

[afrodje]

Voici une partie de ma classe connexion :

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
42
43
44
Public Class Class_connection
 
#Region "attribut privé"
    'localisation
    Private DataSource As String = "localhost"
    'base de donnée
    ' Private BDD As String = "a3concept"
    Private BDD As String = "test"
    'utilisateur
    ' Private User As String = "admin"
    Private User As String = "root"
    'mot de passe
    'Private Mot_de_passe As String = "140286"
    Private Mot_de_passe As String = ""
 
    'création et ouverture de la connection à la base de donnée
    Private connection_base As New MySqlConnection("Data Source=" & DataSource & ";Database=" & BDD & ";User ID=" & User & ";Password=" & Mot_de_passe)
    Private MyAdapter As MySqlDataAdapter = New MySqlDataAdapter
    Private data As MySqlDataReader
#End Region
 
#Region "Constructeur : procedure connection"
    Public Sub connection()
        'L'instruction try-catch consiste en un bloc try suivi 
        'd'une ou de plusieurs clauses catch, qui désignent les gestionnaires des différentes exceptions. 
        Try
            connection_base.Open()
 
        Catch ex As MySql.Data.MySqlClient.MySqlException
            MsgBox(ex.Message)
        Catch ex As System.Exception
            MsgBox(ex.Message)
        End Try
    End Sub
#End Region
 
#Region "procedure close_requete"
    Public Sub close_requete()
        Getdata.Close()
    End Sub
#End Region
 
 
End Class