Migrer Tables Access vers MySQL

Version imprimable

30/12/2008, 23h34
chim33

[RESOLU] Migrer Tables Access vers MySQL

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 ???
31/12/2008, 11h37
loufab

Bonjour,

Apparement pour un export il faut utiliser la commande

Code:

docmd.TransferDatabase acExport,...

Conjoitement avec une boucle du type

Code:

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,

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:

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 ???

02/01/2009, 11h07
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,