Fonction connexion à une base mysql via vba

Version imprimable

bonjour,
J'ai une base de données access 2010 et je me connecte sur mon serveur sql en vba sans passer par des tables liées.
J'ai testé mon code sur un formulaire et voici le code qui est exécuté sur l'événement form_load:
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 ' -- déclarations Dim con As New ADODB.Connection Dim rst As New ADODB.Recordset Dim strSQL As String strSQL = "TD_USER" '-- Connexion à la base de données con.CursorLocation = adUseClient con.Open "Provider=MSDASQL;" & _ "Driver={MySQL ODBC 5.3.2 Driver};" & _ "Server=adresseIP;" & _ "Data Source=NomliaisonODBC;" & _ "Port=3306;" & _ "Database=NomBaseDeDonnee;" & _ "User=NomUser;" & _ "Password=MotDePasse;" & _ "Option=16426 " '-- Ouverture de la table TD_USER rst.Open strSQL, con, adOpenDynamic, adLockOptimistic '-- Affichage des données sur le formulaire Me.txt_prenom = rst.Fields(3) Me.txt_nom = rst.Fields(4)
Au chargement du formulaire, la connexion marche bien et les infos (prénom et nom) affichées dans les zones de texte (txt_prenom et txt_nom).
J'aimerais faire une fonction publique que j’appellerais pour chaque formulaire afin d'afficher les jeux de données désiré.
Quelqu'un pourrait-il m'aidé
Par avance, je vous remercie

Bonjour,

Tu peux mettre ton code dans une Sub dont les arguments sont passés par référence plutôt que par valeur.

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
Sub ObtenirInfosUtilisateur(ByRef sNom As String, ByRef sPrenom As String)
' -- déclarations
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strSQL As String
strSQL = "TD_USER"
 
'-- Connexion à la base de données
con.CursorLocation = adUseClient
con.Open "Provider=MSDASQL;" & _
"Driver={MySQL ODBC 5.3.2 Driver};" & _
"Server=adresseIP;" & _
"Data Source=NomliaisonODBC;" & _
"Port=3306;" & _
"Database=NomBaseDeDonnee;" & _
"User=NomUser;" & _
"Password=MotDePasse;" & _
"Option=16426 "
 
'-- Ouverture de la table TD_USER
rst.Open strSQL, con, adOpenDynamic, adLockOptimistic
 
'-- Affecter le contenu des champs aux variables 'ByRef'
If Not rst.EOF Then
   sNom = rst.Fields(3)
   sPrenom = rst.Fields(4)
End If
 
'-- Fermer et libérer les objets
rst.close
set rst = Nothing
con.close
set con = Nothing
End Sub

Utilisation dans un formulaire:

Code:

1
2
3
4
5
6
7
8
Dim sNom As String, sPrenom as String
 
'-- Obtenir les données Nom, Prénom
ObtenirInfosUtilisateur sNom, sPrenom
 
'-- Affichage des données sur le formulaire
Me.txt_prenom = sNom
Me.txt_nom = sPrenom

A+

02/06/2014, 19h56
diombo

bonjour et merci pour votre réponse.
Je voulais plutôt faire :
(1) une Public Function pour définir la connexion à la base de données mysql
(2) dans un formulaire (user par exemple) que je fasse appel à la function pour avoir la connection à la base et ouvrir mon recordset.
Cordialement,

Bonsoir,

Sous réserve d'avoir bien compris cette fois-ci, voila ce que je ferai.
Dans un module de code:

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Option Compare Database
Option Explicit
 
Public con As ADODB.Connection
 
Function OuvrirConnexionMySsql() As Object
Dim bCnOk As Boolean
 
On Error GoTo ErrH01
 
' On suppose par défaut que la connexion est établie
bCnOk = True
' Vérifier si la connexion est active
bCnOk = (con.State = adStateOpen)
' Si elle n'est pas active, libérer l'objet
If (Not bCnOk) Then Set con = Nothing
 
On Error GoTo ErrH
' Etablir la connexion si besoin
If (Not bCnOk) Then
    ' Créer l'objet
    Set con = New ADODB.Connection
    ' Etablir la connexion
    con.CursorLocation = adUseClient
    con.Open "Provider=MSDASQL;" & _
    "Driver={MySQL ODBC 5.3.2 Driver};" & _
    "Server=adresseIP;" & _
    "Data Source=NomliaisonODBC;" & _
    "Port=3306;" & _
    "Database=NomBaseDeDonnee;" & _
    "User=NomUser;" & _
    "Password=MotDePasse;" & _
    "Option=16426 "
End If
 
ExitFn:
    ' Retourner l'objet con
    Set OuvrirConnexionMySsql = con
    Exit Function
 
ErrH01:
    bCnOk = False
    Resume Next
 
ErrH:
    Set con = Nothing
    MsgBox "Erreur No." & Err.Number & " : " & Err.Description, vbCritical
    Resume ExitFn
 
End Function
 
Function FermerConnexionMySql()
 
On Error GoTo ErrH
 
' Si la connexion est un objet initialisé
If Not (con Is Nothing) Then
    ' Fermer la connexion
    If con.State <> adStateClosed Then
       con.Close
    End If
End If
 
ExitFn:
    ' Libérer l'objet
    Set con = Nothing
    Exit Function
 
ErrH:
    Resume ExitFn
End Function

On a une variable objet globale con qui est ouverte par la fonction OuvrirConnexionMySsql et fermée par la fonction FermerConnexionMySql.

On peut au choix ...

Utiliser OuvrirConnexionMySsql puis ensuite se servir de la variable objet con

Code:

1
2
3
4
OuvrirConnexionMySsql
If Not (con Is Nothing) Then
    ' Ok, con est bien initialisée
End If

Ou bien utiliser une variable objet locale qui sera initialisée par la valeur de retour de la fonction OuvrirConnexionMySsql.

Code:

1
2
3
4
5
6
7
Dim oMaCnLocale As ADODB.Connection
 
Set oMaCnLocale = OuvrirConnexionMySsql()
 
If Not (oMaCnLocale Is Nothing) Then
   ' Ok, oMaCnLocale est bien initialisée
End If

J'ai plus ou moins optimisé OuvrirConnexionMySsql pour qu'on puisse l'appeler même si la connexion est déjà ouverte.
On peut donc, par précaution, l'appeler chaque fois qu'on va avoir besoin de la connexion au serveur MySql.

Quand on a plus besoin de la connexion, on la ferme en appelant FermerConnexionMySql.

A+

05/06/2014, 06h22
diombo

Bonjour LedZeppII,
Vous avez bien compris ce dont j'avais besoins.
Je viens de tester votre proposition de code et ça marche bien.
Un grand Merci à vous!