trier et renommer une table access depuis vba excel

Version imprimable

Bonjour forumeurs et forumeuses,

Je chercher à trier une table access depuis vba excel. J'utilise excel 2000 et access 2000.

Voici mon bout de code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub tri_table_access() Dim cnnADO As New ADODB.Connection Dim catADO As New ADOX.Catalog Dim cmdADO As New ADODB.Command Dim rsADO As New ADODB.Recordset Dim chemin_db As String chemin_db = "C:\MaBDD.mdb" cnnADO.Provider = "Microsoft.jet.OLEDB.4.0" cnnADO.ConnectionString = chemin_db cnnADO.Open catADO.ActiveConnection = cnnADO cmdADO.ActiveConnection = cnnADO cmdADO.CommandText = "SELECT matable.* FROM matable ORDER BY var1, var2 ASC;" rsADO.Open cmdADO cnnADO.Close End Sub
Ca ne marchait pas et pour voir d'ou ca venait j'ai donc remplacé ma requete par :

Code:

cmdADO.CommandText = "SELECT matable.* into matable2 FROM matable ORDER BY var1, var2 ASC;"

Ce qui fonctionne mais il me faut maintenant renommer matable2 en matable... (parce que ce bout de programme est a insérer dans un autre et je ne veux pas a avoir a changer toute la structure du gros gros... gros programme)

Quelqu'un peut-il m'aider ? Soit en faisant fonctionner ma première macro, Soit en m'apprennant comment on renomme une table depuis vba sous excel.

Avec tous mes remerciements.

lascrabbleuse !

Je ne sais pas exactement ce dont tu as besoin. Ci-dessous, j'ai mis un code d'une fonction qui te renvoie un recordset avec les données triées comme tu en as besoin.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function tri_table_access() as ADODB.recordset
    Dim cnnADO As New ADODB.Connection
    Dim cmdADO As New ADODB.Command
 
    Dim chemin_db As String
    chemin_db = "C:\MaBDD.mdb"
 
    cnnADO.Provider = "Microsoft.jet.OLEDB.4.0"
    cnnADO.ConnectionString = chemin_db
    cnnADO.Open
 
    cmdADO.ActiveConnection = cnnADO
    cmdADO.CommandText = "SELECT * FROM matable ORDER BY var1, var2 ASC"
    set tri_table_access = cmdADO.execute
    set cmdADO = Nothing
    cnnADO.Close    
End Function

J'espère que cela va t'aider.

14/04/2009, 14h52
lascrabbleuse

Ok merci, en fait quand j'ouvre ma table apres l'exécution de la macro, on n'y voit pas la tri, la table est toujours la même... est-ce normal ?
14/04/2009, 15h12
AnneCa
Laisse ta table comme elle est et crée une vue (VIEW) dans ta DB access.
Code:

1 2 CREATE VIEW VIEW_Matable AS SELECT * FROM matable ORDER BY var1, var2 ASC
Une vue est un objet dynamique: quelque soit les données dans la table, elles sont "bien" ordonnées dans ta vue.
14/04/2009, 15h29
lascrabbleuse

ok je ne connaissais pas cela. merci.
Cependant, il est indispensable dans le programme que la table elle-même soit triée. Je ne comprends pas : que fais ta fonction (et ma sub) si elle ne trie pas la table ? Pourquoi la table n'est-elle pas "remplacée" par elle même mais triée ?

Ma fonction ne faisait que renvoyer les données triées. Si tu veux vraiment un changment radical dans ta table, va falloir passer à quelque chose de plus lourd (et plus "dangereux")

1. Dans la DB, Créer une table de travail matable_TR (même définition que matable)

2. Dans la DB, crée une query (stored procedure) de ce genre-là
Code:

1 2 3 4 5 6 7 8 9 /*1. Pour être sûr qu'il n'y a pas de record obsoletes*/ DELETE * FROM matable_TR /* 2. Copier les données dans la table de travail*/ INSERT INTO matable_TR SELECT * FROM matable /* 3. Vider la table*/ DELETE * FROM matable /* 4. Copier les données dans la table avec le bon ordre*/ INSERT INTO matable SELECT * FROM matable_TR ORDER BY var1, var2 ASC
3. Dans ta macro, tu fais juste appel à cette query/procédure
Que penses-tu de cette solution??

14/04/2009, 16h05
lascrabbleuse

Impec, ca devrait fonctionner ! C'est un peu ce que je cherchais a faire en voulant renommer ma table alors qu'il suffit de la supprimer et de la recreer a partir de l'intermediaire.

merci beaucoup de ton aide et de ta patience !

lascrabbleuse