Sélectionner un ficher mdb et importer les données [Résolu]

[voxov]

Bonjour,

Je souhaite développer une application Access qui permet de :
1. sélectionner un fichier "source" mdb (ou mde) dans un répertoire (via un composant genre "explorer" qui permet de choisir le répertoire et même le disque)
2. copier les données de "source" vers la base "destination" çàd : table par table, "copier" les lignes de la table source et les "coller" (ajouter) dans la table destination
sachant que l'on connait la structure des tables a priori (nom des tables, nom et type des colonnes).

A mon avis, la difficulté c'est de lier dynamiquement les tables source dans la base destination. Cela vient du fait que l'on sélectionne le fichier mdb à importer et donc on ne sait pas créer une fois pour toutes des tables liées dans la base destination. Il faut aussi gérer le cas où une table serait manquante dans la source.
Mais une fois ce problème résolu, les requêtes SQL (insert into ...) ne sont pas compliquées puisque les noms des tables et de leurs colonnes est connu.
Il reste aussi à trouver le bon objet (graphique) qui permette de sélectionner le fichier source.

Merci d'avance pour vos conseils, avis, exemples de code , ...

[Kloun]

Je pense qu'il y a une bonne partie des réponses à tes questions dans la

[voxov]

Pas évident.
Avec quels mots clé, la recherche dans les FAQ ?

[helas]

Bonsoir,
avec un exemple

Code :

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
 
sub test
 call LiaisonBase(SelectionFichier())
End Sub
 
Function SelectionFichier() As String
    Dim fd As FileDialog, v As Variant
    Set fd = application.FileDialog(msoFileDialogFilePicker)
    With fd
        .InitialFileName = application.currentProject.path
        .Filters.Clear
        .Title = titre
        .AllowMultiSelect = False
        .Filters.Add "Fichier mdb", "*.mdb"
        .InitialView = msoFileDialogViewDetails
        If .Show Then
            For Each v In .SelectedItems
                SelectionFichier = v
            Next v
        End If
    End With
End Function
 
 
Sub LiaisonBase(ByVal base As String)
    On Error GoTo erreur
    Dim db As DAO.Database, t1 As TableDef, t2 As TableDef
 
    Set db = OpenDatabase(base)
    For Each t1 In db.TableDefs
 
        If Left$(t1.Name, 4) <> "MSys" Then
            SysCmd acSysCmdSetStatus, "Liaison de la table " & t1.Name
            Set t2 = CurrentDb.CreateTableDef("ext" & t1.Name)
            t2.Connect = ";Database=" & base
            t2.SourceTableName = t1.Name
            CurrentDb.TableDefs.Append t2
        End If
    Next t1
 
    SysCmd acSysCmdClearStatus
    Exit Sub
erreur:
    If err = 3012 Then
        DoCmd.DeleteObject acTable, t1.Name
        Resume
    End If
    application.RefreshDatabaseWindow
End Sub

[voxov]

Merci.
C'est exactement cela.