udregningen virker ikke helt

Prøv at skifte INNER JOIN ud med LEFT JOIN.

det samme men nu tager den alle produkterne med... men den regner ikke rigtigt..

Problemmet ligger som jeg ser i at det er en join. Det skulle i min verden være en UNION og så lave en SQL som denne hvor den med GROUP BY finde den mindste pris..

SELECT * FROM spm401625 AS T1, (SELECT min(T2.pris) as mpris, T2.varenummer
FROM spm401625 AS T2 GROUP BY T2.varenummer) AS [T3] WHERE T1.pris = mpris;

Jeg har ikke tid til at vise et bedre eksemple før i aften.

ok, jeg holder med dig T...

hvis du har tid i aften eller i morgen ville det være super sej...:-)

jeg er online om dagen mest....

P

Ok, var et forsøg værd uden at nærlæse spg. - kan godt se at det er INNER JOIN du skal bruge nu.

Som det er nu, skriver den pris1 hvis den er mindst, pris2 hvis den er mindst og pris1 hvis de er lig hinanden. Hvad skal den istedet?

jamen det der rigtigt det der bare er problemmet er at når feks. pris2 er billigst skriver den at den er det samme men viser den biligste pris...

så den skriver ikke at det er den billigste men sælges til samme pris

Skal der ikke stå noget efter "where tabel1.varenummer" i din sql?

SQL = "SELECT tabel1.levnavn AS navn1, tabel2.levnavn AS navn2, tabel1.pris AS pris1, tabel2.pris AS pris2, tabel1.DescShort AS b, tabel1.varenummer FROM tabel1 LEFT JOIN tabel2 ON tabel1.varenummer=tabel2.varenummer where tabel1.varenummer"

sådan står den

Hvordan angiver du så varenummeret på den vare du vil søge på?

jamen her tager den bare alle

Kan du ikke give et eks. på dine tabeller og på hvad du gerne vil have ud? Er ikke sikker på, at jeg forstår hvad det er du vil.

ok.. der er to leverandøre og deres priser og produkter ligger i hver deres tabel.
de har begge en saab 9000 med varenummer "9000" tabel1 = lev1 har pris 5000 og tabel2 = lev2 har pris 5100 så skal den sammelinge på varenummere og sig ok det er den samme vare derefter sammelinger jeg priserne og så skal jeg skrive hvem der er billigt.. hvis de har den samme pris vises begge levnavne..

håber du fårstå det er for hurtigt at se hvem der er billigt..

Har lige afprøvet i en tabel, og det ser da ud til at virke som det skal?

Prøv at give et konkret eks. hvor den laver fejl.

ja det virker også for mig når jeg laver en lille enkelt version... men når jeg knalder 13000 varenumre ind så går det ikke så godt..

nej nu har jeg fejlen....

prøv at lave to vare der har den samme pris.... så kan den ikke finde ud af dem der komme bagefter....!

Prøv at bytte lidt rundt på rækkefølgen, og så brug ELSE:
    if (rs("pris1")=rs("pris2")) then
        fejl = 1
        pris = rs("pris1")
        navn = rs("navn1") &" og "& rs("navn2")
    else
        if (rs("pris1")<rs("pris2")) then
          pris = rs("pris1")
          navn = rs("navn1")
        else
          pris = rs("pris2")
          navn = rs("navn2")
    end if
end if

Har før set at det bare var rækkefølgen der var forkert...

Men er ikke sikker på at det er det der er problemet her, bare er forslag...

S.R.

hej San..

nej det er det samme når den har haft to ens priser kan den ikke finde ud af det med de varer der kommer bagefter..?

faktisk er det fra produkt tre og frem uanset hvad priserne er, der tager den ikke den billigst..

nu virker det med at jeg ændrede felterne til tal !!!!

men den viser stadig ikke hvis der er en vare der ikke har ens varenummer.. altså hvis der kun er en varenummer.. midt i det hele

