- [VBS] comment lister les tables d'une base access
- Visual Basic / VB.NET : Comment créer une base access, créer table, lire colonne, en q
- Visual Basic / VB.NET : Créer une table et des champs dans une base access - CodeS SourceS
- Visual Basic / VB.NET : Exportation de tables ou bases access complètes vers mysql - CodeS So
- Création d'une base access et d'une table à partir d'un fichier texte (.csv)
Connaitre les tables d'une base Access [Résolu]
Signaler
cs_pcvesoul
cs_pcvesoul
- Messages postés
- 123
- Date d'inscription
- vendredi 21 janvier 2005
- Statut
- Membre
- Dernière intervention
- 25 juillet 2007
cs_pcvesoul
- Messages postés
- 123
- Date d'inscription
- vendredi 21 janvier 2005
- Statut
- Membre
- Dernière intervention
- 25 juillet 2007
A voir également:
- Connaitre les tables d'une base Access
- Gestionnaire de liaisons entre tables pour les bases access - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- [net - 2] copier une table d'une base access dans une base sqlserver - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- Tables dans une Base Access ✓ - Forum - Visual Basic 6
- Creer une table dans une base access ✓ - Forum - C
- Lister les noms des tables d'une base access ✓ - Forum - C++ & C++ .NET
4 réponses
cs_DARKSIDIOUS
- Messages postés
- 15814
- Date d'inscription
- jeudi 8 août 2002
- Statut
- Modérateur
- Dernière intervention
- 4 mars 2013
Utilise ADOX pour lister la structure d'une base de données.
Pour les tables :
Set m_oConnection = New ADODB.Connection
Set m_oCatalog = New ADOX.Catalog
Let m_oConnection.Mode = adModeUnknown
Let m_oConnection.Provider = "Microsoft.Jet.OLEDB.4.0"
Let m_oConnection.ConnectionString = sDataBaseName
Call m_oConnection.Open
Set m_oCatalog.ActiveConnection = m_oConnection
'on énumère chaque table de la base
For Each oTable In m_oCatalog.Tables
If oTable.Type = "TABLE" Then
'il s'agit d'une table
end if
Next oTable
DarK Sidious
Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/
Pour les tables :
Set m_oConnection = New ADODB.Connection
Set m_oCatalog = New ADOX.Catalog
Let m_oConnection.Mode = adModeUnknown
Let m_oConnection.Provider = "Microsoft.Jet.OLEDB.4.0"
Let m_oConnection.ConnectionString = sDataBaseName
Call m_oConnection.Open
Set m_oCatalog.ActiveConnection = m_oConnection
'on énumère chaque table de la base
For Each oTable In m_oCatalog.Tables
If oTable.Type = "TABLE" Then
'il s'agit d'une table
end if
Next oTable
DarK Sidious
Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/
cs_pcvesoul
- Messages postés
- 123
- Date d'inscription
- vendredi 21 janvier 2005
- Statut
- Membre
- Dernière intervention
- 25 juillet 2007
Merci mais j'ai un élément type non définit : Set m_oCatalog = New ADOX.Catalog
Que dois-je rajouter comme référence ou composant ?
Que dois-je rajouter comme référence ou composant ?
cs_DARKSIDIOUS
- Messages postés
- 15814
- Date d'inscription
- jeudi 8 août 2002
- Statut
- Modérateur
- Dernière intervention
- 4 mars 2013
Il faut rajouter les références à ADODB et ADOX :
Microsoft ActiveX Data Objects
Microsoft ADO Ext.
DarK Sidious
Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/
Microsoft ActiveX Data Objects
Microsoft ADO Ext.
DarK Sidious
Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/
cs_pcvesoul
- Messages postés
- 123
- Date d'inscription
- vendredi 21 janvier 2005
- Statut
- Membre
- Dernière intervention
- 25 juillet 2007
Oui, j'ai trouvé finalement. Et ça fonctionne parfaitement.
Pour mémoire, les requêtes sont en type "VIEW".
Et je suppose qu'il faut faire "m_oConnection.Close" pour fermer la connection.
@+ et bonne continuation.
Pour mémoire, les requêtes sont en type "VIEW".
Et je suppose qu'il faut faire "m_oConnection.Close" pour fermer la connection.
@+ et bonne continuation.