Union de bases de données ou recordset

**mohtas** · 14/08/2018, 12h54

Bonjour,
Je travaille sur des statistiques venant de plusieurs bases de données identiques au format .mdb
J'aimerais unir plusieurs bases de données et y appliquer un seul recordset.
Je précise que je n'ai pas ACCESS et que mes bases de données contiennent plusieurs tables (donc UNION en SQL n'est pour moi pas utilisable)
Principe :

Code :

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

1
2
3
4
5
6
7
8
9
10
Set base(1) = DBEngine.OpenDatabase(chemin_bd(1))
Set base(2) = DBEngine.OpenDatabase(chemin_bd(2))
.
.
.
 
Set base(n) = DBEngine.OpenDatabase(chemin_bd(n))
Set base_ppl = base(1) + base(2) + ... + base(n)
 
Set enr = base_ppl.OpenRecordset("SELECT * FROM uneTable", dbOpenDynaset)

Invité · 14/08/2018, 16h37

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
With creatobject("Adodb.Connection")
.open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\myrep\base1.mdb;"
 
Sql ="select * from table1 "
Sql=sql & " union all"
Sql=sql & " select * from table2 in ('c:\myrep\base2.mdb')"
Set rs=.execute(sql)
Rs.close
Set rs=nothing
.close
End with
End sub

**mohtas** · 14/08/2018, 17h33

Merci pour la réponse rapide. Je vais tester.
Mais comme je suis jeune dans le SQL et les bases de données, j'ai donc quelques questions peut-être idiotes

:
1) quel type de variable est creatobject car j'ai une erreur "block with non défini" ?
2) je travail sur mon recordSet après le code suivant ?

Code :

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

Set rs = .Execute(sql)

Je comprends vite mais faut m'expliquer longtemps

Invité · 17/08/2018, 19h59

Non car ici on utilise createobject qui gère le activex dynamiquement.

Invité · 14/08/2018, 17h44

Désolé, mais si je me fait appeler dysorthographie c'est pas pour rien

CreateObject

https://msdn.microsoft.com/fr-fr/vba...bject-function

**mohtas** · 15/08/2018, 00h04

