CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

thomashansen Nybegynder

20. maj 2006 - 21:13 Der er 35 kommentarer og
1 løsning

Summering ved brug af UNION

Jeg ønsker, at summere SamletPris i nedenstående udtryk, men hvordan gør jeg det ?

SELECT [08Pilot].Pilot, [24KalibreringsKomponent].KalibreringskomponentPris AS SamletPris FROM 24KalibreringsKomponent INNER JOIN (08Pilot INNER JOIN (00Apparat INNER JOIN 26Log ON [00Apparat].ID_Apparat = [26Log].ID_Apparat) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot) ON [24KalibreringsKomponent].ID_Kalibreringskomponent = [26Log].ID_Kalibreringskomponent UNION ALL SELECT [08Pilot].Pilot, [12Forsyningsmedie].ForsyningsmediePris FROM 12Forsyningsmedie INNER JOIN (08Pilot INNER JOIN (00Apparat INNER JOIN 26Log ON [00Apparat].ID_Apparat = [26Log].ID_Apparat) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot) ON [12Forsyningsmedie].ID_Forsyningsmedie = [26Log].ID_Forsyningsmedie UNION ALL SELECT [08Pilot].Pilot, [15Reservedel].ReservedelPris FROM 08Pilot INNER JOIN ((04Model INNER JOIN 00Apparat ON [04Model].ID_Model = [00Apparat].ID_Model) INNER JOIN 15Reservedel ON [04Model].ID_Model = [15Reservedel].ID_Model) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot WHERE ((([08Pilot].Pilot) LIKE " & soegestreng & ")) ORDER BY Pilot, SamletPris

Synes godt om

arne_v Ekspert

20. maj 2006 - 22:04 #1

som i:

SELECT f2,f1 FROM t1
UNIOIN
SELECT 'Total',SUM(f1) FROM t1
GO

?

(jeg orker ikke rigtigt at putte den kæmpe query ind, men det er bare at
duplikere det hele)

Synes godt om

thomashansen Nybegynder

20. maj 2006 - 22:26 #2

Er det ikke et problem, at det er et alias jeg vil tælle sammen ?

Synes godt om

arne_v Ekspert

20. maj 2006 - 22:33 #3

kan jeg ikke se hvorfor

SELECT [08Pilot].Pilot, [24KalibreringsKomponent].KalibreringskomponentPris AS SamletPris FROM ...
UNION
SELECT 'Total', SUM([24KalibreringsKomponent].KalibreringskomponentPris) FROM ...

Synes godt om

thomashansen Nybegynder

20. maj 2006 - 22:39 #4

Jeg prøver lige

Synes godt om

thomashansen Nybegynder

20. maj 2006 - 22:48 #5

Det skulle så se sådan ud ? (men jeg får fejl)

SELECT 'total', SUM([24KalibreringsKomponent].KalibreringskomponentPris) FROM (24KalibreringsKomponent INNER JOIN (08Pilot INNER JOIN (00Apparat INNER JOIN 26Log ON [00Apparat].ID_Apparat = [26Log].ID_Apparat) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot) ON [24KalibreringsKomponent].ID_Kalibreringskomponent = [26Log].ID_Kalibreringskomponent UNION ALL SELECT [08Pilot].Pilot, [12Forsyningsmedie].ForsyningsmediePris FROM 12Forsyningsmedie INNER JOIN (08Pilot INNER JOIN (00Apparat INNER JOIN 26Log ON [00Apparat].ID_Apparat = [26Log].ID_Apparat) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot) ON [12Forsyningsmedie].ID_Forsyningsmedie = [26Log].ID_Forsyningsmedie UNION ALL SELECT [08Pilot].Pilot, [15Reservedel].ReservedelPris FROM 08Pilot INNER JOIN ((04Model INNER JOIN 00Apparat ON [04Model].ID_Model = [00Apparat].ID_Model) INNER JOIN 15Reservedel ON [04Model].ID_Model = [15Reservedel].ID_Model) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot WHERE ((([08Pilot].Pilot) LIKE " & soegestreng & ")))

Synes godt om

arne_v Ekspert

20. maj 2006 - 23:30 #6

hvilken fejl ?

Synes godt om

thomashansen Nybegynder

20. maj 2006 - 23:39 #7

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in JOIN operation.

/SpecialeLogbog/6.asp, line 24

Synes godt om

arne_v Ekspert

21. maj 2006 - 00:07 #8

Jeg hader ODBC fejl meddelelser.

Er det præcis samme SQL som før fra og med FROM ?

Synes godt om

thomashansen Nybegynder

21. maj 2006 - 00:12 #9

Ja

