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

firouzan Nybegynder

15. februar 2002 - 16:53 Der er 9 kommentarer og
1 løsning

Hent data i tabel

jeg henter nogle data fra en tabel i en access database, ved hjælp af ASP¨. jeg vil visse den indhæntet data i en tabel med farve osv. hvordadan gøre jeg??

Synes godt om

snuseren.dk Nybegynder

15. februar 2002 - 17:02 #1

sådan:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

strSQL = "SELECT * FROM dintabel"
set rs = Conn.Execute(strSQL)

if not (rs.EOF) then
response.write("ingen links :o(")
Else
%>
Her skriver du html...
<table>
<tr>
<td color="red">I tabel</td></tr>
</table>
<%
rs.MoveNext
loop
end if
%>

Sådan kan man gøre det... Husk selfølgelig at ændre html'en til din egen html.

Hvis du har problemer, så skriv :o)

/Snuseren.dk

Synes godt om

firouzan Nybegynder

15. februar 2002 - 17:17 #2

<html>
<title>Hente data fra database</title>
<head>
</head>
<body>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/data/intertech.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * from kategorier"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do

' Udskriv værdien af kolonnen kategoriid

Response.Write rs("kategoriId")
' Gå til næste Record i rs
rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</body>
</html>

Såden har jeg skrivet den men, jeg får ikke vist nogle tabeller, som om jeg gøre det du siger, jeg har no slet fra der <tabel> starter og slutter.

Synes godt om

firouzan Nybegynder

15. februar 2002 - 17:22 #3

eller retter sagt jeg gøre men, jeg få ikke vist rs (det værdi rs indholder i databasen).

Synes godt om

tmceu Praktikant

15. februar 2002 - 17:29 #4

Udskift denne blok

' Gennemløb Recordset (rs) med en løkke
Do

' Udskriv værdien af kolonnen kategoriid

Response.Write rs("kategoriId")
' Gå til næste Record i rs
rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

...med denne:

' Gennemløb Recordset (rs) med en løkke
If Not rs.EOF Then

Response.Write "<TABLE>

Do Until rs.EOF
Response.Write "<TR>

For Each Item In rs.Fields
Response.Write "<TD nospan>" & Item.Value & "</TD>"
Next

Response.Write "</TR>
rs.MoveNext
Loop

Response.Write "</TABLE>

Else
Response.Write "Ingen data"
End If
Do

Synes godt om

tmceu Praktikant

15. februar 2002 - 17:30 #5

UPS, fjern den sidste Do

Synes godt om

firouzan Nybegynder

15. februar 2002 - 17:31 #6

Nej et virker nu, med disse kode tilføjet:
<table align="center" bgcolor="#990000" bordercolor="#996699" width="220" height="74">
<tr>
<td color="red"><%Response.Write rs("kategoriId")%></td>
</tr>

</tabel>
Men nå jeg bruger loop, hvordan kan jeg så få den til at indsætte dataen i flere row eller col.????

Synes godt om

tmceu Praktikant

15. februar 2002 - 17:32 #7

Sorry, har misset et par ting. Forfra.

Udskift denne blok

' Gennemløb Recordset (rs) med en løkke
Do

' Udskriv værdien af kolonnen kategoriid

Response.Write rs("kategoriId")
' Gå til næste Record i rs
rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

...med denne:

' Gennemløb Recordset (rs) med en løkke
If Not rs.EOF Then

Response.Write "<TABLE>"

Do Until rs.EOF
Response.Write "<TR>"

For Each Item In rs.Fields
Response.Write "<TD nospan>" & Item.Value & "</TD>"
Next

Response.Write "</TR>"
rs.MoveNext
Loop

Response.Write "</TABLE>"

Else
Response.Write "Ingen data"
End If

Denne udskriver alle felter i rs i en tabel. Du skal dog være opmærksom på, at den ikke kan håndtere data i binært format.

Synes godt om

firouzan Nybegynder

15. februar 2002 - 17:36 #8

kanon tak. virklig fedt.

Synes godt om

12tri Nybegynder

15. februar 2002 - 17:39 #9

www.html.dk -> asp

Synes godt om

tmceu Praktikant

15. februar 2002 - 17:42 #10

Det var så lidt :-)

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

23/12

Historisk million-bøde får Region Syddanmarks it-direktør til at efterlyse nye GDPR-retningslinjer

23/12

Til næste år kommer iPhone 17 – og ifølge rygtestrømmene vil den byde på tre nyheder

23/12

En af verdens største it-distributører dropper samarbejdet med Broadcom: Kunne ikke nå til enighed

23/12

Ser med 'stor alvor' på problemer med vand, varme og manglende kontrol i politiets datacenter

23/12

Brugere rammes af Microsoft-fejl: M365-produkter er på mystisk vis blevet deaktiveret

23/12

Her er dommen: Region Syddanmark skal betale historisk stor bøde for grove overtrædelser af GDPR

23/12

Vores vidensindsamling og demokratiske samtale påvirkes af helt lukkede beslutninger i en enkelt privat virksomhed

23/12

Overblik: Danske it-selskaber strømmer ind mod den centrale storby - og det handler ikke om penge

23/12

Banebrydende ChatGPT-opdatering er lige på trapperne: “Denne model vil være helt fantastisk til programmering”

23/12

Tivoli søger ny CIO: Kenneth Hartvig stopper efter tre år på posten

23/12

Vi ender med at bo i en taber-region, hvis ikke vi gør noget drastisk - her er digitaliseringsministerens plan

Vis flere artikler

IT-JOB

Cognizant Technology Solutions Denmark ApS

Azure Architect

DSV

Manager - Operational Analytics - Enterprise Transformation

Københavns Professionshøjskole

Cloudarkitekt

Udlændinge- og Integrationsministeriet

Samarbejdsstærke og løsningsorienterede specialister søges til arbejde med informationssikkerhed og GDPR

Matas A/S

Matas Group søger erfaren projektleder med flair for IT og med solid forretningsforståelse

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

42 min siden	"Defragmentering" af Windows 11 ? Af Ikke-ekspert i Windows
I går 19:53	CD Burner XP (Sætte den til at optage nogle numre fra en CD - Men ikke alle ? Af Ikke-ekspert i Musik & videoafspillere
I går 17:42	Katastrofe med Pc Af LilBe i PC
I går 09:44	Mine emails kan pluselig ikke læses af modtagerne, kun uforståelige tal og bogstaver Af gunnarb i E-mail programmer
24/1216:03	Fjern "Seneste" - "Hurtig adgang" Fra Windows 11 - Hvordan ? Af Ikke-ekspert i Windows