1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| Public serv_db As String
Public datbase As String
Public user_db As String
Public pwd_user_db As String
Public option_db As Integer
Public Conx As ADODB.Connection
Public Sub ouvrir()
'Initialisation pour la connection
'Achanger au besoin
serv_db = "localhost"
datbase = "gesfilm"
user_db = "root"
pwd_user_db = ""
option_db = 35
On Error GoTo erreur
Conx.CursorLocation = adUseServer
Conx.Open "DRIVER={MySql};SERVER=" & serv_db & ";DATABASE=" & datbase & ";USER=" & user_db & ";OPTION=" & option_db & ""
erreur:
MsgBox "Impossible de trouver la base de données."
End Sub |
