Comment puis-je obtenir les noms de table à partir d'une Base de données MS Access?

Microsoft SQL Server et MySQL dispose d'une table INFORMATION_SCHEMA que je peux interroger. Cependant, il n'existe pas dans une base de données MS Access.

Est-il un équivalent je peux utiliser?

InformationsquelleAutor luntain | 2008-10-14

ms-access

58

De construire sur Ilya de répondre à essayer la requête suivante:
```
SELECT MSysObjects.Name AS table_name
FROM MSysObjects
WHERE (((Left([Name],1))<>"~") 
        AND ((Left([Name],4))<>"MSys") 
        AND ((MSysObjects.Type) In (1,4,6)))
order by MSysObjects.Name 
```
(celui-ci fonctionne sans modification avec un MDB)

ACCDB les utilisateurs peuvent avoir besoin de faire quelque chose comme ce
```
SELECT MSysObjects.Name AS table_name
FROM MSysObjects
WHERE (((Left([Name],1))<>"~") 
        AND ((Left([Name],4))<>"MSys") 
        AND ((MSysObjects.Type) In (1,4,6))
        AND ((MSysObjects.Flags)=0))
order by MSysObjects.Name 
```
Qu'il y a une table supplémentaire est inclus, qui semble être un système de table d'une certaine sorte.
- Dossier(s) ne peut pas être lu; pas d'autorisation de lecture sur "MSysObjects'.
- Que getSchema l'article n'est plus présent.
- J'ai mis à jour ma réponse avec les détails de la 404 site web.
- Il y a plusieurs réponses sur cette page, alors pourquoi wayback? Et pourquoi c#?
- Pourquoi WayBack - comment j'ai découvert le contenu d'origine après le propriétaire du blog du lien effacé son blog et de le redémarrer. Pourquoi c#? C'est ce que le propriétaire du blog et la personne qui a édité mon post a choisi de le faire il y a un an. J'étais juste à la fixation d'un lien brisé.
- Vous avez raison... je viens de tester hype8912 d'édition, et il avait tort. Il fonctionne en 2007. Revenue!
- fonctionne dans access 2010 trop
- Ne fonctionne pas en 2010 *.accdb
- il semble pour moi. bien qu'il semble être un supplément de système de de table inclus, j'ai mis à jour la réponse avec un correctif pour que.
InformationsquelleAutor BIBD

Vous pouvez utiliser les schémas d'Accès.

Sub ListAccessTables2(strDBPath)
   Dim cnnDB As ADODB.Connection
   Dim rstList As ADODB.Recordset

   Set cnnDB = New ADODB.Connection

   ' Open the connection.
   With cnnDB
      .Provider = "Microsoft.Jet.OLEDB.4.0"
      .Open strDBPath
   End With

   ' Open the tables schema rowset.
   Set rstList = cnnDB.OpenSchema(adSchemaTables)

   ' Loop through the results and print the
   ' names and types in the Immediate pane.
   With rstList
      Do While Not .EOF
         If .Fields("TABLE_TYPE") <> "VIEW" Then
            Debug.Print .Fields("TABLE_NAME") & vbTab & _
               .Fields("TABLE_TYPE")
         End If
         .MoveNext
      Loop
   End With
   cnnDB.Close
   Set cnnDB = Nothing
End Sub

À partir de: http://msdn.microsoft.com/en-us/library/aa165325(bureau de.10).aspx

Cela a été très utile pour lire les noms de table à partir d'Excel, merci!

InformationsquelleAutor Fionnuala

5

Ici est une mise à jour de la réponse qui travaille dans Access 2010 VBA à l'aide de DAO (Data Access Objects). Le nom de la table est tenue à TableDef.Nom. La collection de toutes les définitions de table est tenue à TableDefs. Voici un rapide exemple d'une boucle à travers les noms de table:
```
Dim db as Database
Dim td as TableDef
Set db = CurrentDb()
For Each td In db.TableDefs
  YourSubTakingTableName(td.Name)
Next td
```
InformationsquelleAutor Pete
2

Informations de schéma qui est conçu pour être très proche de celle de SQL-92 INFORMATION_SCHEMA peut être obtenu pour le Jet/ACE moteur (qui est ce que je suppose que vous voulez dire par "accès") via les fournisseurs OLE DB.

Voir:

Méthode OpenSchema (ADO)

Pris En Charge Ensembles De Lignes De Schéma

InformationsquelleAutor onedaywhen
1

D'obtenir la liste des tables:
```
SELECT 
    Table_Name = Name, 
FROM 
    MSysObjects 
WHERE 
    (Left([Name],1)<>"~") 
    AND (Left([Name],4) <> "MSys") 
    AND ([Type] In (1, 4, 6)) 
ORDER BY 
    Name
```
- Œuvres dans les anciennes versions.
- MsysObjects sont pas pris en charge les tables système et ne doit pas être utilisé. Les autorisations sur ces tables à l'extérieur de MS Access peut être très aléatoire.
InformationsquelleAutor Ilya Kochetov
0
```
SELECT 
Name 
FROM 
MSysObjects 
WHERE 
(Left([Name],1)<>"~") 
AND (Left([Name],4) <> "MSys") 
AND ([Type] In (1, 4, 6)) 
ORDER BY 
Name
```
- MsysObjects sont pas pris en charge les tables système et ne doit pas être utilisé. Les autorisations sur ces tables à l'extérieur de MS Access peut être très aléatoire
InformationsquelleAutor Syed Daud

Préférable de ne pas salir avec msysObjects (à mon humble avis).

CurrentDB.TableDefs
CurrentDB.QueryDefs
CurrentProject.AllForms
CurrentProject.AllReports
CurrentProject.AllMacros

InformationsquelleAutor Jim

Vous devez vous connecter pour publier un commentaire.