Copier de SQL-Coller dans ACCESS

Version imprimable

03/02/2009, 16h38
lesguignols

Copier de SQL-Coller dans ACCESS
Bonjour,

Etant donné une connexion "rs" avec sql, une connexion rsAcc avec access; pour compléter ma table ACCES je voudrais éviter la commande :
Code:

1 2 3 For i = 0 To rs.Fields.Count - 1 rsAcc.Fields(i) = rs.Fields(i) Next i
qui prend un temps considérable puisqu'il y a beaucoup de lignes.

Existe t-il un moyen dans VBA ACCESS pour copier une table dans SQL et la coller dans une table existane dans ACCESS ?

Merci d'avance
03/02/2009, 16h54
Jean-Philippe André

salut,

Code:

SELECT * INTO TableFinale FROM TableInitiale;

par exemple :)
03/02/2009, 16h58
lesguignols

DEJA essayé; MAIS
Ca ne peut pas marcher puisqu'il faut passer par une connexion pour selectionner from une base SQL.
03/02/2009, 17h20
EddiGordo
Citation:

Envoyé par lesguignols

DEJA essayé; MAIS
Ca ne peut pas marcher puisqu'il faut passer par une connexion pour selectionner from une base SQL.

Bonjour,

Mais si ça peux marcher si tu utilises les liaisons.
Avec une table liée tu peux faire fonctionner ce que t'as indiqué jpcheck :
Code:

1 2 Select * INTO TableAccess From TableLiéeSQL;
03/02/2009, 17h22
Jean-Philippe André

en utilisant

Code:

CurrentDb.Execute

avec l'option dbSQLPassThrough
ca devrait faire l'affaire.

En tous les cas, de mon côté, les tables en lien ODBC sont avec mdp enregistré et fonctionnent comme des tables en local :)
03/02/2009, 17h33
lesguignols

Merci jpcheck;

Peux tu tout de même me fournir un exemple tout simple qui fera utilser la currentdb.execute et le dbSQLPassThrough ?

Merci
03/02/2009, 17h41
Jean-Philippe André

l'exemple (certes quelque peu différent de mon idée) de la :faq: devrait faire l'affaire :)
http://access.developpez.com/faq/?page=SQL#qryActions
03/02/2009, 17h55
lesguignols

Désolé de te revenir mais je ne trouve pas dans l'exemple du FAQ l'utilisation du "dbSQLPassThrough" qui me semble assez correcte
Si j'appelle la base SQL "Sbase" et la table ACCESS "Abase".
Ma requête sera

Mysql = "Select * INTO Abase From Sbase"
set rs = CurrentDb.Execute(Mysql)

Quelles lignes rajouter pour que la requete "Mysql" s'exécute sans problème ?

Salut,

Code:

1
2
Mysql = "Select * INTO Abase From Sbase"
CurrentDb.Execute(Mysql)

A+

04/02/2009, 09h55
lesguignols

Même si je n'étais pas convaincu, j'ai écouté vos conseils en mettant

DoCmd.RunSQL "SELECT * into Abase from Sbase"

le message d'erreur est : "Le moteur de base de données Microsoft Jet ne peut pas trouver la table ou la requête "Sbase", Assurez-vous qu'elle existe...."

Donc c'est là où je suis persuadé que je dois rajouter des lignes pour assurer la connexion mais je ne sais pas lesquelles....??? Can you help plz ?
04/02/2009, 10h27
EddiGordo

Bonjour,

Pour que ça fontionne, il faut tout d'abord avoir pris soin de lier la table SQL...

Sous access 2007, c'est dans données externes/Plus/ODBC/Créer un lien vers une table attachée.

Sinon si je me souviens des versions antérieures c'est dans Fichier/Données externes/Lier les tables...et là tu choisis ODBC dans la zone type de fichiers.

Ensuite tu renseignes les infos de connexion.

Une fois cette liaison faite, ton objet (en l'occurrence SBase dans ton exemple) sera disponible...
04/02/2009, 11h46
lesguignols

J'ai établi la connexion comme tu m'as expliqué mais toujours le message d'erreur. Y a t-il un moyen pour l'établir dans le code au lieu de la faire manuellement. On sait jamais, peut être que ça marchera...