(Désolé, je l'avais pris pour une variable)

Test infructueux : Erreur dans la requête.

Dans mon code la table a le même nom comme ici table1

Code :

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

1
2
3
Sql ="select * from table1"
Sql=sql & " union all"
Sql=sql & " select * from table1 in ('c:\myrep\base2.mdb')"

Le soucis vient je pense de "IN". Pour moi, il n'est utilisé que avec "WHERE"
Ou peut-être me trompe-je?

Invité · 20/08/2018, 18h22

Bonsoir,
Testes comme ça.

Code :

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

.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Fichier & ";Persist Security Info=False"

**mohtas** · 20/08/2018, 23h58

Merci pour les recherches mais maintenant, j'ai une autre erreur :
Nom : Sans titre.png
Affichages : 141
Taille : 4,4 Ko

Invité · 15/08/2018, 08h44

Bonjour,

Le in indique qu'il s'agit d'une jointure externe vers une autre base Access et n'a rien à voir avec le where!

Code :

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

1
2
3
4
5
Sql ="select * from table1 "
Slq=sql & " where champs1='toto' "
Sql=sql & " union all"
Sql=sql & " select * from table1  in ('c:\myrep\base2.mdb')"
Sql=sql & " where  champs1='titi'"

b

**mohtas** · 15/08/2018, 09h44

Merci pour le IN
J'ai toujours une erreur mais je pense savoir pourquoi. Au début, il y avait une erreur sur ce code

Code :

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

Set rs = .Execute(sql)

J'ai donc déclaré rs mais sans doute que ce n'était pas le bon type de variable

Code :

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

Dim rs As Recordset

Invité · 21/08/2018, 08h19

Bonjour,
Ça ne m'étonne pas, c'est la méthode qu'on utilisait pour Access 2003 (mdb)

**mohtas** · 21/08/2018, 17h11

Bonjour et merci à dysorthographie pour m'avoir suivi dans mon désordre et mon ignorance qui diminue au fil des conversations
Pour résoudre mon problème, j'ai suivi quelques tutos et notamment :
https://warin.developpez.com/access/dao/?page=partie_4#

Mon problème :

J'ai 8 bases de données identiques (sauf les données) et je veux faire des stat sur les 8 bases en même temps.

dysorthographie me propose de passer par des requêtes SQL avec "UNION ALL IN ('C:\myrep\bd1.mdb')" etc...
Malheureusement les requêtes ne passent pas, pour quelle raison ? Je ne sais pas (encore).

Je me dirige vers ma première intuition : faire une base de données contenant mes 8 bases et ensuite faire des requêtes SQL sur cette base.
La tâche est rude pour mes petites connaissances mais le tuto ci-dessus m'a ouvert l'esprit. J'y est trouvé ma solution:

- Créer un base de données vierge :

Code :

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

1
2
3
Set wrkAcc = CreateWorkspace("AccessWorkspace", "admin", "", dbUseJet)
    If Dir("C:\myrep\NewDB.mdb") <> "" Then Kill "C:\myrep\NewDB.mdb"
    Set dbsNew = wrkAcc.CreateDatabase("C:\myrep\NewDB.mdb", dbLangGeneral)

- Créer la table qui m'intéresse dans cette base de données :

Code :

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

Set nouvelleTable = dbsNew.CreateTableDef("maTable")

- Créer les Champs de cette table :

Code :

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

1
2
3
4
5
6
For i = 0 To BD.TableDefs("maTable").Fields.Count - 1 'BD étant la base de données à copier
        With BD.TableDefs("maTable").Fields(i)
            nouvelleTable.Fields.Append nouvelleTable.CreateField(.Name, .Type, .Size)
        End With
    Next i
    dbsNew.TableDefs.Append nouvelleTable

- Copier les valeurs dans la nouvelle table grâce aux RecordSet :

Code :

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

1
2
3
4
5
6
7
8
9
Enr.MoveFirst 'Enr étant le recordSet de la table à copier
        Do
            rstNew.AddNew 'rstNew étant le recordSet de la nouvelle table
            For i = 0 To Enr.Fields.Count - 1
                If Enr.Fields(i) <> "" Then rstNew.Fields(i) = Enr.Fields(i)
            Next i
            rstNew.Update
            Enr.MoveNext
        Loop Until Enr.EOF

Voilà il y a certainement un meilleurs moyen mais pour moi le résultat est là. L'inconvénient est qu'il me faut 5 min pour pouvoir créer ma nouvelle base de données qui fait maintenant 2 Go. Pour un traitement mensuel, c'est honorable!
Je laisse ces bouts de programme pour les plus compétants ça peut être clair et pour ceux qui veulent des infos supplémentaires (comme le dimensionnement des variables) n'hésitez pas à me contacter.

Je n'ai pas encore testé le SQL sur cette nouvelle base de données, j'espère que ça va passer (pour info, je n'ai pas indexé ma table je ne sais pas si c'est important pour mon utilisation)

Invité · 15/08/2018, 09h49

Code :

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

Dim rs As Object

**mohtas** · 15/08/2018, 10h05

Ca se décante :
Par contre j'ai toujours mon erreur de syntaxe dans la clause From.
J'ai isolé certains éléments de la requête SQL et le problème vient de :

Code :

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

1
2
Sql=sql & " union all"
Sql=sql & " select * from table1  in ('c:\myrep\base2.mdb')"

Alors j'ai peut-être un indice : mon répertoire contient des espaces exple :

Code :

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

'c:\my rep\base2.mdb'

Ca peut venir de là?

**mohtas** · 15/08/2018, 11h10

J'ai testé, toujours pareil avec des répertoire sans "espace" et un fichier de base de données moins long mais c'est toujours pareil…

Donc ce n'est pas un soucis de longueur de caractères ou "d'espace" de la chaine du répertoire de la base de données. Ca vient de la requête SQL.

J'ai donc testé cette requête avec la méthode que j'employais avant avec des openRecordset et dataBase et c'est la même chose.

"IN" n'est pas pris en compte pour moi dans mon script. Il doit me manquer autre chose comme une option ou un truc comme ça. Je suis sur que c'est un truc tout bête.

Invité · 22/08/2018, 15h19

Bonjour,
dézip le répertoire sur ton bureau et fais un teste!

Invité · 15/08/2018, 16h41

https://mon-partage.fr/f/LoCWKVjq/

**mohtas** · 15/08/2018, 20h50

Je n'ai pas Acces

Invité · 15/08/2018, 21h47

Je sais mais ça te montre que ça marche

Tu as u message d'erreur ? Si oui fais un imprimer écran.

**mohtas** · 16/08/2018, 14h49

Désolé pour le temps, j'ai fait une petite pause :
Nom : erreur.png
Affichages : 345
Taille : 23,3 Ko

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
Private Sub CommandButton1_Click()
    Dim sql As String
    Dim rs As Object
 
    With CreateObject("Adodb.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\my rep\mabase1.MDB;"
 
        sql = "select * from table1"
'        sql = sql & " where champ1='toto'"
        sql = sql & " union all"
        sql = sql & " select * from table1 in (FILENAME='C:\my rep\mabase2.MDB')"
'        sql = sql & " where table1='toto'"
        Set rs = .Execute(sql)
        rs.Close
        Set rs = Nothing
        .Close
    End With
 
End Sub

Union de bases de données ou recordset [XL-2016]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager