[MySQL] Impossible de trouver la base de données

Version imprimable

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:

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

13/12/2007, 13h22
lutecefalco

C'est du VB ça, pas du VB.NET non?
13/12/2007, 13h43
afrodje

Citation:

Envoyé par lutecefalco

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

Exact !
Je n'ai trouvé que du VB et pas de VB.net :cry:
13/12/2007, 13h48
lutecefalco

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

Voici une partie de ma classe connexion :

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