Discussion :

[lesguignols]

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 :

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

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

[Jean-Philippe André]

salut,

Code sql :

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

SELECT * INTO TableFinale FROM TableInitiale;

par exemple

[lesguignols]

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

[EddiGordo]

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 :

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

1
2
 
     Select * INTO TableAccess From TableLiéeSQL;

[Jean-Philippe André]

en utilisant

Code :

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

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

[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

[Jean-Philippe André]

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

[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 ?

[User]

Salut,

Code :

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

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

A+

[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 ?

[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...

[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...