Discussion :

[Dryss51]

Bonjour,

Je suis sur un projet ou je dois archiver certaines données.

Pour ce faire, j'ai un requète qui va chercher toutes les infos que je veux archiver (un recordset dynamique quoi).

Ce que je veux faire :

Copier toutes ces infos dans une table d'une base de donnée access "Archive" (création d'une table à chaques nouvelles archives)
puis
Supprimer les données

J'arrive à ouvrir la base archivage, à y créer un table, pas de probleme

Mon problème :

Ma requete comporte une 50ène de champs donc si je dois faire un insert pour 50 champs je risque de perdre un temps fou. Je voudrai copier le recordset dans un table de ma base "archive" directement si possible !

Merci d'avance pour votre aide,

Cordialement Dryss

[Pierre Fauconnier]

Bonjour

Tu peux utiliser une requete sql.

Code :

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

1
2
3
 
sql = "insert into tablecible select * from tablesource where..."
    CurrentDb.Execute sql

Ok?

[Dryss51]

Merci d'avoir essayé Pierre mais ca ne resoud pas mon problème, la table cible n'est pas définit, le nombre de champs dépend du nombre de champs de la requète. Donc l'insert ne peut pas marcher...
De plus, les données doivent etre inserée dans la base archive, mais elle doivent venir de la base 'source'

[Pierre Fauconnier]

Merci d'avoir essayé Pierre mais ca ne resoud pas mon problème, la table cible n'est pas définit, le nombre de champs dépend du nombre de champs de la requète...(les données) doivent venir de la base 'source'

Je ne comprends pas très bien ton problème...

Je suppose que ta basecible est créée avec des noms de champs qui correspondent à ceux de ta base source (ou requête source).

Quand tu dis que la table cible n'est pas défnie, je ne comprends pas. Tu as dit que tu savais créer la base et la table de sauvegarde...
Donc, pourquoi pas un insert dans ta table de sauvegarde que tu dis avoir su créer, et remplacer le select * from tablesource par le texte de ton recordset dynamique...? Je suppose que ton recordset dynamique est basé sur ta base source

[Dryss51]

Excuse si j'ai pas été bien clair,

Toute ces manip je les fais en vba apres un click_bouton, la table est créé mais pas les champs, je sais les créés mais je préfererai copier directement le recordset puisque c'est un table...
Ceci m'eviterai d'alourdir le formulaire avec un code vba gourmand...
De plus, il faudrait faire une création d'une table avec 50 champs, ce qui est très fastidieux.

[Pierre Fauconnier]

Tu pourrais peut-être t'inspirer de ceci

Code :

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

1
2
3
4
5
 
    Dim sql As String
    sql = "select tablesource.* into backup from tablesource where ...'"
    CurrentDb.Execute sql
    DoCmd.CopyObject "NomCompletBaseBackup", backup, acTable, "backup"

La requête SQL crée un table nommée backup au sein de la base source en copiant la structure et les enregistrements répondant à la clause WHERE.
Puis, la table Backup est copiée dans la base de sauvegarde.

Il faut veiller à ce que Backup n'existe pas dans les bases de données, par exemple en les détruisant en début de procédure.

Cela te convient-il?

[Arkham46]

Bjr,

Plutôt que de copier la table, il me semble qu'on peut directement insérer les données dans la base de données cible :

Code sql :

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

select * into backup in "c:\MaBaseBackup.mdb" from tablesource

[Dryss51]

Merci les gars, c'est exactement ce qu'il me fallait.
MAIS (oui car il y a un mais), j ai un message d'erreur qui me dit je le cite
"La table résultante ne peut pas avoir plus d'un champs autoNumber"
Ca c'est balo!
Mais si ce n'est que cela, je les vire!
En tous cas merci à vous deux

[Pierre Fauconnier]

Tout à fait, Arkham46, j'avais oublié (heu... je ne connaissais pas...) cette possibilité.

Attention à doubler les quotes dans la chaine du nom de la base cible...

[Pierre Fauconnier]

Merci les gars, c'est exactement ce qu'il me fallait.
MAIS (oui car il y a un mais), j ai un message d'erreur qui me dit je le cite
"La table résultante ne peut pas avoir plus d'un champs autoNumber"
Ca c'est balo!
Mais si ce n'est que cela, je les vire!
En tous cas merci à vous deux

En utilisant quelle syntaxe as-tu ce problème?

[Dryss51]

Ouai bah ca marche en virant tous les numéro auto, car il essaie de créer une table (avec un idauto donc) et puisqu'il y avait des champs de ce format dans ma requète, c'était impossible.
En tous cas merci, je ne connaissais pas cette syntaxe dans les requètes (into) et ca va m'éviter de passer bien du temps sur un gros vba code tous baveux .