Men jeg er i tvivl om hvilke tegn der skal sættes rundt om total. SELECT-sætningen er pakket ind i

Set sum = Server.CreateObject ("ADODB.Recordset")
sum.Open SELECT-sætning
total = sum.fields("total")

Synes godt om

kjulius Novice

21. maj 2006 - 00:36 #10

Undskyld jeg blander mig, men skulle det mon ikke være noget lignende

SELECT pilot, SUM(samletpris) as samletpris
FROM (
din union som vist i spørgsmålet (uden order by)
) as temp
GROUP BY pilot
ORDER BY pilot, samletpris

Synes godt om

thomashansen Nybegynder

21. maj 2006 - 00:50 #11

Det ser så sådan ud:

Set sum = Server.CreateObject ("ADODB.Recordset")
sum.Open "SELECT Pilot, SUM(SamletPris) AS SamletPris FROM (24KalibreringsKomponent INNER JOIN (08Pilot INNER JOIN (00Apparat INNER JOIN 26Log ON [00Apparat].ID_Apparat = [26Log].ID_Apparat) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot) ON [24KalibreringsKomponent].ID_Kalibreringskomponent = [26Log].ID_Kalibreringskomponent UNION ALL SELECT [08Pilot].Pilot, [12Forsyningsmedie].ForsyningsmediePris FROM 12Forsyningsmedie INNER JOIN (08Pilot INNER JOIN (00Apparat INNER JOIN 26Log ON [00Apparat].ID_Apparat = [26Log].ID_Apparat) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot) ON [12Forsyningsmedie].ID_Forsyningsmedie = [26Log].ID_Forsyningsmedie UNION ALL SELECT [08Pilot].Pilot, [15Reservedel].ReservedelPris FROM 08Pilot INNER JOIN ((04Model INNER JOIN 00Apparat ON [04Model].ID_Model = [00Apparat].ID_Model) INNER JOIN 15Reservedel ON [04Model].ID_Model = [15Reservedel].ID_Model) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot WHERE ((([08Pilot].Pilot) LIKE " & soegestreng & "))) AS TEMP GROUP BY pilot ", Conn
SamletPris = sum.fields("SamletPris")

Synes godt om

thomashansen Nybegynder

21. maj 2006 - 00:51 #12

og giver samme fejl som med Arne V´s forslag:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in JOIN operation.

/SpecialeLogbog/666.asp, line 24

Synes godt om

kjulius Novice

21. maj 2006 - 02:03 #13

Nej, du skal tage hele det oprindelige udtryk, altså inklusive SELECT udtrykket. Det har du ikke gjort...

Synes godt om

thomashansen Nybegynder

21. maj 2006 - 09:12 #14

Her er hele koden for jeg får en fejlmeddelelse vedr. Circular reference caused by alias 'samletpris' in query definition's SELECT list

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Anvendelse</title>
</head>

<%@LANGUAGE="VBSCRIPT"%>



<%
soeg = Request.QueryString("soeg")
If soeg = "" Then
soegestreng = "'%'"
Else
soegestreng = "'%" & soeg & "%'"
End If

Set list = Server.CreateObject ("ADODB.Recordset")
list.Open "SELECT [08Pilot].Pilot, [24KalibreringsKomponent].KalibreringskomponentPris AS SamletPris FROM 24KalibreringsKomponent INNER JOIN (08Pilot INNER JOIN (00Apparat INNER JOIN 26Log ON [00Apparat].ID_Apparat = [26Log].ID_Apparat) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot) ON [24KalibreringsKomponent].ID_Kalibreringskomponent = [26Log].ID_Kalibreringskomponent UNION ALL SELECT [08Pilot].Pilot, [12Forsyningsmedie].ForsyningsmediePris FROM 12Forsyningsmedie INNER JOIN (08Pilot INNER JOIN (00Apparat INNER JOIN 26Log ON [00Apparat].ID_Apparat = [26Log].ID_Apparat) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot) ON [12Forsyningsmedie].ID_Forsyningsmedie = [26Log].ID_Forsyningsmedie UNION ALL SELECT [08Pilot].Pilot, [15Reservedel].ReservedelPris FROM 08Pilot INNER JOIN ((04Model INNER JOIN 00Apparat ON [04Model].ID_Model = [00Apparat].ID_Model) INNER JOIN 15Reservedel ON [04Model].ID_Model = [15Reservedel].ID_Model) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot WHERE ((([08Pilot].Pilot) LIKE " & soegestreng & ")) ORDER BY pilot, samletpris", Conn

