Prøv at kigge nærmere på denne funktion.
Function Tabeldesign(base,tabel)
Set conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & base
set rs = Conn.Execute(\"Select * from \" & tabel)
For each head IN rs.Fields
tmp = \"<b>Felt navn: </b>\" & head.name & \"<BR>\" & \"<b>Felt Type: </b>\" & head.type & \"<BR>\" & \"<b>Felt Attributes: </B>\" & head.attributes & \"<BR>\"
Next
tabeldesign = tmp
conn.Close
Set conn = nothing
End Function
Indsæt følgende funktion i din asp kode og kald den således:
response.write tabeldesign(\"c:\\inetpub\\wwwroot\\mindb.mdb\",\"mintabel\")
Her er et eks:
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"db.mdb\")
SQL = \"Select * From tabel\"
set rs = Conn.execute(SQL)
if rs.EOF then
%>
Ingen data I Databasen
<%
else
%>
Udtræk:<br>
<%
Do Until rs.EOF
%>
<%=rs(\"felt\")%>
<%
rs.MoveNext
Loop
end if
%>
Tak for svarene.
Jeg kigger på det og vender tilbage lidt senere.
::mushie
og et 3.
<!-- #include file=\"adovbs.inc\" -->
<% set conn = Server.CreateObject(\"ADODB.Connection\")
conn.CursorLocation = adUseClient
conn.Open \"NAVN_PAA_ODBC_FORBINDELSEN\"
set rs = Server.CreateObject(\"ADODB.Recordset\")
set rs = conn.OpenSchema(adSchemaTables)
%>
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<%
Do Until rs.EOF %>
Table name: <%=rs(\"TABLE_NAME\") %><br>
Table type: <%=rs(\"TABLE_TYPE\") %><br>
<% rs.MoveNext
Loop
%>
</BODY>
</HTML>
/tyvstjælet næmmerlig
senj >> Godt script det første du nævnte...skrevet af mig :-)
Det kan godt være mit spørgsmål ikke var helt korrekt.
Det jeg skal bruge er kode til at hente alle Column-navnene ud fra en specific tabel i Access 97.
Det synes jeg ikke lige nogen af forslagene gør.
Eller er det bare mig?
senj / netsrac >> Den første kodestump gør nogenlunde det jeg skal bruge.
Jeg kan bare kun få den til at hente det sidste felt i tabellen.
mushie >> Det forstår jeg ikke den skulle gerne hente alle felterne, prøv at vis mig din kode.
Okay så...
Nu fik jeg det til at virke.
Sub TabelFieldNames()
Set conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open(\"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\\databaser\\db.mdb\")
strSQL = \"SELECT * FROM Table;\"
Set rs = Conn.Execute(strSQL)
For Each head In rs.Fields
Response.Write \"<b>Felt navn: </b>\" & head.name & \"<BR>\" & \"<b>Felt Type: </b>\" & head.type & \"<BR>\" & \"<b>Felt Attributes: </B>\" & head.attributes & \"<BR>\"
Next
conn.Close
Set conn = nothing
End Sub
Response.Write TabelFieldNames()
netsrac >> Loopet i det første kode senj smed looper jo bare til sidste felt og ender der. Jeg skal have udskrevet alle feltnavne.
Ja det er fordi tmp ikke bliver sat lig med tmp igen.
Function Tabeldesign(base,tabel)
Set conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & base
set rs = Conn.Execute(\"Select * from \" & tabel)
For each head IN rs.Fields
tmp = tmp & \"<b>Felt navn: </b>\" & head.name & \"<BR>\" & \"<b>Felt Type: </b>\" & head.type & \"<BR>\" & \"<b>Felt Attributes: </B>\" & head.attributes & \"<BR>\"
Next
tabeldesign = tmp
conn.Close
Set conn = nothing
End Function
netsrac >> smid et svar hvis du vil have lidt point. Det er jo din kode jeg har brugt.
senj >> Virkede koden hos dig. Eller smed du den bare i blinde??
