begin process at 2012 02 05 02:30:44
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

ASP.Net

 > LISTER LES TABLES D'UNE BASE DE DONNÉES

LISTER LES TABLES D'UNE BASE DE DONNÉES


 Information sur la source

Note :
Aucune note
Catégorie :ASP.Net Source .NET ( DotNet ) Classé sous :listing, table, base, access, dropdownlist Niveau :Débutant Date de création :23/03/2005 Date de mise à jour :29/03/2005 09:30:14 Vu :19 378
Auteur : SuperBouly

Ecrire un message privé
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

 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

COMMENT FORCER LE FOCUS SUR UN CONTRÔLE D'UNE PAGE CLIENT DE...
Source avec Zip Source .NET (Dotnet) AJOUT DE DYNAMIQUE DE TEXTBOX DANS LE FOOTER D'UN DATAGRID
Toutes les sources de SuperBouly

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) GUESTBOOK AVEC GRIDVIEW par DanMor498
Source avec Zip CHECKED DROPDOWNLIST par fredzool
Source avec Zip Source avec une capture Source .NET (Dotnet) GRIDVIEW WITH TREEVIEW AND CALLBACK par fredzool
Source avec Zip APPELLER UN WEBSERVICE DEPUIS JAVASCRIPT par fredzool
Source avec Zip Source .NET (Dotnet) MONEY TEXTBOX WITH EMBEDED JAVASCRIPT par fredzool
Toutes les sources de la catégorie ASP.Net

 Sources en rapport avec celle ci

COMPTEUR DE HITS AVEC BASE DE DONNÉE ACESS par tidave
Source .NET (Dotnet) BD ACCESS DANS UNE LISTBOX par NCVF
DELETE DANS UNE TABLE ACCESS par zbe
Source avec Zip UN LIVRE D'OR (VERSION ACCES) par BennyB
Source avec Zip FORUM ASP par Alain62

Commentaires et avis

Commentaire de arcollet le 24/03/2005 21:52:42

"mais je ne l'écrirai que si ça intéressait qqn !"

pour s'arrêter en si bon chemin ?

Denis

Commentaire de mthony2002 le 25/03/2005 19:49:52

c'est vraiment bon, j'aimerais l'avoir pour une BD SQLserveur 2000

Commentaire de mthony2002 le 25/03/2005 19:58:36

mais je voudrais aussi qu'il envoie le contenu d'une table

 Ajouter un commentaire


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&#233;berg&#233;e sur un server web, mais je voudrais que cette application puisse acc&#233;der &#224; 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&#233; au point ou g une table affich&#233; 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)}; " &amp; "DBQ=" &amp; Server.MapPath("DB.mdb"


Nos sponsors


Sondage...

Comparez les prix


Samsung Galaxy S
Entre 529€ et 529€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,700 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)