Set list = Server.CreateObject ("ADODB.Recordset")
list.Open "SELECT pilot, SUM(samletpris) as samletpris FROM (SELECT [08Pilot].Pilot, [24KalibreringsKomponent].KalibreringskomponentPris AS SamletPris FROM 24KalibreringsKomponent INNER JOIN (08Pilot INNER JOIN (00Apparat INNER JOIN 26Log ON [00Apparat].ID_Apparat = [26Log].ID_Apparat) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot) ON [24KalibreringsKomponent].ID_Kalibreringskomponent = [26Log].ID_Kalibreringskomponent UNION ALL SELECT [08Pilot].Pilot, [12Forsyningsmedie].ForsyningsmediePris FROM 12Forsyningsmedie INNER JOIN (08Pilot INNER JOIN (00Apparat INNER JOIN 26Log ON [00Apparat].ID_Apparat = [26Log].ID_Apparat) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot) ON [12Forsyningsmedie].ID_Forsyningsmedie = [26Log].ID_Forsyningsmedie UNION ALL SELECT [08Pilot].Pilot, [15Reservedel].ReservedelPris FROM 08Pilot INNER JOIN ((04Model INNER JOIN 00Apparat ON [04Model].ID_Model = [00Apparat].ID_Model) INNER JOIN 15Reservedel ON [04Model].ID_Model = [15Reservedel].ID_Model) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot WHERE ((([08Pilot].Pilot) LIKE " & soegestreng & " ))) as temp GROUP BY pilot ORDER BY pilot, samletpris ", Conn
temp = sum.fields("temp")

%>

<html>
<head>
<title>Anvendelse</title>
</head>

<body bgcolor="#FFFFCC">

<tr><td bgcolor="#999999">
<div align="center"> </div>
<div align="center"> </div>
<div align="center"><b><font face="Times New Roman" size="5">Søgning</font></b></div>
</td></tr>

<tr><td bgcolor="#CCCCCC">

<form method="GET" action="66.asp" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1">
<p align="left">
<font face="Times New Roman">- hvad har det kostet sammenlagt pr. pilot, at lave
analyser ?</font></p>
<p>
<b><font face="Times New Roman"><br>
Pilot:</font></b><br>
<font face="Arial" size="2">
<input type="text" name="soeg" value="<% = soeg%>" size="20">
<input type="submit" name="Submit" value="Søg"></font></td>

</p>
</form>

<table style="border-left-color: #000000; border-top-color: #000000" cellspacing="0" bordercolorlight="#000000" bordercolordark="#000000" border="1" cellpadding="0">

<tr>
<th width="1300" valign="top" colspan="10" bgcolor="#CCFFCC">
<p align="left">
<b>Søgeordet <font color="#CC0000"><% = soeg%></font> giver <font color="#CC0000"><% = antal%></font>
</b></th>
</tr>

<tr>
<td valign="top" bgcolor="#C0C0C0" align="center"><font size="2"><b>Pilot</font></b></td>
<td valign="top" bgcolor="#C0C0C0" align="center"><font size="2"><b>SamletPris</font></b></td>

</tr>

<%
While NOT list.EOF
%>

<td valign="top"><font size="2"><% = list.Fields("Pilot")%> </font></td>
<td valign="top"><font size="2"><% = list.Fields("SamletPris")%> </font></td>

</tr>

<%
list.MoveNext
Wend
%>

<tr>
<th width="1300" valign="top" colspan="10" bgcolor="#CCFFCC">
<p align="right">
  </th>
</tr>

</table>

</form>

</font>

<p align="center"> </p>

</b>

</body>

</html>

<%
list.close
set list = nothing
%>

Synes godt om

thomashansen Nybegynder

21. maj 2006 - 09:13 #15

Her er hele fejlmeddelelsen:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Circular reference caused by alias 'samletpris' in query definition's SELECT list.

/SpecialeLogbog/66.asp, line 24

Synes godt om

kjulius Novice

21. maj 2006 - 14:15 #16

Prøv at ændre feltnavnet i uniondelen til bare pris:

