/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord? 		Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
1  smorch 9259
2  Harlekin 1866
3  molokyle 1040
4  Steffanst.. 758
5  gandalf 657
6  smilly 564
7  gibson 560
8  cumano 530
9  MouseKeep.. 480
10  Random 410
Indsætte data fra database i tabel på ASP ~
Fra : Jan Hansen

Dato : 14-05-02 07:45
Jeg har en database med personer som jeg lister op i en frame (ja ja jeg ved
det godt!) i venstre side og min mening var så at når der blev trykket på et
navn ville oplysningerne om den person komme frem i en tabel i højre side.

Jeg har lavet databasen, og framen og kan få data frem i højre side, men jeg
ved ikke rigtigt hvordan man laver tabellen og får datane ind i de rigtige
celler.

Min tabel skal se sådan her ud, og den er lavet i alm html.

<table border="1">
<tr>
<td rowspan="4">pic</td>
<td colspan="3">navn</td>
</tr>
<tr>
<td colspan="3">Link</td>
</tr>
<tr>
<td colspan="3">text</td>
</tr>
<tr>
<td>Celle A</td>
<td>Celle B</td>
<td>dato</td>
</tr>
</table>

og min asp-højre-side ser indtil videre sådan ud:

<html>
<head>
</head>

<body>
<dl>

<%
' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("\cgi-bin\personer.mdb")
Conn.Open DSN

' Hent fra databasen afhængig af værdien id fra url
strSQL = "Select * from tabel Where Id=" & Request.Querystring("id")
Set rs=Conn.Execute(strSQL)

' test for at se om det virker
Response.Write "<dt>Navn:</dt><dd>" & rs("Navn") & "</dd>"

' OG HER SKULLE TABELLEN SÅ GERNE VÆRE, OG HVOR RESULTATTET AF OVENSTÅENDE
TEST LINIE GERNE SKULLE IND I CELLE NAVN!!!

Conn.Close
Set Conn=Nothing
%>
</dl>
</body>
</html>

Hvis der var en der ville hjælpe lidt med dette så kan jeg nok selv finde ud
af hvordan jeg får datane ind i de øvrige celler.

Og som i nok allerede har regnet ud, så ER jeg nybegynder.

Mvh Jan Hansen



 
 
René Hollen Pedersen (14-05-2002)
Kommentar
Fra : René Hollen Pedersen

Dato : 14-05-02 12:22
Tabellen skulle kunne klares med følgende:

<th>Id2</th>
<th>Antal</th>
<th>Aar</th>

<%
While Not objRS.EOF
Response.Write "<tr>"
Response.Write "<td>"&RS("Id2")&"&nbsp;&nbsp;</td>"
Response.Write "<td>"&RS("Antal")&"&nbsp;</td>"
Response.Write "<td>"&RS("Aar")&"&nbsp;</td>"
Response.Write "</tr>"
objRS.MoveNext
Wend
Response.write "</table>"
%>





René Hollen Pedersen (14-05-2002)
Kommentar
Fra : René Hollen Pedersen

Dato : 14-05-02 12:23

"René Hollen Pedersen" <rhpe00@i4.auc.dk> wrote in message
news:abqrvj$a91$1@sunsite.dk...
> Tabellen skulle kunne klares med følgende:
>
> <th>Id2</th>
> <th>Antal</th>
> <th>Aar</th>
>
> <%
> While Not objRS.EOF
> Response.Write "<tr>"
> Response.Write "<td>"&RS("Id2")&"&nbsp;&nbsp;</td>"
> Response.Write "<td>"&RS("Antal")&"&nbsp;</td>"
> Response.Write "<td>"&RS("Aar")&"&nbsp;</td>"
> Response.Write "</tr>"
> objRS.MoveNext
> Wend
> Response.write "</table>"
> %>
>
>
>
Glemte lige SQL kommandoen:

objCommand.ActiveConnection = strConnect
SQLa = "SELECT * FROM Uheld ORDER BY id2 DESC"
objCommand.CommandText = SQLa
objCommand.CommandType = adCmdText
Set objRS = objCommand.Execute



Jan Hansen (14-05-2002)
Kommentar
Fra : Jan Hansen

Dato : 14-05-02 12:54
Jeg er kommet lidt videre i løbet af dagen så nu har jeg fundet ud af
hvordan jeg får data ind i tabellen, men lige nu er jeg der hvor jeg simpelt
hen ikke kan finde ud af at få min tabel til at se ud som den gør i ren
html.

Problemet er ROWSPAN og COLSPAN, hvordan gør man det i ASP?

<table border="1">
<tr>
<td rowspan="4">pic</td>
<td colspan="3">navn</td>
</tr>
<tr>
<td colspan="3">Link</td>
</tr>
<tr>
<td colspan="3">text</td>
</tr>
<tr>
<td>Celle A</td>
<td>Celle B</td>
<td>dato</td>
</tr>
</table>

Mvh Jan Hansen



Gregers Petersen (14-05-2002)
Kommentar
Fra : Gregers Petersen

