Discussion :

[Pitou5464]

Salut,

Je voudrais récupérer les données dans une table d'une autre base de données Access et les intégrer dans ma base courante par une requête SQL type insert into.Mais je ne sais pas comment définir la connexion.

Merci pour votre aide

[marabout]

En Access, je ne vois pas comment faire... C'est possible avec un serveur genre SQL serveur...

Alors, la solution serait de lier les tables dont tu as besoin (pas les importer, juste les lier pour gagner de la place) Ensuite, tu fais ta requête de manière tout à fait classique.

[Pitou5464]

Est ce qu'il n'y aurait pas moyen avec odbc.connection?

[marabout]

Effectivment, il doit y avoir moyen de bidouiller quelque chose mais tu risque de perdre pas mal de temps en développement alors que les tables attachées vont te prendre quelques minutes...

[Muhad'hib]

Salut,

Voici une des nombreuses solutions :

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
 
Sub importtable()
Dim DB As Object
Dim NomTable As String
Dim NomNouvelleTable As String
Dim Chemin As String
 
'Importe la table nomtable de la base DB du fichier chemin dans une table nomnouvelletable dans la base courante
Dim Sql As String
Chemin = "C:\Documents and Settings\ciofolo\My Documents\bd16.mdb"
NomTable = "toto"
NomNouvelleTable = "tata"
 
Set DB = OpenDatabase(Chemin)
Sql = "SELECT " & NomTable & ".* INTO " & NomNouvelleTable & " IN '" & CurrentDb.Name & "' FROM " & NomTable & ";"
DB.Execute Sql
Set DB = Nothing
 
End Sub

A+