Jeg synes du har problemer med at formulere dig, jeg har nu læst dit indlæg igennem 5 gange og kan stadig ikke forstå hvad du prøver at sige.
Jeg har en database-fil. Jeg vil vide hvad den indeholder.
Det en gammel stump kode, som jeg har brugt en del. Den åbner en databaser lister alle tables, og lister de først 10 poster i den første table.
Tænk selv vidre og brug det som det passer dig.
<pre>
<%response.buffer = false%>
<!--
// (c) Copyright 2000 Allan Zimmermann
// Created 21 august 2001
// Mod 3 marts 2002
// TDC Internet
// http://www.juleosten.dk http://skadefro.dk
// Theres no support what so ever on this script
-->
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>DSN Chekcer</title>
</head>
<body>
<% if request("DSN") = "" then %>
<form method="POST">
<p>DSN navn.<input type="text" name="DSN" size="20">
( <b><font size="4">!</font></b> odbc link )<br>
<input type="submit" value="Send" name="B1"></p>
</form>
<%else
DSN = request("DSN")
'On Error Resume Next'
Response.Write "<big> Tabel'er i databasen " & DSN & "</big><br>"
set conn=Server.Createobject("adodb.connection")
If InStr(DSN, ".mdb") > 1 then
Set objFilesys = CreateObject("Scripting.FileSystemObject")
if not objFilesys.FileExists(DSN) then
Response.write "Filen " & DSN & " findes ikke. Indtast en database sti, eller et DSN navn "
response.write "<a href=""DSN-Checker.asp"">her</a>."
response.end
else
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DSN
end if
else
Conn.Open "DSN=" & DSN
end if
adSchemaTables = 20
Set RS_item = Conn.OpenSchema(adSchemaTables)
WorkTab = ""
Response.Write "<table><tr><td><b>Tabel Navn</b></td></tr>"
Do While Not (RS_item.EOF)
if (NOT StrComp (RS_item("TABLE_TYPE"), "TABLE")) then
if WorkTab = "" then WorkTab = RS_item("TABLE_NAME")
Response.Write "<tr><td>" & RS_item("TABLE_NAME") & "</td></tr>"
end if
RS_item.MoveNext
Loop
RS_item.Close
If NOT err then
Response.Write "</table>"
Response.Write "<big>1 første records af, første tabel : " & WorkTab & "</big><br>"
Response.Write "<table border=1>"
Query = "SELECT * FROM " & WorkTab
Set RS_item = Conn.Execute(Query)
count = 0
Do While (Not RS_item.EOF) and (count < 10)
count = int(count) + 1
if count = 1 then
Response.Write "<tr><td><b>Nummer</b></td>"
for each field in RS_item.fields
%>
<td><b><%=field.name%></b></td>
<%
next
Response.write "</tr>"
end if
Response.write "<tr><td>" & count & "</td>"
for each field in RS_item.fields
%>
<td><%=field.value%></td>
<%
next
Response.write "</tr>"
RS_item.MoveNext
Loop
RS_item.Close
Else
Response.Write "Fejl : " & err.number & " " & Err.Describtion & "<br>"
End If
Conn.Close
Set Conn = Nothing
end if
%>
</body>
</pre>