Access - ASP

http://activedeveloper.dk/aspdigital/2002050201.asp
http://activedeveloper.dk/aspdigital/2002051601.asp

//>Rune

Du skal ikke nødvendigvis bruge relationerne mellem tabellerne, du kan "bare" connecte til hver enkel tabel

jayo> Du kan jo oxo lave Join på dine tabeller!
fx.:

strSQL = "SELECT kol1.tbl1 kol1.tbl2 FROM tbl1, tbl2"

//>Rune

http://www.w3schools.com/sql/sql_join.asp

//>Rune

Ok, før jeg læser videre på det, kan I give mig jeres forslag til hvordan jeg skal strukturere database.

Jeg vil gerne have det struktureret sådan her på hjemmesiden:

- Products (når man trykker på 'products' får man følgende kategorier:)

- - Produktgruppe 1
- - Produktgruppe 2
- - Produktgruppe 3
osv
- - Produktgruppe 15

Og når man så trykker på en produktkategori ser man alle produkterne i den kategori.

Jeg skal gemme flg. info pr. produkt:

- Varenr (primary key)
- Produktkategori
- Navn
- Deskrivelse
- Salgspris
- Antal på lager
- URL til et image


Nogen forslag til hvordan jeg bedst strukturerer det? I øjeblikket omkring 150 produkter, men sikker op imod 300 i løbet af nogle måneder.

-jayo
Der bliver omkring 15 produkt-kategorier

Det er lidt svært at kunne sige idet vi ikke ved hvilke tabeller du har med at gøre.

Men hvis du læser tutorialserne skulle det være småkager for dig!

//>Rune

Ok, jeg har forsøgt mig.... for at få vist en liste over kategorier i min "Category" tabel har jeg benyttet flg. kode.... men det virker ikke for mig :(

<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/cgi-bin/stock.mdb")
Conn.Open DSN
%>


<%
Set rs = Nothing

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

Response.Write ("<table class=link border=0 cellpadding=0 cellspacing=1>")

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

Response.Write ("<tr><td>")

  ' Udskriv værdien af kolonnen CategoryID
  Response.write  "<a href='"& rs("CategoryID") & "' target=new>" & rs("CategoryID")& "</a>"
  Response.Write ("</td></tr><tr><td>")
  Response.Write rs("CategoryName")

Response.Write ("</td></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

Response.Write ("</table>")


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


Nogen ideer? Min test side kan ses på: http://www.gobeyondltd.com/access/

Prøv dette:
<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("/cgi-bin/stock.mdb")
strSQL = "Select * from Category order by CategoryName"
Set RS = Conn.Execute(strSQL)




Response.Write ("<table class=link border=0 cellpadding=0 cellspacing=1>")

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

Response.Write ("<tr><td>")

  ' Udskriv værdien af kolonnen CategoryID
  Response.write  "<a href='"& rs("CategoryID") & "' target=new>" & rs("CategoryID")& "</a>"
  Response.Write ("</td></tr><tr><td>")
  Response.Write rs("CategoryName")

Response.Write ("</td></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

Response.Write ("</table>")


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

Sorry, det viser sig at problemet er min server... jeg har lige prøvet på en anden server og der virker det fint...

ok :)
Men afslut lige spm'et her!

//>Rune

Takker for hjælpen allesammen!!!

Anytime
Thx 4 Poinz

//>Rune