jamen hovsa .. der er jo også varenumre med bogstaver i ? hvad så

Hej igen, hvilken database bruger du og hvilke felttyper?

Du skal bare indsætte:

fejl = 0

før rs.movenext så virker det.

access  og ligenu er det tal for varenummer og pris og tekst for levnavn og DescShort

<%

SQL = "SELECT tabel1.levnavn AS navn1, tabel2.levnavn AS navn2, tabel1.pris AS pris1, tabel2.pris AS pris2, tabel1.DescShort AS b, tabel1.varenummer FROM tabel1 inner JOIN tabel2 ON tabel1.varenummer=tabel2.varenummer where tabel1.varenummer"
Set rs=conn.execute(SQL)

Do while not (rs.BOF or rs.EOF)
    if (rs("pris1")<rs("pris2")) then
        pris = rs("pris1")
        navn = rs("navn1")
    end if
    if (rs("pris2")<rs("pris1")) then
        pris = rs("pris2")
        navn = rs("navn2")
    end if
    if (rs("pris1")=rs("pris2")) then
        fejl = 1
        pris = rs("pris1")
        navn = rs("navn1") &" og "& rs("navn2")
    end if
    response.write("Varen: "& rs("varenummer") & rs("b") &"")
    if (fejl) then
        response.write("sælges til samme pris ("& pris &") hos "& navn &"<br>")
    else
        response.write("sælges billigst ("& pris &") hos "& navn &"<br>" )
    end if
    fejl = 0
    rs.movenext
loop

%>

men den viser stadig ikke den vare der kun er en af...

altså hvis
tabel1 har 3 varenummer
og
tabel2 har4 varenummer

viser den ikke vare nummer 4 ?

Virker det så ikke med LEFT JOIN?

desværre ikke den vil ikke tage dem med der ikke har ens varenummer ?

tilbage i morgen...

prøv den selv med en lille db.. :-)

Det jeg mener med union og i en SQL er dette:


SQL = "SELECT t1.levnavn, t1.pris, t1.varenummer "
SQL = SQL & "FROM (SELECT levnavn, pris, varenummer FROM tabel1 UNION ALL SELECT levnavn, pris, varenummer FROM tabel2) as t1, "
SQL = SQL & "(SELECT min(pris) as mpris, varenummer FROM (SELECT pris, varenummer FROM tabel1 UNION ALL SELECT pris, varenummer FROM tabel2) GROUP BY varenummer) as t2 "
SQL = SQL & "WHERE t1.pris = t2.mpris AND t1.varenummer = t2.varenummer;"

------------
Som test kan du prøve dette, du forudsætte du har to tabeller, tabel1 og tabel2 så skal du ikke rette i noget kun lave en connection til din database:


SQL = "SELECT t1.levnavn, t1.pris, t1.varenummer "
SQL = SQL & "FROM (SELECT levnavn, pris, varenummer FROM tabel1 UNION ALL SELECT levnavn, pris, varenummer FROM tabel2) as t1, "
SQL = SQL & "(SELECT min(pris) as mpris, varenummer FROM (SELECT pris, varenummer FROM tabel1 UNION ALL SELECT pris, varenummer FROM tabel2) GROUP BY varenummer) as t2 "
SQL = SQL & "WHERE t1.pris = t2.mpris AND t1.varenummer = t2.varenummer;"

Set rs = Conn.Execute(SQL)

Response.Write "<table>"
if not rs.EOF then
  Response.Write "<tr>"
  for each f in rs.Fields
    Response.Write "<td>" & f.name & "</td>"
  next
  Response.Write "</tr>"
end if
Response.Write "<tr><td>"
Response.Write rs.GetString (, -1, "</tr><td>", "</td></tr><tr><td>", NBSPACE) 
response.write "</table>"

hej E..

det er godt det der ! men hvordan får jeg varebeskrvelsen med "DescShort" ?

og hvis nu jeg har en trejde tabel...

