CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

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?

Synes godt om

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 = \"Felt navn: \" & head.name & \" \" & \"Felt Type: \" & head.type & \" \" & \"Felt Attributes: \" & head.attributes & \" \"
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\")

Synes godt om

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: 
<%
Do Until rs.EOF
%>
<%=rs(\"felt\")%>
<%
rs.MoveNext
Loop
end if
%>

Synes godt om

mushie Nybegynder

15. februar 2001 - 10:55 #3

Tak for svarene.
Jeg kigger på det og vender tilbage lidt senere.

::mushie

Synes godt om

senj Nybegynder

15. februar 2001 - 10:56 #4

og et 3.


<% 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\") %> 
Table type: <%=rs(\"TABLE_TYPE\") %> 
<% rs.MoveNext
Loop
%>

</BODY>
</HTML>

/tyvstjælet næmmerlig

Synes godt om

netsrac Praktikant

15. februar 2001 - 12:08 #5

senj >> Godt script det første du nævnte...skrevet af mig :-)

Synes godt om

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?

Synes godt om

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.

Synes godt om

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.

Synes godt om

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 \"Felt navn: \" & head.name & \" \" & \"Felt Type: \" & head.type & \" \" & \"Felt Attributes: \" & head.attributes & \" \"
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.

Synes godt om

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 & \"Felt navn: \" & head.name & \" \" & \"Felt Type: \" & head.type & \" \" & \"Felt Attributes: \" & head.attributes & \" \"
Next
tabeldesign = tmp
conn.Close
Set conn = nothing
End Function

Synes godt om

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.

Synes godt om

mushie Nybegynder

15. februar 2001 - 15:10 #12

senj >> Virkede koden hos dig. Eller smed du den bare i blinde??

Synes godt om

netsrac Praktikant

15. februar 2001 - 15:20 #13

Svar

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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	0	07/11/202415:34	-
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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS