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
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
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

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