Avatar billede bpedersen Novice
02. juli 2002 - 20:38 Der er 12 kommentarer og
1 løsning

Indsætte data fra Access DB i tabel

Nybegynder spørgsmål..... ved ikke om den burde være posted i HTML kategorien... hvis JA --- sorry!!!

Jeg vil gerne sætte dataene ind i 2 kolonner, i første kolonne skal teksten stå, og i den anden kolonne skal der sættes et billede ind.

koden er som følger:

<html>
<title>Hent-salg</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("/ASP/gmdb.mdb")
Conn.Open DSN

' SQL sætning opbygges
strSQL = "Select * FROM DBGM Where KøbSalgBytte='Sælges'"

' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs=Conn.Execute(strSQL)

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

' Udskriv værdien
Response.Write rs("KøbSalgBytte") & "<br><br> " 
Response.Write rs("Overskrift") & "<br>"
Response.Write rs("Beskrivelse") & "<br><br>"
Response.Write "<dt>Pris: </dt>" & rs("Pris") & "<br><br>"
Response.Write "<dt>Email: </dt>"& rs("Emailadresse") & "<br>"
Response.Write "<dt>Telefon: </dt>" & rs("Telefonnummer") & "<br><br><br><br>"
Response.Write "<img src=""" & rs("path") & """ width=""150"" height=""150""><hr>"

' 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

' SQL sætning eksekveres
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

</body>
</html>

Avatar billede Slettet bruger
02. juli 2002 - 20:40 #1
hvad får du af fejl ?
Avatar billede Slettet bruger
02. juli 2002 - 20:42 #2
det kunne tænkes at du mangler denne if sætning:

if not rs.eof then

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

' Udskriv værdien
Response.Write rs("KøbSalgBytte") & "<br><br> " 
Response.Write rs("Overskrift") & "<br>"
Response.Write rs("Beskrivelse") & "<br><br>"
Response.Write "<dt>Pris: </dt>" & rs("Pris") & "<br><br>"
Response.Write "<dt>Email: </dt>"& rs("Emailadresse") & "<br>"
Response.Write "<dt>Telefon: </dt>" & rs("Telefonnummer") & "<br><br><br><br>"
Response.Write "<img src=""" & rs("path") & """ width=""150"" height=""150""><hr>"

' 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

end if
Avatar billede Slettet bruger
02. juli 2002 - 20:42 #3
og så har du en ' SQL sætning eksekveres  for meget &:-D
Avatar billede bpedersen Novice
02. juli 2002 - 20:43 #4
jeg får ingen fejl, den kode der er der  virker korrekt. det jeg ikke kan er at få
<table>
<tr>
<td>tekst</td>
<td>billede</td>
</tr>
</table>

men får en fejl når jeg sætter det ind
Avatar billede Slettet bruger
02. juli 2002 - 20:43 #5
nej det har du foresten ikke, den står bare forkert,

du skal rykke denne linie:

' SQL sætning eksekveres
Conn.Execute(strSQL)


op over din do
Avatar billede skovtrold Nybegynder
02. juli 2002 - 20:44 #6
<html>
<title>Hent-salg</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("/ASP/gmdb.mdb")
Conn.Open DSN

' SQL sætning opbygges
strSQL = "Select * FROM DBGM Where KøbSalgBytte='Sælges'"

' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs=Conn.Execute(strSQL)

'indsaet table
Response.Write "<table cellpadding=0 cellspacing=0 border=0>"

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

' Udskriv værdien
Response.Write "<tr>"
Response.Write "<td align=left valign=top>" & rs("KøbSalgBytte") & "<br><br> "
Response.Write rs("Overskrift") & "<br>"
Response.Write rs("Beskrivelse") & "<br><br>"
Response.Write "Pris: " & rs("Pris") & "<br><br>"
Response.Write "Email: "& rs("Emailadresse") & "<br>"
Response.Write "Telefon: " & rs("Telefonnummer") & "</td>>"
Response.Write "</tr><tr>"
response.write "<td align=left valign=top><img src=""" & rs("path") & """ width=""150"" height=""150""><hr></td>"
Response.Write "</tr>"

' 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

' afslut table
Response.Write "</table>"

' SQL sætning eksekveres
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

</body>
</html>
Avatar billede Slettet bruger
02. juli 2002 - 20:44 #7
nå undskyld så &:-D
Avatar billede skovtrold Nybegynder
02. juli 2002 - 20:51 #8
Undskyld - der er lige en rettelse:
Her er en opdateret udgave:

<html>
<title>Hent-salg</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("/ASP/gmdb.mdb")
Conn.Open DSN

' SQL sætning opbygges
strSQL = "Select * FROM DBGM Where KøbSalgBytte='Sælges'"

' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs=Conn.Execute(strSQL)

'indsaet table
Response.Write "<table cellpadding=0 cellspacing=0 border=0>"

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

' Udskriv værdien
Response.Write "<tr>"
Response.Write "<td align=left valign=top>" & rs("KøbSalgBytte") & "<br><br> "
Response.Write rs("Overskrift") & "<br>"
Response.Write rs("Beskrivelse") & "<br><br>"
Response.Write "Pris: " & rs("Pris") & "<br><br>"
Response.Write "Email: "& rs("Emailadresse") & "<br>"
Response.Write "Telefon: " & rs("Telefonnummer") & "</td>"
response.write "<td align=left valign=top><img src=""" & rs("path") & """ width=""150"" height=""150""><hr></td>"
Response.Write "</tr>"

' 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

' afslut table
Response.Write "</table>"

' SQL sætning eksekveres
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

</body>
</html>
Avatar billede bpedersen Novice
02. juli 2002 - 20:52 #9
Billedet er stadig under teksten. Jeg vil gerne hvis det kan komme til at stå ved siden af.
Avatar billede skovtrold Nybegynder
02. juli 2002 - 20:54 #10
bpedersen >>
Det er det jeg har rettet.
Avatar billede bpedersen Novice
02. juli 2002 - 20:54 #11
Så ikke det sidste indlæg.. det virker - MANGE TAK for hjælpen
Avatar billede skovtrold Nybegynder
02. juli 2002 - 20:54 #12
Det var så lidt - og tak for point :-)
Avatar billede eagleeye Praktikant
02. juli 2002 - 22:11 #13
du behøver ikke udføre din SQL to gang :)


' afslut table
Response.Write "</table>"

' SQL sætning eksekveres
Conn.Execute(strSQL)            '<----------- SLET DENNE LINIE

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
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
Kurser inden for grundlæggende programmering

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