supression de toutes les tables erreurs.Résolu

Question

Bonjour à tous, 

En access 2002, j'importe en boucle, des fichiers xls et suite à des erreurs de conversion, des tables d'erreur se créent ( erreur, erreur1, erreur2, etc..)
Qui pourrait m'écrire un code pour vérifier l'existence de ces tables "erreur*" et les supprimer ( simplement pour gagner de l'espace mémoire) car çà ne nuit pas au bon fonctionnement de mon application.
Merci d'avance.
JL

cs_wape · Accepted Answer

Bonjour,

Essaye qqch du genre :

Sub Supprimer_Tables()


For Each Td In CurrentDb.TableDefs
   If Td.Name Like "erreur*" Then
      CurrentDb.TableDefs.Delete Td.Name
   End If
Next Td


RefreshDatabaseWindow


End Sub

wape

jeanluc065 · Answer

Bonjour Wape,

Merci pour ton coup de main, çà fonctionne du 1er coup. Super !
Bon dimanche.
JL

cs_JMO · Answer

Bonjour à tous....

Salut Jean-Luc

Je suis intéressé pour pouvoir deleter des tables d'une base Access.
Peux-tu mettre ton bout de code.
Avec "adSchemaTables", je sais lister toutes les tables, mais
je ne connais pas la synthaxe pour en supprimer.

Merci d'avance et bonne journée.
jean-marc

Dim BaseJor : BaseJor = "D:\OxaJor\20061002.MDB"
Call ReadBase(BaseJor)
'###############################################################################
Function ReadBase(BaseJor)
Const adSchemaTables = &h14
Dim Db, Rs
Set Db = CreateObject("ADODB.Connection")
Db.Open  "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & BaseJor
Set Rs = Db.OpenSchema(adSchemaTables)


Do Until Rs.EOF
'MsgBox Rs.Fields("TABLE_NAME").Value
If Left(Rs.Fields("TABLE_NAME").Value, 3) = "E_X" Then MsgBox Rs.Fields("TABLE_NAME").Value
Rs.MoveNext     
Loop
Rs.Close 
      
Set Db  = Nothing
Set Rs  = Nothing
End Function

jeanluc065 · Answer

Bonjour Jean-Marc, 

Moi j'ai juste recopié le code fourni par Wape en changeant le nom exacts de tables "erreur", noms qui se générent automatiquement au gré des importations effectuées.
C'est tout ce que j'ai fait.
Bon dimanche Jean-Marc.

cs_wape · Answer

Bonjour Jean-Luc,

Une possibilité serait de passer par une requête SQL. Par exemple pour supprimer toutes les tables dont le nom commence par "E_X" :

(...)

Do Until Rs.EOF
   If Left(Rs.Fields("TABLE_NAME").Value, 3) = "E_X" Then
      Db.Execute "DROP TABLE " & Rs.Fields("TABLE_NAME")
   End If
   Rs.MoveNext
Loop

(...)

wape

cs_wape · Answer

Oups, désolé, mon dernier message était adressé à Jean-Marc (et non à Jean-Luc)...

wape

jeanluc065 · Answer

No problemo, vous êtes des super-dévoués !!
merci
jl

cs_JMO · Answer

Bonjour à tous....

Salut Jean-Luc et Wape,

Merci Wape.
Copier/Coller , testé et approuvé...
Jusqu'une petite question, existe-t-il une doc mélangeant vbs/vba, .mnb..) ??? 
Bonne soirée,
jean-marc

cs_JMO · Answer

Re,

Sorry Wape, je ne puis valider ce topic, puisque celui l'est déjà.
L'estime est mémorisée.

jean-marc

Supression de toutes les tables erreurs.

9 réponses

Votre réponse

Discussions similaires