Discussion :

[Michel85]

Bonjour à tous les passionnés :


J'ai une application qui travaille avec un grande BDD et d'autres bases externes, toutes du type ACCESS 97

Je voudrai avoir un code qui me permette d'attacher quelques tables des bases de données externes vers la grande.

J'ai déjà fait cela en dur avec l'environnement ACCESS97, mais si je change l'application de répertoire, le chemin doit aussi changer, c'est pourquoi je veux le faire par code.

Il n'y a aucun MDP pour ouvrir les BDD, je les ouvre simplement avec quelque chose du style

set dbs=OpenDatabase(CheminBase)


Merci d'avance

Michel

[ProgElecT]

Moi je mettrais les bases de données dans un sous dossier de mon exécutable et j'utiliserais App.Path

Code :

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

set dbs=OpenDatabase(App.path & "\NomBD.mdb")

[Michel85]

OK, mais ce n'est pas ce que je veux faire, car d'autres choses ne fonctionneront plus.
En particulier des requêtes faites sur les tables attachées (gain de performances)


Il n'y a que quelques lignes à taper, c'est simple (quand on sait le faire, comme d'habitude !! )

[Delbeke]

Je n'utilise jamais ADO, mais j'ai la solution en DAO

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
Private Sub InitTableLiee(TableAs As String, TableMdb As String)
  Dim Db As Database
  Dim TbDef As TableDef
  Set Db = OpenDatabase(Base)
  On Error Resume Next
  Db.TableDefs.Delete TableMdb
  On Error GoTo 0
  Set TbDef = Db.CreateTableDef(TableMdb)
  'Ligne suivante à personaliser
  TbDef.Connect = "ODBC;DSN=" & DSN.Text & ";DATABASE="
  TbDef.SourceTableName = TableAs
  On Error Resume Next
  Db.TableDefs.Append TbDef
  On Error GoTo 0
  Db.Close
End Sub

[Michel85]

Merci, j'ai trouvé aussi ceci sur un forum US, ça fonctionne super....
Je l'ai adapté pour mon cas...

Merci encore.

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub LiaisonTablesExternes()
    On Error GoTo ERREUR
    Static i As Integer
 
    NomTable(1) = "CODEVILLES"
    NomTable(2) = "HISTORIQUE"
    NomTable(3) = "IMPORTCAISSE"
    NomTable(4) = "IMPORTVENTES"
    NomTable(5) = "IMPORTVENTESEDITIONCLIENTS"
 
 
 
    Set dbs = OpenDatabase(RepertoireBase & "GESTAB2000.MDB")
 
    For i = 1 To 5
        NomDeTable = NomTable(i)
        EffaceLiaisons
 
        Set Tables = dbs.CreateTableDef(NomDeTable)
        Tables.Connect = ";DATABASE=" & RepertoireBase & NomDeTable
        Tables.SourceTableName = NomDeTable
        dbs.TableDefs.Append Tables
    Next
    dbs.Close
    Exit Sub
ERREUR:
    NumeroErreur = "ERREURIMPORT"
    FenetreErreur.Show 1
 
End Sub
 
 
Sub EffaceLiaisons()
    On Error Resume Next
    dbs.Execute ("DROP TABLE " & NomDeTable & "")
End Sub