Accueil > Forum > > > > supression de toutes les tables erreurs.
supression de toutes les tables erreurs.
samedi 7 octobre 2006 à 16:26:47 |
supression de toutes les tables erreurs.

jeanluc065
|
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
|
|
samedi 7 octobre 2006 à 21:00:43 |
Re : supression de toutes les tables erreurs.

wape
|
Réponse acceptée !
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
|
|
dimanche 8 octobre 2006 à 06:51:50 |
Re : supression de toutes les tables erreurs.

jeanluc065
|
Bonjour Wape,
Merci pour ton coup de main, çà fonctionne du 1er coup. Super ! Bon dimanche. JL
|
|
dimanche 8 octobre 2006 à 08:29:26 |
Re : supression de toutes les tables erreurs.

JMO
|
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
|
|
dimanche 8 octobre 2006 à 09:11:49 |
Re : supression de toutes les tables erreurs.

jeanluc065
|
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.
|
|
dimanche 8 octobre 2006 à 13:18:47 |
Re : supression de toutes les tables erreurs.

wape
|
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
|
|
dimanche 8 octobre 2006 à 13:21:29 |
Re : supression de toutes les tables erreurs.

wape
|
Oups, désolé, mon dernier message était adressé à Jean-Marc (et non à Jean-Luc)...
wape
|
|
dimanche 8 octobre 2006 à 13:23:15 |
Re : supression de toutes les tables erreurs.

jeanluc065
|
No problemo, vous êtes des super-dévoués !! merci jl
|
|
dimanche 8 octobre 2006 à 18:19:44 |
Re : supression de toutes les tables erreurs.

JMO
|
 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
|
|
dimanche 8 octobre 2006 à 18:26:45 |
Re : supression de toutes les tables erreurs.

JMO
|
 Re, Sorry Wape, je ne puis valider ce topic, puisque celui l'est déjà. L'estime est mémorisée. jean-marc
|
|
Cette discussion est classée dans : erreur, erreurs, tables, supression
Répondre à ce message
Sujets en rapport avec ce message
Erreur sur un des postes seulement : "des erreurs se sont produites" [ par Chrystelle ]
Bonjour, Sur la plupart des PC mon morceau de code plutôt banal passe trés bien mais sur un des PC il plante avec le message : "Des erreurs se sont pr
Besoin d'aide sur des message d'erreurs [ par Dom ]
Bonjour,J'ai crée une application de base de données en vb6 qui fonctionneparfaitementsur le pc où elle à été programmée, mais en l'installant sur un
Erreur avec ADO [ par Franky ]
Bonjour,Je suis en train de faire une application Client-Server avec ADO et une base de donnée ACCESS.Voici mon problème, je fais de la gestion d'erre
Numéros d'erreurs bizarres [ par Bruno ]
J'utilise VB6 et des contrôles d'accès aux donnéesJe voudrais créer des routines de gestion d'erreur et donner un message d'erreur adapté à la situati
messages d'erreurs [ par zhebulonn ]
Comment savoir a quel message correspondent les chiffres renvoyes en cas d'erreur ? Par exemple, j'ai l'erreur n°7 quand j'utilise la fonction waveOut
gestion d'erreurs [ par mourad183 ]
voila ma fonctionprivate sub fonction()on erreur goto a ......nombreentier=caractere......goto ba:endb:end sublogiquement le programme va s'arreter si
Comment récupérer les erreurs VBScript dans un fichier [ par chalencon ]
Bonjour,Je souhaite récupérer les erreurs pouvant intervenir pendant l'éxécution d'un VBScript dans un fichier d'erreur. Actuellement, je n'ai pas tro
Wininet.h [ par ekinoks ]
Salut !J'ai un GROS problème que je n'arrive pas a résoudre :'(Dans mon programme, je me connecte à des FTP. Mon gestionnaire d'erreur doit différence
Traitement d'erreurs [ par themrok666 ]
Hello je suis encore plutot noob et j'ai un serieu prob avec les traitement d'erreurs, je met On Error Goto Erreur et puis<table border=0 ce
problème "erreur windows" [ par tomcat77 ]
bonjour à tous,je suis nouveau sur le forum...Mon problème :je rencontre souvent le message suivant :" " explorer.exe a généré des erreurs et sera fer
Livres en rapport
|
Derniers Blogs
PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGEPRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc
http://www.c2idotnet.com/articles/presentation-des-api-rest-de-windows-azure-lister-les-comptes-de-storage
Désolé pour "toto", mais c2i existait avant blogs.developpeur.org et c'est mon site "officiel" ;-) ...
Cliquez pour lire la suite de l'article par richardc [HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] SLIDES ET DéMOS : AUTOUR DU W3C , NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Très bonne après-midi passée lors cette conférence avec le W3C, organisée par L' Inria sur les nouveaux standards, ce Mardi 14 Février, on sent vraiment que çà bosse au W3C, et l'avenir est très très prometteur pour le HTML5, notamment ...
Cliquez pour lire la suite de l'article par Gio GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|