Lister les tables d'une base de données
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
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
A voir également:
- Lister les tables d'une base de données
- Base de données javascript - Conseils pratiques -Javascript
- Récupérer données json (javascript) - Conseils pratiques -Javascript
- Nomenclature base de données - Conseils pratiques -PHP
- Connexion base de données - Conseils pratiques -PHP
- Connecter une application android à une base de données - Conseils pratiques -Java
1 réponse
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
25 juin 2003 à 18:33
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>
<%@ 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>