53 svar · 1 283 visningar · startad av devotion · sida 2 av 3
Hej! Jag har en tabell med olika priser för olika leverantörer 3. Tanken är att de ska jämföras med varandra. Hur gör man för att det lägsta ska bli grönt, det högsta rött. De mittemellan ska vara svarta??? sedan vill jag att leverantörens namn skrivs ut på det lägsta priset. Resultat: Solar-Storel-elektroskandia-Lägsta pris \------------------------------------------------- 100 \--125 -- 15
Läs frågan i sin helhet →Nja, kan väll beror lite på vad du har för databas men det ska inte vara några problem med 150000 poster. Access kanske bagnar lite men tror nog det håller också, fast det överlåter jag till andra med kunniga innom det området.
(Vet dock att jag haft en Access med över 1 miljon poster som rullade på rätt fint så det beror mycket på hur databasen är utformad och hur man ansluter till den)
Hej! :)
Nu har jag på fleras inrådan ändrat i databasstrukturen...
Det ser nu ut så här:
tblArticle
eNumber -[red]Artikelnummer -unikt för varje artikel[/red]
articleName -[red]Artikelbenämning[/red]
articleUnit -[red]Enhet (m, st, par osv[/red]
articleCategorySolar -[red]Artikelkategori för leverantören Solar[/red]
articleCategorStorel -[red]Artikelkategori för leverantören Storel[/red]
tblPrice
eNumber
articleSupplierId
articlePrice
tblSupplier
supplierId
supplierName
Är detta en struktur som är bra att jobba med??
Det jag funderar över själv är articleCategory i tabellen tbArticle. Den finns där för att kunna koppla rabattavtal till artikeln och ser olika ut beroende på vilken leverantör det handlar om.
Då kanske man kan komma tillbaka till ursprungsfrågan! :r
Hur gör man för att jämföra priserna så den lägsta blir grön, den högsta blir röd och alla priser däremellan blir svarta?? (se det översta inlägget?)
Mvh
articleCategory borde väl ligga i tabellen tblPrice skulle jag tro. Då behöver den inte vara leverantörsberoende.
Hej!
Jo, det är det den är.
Tex är Solars beteckning för; Kraftkabel Cu 0101
Det benämner Storel med 01AB
Altså olika benämning för samma sak!
Är det då rätt???
Mvh
Det jag menade var precis att deras benämning INTE är lika, men för att inte behöva ha två fält för detta i tblArticle (som i så fall blir speciella för dessa leverantörer) så kan du ha ETT fält i tblPrice. Detta innehåller ju då i vart fall rätt leverantörs benämning.
Please vad? Du sa ju att du förstod.
Hej!
Jag fattar det med databasen. Tack!!
Den är ändrad och klar! Och, jag ger mig det är en mycket bättre struktur!
Men den här tråden har blivit lite off-topic. Det den egentligen handlar om är det som det första inlägget beskriver.
Jämföra priser där det lägsta blir grönt det högsta blir rött och de däremellan blir svarta.
Det var det jag behövde hjälp med från början innan denna resa började! :)
Mvh
Hur långt har du kommit? Har du nu alltså fått det att fungera med den nya tabellstrukturen så det enda som saknas är färgningen? Hur ser koden och presentationen ut?
Hej!
Jag är nöjd med inläsningsscripten och databassrukturen. Funkar perfekt!
Denna kod har jag knåpat ihop:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit %>
<%session.lcid=1053%>
<!-#Include virtual="/adovbs.inc"->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Sökresultat</title>
<%
Dim objConn, strSearch, strSQL, objRS
strSearch = Request.Form("searchField")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=Prislista"
objConn.Open
strSQL = "SELECT * FROM (tblArticle INNER JOIN tblPrice ON tblArticle.eNumber = tblPrice.eNumber) INNER JOIN tblSupplier ON tblPrice.articleSupplierId = tblSupplier.SupplierId WHERE tblArticle.eNumber = '" & strSearch & "' ORDER BY tblArticle.eNumber ASC"
Set objRS = objConn.Execute(strSQL)
Response.Write("Du har sökt på E-nummer: <b>" & strSearch & "</b><br>")
Response.Write("<BR>")
If objRS.EOF then
Response.Write("Det finns inga artiklar med E-nummer: " & strSearch & "<br>")
Else
Response.Write("Följande artiklar finns i databasen: <br>")
Response.Write("<BR>")
Response.Write("<table class=""tabell"" width=""800"" border=""0"" cellspacing=""0"" cellpadding=""0"">")
Response.Write("<tr><td><b>E-nummer</b></td><td><b>Benämning</b></td><td><b>Enhet</b></td><td><b>Pris</b></td><td><b>Leverantör</b></td></tr>")
Do While not objRS.EOF
Response.Write("<tr><td>" & objRS("eNumber") & "</td><td>" & objRS("articleName") & "</td><td>" & objRS("articleUnit") & "</td><td>" & (FormatCurrency(CLng(objRS("articlePrice"))*0.01)) & "</td><td>" & objRS("SupplierName") & "</td></tr>")
objRS.Movenext
Loop
Response.Write("</table>")
End if
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
<link href="Stylesheet/test.css" rel="stylesheet" type="text/css">
</head>
</body>
</html>
Den ger följande resultat:
E-nummer Benämning Enhet Pris Leverantör
2535409 APPARATLÅDA MNX TRANSP.LOCK st 139,00 kr Storel
2535409 APPARATLÅDA MNX TRANSP.LOCK st 143,00 kr Solar
Det blir iofs rätt män jag vill allt på en rad...
Med 2 st kolumner för "pris Solar" och "Pris Storel" Det lägsta priset skall vara grönt och det högsta rött. En sista kolumn skall skriva ut i klartext vilken leverantör som är billigast. I detta fallet "Storel"
Mvh
Please...
Om jag var du skulle jag göra så här:
* I select-frågan, sortera på pris istället för eNumber (som är onödigt, eftersom alla poster du får fram har samma eNumber.)
* I loopen som visar priserna, visa den första posten (den med lägst pris alltså) med grön färg, efterföljande med svart färg, och recordsetets sista post med röd färg.
Eller, det kanske inte duger? Du kanske alltid vill ha samma leverantörsordning, och färgningen hamnar på olika ställen? Det blir lite svårare.
Mvh
Hej!
Ordningen har jag redan ändrat. Kom på det själv! :)
Skulle helst vilja ha samma kolumner för de olika leverantörerna och att färgerna ändras.
Var inne lite på din idé, men går det inte att göra på annat sätt.
Så här tex:
Solar -- StorEl -- Elektroskandia -- Lägst pris
1000 -- 1250 -- 1500 -------------- Solar
Mvh
Detta kanske inte är världens bästa och mest fantastiska dunderlösning, men något sånt här är vad min supertrötta hjärna skulle försöka sig på:
Set objRS = objConn.Execute(strSQL)
mot:
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open sSQL, objConn, 3, 1 ' Recordsetet öppnar vi så här för att kunna få ut ett värde från egenskapen [i] recordcount[/i].
intCounter = 0 ' skapa en liten posträknare som vi sedan räknar upp
Sedan, skapa ett dictionaryobjekt:
Set objDict = Server.CreateObject("Scripting.Dictionary")
Lägg dessa rader i koden inne i else-delen i din EOF-if-sats, och ta bort det andra som ligger där:
strENumber = "" & objRS("ENumber")
strArticleName = "" & objRS("articleName")
strUnit = "" & objRS("articleUnit")
.
I din loop där du lägger ut prisinformationen, byt ut koden du har där mot detta:
intCounter=intCounter + 1
strSupplier = "" & objRS("SupplierName")
curPrice = FormatCurrency(CLng(objRS("articlePrice"))*0.01)
if not objDict.Exists(strSupplier) then
' Bara en säkerhetskoll att vi inte lägger in något om det redan är inlagt för denna leverantör
select case intCounter
case 1
' weee, det här är det jättebästa priset!
strFC = "green"
strLowest = strSupplier
case objRS.RecordCount
' blä, det här är det vedervärdiga sunkpriset!
strFC = "red"
case else
strFC = "black"
end select
objDict.Add strSupplier, "<font color=""" & strFC & """>" & curPrice & "</fon
end if
objRS.MoveNext
Sedan, efter hela klabbet, är det dags att presentera det vi lärt oss.
If strArticleName <> "" then
' Den här koden körs bara när SQL-frågan gett resultat, annars är [i]strArticleName[/i] tom.
Response.write "<table><tr><td>Solar</td><td>StorEl</td><td>Elektroskandia</td><td>Lägst</td></tr><tr>"
if objDict.Exists("Solar") then
Response.write "<td>" & objDict.Item("Solar") & "</td>
else
Response.write "<td> </td>"
end if
if objDict.Exists("StorEl") then
Response.write "<td>" & objDict.Item("StorEl") & "</td>
else
Response.write "<td> </td>"
end if
if objDict.Exists("ElektroSkandia") then
Response.write "<td>" & objDict.Item("ElektroSkandia") & "</td>
else
Response.write "<td> </td>"
end if
Response.write "<td>" & strLowest & "</td></tr></table>"
End if
Om det här fungerar, eller hur snyggt det blir har jag förstås ingen aning om. Du får det roliga klipp-, klistra- och testa-jobbet, och så får vi gå vidare efter det. Säg till om du inte fattar så går det säkert att få till någon förklaring. :)
Mvh
Hej :)
Tack så hemskt mycket!!
Känns som den här resan börjar närma sig slutet...
Koden fungerar nästan :(
Solars priser fungerar korrekt och följer färg
i kolumnen för lägst pris skrivs leverantörens namn i klartext
Men
Storel och elektroskandias priser skrivs ej ut :(
Här kommer koden igen...
<%
Dim objConn, strSearch, strSQL, objRS, intCounter, objDict, strEnumber, strArticleName, strUnit, strSupplier, curPrice, strFC, strLowest
strSearch = Request.Form("searchField")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=Prislista"
objConn.Open
strSQL = "SELECT * FROM (tblArticle INNER JOIN tblPrice ON tblArticle.eNumber = tblPrice.eNumber) INNER JOIN tblSupplier ON tblPrice.articleSupplierId = tblSupplier.SupplierId WHERE tblArticle.eNumber = '" & strSearch & "' ORDER BY tblPrice.articlePrice ASC"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn, 3, 1 ' Recordsetet öppnar vi så här för att kunna få ut ett värde från egenskapen recordcount.
intCounter = 0 ' skapa en liten posträknare som vi sedan räknar upp
Set objDict = Server.CreateObject("Scripting.Dictionary") 'ett dictionaryobjekt
Response.Write("Du har sökt på E-nummer: <b>" & strSearch & "</b><br>")
Response.Write("<BR>")
If objRS.EOF then
Response.Write("Det finns inga artiklar med E-nummer: " & strSearch & "<br>")
Else
strENumber = "" & objRS("ENumber")
strArticleName = "" & objRS("articleName")
strUnit = "" & objRS("articleUnit")
Do While not objRS.EOF
intCounter=intCounter + 1
strSupplier = "" & objRS("SupplierName")
curPrice = FormatCurrency(CLng(objRS("articlePrice"))*0.01)
if not objDict.Exists(strSupplier) then
' Bara en säkerhetskoll att vi inte lägger in något om det redan är inlagt för denna leverantör
select case intCounter
case 1
' weee, det här är det jättebästa priset!
strFC = "green"
strLowest = strSupplier
case objRS.RecordCount
' blä, det här är det vedervärdiga sunkpriset!
strFC = "red"
case else
strFC = "black"
end select
objDict.Add strSupplier, "<font color=""" & strFC & """>" & curPrice & "</font>"
end if
objRS.MoveNext
Loop
If strArticleName <> "" then
' Den här koden körs bara när SQL-frågan gett resultat, annars är strArticleName tom.
Response.write "<table><tr><td>Benämning</td><td>Solar</td><td>StorEl</td><td>Elektroskandia</td><td>Lägst</td></tr><tr>"
Response.write "<td>" & strArticleName & "</td>"
if objDict.Exists("Solar") then
Response.write "<td>" & objDict.Item("Solar") & "</td>"
else
Response.write "<td> </td>"
end if
if objDict.Exists("StorEl") then
Response.write "<td>" & objDict.Item("StorEl") & "</td>"
else
Response.write "<td> </td>"
end if
if objDict.Exists("ElektroSkandia") then
Response.write "<td>" & objDict.Item("ElektroSkandia") & "</td>"
else
Response.write "<td> </td>"
end if
Response.write "<td>" & strLowest & "</td></tr></table>"
End if
End if
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Set objDict = Nothing
%>
Mvh
:)
Har felsökt och testat koden lite mer...
och felet var....
Elektroskandia står det i tabellen ElektroSkandia i scriptet
Storel står det i tabellen StorEl i scriptet
Skitenkelt :) Känsligt för små och stora bokstäver
Nu funkar det i alla fall!!
Tack @nders :f :birp
Här kommer lösningen på denna långdragna historia för er som behöver något liknande.
Först databasstrukturen:
tblArticle
eNumber (articleNumber)
articleName
articleUnit
tblPrice
eNumber (articleNumber)
articleSupplierId
articlePrice
articleCategory
tblSupplier
supplierId
supplierName
tblDiscount(Extra tillbehör :))
articleCategory
discount
Sen kommer SQL-satsen:
strSQL = "SELECT DISTINCT * FROM (tblArticle INNER JOIN tblPrice ON tblArticle.eNumber = tblPrice.eNumber) INNER JOIN tblSupplier ON tblPrice.articleSupplierId = tblSupplier.SupplierId WHERE tblArticle.eNumber = '" & strSearch & "' ORDER BY tblPrice.articlePrice ASC"
Och slutligen koden:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit %>
<%session.lcid=1053%>
<!-#Include virtual="/adovbs.inc"->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Sökresultat</title>
<%
Dim objConn, strSearch, strSQL, objRS, intCounter, objDict, strEnumber, strArticleName, strUnit, strSupplier, curPrice, strFC, strLowest
strSearch = Request.Form("searchField")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=Prislista"
objConn.Open
strSQL = "SELECT DISTINCT * FROM (tblArticle INNER JOIN tblPrice ON tblArticle.eNumber = tblPrice.eNumber) INNER JOIN tblSupplier ON tblPrice.articleSupplierId = tblSupplier.SupplierId WHERE tblArticle.eNumber = '" & strSearch & "' ORDER BY tblPrice.articlePrice ASC"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn, 3, 1 ' Recordsetet öppnar vi så här för att kunna få ut ett värde från egenskapen recordcount.
intCounter = 0 ' skapa en liten posträknare som vi sedan räknar upp
Set objDict = Server.CreateObject("Scripting.Dictionary") 'ett dictionaryobjekt
Response.Write("Du har sökt på E-nummer: <b>" & strSearch & "</b><br>")
Response.Write("<BR>")
If objRS.EOF then
Response.Write("Det finns inga artiklar med E-nummer: " & strSearch & "<br>")
Else
strENumber = "" & objRS("ENumber")
strArticleName = "" & objRS("articleName")
strUnit = "" & objRS("articleUnit")
Do While not objRS.EOF
intCounter=intCounter + 1
strSupplier = "" & objRS("SupplierName")
curPrice = FormatCurrency(CLng(objRS("articlePrice"))*0.01)
if not objDict.Exists(strSupplier) then
' Bara en säkerhetskoll att vi inte lägger in något om det redan är inlagt för denna leverantör
select case intCounter
case 1
' weee, det här är det jättebästa priset!
strFC = "green"
strLowest = strSupplier
case objRS.RecordCount
' blä, det här är det vedervärdiga sunkpriset!
strFC = "red"
case else
strFC = "black"
end select
objDict.Add strSupplier, "<font color=""" & strFC & """>" & curPrice & "</font>"
end if
objRS.MoveNext
Loop
If strArticleName <> "" then
' Den här koden körs bara när SQL-frågan gett resultat, annars är strArticleName tom.
Response.write "<table><tr><td>Benämning</td><td>Solar</td><td>StorEl</td><td>Elektroskandia</td><td>Lägst</td></tr><tr>"
Response.write "<td>" & strArticleName & "</td>"
if objDict.Exists("Solar") then
Response.write "<td>" & objDict.Item("Solar") & "</td>"
else
Response.write "<td> </td>"
end if
if objDict.Exists("Storel") then
Response.write "<td>" & objDict.Item("Storel") & "</td>"
else
Response.write "<td> </td>"
end if
if objDict.Exists("Elektroskandia") then
Response.write "<td>" & objDict.Item("Elektroskandia") & "</td>"
else
Response.write "<td> </td>"
end if
Response.write "<td>" & strLowest & "</td></tr></table>"
End if
End if
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Set objDict = Nothing
%>
<link href="Stylesheet/test.css" rel="stylesheet" type="text/css">
</head>
</body>
</html>
Och med detta så förklarar jag problemet nästan löst! :)
Tack igen!
Redigerat inlägget se nedan
:(
Ett gamalt fint uttryck
"Man ska inte ropa hej förrän man är över bäcken"
Har hittat ett problem...
Jag har ju även tänkt att göra en sökmotor där man ska kunna söka på "fritext"
Har provat att ändra lite i koden men det radas bara upp 1 träff.
Om jag vet exakt E-nummer är det inga problem. Men jag vill både kunna söka på delar av E-nummer samt Benämning.
Hur gör jag för att alla träffar som matchar radas upp??
Och två lyxproblem: :)
Om alla leverantörerna har samma pris så ska alla priser vara svarta och den sista kolumnen ska bara ha ett --- (streck)
Kan man få in ett saknas i tabellen där någon leverantör saknar någon produkt??
Mvh
Inte testat men detta kan lösa din första fråga (flera träffar). SQL-satsen får du ändra själv som du vill ha den.
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit %>
<%session.lcid=1053%>
<!-#Include virtual="/adovbs.inc"->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Sökresultat</title>
<link href="Stylesheet/test.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
Dim objConn, strSearch, strSQL, objRS, intCounter, objDict, strEnumber, strArticleName, strUnit, strSupplier, curPrice, strFC, strLowest
strSearch = Request.Form("searchField")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=Prislista"
objConn.Open
strSQL = "SELECT DISTINCT * FROM (tblArticle INNER JOIN tblPrice ON tblArticle.eNumber = tblPrice.eNumber) INNER JOIN tblSupplier ON tblPrice.articleSupplierId = tblSupplier.SupplierId WHERE tblArticle.eNumber = '" & strSearch & "' ORDER BY tblPrice.articlePrice ASC"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn, 3, 1 ' Recordsetet öppnar vi så här för att kunna få ut ett värde från egenskapen recordcount.
intCounter = 0 ' skapa en liten posträknare som vi sedan räknar upp
Set objDict = Server.CreateObject("Scripting.Dictionary") 'ett dictionaryobjekt
Response.Write("Du har sökt på E-nummer: <b>" & strSearch & "</b><br>")
Response.Write("<BR>")
If objRS.EOF then
Response.Write("Det finns inga artiklar med E-nummer: " & strSearch & "<br>")
Else
Do While not objRS.EOF
strENumber = "" & objRS("ENumber")
strArticleName = "" & objRS("articleName")
strUnit = "" & objRS("articleUnit")
intCounter=intCounter + 1
strSupplier = "" & objRS("SupplierName")
curPrice = FormatCurrency(CLng(objRS("articlePrice"))*0.01)
if not objDict.Exists(strSupplier) then
' Bara en säkerhetskoll att vi inte lägger in något om det redan är inlagt för denna leverantör
select case intCounter
case 1
' weee, det här är det jättebästa priset!
strFC = "green"
strLowest = strSupplier
case objRS.RecordCount
' blä, det här är det vedervärdiga sunkpriset!
strFC = "red"
case else
strFC = "black"
end select
objDict.Add strSupplier, "<font color=""" & strFC & """>" & curPrice & "</font>"
end if
If strArticleName <> "" then
' Den här koden körs bara när SQL-frågan gett resultat, annars är strArticleName tom.
Response.write "<table><tr><td>Benämning</td><td>Solar</td><td>StorEl</td><td>Elektroskandia</td><td>Lägst</td></tr><tr>"
Response.write "<td>" & strArticleName & "</td>"
if objDict.Exists("Solar") then
Response.write "<td>" & objDict.Item("Solar") & "</td>"
else
Response.write "<td> </td>"
end if
if objDict.Exists("Storel") then
Response.write "<td>" & objDict.Item("Storel") & "</td>"
else
Response.write "<td> </td>"
end if
if objDict.Exists("Elektroskandia") then
Response.write "<td>" & objDict.Item("Elektroskandia") & "</td>"
else
Response.write "<td> </td>"
end if
Response.write "<td>" & strLowest & "</td></tr></table>"
End if
objDict.RemoveAll
intCounter= 0
objRS.MoveNext
Loop
End if
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Set objDict = Nothing
%>
</body>
</html>