Lister tables, requetes ... d'une base mdb access [Résolu]
A voir également:
- Mdb liste
- Liste mdb - Meilleures réponses
- Mdb tables - Meilleures réponses
- Creer supprimer une base une table un champ lier excel à access ainsi que creer une requete afin de - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- Insérer dans un fichier excel des données de n'importe quelle table/requête access - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- Lister les nom de table, champ d'une base de donné ✓ - Forum - C# / .NET
- Requete sql et base access ✓ - Forum - VB.NET
- Lister des états contenu dans un fichier access MDB ✓ - Forum - Visual Basic 6
8 réponses
Salut
Pour voir ces objets, il te faut activer l'affichage des objets système sous Access :
Menu Options, onglet Affichage, case à cocher "Objets système"
Tu verras ainsi la table MSysObjects qu'il te suffira d'interroger.
http://cc.bingj.com/cache.aspx?q=msysobjects+type&d=4677859424535927&mkt=fr-FR&setlang=fr-FR&w=694a29c3,233001cc
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Pour voir ces objets, il te faut activer l'affichage des objets système sous Access :
Menu Options, onglet Affichage, case à cocher "Objets système"
Tu verras ainsi la table MSysObjects qu'il te suffira d'interroger.
http://cc.bingj.com/cache.aspx?q=msysobjects+type&d=4677859424535927&mkt=fr-FR&setlang=fr-FR&w=694a29c3,233001cc
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Désolé, le lien merdouille.
Voici le contenu :
Requêtes:
SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (MSysObjects.Type)=5 ORDER BY MSysObjects.Name;
Formuliares:
SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (MSysObjects.Type)=-32768 ORDER BY MSysObjects.Name;
Tables:
SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (Left$([Name],4) <> "Msys") AND (MSysObjects.Type)=1 ORDER BY MSysObjects.Name;
États:
SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (MSysObjects.Type)= -32764 ORDER BY MSysObjects.Name;
Modules:
SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (MSysObjects.Type)= -32761 ORDER BY MSysObjects.Name;
Macros:
SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (MSysObjects.Type)= -32766 ORDER BY MSysObjects.Name;
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Voici le contenu :
Requêtes:
SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (MSysObjects.Type)=5 ORDER BY MSysObjects.Name;
Formuliares:
SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (MSysObjects.Type)=-32768 ORDER BY MSysObjects.Name;
Tables:
SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (Left$([Name],4) <> "Msys") AND (MSysObjects.Type)=1 ORDER BY MSysObjects.Name;
États:
SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (MSysObjects.Type)= -32764 ORDER BY MSysObjects.Name;
Modules:
SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (MSysObjects.Type)= -32761 ORDER BY MSysObjects.Name;
Macros:
SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (MSysObjects.Type)= -32766 ORDER BY MSysObjects.Name;
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
PS : Il faudra que, dans ta base de données, tu donnes accès en lecture de cette table à l'utilisateur : menu Outils, Sécurité, Autorisations d'accès
+ bien choisir le CursorType dans ton RecordSet, exemple :
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
+ bien choisir le CursorType dans ton RecordSet, exemple :
Dim maConn As ADODB.Connection
Dim monRS As ADODB.Recordset
Dim sSQL As String
On Error GoTo 0
Set maConn = New ADODB.Connection
Set monRS = New ADODB.Recordset
With maConn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\bd1.mdb;Persist Security Info=False"
.Open
End With
sSQL = "Select * From MsysObjects"
monRS.Open sSQL, maConn, adOpenStatic, adLockOptimistic
With monRS
If .RecordCount > 0 Then
.MoveFirst
Do While Not .EOF
Debug.Print .Fields("Name").Value
.MoveNext
Loop
End If
End With
On Error Resume Next
monRS.Close
maConn.Close
Set monRS = Nothing
Set maConn = Nothing
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Merci beaucoup Jack, ton aide m'est très précieuse, je vais de ce pas essayer de mettre en pratique tout ceci et analyser pas a pas le code
si j'arrive a le faire fonctionner j'aurai mis plusieurs jours a savoir qu'est ce qui se trouve dans ma mdb, a la place de l'ouvrir manuellement.
Le vb en herbe te remercie
si j'arrive a le faire fonctionner j'aurai mis plusieurs jours a savoir qu'est ce qui se trouve dans ma mdb, a la place de l'ouvrir manuellement.
Le vb en herbe te remercie
De rien.
Afin que d'autres puisse trouver cette solution à cette question posée de temps en temps, je me suis permis de modifier le titre de ta question.
Afin que d'autres puisse trouver cette solution à cette question posée de temps en temps, je me suis permis de modifier le titre de ta question.
pourrais je te demander, si tu voudrais bien me faire un exemple tout simple d'un des differents appel que tu m'a donné précédemment avec 1-2 petite notation, je n'arrive pas a les mettre en place. se serais très aimable de ta part.
D'avance merci,
Nicolas
D'avance merci,
Nicolas