Set list = Server.CreateObject ("ADODB.Recordset")
list.Open "SELECT pilot, SUM(pris) as samletpris FROM (SELECT [08Pilot].Pilot, [24KalibreringsKomponent].KalibreringskomponentPris AS Pris FROM 24KalibreringsKomponent INNER JOIN (08Pilot INNER JOIN (00Apparat INNER JOIN 26Log ON [00Apparat].ID_Apparat = [26Log].ID_Apparat) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot) ON [24KalibreringsKomponent].ID_Kalibreringskomponent = [26Log].ID_Kalibreringskomponent UNION ALL SELECT [08Pilot].Pilot, [12Forsyningsmedie].ForsyningsmediePris FROM 12Forsyningsmedie INNER JOIN (08Pilot INNER JOIN (00Apparat INNER JOIN 26Log ON [00Apparat].ID_Apparat = [26Log].ID_Apparat) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot) ON [12Forsyningsmedie].ID_Forsyningsmedie = [26Log].ID_Forsyningsmedie UNION ALL SELECT [08Pilot].Pilot, [15Reservedel].ReservedelPris FROM 08Pilot INNER JOIN ((04Model INNER JOIN 00Apparat ON [04Model].ID_Model = [00Apparat].ID_Model) INNER JOIN 15Reservedel ON [04Model].ID_Model = [15Reservedel].ID_Model) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot WHERE ((([08Pilot].Pilot) LIKE " & soegestreng & " ))) as temp GROUP BY pilot ORDER BY pilot, samletpris ", Conn
temp = sum.fields("temp")

Når jeg nu ser din kode, så har jeg sikkert også misforstået noget. Du ønsker ikke en total pr. pilot, men bare en samlet pris til sidst, right?

Okay, så kan vi godt droppe GROUP BY:

Set list = Server.CreateObject ("ADODB.Recordset")
list.Open "SELECT 'Ialt:', SUM(pris) as samletpris FROM (SELECT [08Pilot].Pilot, [24KalibreringsKomponent].KalibreringskomponentPris AS Pris FROM 24KalibreringsKomponent INNER JOIN (08Pilot INNER JOIN (00Apparat INNER JOIN 26Log ON [00Apparat].ID_Apparat = [26Log].ID_Apparat) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot) ON [24KalibreringsKomponent].ID_Kalibreringskomponent = [26Log].ID_Kalibreringskomponent UNION ALL SELECT [08Pilot].Pilot, [12Forsyningsmedie].ForsyningsmediePris FROM 12Forsyningsmedie INNER JOIN (08Pilot INNER JOIN (00Apparat INNER JOIN 26Log ON [00Apparat].ID_Apparat = [26Log].ID_Apparat) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot) ON [12Forsyningsmedie].ID_Forsyningsmedie = [26Log].ID_Forsyningsmedie UNION ALL SELECT [08Pilot].Pilot, [15Reservedel].ReservedelPris FROM 08Pilot INNER JOIN ((04Model INNER JOIN 00Apparat ON [04Model].ID_Model = [00Apparat].ID_Model) INNER JOIN 15Reservedel ON [04Model].ID_Model = [15Reservedel].ID_Model) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot WHERE ((([08Pilot].Pilot) LIKE " & soegestreng & " ))) as temp", Conn

I øvrigt undrer jeg mig lidt over din kode, for når du genbruger list objektet, kan du jo kun vise den sidste forespørgsel, som er opsummeringen. Jeg går ud fra, at det kun er til testbrug den ser ud som den gør...

Synes godt om

thomashansen Nybegynder

21. maj 2006 - 14:22 #17

Når jeg nu ser din kode, så har jeg sikkert også misforstået noget. Du ønsker ikke en total pr. pilot, men bare en samlet pris til sidst, right?

Thomas: Ja, der ønskes én samlet pris for det er muligt, at udvælge én pilot via søge-felt

I øvrigt undrer jeg mig lidt over din kode, for når du genbruger list objektet, kan du jo kun vise den sidste forespørgsel, som er opsummeringen. Jeg går ud fra, at det kun er til testbrug den ser ud som den gør...

Thomas: Jeg er grøn i det her så der er nok meget uhensigtsmæssigt. Jeg forstår ikke helt hvad de mener, men det jeg vil er, at vise list + opsummering samtidig

Jeg prøver lige dit forslag

Synes godt om

thomashansen Nybegynder

21. maj 2006 - 14:33 #18

OK, jeg tror jeg fattede det med, at du undrer deig over, at jeg genbrugte list. Det var ikke meningen

Synes godt om

thomashansen Nybegynder

21. maj 2006 - 14:37 #19

Nu får jeg denne fejl, efter at have kopieret dir forslag:

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/SpecialeLogbog/66.asp, line 26

Synes godt om

kjulius Novice

21. maj 2006 - 15:15 #20

Nå, ja. Jeg havde ikke navngivet et første felt med teksten, men du forventer sikkert at det hedder pilot, ligesom i detail-forespørgslen. Så enten skal du ændre i din ASP kode, så du ikke refererer til pilot feltet under udskrivning til celle 1, men bare fylder   i den, eller vi må ændre forespørgslen til noget lignende dette:

Set list = Server.CreateObject ("ADODB.Recordset")
list.Open "SELECT 'Ialt:' AS pilot, SUM(pris) as samletpris FROM (SELECT [08Pilot].Pilot, [24KalibreringsKomponent].KalibreringskomponentPris AS Pris FROM 24KalibreringsKomponent INNER JOIN (08Pilot INNER JOIN (00Apparat INNER JOIN 26Log ON [00Apparat].ID_Apparat = [26Log].ID_Apparat) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot) ON [24KalibreringsKomponent].ID_Kalibreringskomponent = [26Log].ID_Kalibreringskomponent UNION ALL SELECT [08Pilot].Pilot, [12Forsyningsmedie].ForsyningsmediePris FROM 12Forsyningsmedie INNER JOIN (08Pilot INNER JOIN (00Apparat INNER JOIN 26Log ON [00Apparat].ID_Apparat = [26Log].ID_Apparat) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot) ON [12Forsyningsmedie].ID_Forsyningsmedie = [26Log].ID_Forsyningsmedie UNION ALL SELECT [08Pilot].Pilot, [15Reservedel].ReservedelPris FROM 08Pilot INNER JOIN ((04Model INNER JOIN 00Apparat ON [04Model].ID_Model = [00Apparat].ID_Model) INNER JOIN 15Reservedel ON [04Model].ID_Model = [15Reservedel].ID_Model) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot WHERE ((([08Pilot].Pilot) LIKE " & soegestreng & " ))) as temp", Conn

Synes godt om

thomashansen Nybegynder

21. maj 2006 - 15:37 #21

Ja undskyld, men jeg kan ikke få det til at virke. Nu ser min kode ud som følger:

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Anvendelse</title>
</head>

<%@LANGUAGE="VBSCRIPT"%>



<%
soeg = Request.QueryString("soeg")
If soeg = "" Then
soegestreng = "'%'"
Else
soegestreng = "'%" & soeg & "%'"
End If

Set list = Server.CreateObject ("ADODB.Recordset")
list.Open "SELECT [08Pilot].Pilot, [24KalibreringsKomponent].KalibreringskomponentPris AS Pris FROM 24KalibreringsKomponent INNER JOIN (08Pilot INNER JOIN (00Apparat INNER JOIN 26Log ON [00Apparat].ID_Apparat = [26Log].ID_Apparat) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot) ON [24KalibreringsKomponent].ID_Kalibreringskomponent = [26Log].ID_Kalibreringskomponent UNION ALL SELECT [08Pilot].Pilot, [12Forsyningsmedie].ForsyningsmediePris FROM 12Forsyningsmedie INNER JOIN (08Pilot INNER JOIN (00Apparat INNER JOIN 26Log ON [00Apparat].ID_Apparat = [26Log].ID_Apparat) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot) ON [12Forsyningsmedie].ID_Forsyningsmedie = [26Log].ID_Forsyningsmedie UNION ALL SELECT [08Pilot].Pilot, [15Reservedel].ReservedelPris FROM 08Pilot INNER JOIN ((04Model INNER JOIN 00Apparat ON [04Model].ID_Model = [00Apparat].ID_Model) INNER JOIN 15Reservedel ON [04Model].ID_Model = [15Reservedel].ID_Model) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot WHERE ((([08Pilot].Pilot) LIKE " & soegestreng & " )) ", Conn

Set sum = Server.CreateObject ("ADODB.Recordset")
sum.Open "SELECT 'Ialt:' AS pilot, SUM(pris) as samletpris FROM (SELECT [08Pilot].Pilot, [24KalibreringsKomponent].KalibreringskomponentPris AS Pris FROM 24KalibreringsKomponent INNER JOIN (08Pilot INNER JOIN (00Apparat INNER JOIN 26Log ON [00Apparat].ID_Apparat = [26Log].ID_Apparat) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot) ON [24KalibreringsKomponent].ID_Kalibreringskomponent = [26Log].ID_Kalibreringskomponent UNION ALL SELECT [08Pilot].Pilot, [12Forsyningsmedie].ForsyningsmediePris FROM 12Forsyningsmedie INNER JOIN (08Pilot INNER JOIN (00Apparat INNER JOIN 26Log ON [00Apparat].ID_Apparat = [26Log].ID_Apparat) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot) ON [12Forsyningsmedie].ID_Forsyningsmedie = [26Log].ID_Forsyningsmedie UNION ALL SELECT [08Pilot].Pilot, [15Reservedel].ReservedelPris FROM 08Pilot INNER JOIN ((04Model INNER JOIN 00Apparat ON [04Model].ID_Model = [00Apparat].ID_Model) INNER JOIN 15Reservedel ON [04Model].ID_Model = [15Reservedel].ID_Model) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot WHERE ((([08Pilot].Pilot) LIKE " & soegestreng & " ))) as temp", Conn
temp = sum.fields("temp")

%>

