Transfert d'une table interne sur une table Access depuis VB

**mathieuch** · 24/02/2009, 17h57

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é** · 24/02/2009, 18h25

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** · 25/02/2009, 09h53

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é** · 25/02/2009, 10h01

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

**mathieuch** · 25/02/2009, 10h15

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

**mathieuch** · 25/02/2009, 11h11

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 ?

**mathieuch** · 25/02/2009, 13h11

(c'est pourquoi j'effectuais un for each matable.rows)
peu-être que le select n'est pas apprprié ici puisque ce n'est pas une table ?
en changeant par matable.rows dans la requetes select ou matable.data il me dit incompatibilité de type...
la solution serait peut etre de transferer le contenu de cet objet dans une table interne mais encore une fois obligé de passer par un FOR EACH qui prend beaucoup de temps vu le nombre d'enregistrements.

**Jean-Philippe André** · 25/02/2009, 14h13

les tables que tu gères sont avec des clés primaires, en autonumber ?
auquel cas, il faut modifier le code pour ne pas prendre en compte cette clé dans la liste des champs.

**mathieuch** · 25/02/2009, 16h44

en fait ce ne sont pas des tables comme expliqué au dessus, ce sont des objets.
Dans ces objets, il y a des données (c'est pour ça que j'avais un for each matable.rows dans mon premier code) Je parcours en fait les 21000 lignes qui sont stockés dans matable.rows. Les lignes sont elles même divisées en colonnes, exactement les mêmes que ma table Access.
Et dans le select j'ai beau indiquier matable.data au lieu de matable tout court il me donne une incompatibilité de type. Si je met matable.rows, ça ne marche pas non plus.
Comme faudrait-il modifier le code si j'avais une clé unique ? Ai-je moyen de savoir pourquoi il y une incompatibilité de type ?

J'espère qu je suis assez clair.
Merci encore.

**Jean-Philippe André** · 25/02/2009, 17h25

plutôt que de partir sur la problématique de ce que je propose, on va déjà voir ton histoire d'objet :
- les données ne sont-elles donc pas dans une table accessible par SQL ?

**mathieuch** · 25/02/2009, 17h28

j'arrive à y accéder par une requête SQL avec ce genre de code :

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

Je ne sais pas trop si ça veut dire qu'elles sont accessibles depuis une requête SQL.

**Jean-Philippe André** · 26/02/2009, 09h33

en fait, peux-tu requêter des données sur ta table par l'interface de requête, avec un "simple" :

Code SQL :

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

SELECT * FROM MaTable;

??

**mathieuch** · 26/02/2009, 12h21

non je ne peux pas y accéder comme ça.
(les données récupérées ne viennent pas de access)

**EddiGordo** · 26/02/2009, 13h50

Bonjour,

De quel type est l'objet dbMyDB? On peut voir la ligne de déclaration?

**mathieuch** · 26/02/2009, 16h52

C'est ma base access (current db) :
elle est déclarée comme ça :

Code :

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

1
2
3
 
Dim dbMyDB As Database
dbMyDB = OpenDatabase(Application.CurrentProject.FullName)

**Kloun** · 26/02/2009, 17h22

Tes données à transférer, c'est des tables liées ?

Mais c'est quoi exactement (techniquement) ?
Des tables dans une base de données relationnelle (Oracle, SQL Server, ...) ?
Des tables Lotus Notes ?
Autre ?

**mathieuch** · 03/03/2009, 13h04

ce sont des données de SAP

**Kloun** · 03/03/2009, 14h16

Ouaich. T'as pas choisi le plus simple.
Tu ne peux pas accéder directement aux données. T'es obligé de passer par une couche SAP.
Google est ton ami : fait une recherche sur RFC_READ_TABLE.
(Quelle est la version de SAP ?)

**mathieuch** · 03/03/2009, 17h40

c'est SAP ecc6.
la fonction RFC developpé du coté SAP me renvoie bien des tables en paramètres mais le problème c'est lors de la récupération, j'ai pas trouvé d'autres solutions que de le faire passer comme ca :

Code :

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

1
2
3
4
5
 
Dim MyFunc As Object
Dim matable as object
Set MyFunc = fns.Add("Z_RFC_CALL")
Set Matable = MyFunc.Tables("nomdetabledansrfc")

**Kloun** · 03/03/2009, 17h42

Z_RFC_CALL => Spécifique.
Va falloir voir avec les gars qui ont développé la RFC pour voir comment l'utiliser.

Transfert d'une table interne sur une table Access depuis VB

VBA Access

Discussions similaires

Partager

Partager