rassembler plsieurs table access ds 1 seul table

Question

d'avance je dis un grand merci a vbfrance et a vous, vous les programmeurs. 
mon probléme se présente comme suit :

j'ai présque 1000 bases de données (mdb) et dans chaque base existe une seule table, les  tables   de chaque base de donnée access on la même forme.
ce que je veux savoir s'il ya moyen de rassembler toutes ces  tables dans une seule table (table mére) a l'aide d'1 programme  -si je dois le faire mannuelement je vais pas m'ensortir- encore 1 fois merci pour votre aide

nhervagault · Answer

Salut,



Si tes tables ont la meme structure alors.





Tu cr&#233;es des tables li&#233;es

    For i = 0 To dbsCurrent.TableDefs.Count - 1 

        stNomTable = dbsCurrent.TableDefs(i).Name 
        If (Mid(stNomTable, 1, 3) = "tbl" Then 'Ignore les tables syst&#232;mes

          ' stFileDb est le chemin de la BD pass&#233; en param&#232;tre.
            dbsCurrent.TableDefs(i).Connect = ";DATABASE=" & stFileDb
            dbsCurrent.TableDefs(i).RefreshLink

'tableA = tableA Union TABLE liee
'du style insert into tableA (select * from tableA union select * from tableB)
'peut etre il faut pass&#233; par une table interm&#233;diaire
'access refuse de recriture dans la meme table
'dans ce cas la il fait la recopier
        End If
    Next i




Autre methose

Double connexion une sur chaque base.

Et lecture sur base1 insertion sur base2



Autre methode

Table li&#233;es

liaison table1

lecture table1 

ecriture table2





A toi de voir la m&#233;thode la plus rapide.

Et fait signe des resultats, merci.

cs_CanisLupus · Answer

Salut, 1000 bases ? wouah !!!!

Bon, un truc pour transf&#233;rer le contenu d'une table d'une autre base dans la table de la base principale :

sql = "INSERT INTO MaTablePrincipale SELECT * FROM AutreTable IN 'CheminNomAutreBase'"
db.execute sql

Je te laisse faire pour les 999 autres 

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Rassembler plsieurs table access ds 1 seul table

2 réponses

Discussions similaires