og så er der en lille en, hvis der er to vare der har den samme pris viser den varene to gange der skal den kun vise den engang og vælge levnavn fra tabel1.

Hej E... er vi online.. det er så godt det du har lavet der.. skal bare lige have det sidste på plads..

ok, nu fik jeg selv den med  t1.DescShort med, men den skriver stadig den vare der har samme pris ud til gange... ?

og så er der den vis nu der er en trejde tabel..

hej E.. er du klar :-)
den skriver stadig den vare der har samme pris ud til gange... ?

og så er der den vis nu der er en trejde tabel..

Jeg ved ikke helt hvordan man kun får den med som er i tabel1 hvis der er flere med samme pris.

dui kan tilføje flere tabeller ved at tilføje denne til den første UNION ALL liste som hedder t1
UNION ALL SELECT levnavn, pris, varenummer, DescShort FROM tabel3

Samt denne ved den anden UION ALL lige før ) GROUP BY varenummer
UNION ALL SELECT pris, varenummer FROM tabel3


Så den ser sådan her ud:

SQL = "SELECT t1.levnavn, t1.pris, t1.varenummer, t1.DescShort "
SQL = SQL & "FROM (SELECT levnavn, pris, varenummer, DescShort FROM tabel1 UNION ALL SELECT levnavn, pris, varenummer, DescShort FROM tabel2 UNION ALL SELECT levnavn, pris, varenummer, DescShort FROM tabel3) as t1, "
SQL = SQL & "(SELECT min(pris) as mpris, varenummer FROM (SELECT pris, varenummer FROM tabel1 UNION ALL SELECT pris, varenummer FROM tabel2  UNION ALL SELECT pris, varenummer FROM tabel3) GROUP BY varenummer) as t2 "
SQL = SQL & "WHERE t1.pris = t2.mpris AND t1.varenummer = t2.varenummer;"

For bedre at kunne overskue det kan det skrive op på flere linjer:

SQL = "SELECT t1.levnavn, t1.pris, t1.varenummer, t1.DescShort "
SQL = SQL & "FROM (SELECT levnavn, pris, varenummer, DescShort FROM tabel1 "
SQL = SQL & "UNION ALL SELECT levnavn, pris, varenummer, DescShort FROM tabel2 "
SQL = SQL & "UNION ALL SELECT levnavn, pris, varenummer, DescShort FROM tabel3) "
SQL = SQL & "as t1, "
SQL = SQL & "(SELECT min(pris) as mpris, varenummer "
SQL = SQL & "FROM (SELECT pris, varenummer FROM tabel1 "
SQL = SQL & "UNION ALL SELECT pris, varenummer FROM tabel2 "
SQL = SQL & "UNION ALL SELECT pris, varenummer FROM tabel3 "
SQL = SQL & ") GROUP BY varenummer) as t2 "
SQL = SQL & "WHERE t1.pris = t2.mpris AND t1.varenummer = t2.varenummer;"

For kun at få vist den ene af tabellerne med priser, må du over i javascript.

Bare lav følgende script:

<script language="javascript">
    function TjekTabel()
        {
        Tabel1 = "Navnet_på_den_formular_du_har_tabellerne_i.Navnet_på_den_ene_tabel"
        Tabel2 = "Navnet_på_den_formular_du_har_tabellerne_i.Navnet_på_den_anden_tabel"

        if(document[Tabel1].value == document[Tabel2].value)
            {
            document[Tabel2].type = "hidden";
            }
        }
</script>

I dit "<body>"-tag indsætter du så: onload="java script:TjekTabel()"

Så skulle det med de ens tabeller være løst...

Ellers må du jo lige brokke dig, og så skal jeg nok lige teste det hele først...

S.R.

hej SR.


Det kan jeg ikke helt finde ud af, har du mulighed for at hjælpe  sådan se det ud nu ... nu har jeg tre tabeller med :-) jeg har ikke rigtig nogen formular ?

