Diviser une table en deux

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 :aie:

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 :yaisse2:

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 :mrgreen:

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 ??

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+ ;)

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:

---

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:

---

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:

---

(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+

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:

---

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+