Accueil > > > LISTER LES TABLES D'UNE BASE DE DONNÉES
 LISTER LES TABLES D'UNE BASE DE DONNÉES
 Information sur la source
 Description
Ce code très simple permet de lister les tables d'une base de données (ici Access). C'est simplement adapté de la doc MDSN de Visual Studio ! On pourra ensuite choisir d'afficher le contenu d'une table quelconque d'une base en la sélectionnant dans une DropDownList, mais je ne l'écrirai que si ça intéressait qqn !
 Source
- 1. Il faut voir une section html dans le <body>, du genre :
-
- <form id="Form1" method="post" runat="server">
-
- <asp:Label id="LbInfo" runat="server" Width="100%">info:</asp:Label>
- <asp:DataGrid id="TablesGrid" runat="server" Width="100%"></asp:DataGrid>
-
- <%-- et pour l'affichage de la table sélectionnée : --%>
- <asp:DropDownList ID="ddlTables" runat="server" AutoPostBack="true" ></asp:DropDownList>
- <asp:DataGrid id="TGrid" runat="server" Width="100%"></asp:DataGrid>
-
- </form>
-
- 2. Ensuite le code:
-
- 'en haut :
- Imports System.Data.OleDb
-
-
- Dim Chem As String 'Chemin conduisant à la base
- Dim ConnString As String
- Dim Conn As OleDbConnection
-
- Dim Latable As String
- '===================================================
- Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
-
- Chem = ConfigurationSettings.AppSettings("chem") 'chemin enregistré dans le "Web.config" avec ce genre de chose :
- '<appSettings>
- '<add key="chem" value="//MonSite/BDD/MaBase.mdb"/>
- '</appSettings>
-
- ConnString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(Chem) ' pour une base access
- Conn = New OleDbConnection(ConnString)
-
- If Not IsPostBack Then
-
- '-------Lister les tables du datatable--
- Dim h As Integer
- For h = 0 To GetTables(Conn).Rows.Count - 1
-
- 'écriture de la listre des tables
- LbInfo.Text &= GetTables(Conn).Rows(h).Item(2) & "<br>" ' l'indice 2 est l'indice de la colonne "table_name" voir le datagrid en dessous ( 3e colonne)
-
-
- 'remplissage de la ddlTables
- ddlTables.Items.Add(GetTables(Conn).Rows(h).Item(2))
-
- Next
- '------affiche le datatable dans un datagrid--
- TablesGrid.DataSource = GetTables(Conn)
- TablesGrid.DataBind()
-
- '--affiche la table sélectionnée dans un datagrid (TGrid)
- Latable = ddlTables.SelectedValue
- ChargerData(Latable)
-
-
- End If
- End Sub
- '==================================================
- 'Cette fonction renvoie un DataTable contenant tout sur les tables de la base liée avec la connection "Conn"
-
- Public Function GetTables(ByVal conn As OleDbConnection) As DataTable
- conn.Open()
- Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing,_ Nothing, Nothing, "TABLE"}) 'Pour les requêtes, on mettra "VIEW"
- conn.Close()
- Return schemaTable
- End Function
- '==================================================
- 'Recharge le dataGrid "Tgrid" lors d'une sélection
-
- Private Sub ddlTables_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ddlTables.SelectedIndexChanged
-
- Latable = ddlTables.SelectedValue
- ChargerData(Latable)
-
- End Sub
- '===========================================
-
- Sub ChargerData(ByVal table As String)
-
- SelectSql = "SELECT * FROM [" & table & "]"
- Commande = New OleDbCommand(SelectSql, Conn)
- Conn.Open()
- TGrid.DataSource = Commande.ExecuteReader()
- TGrid.DataBind()
- conn.close()
-
- End Sub
1. Il faut voir une section html dans le <body>, du genre :
<form id="Form1" method="post" runat="server">
<asp:Label id="LbInfo" runat="server" Width="100%">info:</asp:Label>
<asp:DataGrid id="TablesGrid" runat="server" Width="100%"></asp:DataGrid>
<%-- et pour l'affichage de la table sélectionnée : --%>
<asp:DropDownList ID="ddlTables" runat="server" AutoPostBack="true" ></asp:DropDownList>
<asp:DataGrid id="TGrid" runat="server" Width="100%"></asp:DataGrid>
</form>
2. Ensuite le code:
'en haut :
Imports System.Data.OleDb
Dim Chem As String 'Chemin conduisant à la base
Dim ConnString As String
Dim Conn As OleDbConnection
Dim Latable As String
'===================================================
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Chem = ConfigurationSettings.AppSettings("chem") 'chemin enregistré dans le "Web.config" avec ce genre de chose :
'<appSettings>
'<add key="chem" value="//MonSite/BDD/MaBase.mdb"/>
'</appSettings>
ConnString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(Chem) ' pour une base access
Conn = New OleDbConnection(ConnString)
If Not IsPostBack Then
'-------Lister les tables du datatable--
Dim h As Integer
For h = 0 To GetTables(Conn).Rows.Count - 1
'écriture de la listre des tables
LbInfo.Text &= GetTables(Conn).Rows(h).Item(2) & "<br>" ' l'indice 2 est l'indice de la colonne "table_name" voir le datagrid en dessous ( 3e colonne)
'remplissage de la ddlTables
ddlTables.Items.Add(GetTables(Conn).Rows(h).Item(2))
Next
'------affiche le datatable dans un datagrid--
TablesGrid.DataSource = GetTables(Conn)
TablesGrid.DataBind()
'--affiche la table sélectionnée dans un datagrid (TGrid)
Latable = ddlTables.SelectedValue
ChargerData(Latable)
End If
End Sub
'==================================================
'Cette fonction renvoie un DataTable contenant tout sur les tables de la base liée avec la connection "Conn"
Public Function GetTables(ByVal conn As OleDbConnection) As DataTable
conn.Open()
Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing,_ Nothing, Nothing, "TABLE"}) 'Pour les requêtes, on mettra "VIEW"
conn.Close()
Return schemaTable
End Function
'==================================================
'Recharge le dataGrid "Tgrid" lors d'une sélection
Private Sub ddlTables_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ddlTables.SelectedIndexChanged
Latable = ddlTables.SelectedValue
ChargerData(Latable)
End Sub
'===========================================
Sub ChargerData(ByVal table As String)
SelectSql = "SELECT * FROM [" & table & "]"
Commande = New OleDbCommand(SelectSql, Conn)
Conn.Open()
TGrid.DataSource = Commande.ExecuteReader()
TGrid.DataBind()
conn.close()
End Sub
 Conclusion