<script language="javascript">
    function TjekTabel()
        {
        Tabel1 = "Navnet_på_den_formular_du_har_tabellerne_i.Tabel1"
        Tabel2 = "Navnet_på_den_formular_du_har_tabellerne_i.Tabel2"
        Tabel3 = "Navnet_på_den_formular_du_har_tabellerne_i.Tabel3"
        if(document[Tabel1].value == document[Tabel2].value)
            {
            document[Tabel2].type = "hidden";
            }
        }
</script>
<BODY onload="java script:TjekTabel()">



<%

' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ll.mdb")
' Åben databaseforbindelsen
Conn.Open DSN

%>

<!-- <a href="intel.asp">se Lexmark produkter.</a><BR><BR> -->


<%
SQL = "SELECT  t1.varenummer, t1.DescShort, t1.pris, t1.levnavn  "
SQL = SQL & "FROM (SELECT levnavn, pris, varenummer, DescShort FROM tabel1 "
SQL = SQL & "UNION ALL SELECT levnavn, pris, varenummer, DescShort FROM tabel2 "
SQL = SQL & "UNION ALL SELECT levnavn, pris, varenummer, DescShort FROM tabel3) "
SQL = SQL & "as t1, "
SQL = SQL & "(SELECT min(pris) as mpris, varenummer "
SQL = SQL & "FROM (SELECT pris, varenummer FROM tabel1 "
SQL = SQL & "UNION ALL SELECT pris, varenummer FROM tabel2 "
SQL = SQL & "UNION ALL SELECT pris, varenummer FROM tabel3 "
SQL = SQL & ") GROUP BY varenummer) as t2 "
SQL = SQL & "WHERE t1.pris = t2.mpris AND t1.varenummer = t2.varenummer;"

Set rs = Conn.Execute(SQL)

Response.Write "<table>"
if not rs.EOF then
  Response.Write "<tr>"
  for each f in rs.Fields
    Response.Write "<td>" & f.name & "</td>"
  next
  Response.Write "</tr>"
end if
Response.Write "<tr><td>"
Response.Write rs.GetString (, -1, "</tr><td>", "</td></tr><tr><td>", NBSPACE) 
response.write "</table>"
%>

Hej E

det virker jo he... men nu har jeg rodet med at de skal stå Order by varenummer men den kan jeg ikke få til at virke..

p

hej S.R

Faktisk skal den sige.. hvis prisen er ens skal den vise alle levnavne altså:

varnummer  Dechsort    pris    levnavn
1234      saab 9000    5000    saab brønshøj, saab ishøj, SR biler.

håber du forstår

Du skal skriver ORDER BY t1.varenummer sådan her:

SQL = SQL & "WHERE t1.pris = t2.mpris AND t1.varenummer = t2.varenummer ORDER BY t1.varenummer;"

Hej E
ja det virker... men så har jeg bare den med hvis prisen er ens skal den vise alle levnavne altså:

varnummer  Dechsort    pris    levnavn
1234      saab 9000    5000    saab brønshøj, saab ishøj, SR biler.

og ikke vise varen tre gange som den gør nu...

peter

Ja ok, men det kræver noget kode som udskriver recordsetet og tjekke hver vare om der er flere vare med samme varenummer. Og ikke  det som jeg har vist som udskriver hele recordetet på en gang.

er det svært at flette ind for det du har lavet der er rigtig godt ?

Nej det er muligt, et eksemple på koden:


SQL = "......."

Set rs = Conn.Execute(SQL)

lastvare=""
Response.Write "<table>"
Response.Write "<tr><td>varnummer</td><td>Dechsort</td><td>pris</td><td>levnavn</td></tr>"
do while not rs.EOF
  if lastvare = rs("varenummer") then
    if lastvare <> "" then Response.Write ", " & rs("levnavn")
  else
    if lastvare <> "" then Response.Write "</tr>"
    lastvare = rs("varenummer")
    Response.Write "<tr>"
    Response.Write "<td>" & rs("varenummer") & "</td>"
    Response.Write "<td>" & rs("dechsort") & "</td>"
    Response.Write "<td>" & rs("pris") & "</td>"
    Response.Write "<td>" & rs("levnavn") & "</td>"
  end if
  rs.Movenext