<html>
<head>
<title>Anvendelse</title>
</head>

<body bgcolor="#FFFFCC">

<tr><td bgcolor="#999999">
<div align="center"> </div>
<div align="center"> </div>
<div align="center"><b><font face="Times New Roman" size="5">Søgning</font></b></div>
</td></tr>

<tr><td bgcolor="#CCCCCC">

<form method="GET" action="66666.asp" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1">
<p align="left">
<font face="Times New Roman">- hvad har det kostet sammenlagt pr. pilot, at lave
analyser ?</font></p>
<p>
<b><font face="Times New Roman"><br>
Pilot:</font></b><br>
<font face="Arial" size="2">
<input type="text" name="soeg" value="<% = soeg%>" size="20">
<input type="submit" name="Submit" value="Søg"></font></td>

</p>
</form>

<table style="border-left-color: #000000; border-top-color: #000000" cellspacing="0" bordercolorlight="#000000" bordercolordark="#000000" border="1" cellpadding="0">

<tr>
<th width="1300" valign="top" colspan="10" bgcolor="#CCFFCC">
<p align="left">
<b>Søgeordet <font color="#CC0000"><% = soeg%></font> giver <font color="#CC0000"><% = antal%></font>
</b></th>
</tr>

<tr>
<td valign="top" bgcolor="#C0C0C0" align="center"><font size="2"><b>Pilot</font></b></td>
<td valign="top" bgcolor="#C0C0C0" align="center"><font size="2"><b>SamletPris</font></b></td>

</tr>

<%
While NOT list.EOF
%>

<td valign="top"><font size="2"><% = list.Fields("Pilot")%> </font></td>
<td valign="top"><font size="2"><% = list.Fields("SamletPris")%> </font></td>

</tr>

<%
list.MoveNext
Wend
%>

<tr>
<th width="1300" valign="top" colspan="10" bgcolor="#CCFFCC">
<p align="right">
  </th>
</tr>

</table>

</form>

</font>

<p align="center"> </p>

</b>

</body>
</html>

<%
list.close
set list = nothing
%>

Synes godt om

thomashansen Nybegynder

21. maj 2006 - 15:38 #22

Her er link til "sagen": http://www.hybenvang.dk/SpecialeLogbog/66666.asp

Synes godt om

kjulius Novice

21. maj 2006 - 15:45 #23

Først, hvad betyder denne linie?

temp = sum.fields("temp")

Så vidt jeg kan se, er der ingen felter ved navn "temp". Den skal vist bare slettes, tror jeg.

Dernæst, der hvor du udlæser sumtallet, skal du referere til objektet sum i stedet for list.

Synes godt om

thomashansen Nybegynder

21. maj 2006 - 15:59 #24

OK, jeg har nu implementeret ovenstående og siden vises, men prøv at klikke på de 2 link´s:

http://www.hybenvang.dk/SpecialeLogbog/6.asp jeg vil gerne have sammentællingen i sammenhæng med de individuelle tal

http://www.hybenvang.dk/SpecialeLogbog/66666.asp

Jeg vil gerne give flere point´s

Synes godt om

thomashansen Nybegynder

21. maj 2006 - 16:04 #25

Øhh jeg jeg er ved at have den, jeg overså endnu en gang noget - hæng på jeg sender forhåbentligt sanrt noget der virker

Synes godt om

thomashansen Nybegynder

21. maj 2006 - 16:17 #26

Så: http://www.hybenvang.dk/SpecialeLogbog/66666.asp

Her er koden:

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Anvendelse</title>
</head>

<%@LANGUAGE="VBSCRIPT"%>



<%
soeg = Request.QueryString("soeg")
If soeg = "" Then
soegestreng = "'%'"
Else
soegestreng = "'%" & soeg & "%'"
End If

Set list = Server.CreateObject ("ADODB.Recordset")
list.Open "SELECT [08Pilot].Pilot, [24KalibreringsKomponent].KalibreringskomponentPris AS Pris FROM 24KalibreringsKomponent INNER JOIN (08Pilot INNER JOIN (00Apparat INNER JOIN 26Log ON [00Apparat].ID_Apparat = [26Log].ID_Apparat) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot) ON [24KalibreringsKomponent].ID_Kalibreringskomponent = [26Log].ID_Kalibreringskomponent UNION ALL SELECT [08Pilot].Pilot, [12Forsyningsmedie].ForsyningsmediePris FROM 12Forsyningsmedie INNER JOIN (08Pilot INNER JOIN (00Apparat INNER JOIN 26Log ON [00Apparat].ID_Apparat = [26Log].ID_Apparat) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot) ON [12Forsyningsmedie].ID_Forsyningsmedie = [26Log].ID_Forsyningsmedie UNION ALL SELECT [08Pilot].Pilot, [15Reservedel].ReservedelPris FROM 08Pilot INNER JOIN ((04Model INNER JOIN 00Apparat ON [04Model].ID_Model = [00Apparat].ID_Model) INNER JOIN 15Reservedel ON [04Model].ID_Model = [15Reservedel].ID_Model) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot WHERE ((([08Pilot].Pilot) LIKE " & soegestreng & " )) ", Conn

