Lister les tables d'une base de données

Question

Lister les tables d'une base de données

Signaler

spike31

Messages postés: 8
Date d'inscription: jeudi 23 janvier 2003
Statut: Membre
Dernière intervention: 30 juin 2003

- 25 juin 2003 à 13:45
spike31

Messages postés: 8
Date d'inscription: jeudi 23 janvier 2003
Statut: Membre
Dernière intervention: 30 juin 2003

- 25 juin 2003 à 18:33

Bonjour,

Je recherche le code pour lister les tables d'une base de données
Je programme en VB et ma base est une base access

Merci

Afficher la suite

A voir également:

1 réponse

Répondre Posez votre question

spike31 · Answer 1 · 2003-06-25T18:33:47+0200

Ne cherchez plus voici le code

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

<%

Dim myTable As DataTable = GetTables

Response.Write("\")

Dim myRow As DataRow
For Each myRow In myTable.Rows
Response.Write(\"----
" & myRow("TABLE_NAME") & ", " &
myRow("TABLE_TYPE") & ", \")
Next

Response.Write("
")

%>

<SCRIPT runat="SERVER">

Public Function GetTables As DataTable
Dim ODCon As OleDbConnection
ODCon = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=c:\database.mdb")
ODCon.Open()
Dim DT As DataTable
DT = ODCon.GetOleDbSchemaTable(OleDbSchemaGuid.Tables,Nothing)
ODCon.Close()
Return DT
End Function

</SCRIPT>

Votre réponse