Dato : 14-05-02 13:37
"Jan Hansen" <jh@fa.dk> skrev i en meddelelse
news:DV6E8.55$%G3.2402@news.get2net.dk...
> Problemet er ROWSPAN og COLSPAN, hvordan gør man det i ASP?

Du har sikkert bare brugt Renés eksempel.
For at få det du vil have må du jo modificere eksemplet så det passer til
din side, f.eks.:

Response.Write "<td rowspan='2'>"&RS("Id2")&"&nbsp;&nbsp;</td>"
Response.Write "<td rowspan='548'>"&RS("Antal")&"&nbsp;</td>"
Response.Write "<td>"&RS("Aar")&"&nbsp;</td>"


--
MvH

Gregers Petersen
http://disclaimer.gpweb.dk



Jørn Andersen (14-05-2002)
Kommentar
Fra : Jørn Andersen

Dato : 14-05-02 19:26
On Tue, 14 May 2002 14:37:18 +0200, "Gregers Petersen"
<usenet@fjern-dettegpweb.dk> wrote:

> Response.Write "<td rowspan='548'>"

Det var mange :)


Mvh. Jørn

--
Jørn Andersen,
Brønshøj

Gregers Petersen (14-05-2002)
Kommentar
Fra : Gregers Petersen

Dato : 14-05-02 19:38
"Jørn Andersen" <jorn@jorna.dk> skrev i en meddelelse
news:ekl2eugo04jsrsr5glh3qatd6pfmrek8ih@4ax.com...
> Det var mange :)

Ja, og endda bevidst.
Så var jeg sikker på det giver et grimt indtryk, medmindre Jan selv begynder
at rette i det...


--
MvH

Gregers Petersen
http://disclaimer.gpweb.dk





Jan Hansen (15-05-2002)
Kommentar
Fra : Jan Hansen

Dato : 15-05-02 07:16

"Gregers Petersen" <usenet@fjern-dettegpweb.dk> skrev i en meddelelse
news:eOcE8.2614$4f4.217607@news000.worldonline.dk...
> "Jørn Andersen" <jorn@jorna.dk> skrev i en meddelelse
> news:ekl2eugo04jsrsr5glh3qatd6pfmrek8ih@4ax.com...
> > Det var mange :)
>
> Ja, og endda bevidst.
> Så var jeg sikker på det giver et grimt indtryk, medmindre Jan selv
begynder
> at rette i det...

ja klippe klistre er godt, men jeg havde nu selv fundet ud af lidt, men
jeg kan godt se i skulle have haft lidt mere af min kodning for at i kan se
hvad jeg mener.

Her er kodningen til højre frame, som altså får sine data fra en database,
styret fra venstre frame.

<html>
<head>
</head>

<body>
<dl>

<%
' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("\cgi-bin\personer.mdb")
Conn.Open DSN

' Hent fra databasen afhængig af værdien id fra url
strSQL = "Select * from tabel Where Id=" & Request.Querystring("id")
Set rs=Conn.Execute(strSQL)

' test for at se om der er forbindelse
Response.Write "<dt>Navn: </dt><dd>" & rs("Navn") & "</dd>"


Response.Write "<table>" & VbCrLf
Response.Write "<tr>" & VbCrLf
Response.Write "<td>Pic</td>" & VbCrLf
Response.Write "<td>" & rs("Navn") & "</td>" & VbCrLf
Response.Write "</tr>" & VbCrLf
Response.Write "<tr>" & VbCrLf
Response.Write "<td>" & rs("Link") & "</td>" & VbCrLf
Response.Write "</tr>" & VbCrLf
Response.Write "<tr>" & VbCrLf
Response.Write "<td>" & rs("Tekst") & "</td>" & VbCrLf
Response.Write "</tr>" & VbCrLf
Response.Write "<tr>" & VbCrLf
Response.Write "<td>" & rs("CelleA") & "</td>" & VbCrLf
Response.Write "<td>" & rs("CelleB") & "</td>" & VbCrLf
Response.Write "<td>" & rs("Dato") & "</td>" & VbCrLf
Response.Write "</tr>" & VbCrLf

Response.Write "</table>" & VbCrLf

Conn.Close
Set Conn=Nothing
%>

</dl>
</body>
</html>

Og det var meningen at min tabel (skemaet) skulle se nogenlunde sådan ud:

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
x x x
x xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
x x x
x xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
x x x
x xxxxxxxxxxxxxxxxxxxxxxxxxxxxx
x x x x x
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Altså, hvis tegningen ikke vises rigtigt, én stor celle til højre for tre
lange celler der ligger over 3 små celler.

Håber jeg har kastet lidt mere lys over mine problemer nu.

Mvh Jan Hansen



Jan Hansen (15-05-2002)
Kommentar
Fra : Jan Hansen

Dato : 15-05-02 10:28
Takker alle der hjalp

Problemet er nu klaret



Søg
Reklame
Statistik
Spørgsmål : 177560
Tips : 31968
Nyheder : 719565
Indlæg : 6408952
Brugere : 218888
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.