loop
Response.Write "</tr>"
Response.Write "</table>"

YES.. nu virker det bare godt... kan man ligge 25 % på vores billigste pris også sammenlinge resultaterne med en fjerde tabel4, og sige hvis vores pris er billigere < end prisen i tabel4 indsæt resultatet i tabel5. hvis ikke + 30% i stedet.

håber du forstår...

hvis ikke noget af det kan lade sig gøre, så kunne jeg godt tænke mig den sagde vores billigste resultat + 25% indsættes i tabel5

det er så godt det her..:-)

Hej E...

kan du ikke hjælpe med det sidste her....

jeg kan ikke får det ind i en tabel4

peter

Ikke for at blande mig, men du har fået virkeligt meget hjælp for 30 point.

S.R.

hmm jeg giver gerne mange flere.. men Eagel har ikke vent tilbage og jeg har oprette sprg. igen til 60.

Beklager jeg ikke har svaret før nu, men jeg har være væk de sidste par dage..

Dér ligger en masse udregninger som jeg lige ser det, problemmet er der hele tiden komme lige en ting mere og så lige en ting mere på. Løsningen er afhængig af problemmet og ændre problemmet sig ændre løsningen sig.

Det kan være du skal for hvert varenummer trække en post ud af tabel4 og sammenligen pris med det varenummer man er kommet til inden man udsjkriver det, du kan ligge 25% ved at gange med 1.25 og ligge 30% til ved at gange med 1.3

Du behøver ikke at oprette et nyt spg. for at tildele flere point...

Oppe i øverste venstre hjørne af dit "start-spg." står der hvor mange point du udlodder til den der gi'r et acceptabelt svar. Ved at trykke på det lille flag til venstre for pointene, kan du ændre hvor mange point du vil gi' væk...

S.R.

HEj E. ok men hvad siger du til at bare sætte resultatet ind i en tabel4. ?

Du kan i SQL lave en INSERT INTO og så putte resultet direkte ind i tabel4 sådan her:


SQL = "INSERT INTO tabel4 (levnavn, pris, varenummer, DescShort) SELECT t1.levnavn, t1.pris, t1.varenummer, t1.DescShort "
SQL = SQL & "FROM (SELECT levnavn, pris, varenummer, DescShort FROM tabel1 "
SQL = SQL & "UNION ALL SELECT levnavn, pris, varenummer, DescShort FROM tabel2 "
SQL = SQL & "UNION ALL SELECT levnavn, pris, varenummer, DescShort FROM tabel3 "
SQL = SQL & ") as t1, "
SQL = SQL & "(SELECT min(pris) as mpris, varenummer "
SQL = SQL & "FROM (SELECT pris, varenummer FROM tabel1 "
SQL = SQL & "UNION ALL SELECT pris, varenummer FROM tabel2 "
SQL = SQL & "UNION ALL SELECT pris, varenummer FROM tabel3 "
SQL = SQL & ") GROUP BY varenummer) as t2 "
SQL = SQL & "WHERE t1.pris = t2.mpris AND t1.varenummer = t2.varenummer ORDER BY t1.varenummer;"

den sætter det fint ind i tabel4 med denne kode

