Nom des tables sous Access

Signaler
Messages postés
33
Date d'inscription
mercredi 26 décembre 2001
Statut
Membre
Dernière intervention
13 janvier 2006
-
Messages postés
33
Date d'inscription
mercredi 26 décembre 2001
Statut
Membre
Dernière intervention
13 janvier 2006
-
Bonsoir!

J'ai un petit probleme: je voudrais recuperer (par VB6), le nom de toutes les tables d'une Bdd Access (ainsi que les proprietes des differents champs, si possible)).

Si quelqu'un sait comment faire, ce serais vraiment super !!!!

Merci d'avance ^_^

3 réponses

Messages postés
141
Date d'inscription
mardi 30 avril 2002
Statut
Membre
Dernière intervention
23 mars 2005
1
Dim j As AccessObject, dbs As Object
'traitement des erreurs
On Error Resume Next
Set dbs = Application.CurrentData
'Pour chaque object access dans les tables de la base
For Each j In dbs.AllTables
'On cache les tables systemes, comme elle commence toute part Msys
'On regarde les 4 premiers caracteres de la table et si ceux ci sont different de msys
'c est que ce n est pas une table systeme, donc on veut garder son nom
If Left(j.Name, 4) <> "Msys" Then
'on recupere le nom de la table
Table = j.Name + ";" + Table
End If
'fin de la boucle pour
Next j

voila ca c est mon code pour voir les tables d une base access en VBA
je sais pas si ca peut t aider
Chevalier Pheno Starboard, membre de la Freeman-Corp
0
Messages postés
562
Date d'inscription
dimanche 16 décembre 2001
Statut
Modérateur
Dernière intervention
26 décembre 2007
1
Je une solution en utilisant les méthodes ado :

Set MyRecordset = MyConnection.OpenSchema(adSchemaTables)
MyRecordset.MoveFirst
While Not Myrecordset.EOF
If Myrecordset!table_type = "TABLE" Then
'si c une table
End If
Myrecordset.MoveNext
Wend

Bien sur il faut avoir déclarer le recordset, et la connection et les avoir initialiser
Voilà
@+
0
Messages postés
33
Date d'inscription
mercredi 26 décembre 2001
Statut
Membre
Dernière intervention
13 janvier 2006

Ok, merci a vous 2 ^_^

Je vais essayer tout ça. Merci !
0