Ne cherchez plus voici le code
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%
Dim myTable As DataTable = GetTables
Response.Write("<table>")
Dim myRow As DataRow
For Each myRow In myTable.Rows
Response.Write("<tr><td>" & myRow("TABLE_NAME") & "</td><td>" &
myRow("TABLE_TYPE") & "</td></tr>")
Next
Response.Write("</table>")
%>
<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>
-------------------------------
Réponse au message :
-------------------------------
> 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