Discussion :

[mathieuch]

Bonjour à tous, je ne savais pas trop ou placer ce sujet car il concerne du code VB mais egalement un peu d'access.

Voici le problème :
je dois transférer une dixaine de tables (dcéalrées comme tables appartenant a un objet myfunc.tables) de quelques 20000 enregistrements vers des tables Access.

J'ai opté pour deux solutions : la premier en recordset qui s'execute cellule par cellule

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Set rsMyRS = dbMyDB.OpenRecordset("Matable", dbOpenDynaset)
   For Each Matable In Matable.Rows
          rsMyRS.AddNew
           For i = 0 To 3 '3 etant le nombre de colonnes
           rsMyRS.Fields(i) = Matable(i + 1)
           Next
           rsMyRS.Update
  Next

La deuxieme par insertion SQL :

Code :

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

1
2
3
4
 
  For Each matable In matable.Rows 
       dbMyDB.Execute "insert into matable(colonne1) values ('" & matable(1) & "');"   
 Next

Ces deux méthodes fonctionnent bien mais sont malheureusement très lentes ... et je ne peux pas me permettre de telles performances.

Ma question est donc y a t'il des méthodes plus performantes ? Mes tables source et origine ont exactement la même structure, peut etre existe t-il un copietable ou quelque chose comme ça ?

Merci d'avance de vos réponse.

[Jean-Philippe André]

salut,
je partirais sur un rapide

Code :

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

CurrentDb.Execute "INSERT INTO NouvelleTable (...) SELECT (...) FROM MaTable"

les (...) représentant les différents champs.

Si jamais tu ne sais pas à l'avance leur nom, tu peux passer en amont par une variable string du type :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim ListeChamps as String
Dim tmpTable As TableDef
Dim i as Integer
ListeChamps = ""
Set tmpTable = CurrentDb.TableDefs("MaTable")
For i = 1 to tmpTable.Fields.Count
ListeChamps = ListeChamps  & "[" & tmpTable.Fields(i).Name & "]," 
Next i
'on supprime la virgule en trop à droite
ListeChamps =left(ListeChamps,Len(ListeChamps)-1)
CurrentDb.Execute "INSERT INTO NouvelleTable " & ListeChamps & " SELECT " & ListeChamps & " FROM MaTable"

[mathieuch]

merci pour ta réponse très rapide !
dans ta requète insert, je ne dois pas utiliser de for each pour parcourir toutes les lignes ?

[Jean-Philippe André]

ce n''set pas nécessaire, dans la mesure où tu insères le contenu d'une requête, pas un seul enregistrement

[mathieuch]

tu es vraiment très rapide, merci encore !
je test ça et te tient au courant.

[mathieuch]

J'ai donc testé cette méthode mais j'ai un dernier soucis au niveau de la requète :

Code :

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

currentDB.Execute "INSERT INTO nouvelletable " & ListeChamps & " SELECT " & ListeChamps & " FROM " & matable & "

car en fait matable (la table ou je vais chercher les données) est une table déclarée comme ceci :

Code :

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

1
2
3
 
Dim MyFunc As Object
Set matable = MyFunc.Tables("w_matable")

Mais il me dit bad index j'ai peut être oublié quelque chose ?