Get Field.Name

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??

Svar