Connaitre le nombre de tables d'une base de données ?

Bonjour à tous,
Voici le topo:
Je fais un copier/coller d'un fichier .mdb avec la fonction FileCopy.
Ma base est donc recopiée à l'identique, ainsi que toutes les tables et leur contenu.
Je veux effacer tous les enregistrements de ces tables.
Le nombre de tables dans la base peut changer, donc je ne le connais pas.
Comment faire, à partir du nom de ma BDD, de connaitre le nombre de tables et ainsi d'effacer leur contenu?
Merci

salut

Voici un morceau de code qui te permetra de connetre le nombre de tables dans ta bdd. j'utilise la methode DAO.
Attention il te contera également les tables systemes qui sont au nombre de 4.

Dim db As DAO.Database Set db = OpenDatabase(App.Path & "\ee.mdb") i = db.TableDefs.Count

Bon courrage

JUJECO

Merci pour la réponse mais je travaille en ADO et non en DAO.
Donc je ne sais toujours pas comment faire...

labout

Voila en ADO
Ici j'alimente une listbox
goCnx est ma connection

Dim rstSchema As ADODB.Recordset
Set rstSchema = goCnx.OpenSchema(adSchemaTables)

Do Until rstSchema.EOF
ListTablesSel.AddItem rstSchema.Fields("Table_Name").Value
rstSchema.MoveNext

Loop
rstSchema.Close

@+

Merci pour l'info
Bon Ap

Jeom

Excusez-moi mais une petite question c'est quoi  les autre noms qui sortent?
et peut-on les supprimer?
Merci d'avance pour la réponse.

:)Sator :)

ps: si il ni avait pas de faute d'orthographe dans ce texte, il y a fort à parier que ce texte ne serait pas de moi...

Des tables syystème cachées qu'il ne faut surtout pas supprimer.

labout

En fait, je me doutais bien qu'il ne fallait pas les supprimer, à titre définitif, je parlais de les supprimer de ma liste, mais j'ai trouvé le moyen de les supprimer de ma liste.

merci pour ta réponse

:)Sator :)

ps: si il ni avait pas de faute d'orthographe dans ce texte, il y a fort à parier que ce texte ne serait pas de moi...