Union de bases de données ou recordset

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

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, 17h37

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, 18h33

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é · 14/08/2018, 18h44

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, 01h04

(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é · 15/08/2018, 09h44

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, 10h44

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é · 15/08/2018, 10h49

Code :

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

Dim rs As Object

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

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, 12h10

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é · 15/08/2018, 17h41

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

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

Je n'ai pas Acces

Invité · 15/08/2018, 22h47

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, 15h49

Désolé pour le temps, j'ai fait une petite pause :
Nom : erreur.png
Affichages : 349
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

Invité · 16/08/2018, 19h47

onsoir,
Déjà c'est in ('C:\my rep\_mabase2.MDB')"
Ta table s'appel table1?

Édite: Effectivement erreur de syntaxes !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub test()
With CreateObject("Adodb.Connection")
.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & ThisWorkbook.Path & "\Database1.accdb;"
Sql = "select * from table1 "
Sql = Sql & " union all"
Sql = Sql & " select * from table1 in '" & ThisWorkbook.Path & "\Database2.accdb'"
 
ActiveCell.CopyFromRecordset .Execute(Sql)
.Close
End With
End Sub

**mohtas** · 17/08/2018, 07h54

J'avais fait tellement de tests que je n'avais pas remis en ordre. En rectifiant, je retrouve avec exactement la même erreur

Invité · 17/08/2018, 09h54

Bonjour,

En fait le problème est le in ()

in 'C:\my rep\mabase2.MDB'

**mohtas** · 17/08/2018, 10h10

Je crois que j'ai déjà tester sans les parenthèses mais je vais recommencer.
Je vois ça demain avec un spécialiste des requêtes SQL et java. Peut-être pourra-t-il m'ouvrir les portes du SQL. Il m'a déjà signalé qu'il y avait un langage SQL plus complexe. Peut-être que c'est celui-ci qui prend en compte le "In ()"