Question : Question de SQL pour choisir toutes les tables à partir d'une base de données d'accès

Nous avons un $$etAPP qui établit un VIEUX rapport à n'importe quel type de base de données (serveur de milliseconde SQL, Oracle, MySQL, etc.) et questionne quelles tables sont présentes dans cette base de données. Normalement c'est quelque chose comme : le
SELECT TABLE_NAME d'INFORMATION_SCHEMA.TABLES

Can n'importe qui me donnent l'équivalent pour une base de données d'accès car ceci ne fonctionne pas ?


Also pour obtenir les colonnes actuelles dans une table spécifique que nous employons :
SELECT COLUMN_NAME d'INFORMATION_SCHEMA.COLUMNS OÙ (TABLE_NAME = le « ")

Does n'importe qui de myTableName savent ce que serait ce pour Acces ?
class= de

Réponse : Question de SQL pour choisir toutes les tables à partir d'une base de données d'accès

http://www.eraserve.com/tutorials/MS_ACCESS_VBA_Get_All_Fields.asp

Pas assez, mais si vous créez cette fonction de VBA dans un module, vous pouvez employer ceci

CHOISIR le nom, GetFields (le nom)
De MSysObjects
LÀ OÙ saisir (1, 4, 6)
ORDRE de nom ;

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 : 24 : 25 : 26 : 27 : 28 : 29 : 30 : 31 : 32 : 33 : 34 : 35 : 36 : 37 : 38 : 39 : 40 : 41 : 42 : 43 : 44 : 45 : 46 : 47 : 48 : 49 : 50 : 51 : 52 : 53 :

Fonction GetFields (ByVal TableName comme corde) comme corde 'Références : Bibliothèque des programmes résultants de Microsoft Access 11.0, bibliothèque des programmes résultants de Microsoft DAO 3.6 'Placer les références en cliquant des outils et puis les références dans la fenêtre de vue de code 'Renvoie tous les noms de champ qui existent dans le Tableau TableName. 'Accepte 'TableName : Nom de table dans lequel les champs sont situés 'Renvoie tous les noms de champ, nulle autrement 'UTILISATION : GetFields « TABLENAME » Sur l'errhandler GoTo d'erreur Faible DB comme DAO.Database Faible tdf comme DAO.TableDef Faible fld comme DAO.Field Faible strField comme corde Placer DB = CurrentDb Placer le tdf = le db.TableDefs (TableName) 'Faire une boucle par tous les champs (les colonnes) Pour chaque fld dans le tdf. Champs strField = strField et fld. Nom et « , » 'encavateur le nom de champ Après 'Renvoyer les noms de champ GetFields = strField 'Si aucunes erreurs ExitHere : Placer le fld = rien Placer le tdf = rien Placer DB = rien 'Informer l'utilisateur que le processus est complet. ' MsgBox « copie de disque complète » Sortir la fonction errhandler : 'Il y a un retour d'erreur en tant que nulle GetFields = « erreur » et Err.Number et vbCrLf et Err.Description Avec errer ' MsgBox « erreur » et. Nombre et vbCrLf et. Description, _ ' vbOKOnly ou vbCritical, « GetFields » Extrémité avec Résumé ExitHere Fonction de fin