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