Lister les tables d'une base de données

Signaler
Messages postés
8
Date d'inscription
jeudi 23 janvier 2003
Statut
Membre
Dernière intervention
30 juin 2003
-
Messages postés
8
Date d'inscription
jeudi 23 janvier 2003
Statut
Membre
Dernière intervention
30 juin 2003
-
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

1 réponse

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

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>