Discussion :

[Aeltith]

Bonjour

Alors voilà !

J'ai juste besoin de divisé une table en deux. La raison est simple:

A partir d'Excel, je réalise un import de données d'une table Access. Hors cette table contient 1.600.000 lignes

Je suis arrivé grace à une macro VBA (thanks Silkyroad) à en importer 1.000.000. Reste 600k lignes !


Mon but est simple, je divise ma table en deux à l'endroit où je veux (entre la 1.0..eme et là 600... eme lignes ! )

Et je relance ma macro sur ces lignes manquantes.

j'aurai alors deux fichiers Excel avec toutes mes lignes et je serai content

Est ce que c'est possible ???

Mon idée était peut etre de créer une requete pour ça mais je maitrise mal Access. Et puis j'ai pas trouver en faisons bouton droit sur ma table d'option pour ça !

Quelqu'un à une idée ? un plan ? meme un grec à cette heure je prend

Thanks


EIDT: j'ai essayé de selectionné manuellement les lignes... mais bon 600k de lignes à copier coller........

Quelqu'un sait comment je peux ecrire une requete pour ça ??

[Gabout]

Bonjour,

Pour diviser une table, tu peux :

• y rajouter un champ NumAuto,
• faire un copier/coller de ta table,
• supprimer les champ du n°1 à 800 000 dans la première table,
• supprimer les champs 800 001 à 1 600 000 dans la table copiée.

Par contre, je croyais qu'Excel n'acceptait pas plus de 65000 lignes !

A+

[LedZeppII]

Bonsoir,

Si tu importes tes données dans Excel à partir d'un recordset, tu peux essayer deux instructions SQL.

Dans cet exemple le champ ID de la table LaTable est un champ clé.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim db As DAO.Database, rs As DAO.Recordset
Dim strSQL As String
 
Set db = DBEngine.Workspaces(0).OpenDatabase("C:\TEMP\data\DB1.mdb")
 
' 1ère partie
strSQL = "SELECT LaTable.*" & vbCrLf & _
         "FROM LaTable" & vbCrLf & _
         "WHERE (((LaTable.ID)<(SELECT MAX(Tmp2.ID) FROM (SELECT TOP 1000000 tmp1.ID FROM LaTable As Tmp1) As Tmp2 )));"
 
Set rs = db.OpenRecordset(strSQL)
 
Me.Worksheets(2).Range("A1").CopyFromRecordset rs
rs.Close
 
' 2ème partie
strSQL = "SELECT LaTable.*" & vbCrLf & _
         "FROM LaTable" & vbCrLf & _
         "WHERE (((LaTable.ID)>=(SELECT MAX(Tmp2.ID) FROM (SELECT TOP 1000000 tmp1.ID FROM LaTable As Tmp1) As Tmp2 )));"
 
Set rs = db.OpenRecordset(strSQL)
 
Me.Worksheets(3).Range("A1").CopyFromRecordset rs
rs.Close
 
Set rs = Nothing
db.Close
Set db = Nothing

La première instruction SQL (appelons la instruc1) utilisée dans le code ci-dessus :

Code SQL instruc1 :

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

1
2
3
SELECT LaTable.*
FROM LaTable
WHERE (((LaTable.ID)<(SELECT MAX(Tmp2.ID) FROM (SELECT TOP 1000000 tmp1.ID FROM LaTable As Tmp1) As Tmp2 )))

Elle sélectionne tous les enregistrements de la table LaTable dont le champ clé ID a une valeur inférieure à celle renvoyée par l'expression SQL

Code :

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

(SELECT MAX(Tmp2.ID) FROM (SELECT TOP 1000000 tmp1.ID FROM LaTable As Tmp1) As Tmp2 )

Cette expression renvoie la plus grande valeur du champ clé ID dans les 1000000 premiers enregistrements.
instruc1 renvoie donc les 999999 premiers enregistrements de la table LaTable.

La deuxième instruction SQL (complément de la première) :
C'est un copier/coller de la première instruction.
La différence se situe au niveau du WHERE où l'opérateur de comparaison < a été remplacé par >=.

Ces deux instructions SQL pourraient être des requêtes créées dans la base Access.
Mais apparemment tu as Office 2007 et ne connaissant pas, je ne peux t'expliquer comment créer ces requêtes.

A+

[LedZeppII]

Il y a plus simple en fait, je viens de m'en rendre compte.
En Effet CopyFromRecordset copie à partir de l'enregistrement en cours du recordset.
Après avoir copié les 1000000 premiers on peut de nouveau utiliser CopyFromRecordset avec le même recordset.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim db As DAO.Database, rs As DAO.Recordset
Dim strSQL As String
 
Set db = DBEngine.Workspaces(0).OpenDatabase("C:\TEMP\data\DB1.mdb")
 
Set rs = db.OpenRecordset("LaTable", dbOpenSnapshot)
 
' 1ère partie dans feuille 1
Me.Worksheets(1).Range("A1").CopyFromRecordset rs, 1000000
 
' on se positionne sur le 100001ème enregistrement
If Not rs.EOF Then rs.MoveNext
 
' 2ème partie dans feuille 2
Me.Worksheets(2).Range("A1").CopyFromRecordset rs
rs.Close
 
Set rs = Nothing
db.Close
Set db = Nothing

A+