Set sum = Server.CreateObject ("ADODB.Recordset")
sum.Open "SELECT 'Ialt:' AS pilot, SUM(pris) as samletpris FROM (SELECT [08Pilot].Pilot, [24KalibreringsKomponent].KalibreringskomponentPris AS Pris FROM 24KalibreringsKomponent INNER JOIN (08Pilot INNER JOIN (00Apparat INNER JOIN 26Log ON [00Apparat].ID_Apparat = [26Log].ID_Apparat) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot) ON [24KalibreringsKomponent].ID_Kalibreringskomponent = [26Log].ID_Kalibreringskomponent UNION ALL SELECT [08Pilot].Pilot, [12Forsyningsmedie].ForsyningsmediePris FROM 12Forsyningsmedie INNER JOIN (08Pilot INNER JOIN (00Apparat INNER JOIN 26Log ON [00Apparat].ID_Apparat = [26Log].ID_Apparat) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot) ON [12Forsyningsmedie].ID_Forsyningsmedie = [26Log].ID_Forsyningsmedie UNION ALL SELECT [08Pilot].Pilot, [15Reservedel].ReservedelPris FROM 08Pilot INNER JOIN ((04Model INNER JOIN 00Apparat ON [04Model].ID_Model = [00Apparat].ID_Model) INNER JOIN 15Reservedel ON [04Model].ID_Model = [15Reservedel].ID_Model) ON [08Pilot].ID_Pilot = [00Apparat].ID_Pilot WHERE ((([08Pilot].Pilot) LIKE " & soegestreng & " ))) as temp", Conn
samletpris = sum.fields("samletpris")
%>

<html>
<head>
<title>Anvendelse</title>
</head>

<body bgcolor="#FFFFCC">

<tr><td bgcolor="#999999">
<div align="center"> </div>
<div align="center"> </div>
<div align="center"><b><font face="Times New Roman" size="5">Søgning</font></b></div>
</td></tr>

<tr><td bgcolor="#CCCCCC">

<form method="GET" action="66666.asp" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1">
<p align="left">
<font face="Times New Roman">- hvad har det kostet sammenlagt pr. pilot, at lave
analyser ?</font></p>
<p>
<b><font face="Times New Roman"><br>
Pilot:</font></b><br>
<font face="Arial" size="2">
<input type="text" name="soeg" value="<% = soeg%>" size="20">
<input type="submit" name="Submit" value="Søg"></font></td>

</p>
</form>

<table style="border-left-color: #000000; border-top-color: #000000" cellspacing="0" bordercolorlight="#000000" bordercolordark="#000000" border="1" cellpadding="0">

<tr>
<th width="1300" valign="top" colspan="2" bgcolor="#CCFFCC">
<p align="left">
<b>Søgeordet <font color="#CC0000"><% = soeg%></font> giver <font color="#CC0000">
</b></th>
</tr>

<tr>
<td valign="top" bgcolor="#C0C0C0" align="center"><b><font size="2">Pilot</font></b></td>
<td valign="top" bgcolor="#C0C0C0" align="center"><b><font size="2">SamletPris</font></b></td>

</tr>

<tr>

<td valign="top" bgcolor="#C0C0C0" align="center"><font size="2"></b> </td>
<td valign="top" bgcolor="#C0C0C0" align="center"><font size="2"><font color="#CC0000"><% = samletpris%></font> kr.</td>

</tr>

<%
While NOT list.EOF
%>

<td valign="top"><font size="2"><% = list.Fields("Pilot")%> </font></td>
<td valign="top"><font size="2"><% = list.Fields("Pris")%> </font></td>

</tr>

<%
list.MoveNext
Wend
%>

<tr>
<th width="1300" valign="top" colspan="2" bgcolor="#CCFFCC">
<p align="right">
  </th>
</tr>

</table>

</form>

</font>

<p align="center"> </p>

</b>

</body>
</html>

<%
list.close
set list = nothing
%>

Synes godt om

thomashansen Nybegynder

21. maj 2006 - 16:18 #27

Ja, du må gerne lægge et svar og tak for hjælpen.

Jeg har faktisk endnu et spørgsmål så jeg opretter snart endnu en beregning fra samme opgave - MEN TAK for nu

