Union de bases de données ou recordset

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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)

Bonjour,

Code:

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

14/08/2018, 17h33
mohtas

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 :zen::
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:

Set rs = .Execute(sql)

Je comprends vite mais faut m'expliquer longtemps:D
14/08/2018, 17h44
Invité

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

CreateObject

https://msdn.microsoft.com/fr-fr/vba...bject-function
15/08/2018, 00h04
mohtas
(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:

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?

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:

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

15/08/2018, 09h44
mohtas

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:

Set rs = .Execute(sql)

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

Code:

Dim rs As Recordset
15/08/2018, 09h49
Invité

Code:

Dim rs As Object
15/08/2018, 10h05
mohtas
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:

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:

'c:\my rep\base2.mdb'

Ca peut venir de là?
15/08/2018, 11h10
mohtas

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.
15/08/2018, 16h41
Invité

https://mon-partage.fr/f/LoCWKVjq/
15/08/2018, 20h50
mohtas

Je n'ai pas Acces
15/08/2018, 21h47
Invité

Je sais mais ça te montre que ça marche

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

1 pièce(s) jointe(s)

Désolé pour le temps, j'ai fait une petite pause :
Pièce jointe 404178

Code:

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

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

Édite: Effectivement erreur de syntaxes !

Code:

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

17/08/2018, 06h54
mohtas

J'avais fait tellement de tests que je n'avais pas remis en ordre. En rectifiant, je retrouve avec exactement la même erreur
17/08/2018, 08h54
Invité

Bonjour,

En fait le problème est le in ()

in 'C:\my rep\mabase2.MDB'
17/08/2018, 09h10
mohtas

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 ()"
17/08/2018, 14h03
Invité

J'ai testé avec l'exemple précédent et ça à fonctionné.
17/08/2018, 16h36
mohtas

1 pièce(s) jointe(s)

Merci pour la patience dont tu fais preuve.

Il ne manquerait pas quelque chose ici ?
Pièce jointe 404528

Voir 40 message(s) de cette discussion en une page