Discussion :

[PhunkyBob]

Bonjour,

Dans beaucoup de systèmes, il y a une requête qui permet de faire la liste des tables.

SQL Server :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SQL SELECT name FROM master.dbo.sysdatabases

En MySQL :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SHOW DATABASES

... :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT * FROM SYSOBJECTS

Existe-t-il une requête en Access qui permet d'avoir l'équivalent ?

[Aegnor]

Bonjour,

La table système MSysObjects dans Accès liste tous les objets de la base, y compris les tables. Pour sélectionner les tables, il faut filtrer sur le champ type.
Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT Name FROM MSysObjects WHERE Type = 1

vous ramène le nom de toutes les tables locales, y compris les tables système.

Le souci concerne les tables liées où le type d'objet n'est plus égal à 1. Par exemple, les tables ODBC sont de type=6 de mémoire. Le plus simple est d'éditer la table MSysObjects pour avoir une idée de la valeur recherchée de type.

[PhunkyBob]

Merci beaucoup !


--> [Résolu]

[ismael7777777]

la table systeme MSysobjects liste toutes les tables y compris elle meme
les tables de type de données Type = 1 sont celles sur lesquelles on peut directement effectuer des requetes!
la table MSysNameMap etant repertoriée comme donnée dans la colone Name de la table MSysObjects , stocke les noms des tables et formulaires de la base de données. le type d'un formulaire etant Type = 32768 , on ajoutera la clause where sur la colone Type egalisée à 1 pour n'extraire que le nom des tables.
ainsi la requete a inserer sera: SELECT * FROM MSysNameMap WHERE Type = 1

[Kebrok]

Bonjour le forum,

je suis tombé sur ce fil et m'en suis inspiré pour faire une liste de choix :

SELECT MSysNameMap.name
FROM MSysNameMap
WHERE (((MSysNameMap.[Type])=1))
ORDER BY MSysNameMap.name;

La requête fonctionne bien, sauf que j'ai depuis supprimé une table, et que cette table est toujours affichée dans la liste de choix.
Là où je suis perplexe, c'est que lorsque j'exécute le petit bout de code ci-dessous, et que la table supprimée ne fait pas partie des tables parcourues...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
  Dim dbCurrent As DAO.Database
  Dim tdfTableDef As DAO.TableDef
 
  Set dbCurrent = Application.CurrentDb
 
  For Each tdfTableDef In dbCurrent.TableDefs
    Debug.Print tdfTableDef.Name & " - " & tdfTableDef.Attributes
  Next tdfTableDef

Quelqu'un aurait une idée de la raison ?

D'avance merci.

[tee_grandbois]

bonjour,
je ne connais pas la table MSysNameMap et d'ailleurs elle n'existe pas dans ma version Access (2013). Personnellement, j'ai toujours utilisé MSysObjects en enlevant tous les objets commençant par MSys:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
SELECT MSysobjects.*
FROM MSysobjects
WHERE (((MSysobjects.Name) Not Like "MSYS*") AND ((MSysobjects.Type)=1))
ORDER BY MSysobjects.Name;

[Kebrok]

Bonjour,

effectivement, mais cette méthode affiche une table que je ne connais pas, nommée "f_04E2CC4E532D4DC7995479494ECD27D3_Data". J'imagine que c'est une table système également.

[tee_grandbois]

cela doit être les tables systèmes pour les pièces jointes et les champs multi-valués. Ajoute And Flags>=0 dans le WHERE

[Kebrok]

effectivement, j'avais trouvé cette instruction ailleurs.

Par ailleurs, je voulais exclure de la liste la table qui contient la requête. J'ai beau chercher je ne trouve pas d'instruction qui permette de donner le nom de la table "en cours".

Du coup mon code ressemble à ça :

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.Name)<>"tbl_LaTable") AND ((Left([Name],1))<>"~") AND ((Left([Name],4))<>"MSys") AND ((MSysObjects.Type) In (1,4,6)) AND ((MSysObjects.Flags)=0))
ORDER BY MSysObjects.Name;

je ne trouve pas ça très propre. Il existe un moyen propre de retourner le nom de la table en cours ?

[tee_grandbois]

je vois pas ce qu'est "la table en cours" ...

[Kebrok]

La requête est le paramètre "Contenu" d'une liste de choix (zone de liste déroulante) d'un champ de l'une de mes tables. J'aimerais exclure cette table de la liste, si possible de manière plus générique que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WHERE (((MSysObjects.Name)<>"tbl_NomDeLaTableEnDur") AND ...)

[tee_grandbois]

si le contenu est une requête, cela ne fonctionnera pas (sauf extraire le nom de la table à partir du FROM) mais c'est possible de cette manière:
-créer une variable globale
-créer une fonction qui renvoie la variable globale
-créer une autre fonction alimentant cette variable globale, le nom du contrôle de la liste étant passé en paramètre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Global gstTblName As String
 
' fonction à utiliser dans le formulaire
Function pRowSource(pNomdeLaListe As Control)
gstTblName = pNomdeLaListe.RowSource
End Function
 
' fonction à utiliser dans la requête (renvoie le contenu du contrôle)
Function fstTblName() As String
fstTblName = gstTblName
End Function

utilisation dans le formulaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 call pRowSource(Me.Liste1)

utilisation dans la requête

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WHERE (MSysObjects.Name)<>fstTblName()