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>
Annonceindlæg tema
Cloud & AI
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Slettet bruger
02. juli 2002 - 20:40
#1
hvad får du af fejl ?
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
Slettet bruger
02. juli 2002 - 20:42
#3
og så har du en ' SQL sætning eksekveres for meget &:-D
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
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
<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>
Slettet bruger
02. juli 2002 - 20:44
#7
nå undskyld så &:-D
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>
Billedet er stadig under teksten. Jeg vil gerne hvis det kan komme til at stå ved siden af.
02. juli 2002 - 20:54
#10
bpedersen >> Det er det jeg har rettet.
02. juli 2002 - 20:54
#11
Så ikke det sidste indlæg.. det virker - MANGE TAK for hjælpen
02. juli 2002 - 20:54
#12
Det var så lidt - og tak for point :-)
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
Kurser inden for grundlæggende programmering