Synes godt om

kjulius Novice

21. maj 2006 - 16:21 #28

Ingen årsag :-)

Synes godt om

kjulius Novice

21. maj 2006 - 16:23 #29

Du mangler vist forresten at lukke dit sum recordsæt, gør du ikke?

Synes godt om

thomashansen Nybegynder

21. maj 2006 - 16:28 #30

Joh, jeg har lukket dem begge nu:

<%
list.close
set list = nothing

sum.close
set sum = nothing
%>

Synes godt om

kjulius Novice

21. maj 2006 - 16:31 #31

For en god ordens skyld bør du også lukke din connection (jeg går ud fra, at den bliver åbnet i den fil du importerer). Ellers kan du risikere pludselig at løbe ind i en fejl, som kan være svær at finde, fordi den kun dukker op nogle gange.

Synes godt om

thomashansen Nybegynder

21. maj 2006 - 16:38 #32

Hvordan skriver du det ?

Synes godt om

kjulius Novice

21. maj 2006 - 16:42 #33

conn.close
set conn = nothing

Synes godt om

thomashansen Nybegynder

21. maj 2006 - 16:45 #34

TAK

Synes godt om

thomashansen Nybegynder

23. maj 2006 - 15:00 #35

Jeg ved, at dette spørgsmål er besvaret, men jeg har oprettet et nyt (men lidt tilsvarende dette) hvis man har mod på mere: http://www.eksperten.dk/spm/710862

Synes godt om

thomashansen Nybegynder

23. maj 2006 - 15:01 #36

- ja og jeg har endnu ikke fået nogle forslag...

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Database management kurser

Computerworld tilbyder specialiserede kurser i database-management

Se alle Database management kurser

Flere spørgsmål fra MS SQL kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Danske karakterter i simpel insert Af boris i MS SQL	2	25/04/202414:05	29/04/202411:41
Kan ikke connecte til sql serveren Af simsen i MS SQL	2	05/01/202417:02	05/01/202420:51
Count med NOT IN og 2 conditions Af sorenmt84 i MS SQL	2	08/11/202308:37	08/11/202310:32
Top X af group Af totalpc i MS SQL	1	18/10/202321:23	09/11/202313:08
Row level security på flere kolonner Af dane022 i MS SQL	8	30/08/202321:28	01/09/202300:55

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS

12:00

Ugen i tech: Nye AMD-processorer slippes løs - få overblikket over pris og ydelse / Rigeligt med plads: Nu kan du få svimlende otte terabyte i frimærke-format

09/08

Prøvekørt: Den smukke Polestar 4 er en spøjs elbil man let bliver forelsket i

09/08

Nørgaards vikar: Når cybersikkerhed bliver til statens skjulte magtapparat - kan Danmark så reelt modstå hybridangreb?

09/08

EU-Kommissionen er imod at ændre GDPR-reglerne – vil fokusere på implementeringen

09/08

Norlys taber tæt på to milliarder kroner på lavere energipriser: ”Investeringerne koster på den korte bane”

09/08

Dansk netbetalings-firma brager frem efter strategiskifte: Forventer 5.000 nye kunder i år

09/08

Virksomheder står over for store it-omkostninger: Mere end hver 10. pc kan ikke køre Windows 11

09/08

Vigtig opdatering sendes ud: Sikrer at Intel-processorer ikke brænder sammen

09/08

Apple ændrer App Store-politik efter anklager: Mere frihed til udviklere men også flere gebyrer

09/08

Stort tilbageslag for reboot af fremragende sci-fi-serie

09/08

Tidligere Salesforce-boss Michael Zink stopper hos Celonis - skal være global CEO for softwareselskab

Vis flere artikler

IT-JOB

Udviklings- og Forenklingsstyrelsen

Teknisk specialist til database-søgninger, automatiseringer og forretningsleverancer

Udviklings- og Forenklingsstyrelsen

Controller til økonomi og compliance

Visma Enterprise A/S

Erfaren udvikler søges til teamet bag Visma Løn

Statens IT

Netværksmedarbejder med stort drive

Digitaliseringsstyrelsen

Vil du bidrage til at sikre Danmarks cyber- og informationssikkerhed?

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 12:38	Nyt window lægger sig altid direkte ovenpå øverste åbne window (Windos 11) Af Michael Thomas Fitzgerald i Andet software
I går 09:03	Kan ikke åbne billeder Af Rikke i Billedbehandling
10/0818:02	Tekst på foto Af hkprofil i Billedbehandling
10/0815:17	PHP alfabet Af John i PHP
10/0808:14	Nyt Batteri installeret virker ikke Af duvander i Andet hardware