[ACCESS] Recorset et TransfertDataBase

Question

Re Bonjour ! Je crée un autre sujet car le premier était imcompréhensible et surtout j'ai changer de piste pour résoudre mon pb...
Je vais essayer d'expliquer un peu plus clairement pour que vous puissiez m'éclairer car là je rame...

Dans ma table campagne, j'ai un champ [NOM CAMPAGNE]
Dans une autre base, je possede une table par campagne.

Je voudré en gros importer, toute les campagne à l'aide de leur nom via une connection ODBC.

DoCmd.TransferDatabase acImport, "ODBC",......,TABLE=ae_admaa.[NOM CAMPAGNE];....;[NOM CAMPAGNE];[NOM CAMPAGNE];False

Les 3 dernieres infos decrite étant :Source,Destination,Structure Only (dans l'aide de Do.Cmd.transfer...)
Quand je lance juste cette ligne cela marche parfaitement.

Maintenant, comment je peux automatiser tout cela.SAchant que j'ai environ 1000 nom de campagne.
Il n'y a pas moyen de faire une boucle du genre :

Indice allant=1er enregistrement de [NOM CAMPAGNE] jusque dernier enregistrement de [NOM CAMPAGNE]

DoCmd.TransferDatabase acImport, "ODBC",......,TABLE=ae_admaa.[indice];....;[indice];[indice];False

D'aprés ce que j'ai compri dans mes recherches je dois créer un recordset...J'essaie donc:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("CAMPAGNE NE", dbOpenTable, dbReadOnly)
rs.MoveFirst
While Not rs.EOF
    
    DoCmd.TransferDatabase acImport, "ODBC",...;"TABLE=ae_admaa.'" & rs![crm_campaign_name] & "';.....,"'" & rs![crm_campaign_name] & "'", False


    rs.MoveNext
Wend
End Sub

ET là Vb me dit :"Element non trouvé dans cette collection...
DEs idées..?
Désolé d'etre un peu chiant, mais je suis en stage, et j'aimerai vraiment réussir cela ^^
Merci

cs_Exploreur · Answer

Salut,

As-tu bien vérifier le nom de tes champs et celui de ta table ?

Essaye cela :
DoCmd.TransferDatabase acImport, "ODBC",...;"TABLE=ae_admaa'" & rs!crm_campaign_name & "';.....,"'" & rs!crm_campaign_name & "'", False

A+
Exploreur

chocoboevil · Answer

Malheuresement cela ne change absolument rien...
Peut etre faut t'il changer mon code??
Des idées car là je bloque :(
Merci d'avance

cs_MPi · Answer

Une question qui n'a peut-être rien à voir avec le problème, mais
Pourquoi ODBC plutôt que OLEDB ?

MPi

chocoboevil · Answer

C'est à dire ??
c'est quoi a proprement parler OLEDB ??
Vous pourriez me mettre un exemple de code pour voir si cela fonctionne?
Merci :)

cs_Nicko11 · Answer

Salut, je sais pas si cette proposition est intéressante et rapide à executer.

Moi, je me connecterais à la base de toutes les campagnes et dans une boucle du genre for each table in database

faire transfert.

Dites moi si cela serait carrément lent et donc pas intéressant à faire.

cs_Nicko11 · Answer

En code sa donnerait un truc du genre (Rajouter dans projet -> référence  ADO Ext 2.8 for DLL ans SECURITY):

Dim bdd As New ADOX.Catalog
Dim Tableau As ADOX.Table

Set bdd.ActiveConnection = ta_connexion (currentdb d'apres ce que j'ai vu)

For Each Tableau In bdd.Tables
            docmd.transfert .........
Next

[ACCESS] Recorset et TransfertDataBase

6 réponses

Votre réponse

Discussions similaires