La dropDownlist permettant de consulter la table a été ajoutée. Si qqn veut écrire le changement de code pour une base SQL, je suis tout ouï !
 Historique
- 23 mars 2005 18:42:07 :
- Mise à jouir pour expliquer d'où vient l'astuce, et pour la présentation
- 29 mars 2005 06:42:18 :
- Rectification :
Dans la fonction 'GetTables' les paramètres à rentrer sont :
{Nothing,_ Nothing, Nothing, "TABLE"} pour lister les tables et :
{Nothing,_ Nothing, Nothing, "VIEW"} pour lister les requêtes
- 29 mars 2005 09:30:14 :
- Ajout d'une dropDownlist permettant de sélectionner la table, et d'un dataGrid permettant de la visualiser.
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
Vérification de l'existence d'une table dans une base ACCESS [ par TORIUKE ]
Bonjour,Je suis nouveau dans le monde de l'ASP et j'ai déja ma première question!!! Comment faire pour détecter l'existence d'une table dans une base
Create Table sur une base Access en ASP ? [ par ChemicalStof ]
Bonjour,Je n'arrive pas à utiliser l'instruction Create Table dans une page ASP sur une base Access:Voici un bout de mon code:______sql1 = "CREATE TAB
prendre infos dans base de données access [ par gaston64 ]
BjrVOila je n'arrive pas a selectionner des infos dans ma table access depuis ma page asp:ma base est dans rep Databases et elle s'appelle infositeDed
Comment ne télécharger qu'une table d'une base Access? [ par SuperBouly ]
bonjour, Dans un projet sous VS2003 langage VB Est-il possible de creer un lien qui télécharge une seule table d'une base Access?Sinon, je peux fair
exporter une table access vers un fichier excel [ par ahmani24 ]
Bonjour tout le monde,j'ai besoin de vous aide.j ai une table access et j'ai besoin d'exporter les données de cette tables vers un fichier excel.comme
Connection à une bdd Access à distance [ par WishhhMaster ]
Bonjour,J'ai une application asp.net qui est hébergée sur un server web, mais je voudrais que cette application puisse accéder à u
moteur de recherche aspx sur une base access [ par lotfi_dgi ]
slt a tous je suis sur un PFE je suis entrain d'pprendre ASP.net sur le tas, donc je suis arrivé au point ou g une table affiché sur 70 page
Droits d'écriture sur base Access [ par vmontagnon ]
Bonjour à tous,Désolé, ça doit être un problème classique, mais impossible d'ouvrir une base access en lecture/ecriture via des pages ASP.Net c#J'ai
Lié 2 table de 2 base de données différentes [ par bphamel ]
Bonjour j'aimerais savoir comment je pourrais faire pour accéder aux données d'un table clientele qui est dans la bd bd1, dans mon datasource qui est
connection a access [ par sofienems ]
j'ai une connexion stable a une base de donné accessconnstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath("DB.mdb"
|
Derniers Blogs
 TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Arnault Nouvel et Antoine Dongois Le processus à prendre : Apprendre (découvrir la plateforme) Préparer (documenter l'historique et choisir la méthode de MAJ) Test (Test de MAJ) Implémenter (Effectuer la MAJ) Valid...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Forum
 URL REWRITINGURL REWRITING par hudon77
Cliquez pour lire la suite par hudon77
Logiciels
 DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|