Discussion :

[chim33]

Bonjour,

J'ai trouvé sur Internetu ne explication claire pour migrer des tables access vers mysql et ça marche très bien, mais il faut relancer la commande pour chaque table.

Comme j'ai beaucoup de tables à migrer et que je dois répéter l'opération pour plusieurs bases, j'aimerais pouvoir automatiser la procédure avec des instructions VBA.

Dans cette discussion
http://www.developpez.net/forums/d48...ble+odbc+mysql
j'ai trouvé des exemples en VBA qui permettent de mettre à jour une table mysql d'après une table access. Mais je ne connais pas les instructions à coder pour exporter la table et son contenu vers mysql et je ne sais pas trop ou chercher dans l'aide VBA

Pouvez m'aider ???

[loufab]

Bonjour,

Apparement pour un export il faut utiliser la commande

Code :

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

docmd.TransferDatabase acExport,...

Conjoitement avec une boucle du type

Code :

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

For Each tbl in currentdb.tabledefs

Voir dans le tuto de DAO pour la mise en oeuvre de cette dernière.

ça devrait prendre quelques minutes tout au moins.

Cordialement,

[chim33]

Merci loufab pour ton info, c'est exactement ce qu'il me fallait.
Ci dessous la procédure que j'ai écrite. Elle pourra peut être servir à d'autres !!

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
26
27
28
29
30
Dim db As DAO.Database, tdf As DAO.TableDef, Rel As Relation
Dim iTb As Variant, nomtb As String
Dim Msg, Style, Rep As String
 
    Set db = CurrentDb
'                       Recherche du nombre de tables, sauf tables systeme
    iTb = 0
    For Each tdf In db.TableDefs
        nomtb = tdf.Name
        If Left(nomtb, 4) <> "MSys" Then iTb = iTb + 1   ' Non prise en compte des Tables Système
    Next tdf
    Msg = " Nombre de Tables Trouvées : " & iTb & "    Voulez-vous les migrer vers MySQL ? "
    Style = vbQuestion + vbYesNo + vbDefaultButton2
    Rep = MsgBox(Msg, Style)
    If Rep = vbNo Then Exit Sub
 
'                       Migration des Tables, sauf tables système
    iTb = 0
    For Each tdf In db.TableDefs
        nomtb = tdf.Name
        If Left(nomtb, 4) <> "MSys" Then
            Me!Tbencours = nomtb
            Me.Requery
            DoCmd.TransferDatabase acExport, "ODBC Database", _
                "ODBC;DATABASE=BLVLTest;DSN=BLVLTestMySQL;UID=root;PWD=", acTable, nomtb, nomtb
            iTb = iTb + 1
        End If
    Next tdf
    MsgBox "  " & iTb & "  Tables Migrées "
    Set db = Nothing

Seul problème qui subsiste, si les tables existent déjà dans la base de destination, rien ne se passe, elles ne sont pas écrasées mais il n'y a pas de message d'erreur non plus ????
Une idée pour tester la présence de tables dans la base de destination ou récupérer un message d'erreur ???

[loufab]

Bonjour,

Il faut t'y connecter via ODBC.

Tu as déjà la chaine de connexion.

Regarde dans DAO ou ADO pour cela.

Cordialement,