læse fra access database med to tabeller
Hej. jeg har et lille problem. jeg skal hente filer fra to sammenhængenge tabeller (Kundedata & Sagsdata). hvordan får jeg min hjemmeside til at hente data sammen. når den skal hente bliver det rodet sammen og det er som om at der ikke er sammenhæng. den skal dele det op så alt data fra begge tabeller kommer til at stå sammen. jeg har sammenkædet de to tabeller med attributten "brugernr" som er primærnøgle i tabellen kundedata med "brugernr" i tabellen "Sagsdata" som fremmednøgle.... ka ikke rigtig finde ud af hvad som er problemet.... meget mystisk.... herunder kommer koden som jeg har brugt.....:<html>
<title>Hente data fra database</title>
<head>
</head>
<body>
<%
' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db1.mdb") 'Sti til databasen
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select * from Kundedata, Sagsdata"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
Do
' Udskriv værdien af tabellen Kundedata
Response.Write rs("brugernr") & "<br>"
Response.Write rs("navn") & "<br>"
Response.Write rs("adresse") & "<br>"
Response.Write rs("postnr") & "<br>"
Response.Write rs("by") & "<br>"
Response.Write rs("att") & "<br>"
Response.Write rs("tlf") & "<br>"
Response.Write rs("fax") & "<br>"
Response.Write rs("email") & "<br>"
Response.Write rs("sagsnr") & "<br>"
Response.Write rs("tryksagsNavn") & "<br>"
Response.Write rs("oplag") & "<br>"
Response.Write rs("format") & "<br>"
Response.Write rs("sider") & "<br>"
Response.Write rs("papirkvalitet") & "<br>"
Response.Write rs("trykfarver") & "<br>"
Response.Write rs("tilgængelighed") & "<br>"
Response.Write rs("billeder") & "<br>"
Response.Write rs("efterbehandling") & "<br>"
Response.Write rs("pakning") & "<br>"
Response.Write rs("levering_Sted") & "<br>"
Response.Write rs("leveringsdato") & "<br>"
Response.Write rs("diverse") & "<br>"
Response.Write rs("brugernr") & "<br><br><br>"
' 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
%>
</body>
</html>
