Discussion :

[Pigwi]

bonjour,

Suite à une augmentation des connexions à ma base de données Access et au ralentissement général constaté, j'étudie la possibilité de monter un serveur mysql sur lequel je connecterais les applications que j'ai développé sous Access.

J'ai fait des recherches sur internet, mais je reste perplexe car chacun y va de son bout de code pour se connecter et j'ai bien du mal à m'y retrouver.

ci-dessous un exemple qui fonctionne... (est-ce le bon?)

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
 Dim cnx  As ADODB.Connection
Dim rs As ADODB.Recordset
Dim nom As String
 
Set cnx = New ADODB.Connection
Set rs = New ADODB.Recordset
 
cnx.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER="adresse ip";DATABASE="MaBase";UID="Utilisateur";PWD="MP";OPTION=3"
cnx.Open
With rs
        .ActiveConnection = cnx
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Source = "SELECT * FROM MaTable"
        .Open
 
    End With
 
 
rs.Close
cnx.Close
Set rs = Nothing
Set cnx = Nothing

J'aimerais savoir si c'est la manière officielle pour se connecter proprement au serveur mysql afin de pouvoir effectivement faire travailler mysql à la place de Jet.

Cordialement

[LedZeppII]

Bonjour,

tu trouveras la doc "officielle" ici :
http://downloads.mysql.com/docs/connector-odbc-en.chm

Il y a une petite différence dans leur exemple c'est que le curseur est côté client.

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

rs.CursorLocation = adUseClient

Concernant les différences d'écriture que tu as pu voir c'est peut-être parce que

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
With rs
        .ActiveConnection = cnx
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Source = "SELECT * FROM MaTable"
        .Open        
End With

équivaut à

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
rs.Open "SELECT * FROM MaTable", cnx, adOpenKeyset, adLockOptimistic

On peut soit remplir les propriétés du recordset et invoquer la méthode Open, soit utiliser la méthode Open seule et lui fournir en argument les valeurs de ces propriétés.
On peut même faire un mix des deux.

Par ailleurs, mes essais révèlent que adOpenKeyset n'est pas supporté et que le curseur obtenu est de type adOpenStatic.
Autant mettre dans le code la valeur correspondant à ce qu'on va obtenir.

A+