Søg
Avatar billede mushie Nybegynder
15. februar 2001 - 10:49 Der er 11 kommentarer og
2 løsninger

Get Field.Name

Hvordan henter jeg Field.Name ud fra en Access-database vha. ASP?
Avatar billede senj Nybegynder
15. februar 2001 - 10:54 #1
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\")
Avatar billede eagleeye Praktikant
15. februar 2001 - 10:54 #2
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
%> 
Avatar billede mushie Nybegynder
15. februar 2001 - 10:55 #3
Tak for svarene.
Jeg kigger på det og vender tilbage lidt senere.

::mushie
Avatar billede senj Nybegynder
15. februar 2001 - 10:56 #4
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
Avatar billede netsrac Praktikant
15. februar 2001 - 12:08 #5
senj >> Godt script det første du nævnte...skrevet af mig :-)
Avatar billede mushie Nybegynder
15. februar 2001 - 14:04 #6
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?
Avatar billede mushie Nybegynder
15. februar 2001 - 14:14 #7
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.
Avatar billede netsrac Praktikant
15. februar 2001 - 14:32 #8
mushie >> Det forstår jeg ikke den skulle gerne hente alle felterne, prøv at vis mig din kode.
Avatar billede mushie Nybegynder
15. februar 2001 - 14:45 #9
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.
Avatar billede netsrac Praktikant
15. februar 2001 - 14:57 #10
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
Avatar billede mushie Nybegynder
15. februar 2001 - 15:02 #11
netsrac >> smid et svar hvis du vil have lidt point. Det er jo din kode jeg har brugt.
Avatar billede mushie Nybegynder
15. februar 2001 - 15:10 #12
senj >> Virkede koden hos dig. Eller smed du den bare i blinde??
Avatar billede netsrac Praktikant
15. februar 2001 - 15:20 #13
Svar
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP 4 26/04/202417:16 26/04/202418:37
JSON Af ingeman i ASP 3 07/04/202417:53 08/04/202412:09
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 00:59 Mobilepay app virker ikke mere på Xiaomi Redmi Note 13 Pro Af henrixx i Apps til Android
I går 19:09 Download Win 11 - 25H2 Af ErikHg i Windows
30/0410:42 Access Import af csv fil - forkerte datatyper Af Henrik Berg Hansen i Andet software
29/0419:37 Hente CSV fil, indsætte CSV data i TABEL for JAVASCRIPT Af snestrup2000 i Programmeringsværktøjer
29/0412:23 Facebook Af hkv i Sociale medier
White papers
Flere white papers »