<%
SQL = "INSERT INTO tabel4 (levnavn, pris, varenummer, DescShort) SELECT t1.levnavn, t1.pris, t1.varenummer, t1.DescShort "
SQL = SQL & "FROM (SELECT levnavn, pris, varenummer, DescShort FROM tabel1 "
SQL = SQL & "UNION ALL SELECT levnavn, pris, varenummer, DescShort FROM tabel2 "
SQL = SQL & "UNION ALL SELECT levnavn, pris, varenummer, DescShort FROM tabel3) "
SQL = SQL & "as t1, "
SQL = SQL & "(SELECT min(pris) as mpris, varenummer "
SQL = SQL & "FROM (SELECT pris, varenummer FROM tabel1 "
SQL = SQL & "UNION ALL SELECT pris, varenummer FROM tabel2 "
SQL = SQL & "UNION ALL SELECT pris, varenummer FROM tabel3 "
SQL = SQL & ") GROUP BY varenummer) as t2 "
SQL = SQL & "WHERE t1.pris = t2.mpris AND t1.varenummer = t2.varenummer ORDER BY t1.varenummer;"

Set rs = Conn.Execute(SQL)

lastvare=""
Response.Write "<table>"
Response.Write "<tr><td>varenummer</td><td>Dechsort</td><td>pris</td><td>levnavn</td></tr>"
do while not rs.EOF
  if lastvare = rs("varenummer") then
    if lastvare <> "" then Response.Write ", " & rs("levnavn")
  else
    if lastvare <> "" then Response.Write "</tr>"
    lastvare = rs("varenummer")
    Response.Write "<tr>"
    Response.Write "<td>" & rs("varenummer") & "</td>"
    Response.Write "<td>" & rs("DescShort") & "</td>"
    Response.Write "<td>" & rs("pris") & "</td>"
    Response.Write "<td>" & rs("levnavn") & "</td>"
  end if
  rs.Movenext
loop
Response.Write "</tr>"
Response.Write "</table>"
%>

men jeg får denne fejl:

varenummer Dechsort pris levnavn
ADODB.Recordset error '800a0e78'
Operation is not allowed when the object is closed.

/x/intel.asp, line 46

linie 46 =  if lastvare <> "" then Response.Write ", " & rs("levnavn")

super jeg har fikset det laver bare to sider en til at vise og en der inserter i tabel4. og så kunne jeg så godt tænke mig at den lige lagde 25% oven i det resultat den skrev ind i tabel4 så det der stod der var den bedste pris + 25 % hvordan er det lige du siger jeg kan sætte det ind i denne kode ?

<%
SQL = "INSERT INTO tabel4 (levnavn, pris, varenummer, DescShort) SELECT t1.levnavn, t1.pris, t1.varenummer, t1.DescShort "
SQL = SQL & "FROM (SELECT levnavn, pris, varenummer, DescShort FROM tabel1 "
SQL = SQL & "UNION ALL SELECT levnavn, pris, varenummer, DescShort FROM tabel2 "
SQL = SQL & "UNION ALL SELECT levnavn, pris, varenummer, DescShort FROM tabel3) "
SQL = SQL & "as t1, "
SQL = SQL & "(SELECT min(pris) as mpris, varenummer "
SQL = SQL & "FROM (SELECT pris, varenummer FROM tabel1 "
SQL = SQL & "UNION ALL SELECT pris, varenummer FROM tabel2 "
SQL = SQL & "UNION ALL SELECT pris, varenummer FROM tabel3 "
SQL = SQL & ") GROUP BY varenummer) as t2 "
SQL = SQL & "WHERE t1.pris = t2.mpris AND t1.varenummer = t2.varenummer ORDER BY t1.varenummer;"

Set rs = Conn.Execute(SQL)

%>


så er jeg snart en glad mand og jeg har sat alle mine point på det... :-)

Prøv at tilføje *1.25 ved t1.pris så denne linje:

SQL = "INSERT INTO tabel4 (levnavn, pris, varenummer, DescShort) SELECT t1.levnavn, t1.pris, t1.varenummer, t1.DescShort "

Bliver til:

SQL = "INSERT INTO tabel4 (levnavn, pris, varenummer, DescShort) SELECT t1.levnavn, t1.pris * 1.25, t1.varenummer, t1.DescShort "