Avatar billede area404 Nybegynder
13. december 2002 - 18:09 Der er 5 kommentarer og
2 løsninger

Flere tabeller af gangen!

Jeg er ved at lave en webshop, men jeg ved ikk hvordan det hænger sammen når man skal hente data fra flere tabbeller som én.. help:
Jeg har flere tabeller med andre varer, men dem vil min webshop ikke tilføje til kurven :(

tabeller: varer1, varer2, varer3, varer4, varer5, varer6

<%
'Åben databasen     
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=" & Server.Mappath("/db/db.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"


SQL = "SELECT produkt, pris, ImageURL FROM varer1"

   
rs.Open SQL, Conn
rs.MoveFirst


        Function GetItemParameters(iItemID)
        'Open database
        Set Conn = Server.CreateObject("ADODB.Connection")
        Set Rs = Server.CreateObject("ADODB.Recordset")
        Conn.Open "DBQ=" & Server.Mappath("/db/db.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

SQL = "SELECT* FROM varer1 WHERE produktnummer like '%" & iItemID & "%'"

rs.Open SQL1, Conn
rs.MoveFirst

Dim aParameters
aParameters = Array(rs("ImageURL"), rs("produkt"), rs("pris"))
' Return array containing product info.
GetItemParameters = aParameters
End Function
%>


help... Ron
Avatar billede whatever Nybegynder
13. december 2002 - 18:50 #1
Hvorfor ligger varerne flerer forskellige tabeller?
Avatar billede area404 Nybegynder
13. december 2002 - 19:01 #2
forskellige varetyper.. så er det lidt lettere at kalde dem...
har du andre forslag.. alt kan bruges lige nu! Det er et projekt der skal være færdig inden weekenden er omme!
Avatar billede oasen Nybegynder
13. december 2002 - 19:51 #3
Nu ved jeg ikke hvordan dine tabeller ser ud, men normalt vil jeg sige, at det er en temmelig dum idé at lægge dem i 6 tabeller, hvis de rummer ca. de samme datatyper.
Kan du ikke bare have et felt, der hedder "Varetype", og så proppe det hele ned i en tabel?

I modsat fald skal du have kædet dem sammen med join-funktionen.
http://www.w3schools.com/sql/sql_join.asp
Avatar billede whatever Nybegynder
13. december 2002 - 20:01 #4
Jeg kan kun være enig med oasen. Jeg har selv lavet et shopping-system, kun en tabel til selve varerne. Der ud over er der tabeller til varetyper, producenter etc. Så kan disse tabeller joines, når man har brug for det. I systemet ligger omkring 100 forskellige varetyper og producenter, og det ville jo være vanvittig at ligge dem i 100 forskellige tabeller.
Avatar billede oasen Nybegynder
13. december 2002 - 20:07 #5
Er der nogle relationer i mellem tabellerne? Eller er de helt selvstændige?
Avatar billede area404 Nybegynder
13. december 2002 - 20:39 #6
Nemlig... det har jeg også lavt nu!
<html>

<head>
</head>
<body>
<font size="2" face="Verdana"><b>
<%
    Response.Write "Varer i butikken:"
%>
</Font></B>

<br>
<br>

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

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

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

%>

<b>


<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
  <tr>
    <td width="21%"><font size="2" face="Verdana">
   
    <%
    If rs("varetype") = "1" then
      ' Vis billede!
        Response.write ("Billede af varen her!")
    %>
    </td>


<td width="79%"><font size="2" face="Verdana"><b>
<%
    ' Udskriv Info om varen
    Response.Write rs("produkt") & "</b> <BR> " & rs("beskrivelse") & "<BR><BR><b>Type: </b>" & rs("type") & "<BR><b>Speed: </b>" & rs("speed") & "<BR><b>Interface: </b>" & rs("interface") & "<BR><b>Andet: </b>" & rs("andet") & "<BR><BR><b> Lager Status:</b> " & rs("lager") & "<BR> <B> Pris:</B> " & rs("pris") & "Kr." &    "<BR>" & " <B>VareID:</B> " & rs("produktnummer")



%>

</td>
  </tr>
</table>



<BR>
<a href=kurv.asp?action=add&item1=<%Response.Write rs("produktnummer")%> ><img border="0" src="images/koeb.jpg" width="34" height="20" alt="Køb"></a>
<BR>
<BR>

<%
Else
'Response.write "det andet"
End if

' 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

%>

</b>
</body>
</html>
</font>

Jeg håber ikke at du har noget imod at dele point med mig, jeg havde lavt det før jeg havde læst dit indlæg, men du skal nu ikke snydes for dit rigtige svar!
Avatar billede oasen Nybegynder
16. december 2002 - 08:30 #7
Mit svar var ikke mere end 30 points værd, så det er helt fint med mig :)
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

IT-JOB

Capgemini Danmark A/S

Market Segment Lead, CPRD

Politiets Efterretningstjeneste

Data engineer til PET

Politiets Efterretningstjeneste

IT Sikkerhedsarkitekt i PET