Hej!

Jag har en access databas med en tabell som heter Tider här vill jag sortera ut samtliga namn och tider.

Jag vill få till en summering av tiderna på namnen.

Typ att kunna slå ihop dessa rs till ett för att få ut summeringen per namn.

Set rs = Conn.Execute("Select DISTINCT [Namn] FROM [Tider] WHERE [Datum] = '" & Request.Querystring("Datum") & "' And [Avd]= '" & Request.Querystring("Avd") & "'")

Set rs = Conn.Execute("Select Sum(Time)As isum FROM [Tider] WHERE [Datum] = '" & Request.Querystring("Datum") & "' And [Avd]= '" & Request.Querystring("Avd") & "' And [Mek]= '" & (Namn) & "'")


Det jag gör är att jag skickar en URL med värden till en asp sida som jag sedan plockar ut värdet ur.

Kan var svårförstått tror jag.

Tobbe

Hej Tobbe,

kan du ge exempel på det data som du har i din tabell så brukar det vara lättare att komma fram med en sql-sats som du kan använda dig av på det effektivaste sättet.

Spontant tänker jag på att använda lite andra sql-satser än vad de du presenterat för att få till samma funktion. Det finns bl.a. group by som kan användas för att få till detta.

Hur skall sedan resultatet se ut för att det skall bli så bra som möjligt vid presentationen?

//pelle

Hej Pelle!

Jag ska försöka förklara vad jag vill göra.

Har en Access databas men en tabell som heter Tider hör sparas Namn och tider datum. osv.

Jag sparar Namn och tid på ett datum, detta vill jag sortera ut där Anders alla tider ska summeras ihop för valt datum.

ex.
Namn BokTime Datum
Anders K 450 2013-12-09
Anders K 100 2013-12-09
Anders K 150 2013-12-09____________ Visas som Anders K 700
Osv med andra namn och tider.

Detta skickas till en ASP sida via en URL med Värden som Namn, Datum.
sWebb = ""
sWebb = "http://www.Plats.se/Katalog/Namn.asp?Avd=" & Avd.Text & "&Datum=" & Datum.Text
Me.WebBrowser11.Navigate(sWebb)

Asp sidan:
Set rs = Conn.Execute("Select DISTINCT Namn, Sum(BokTime)As isum FROM [Tider] WHERE [Datum] = '" & Request.Querystring("Datum") & "' And [Avd]= '" & Request.Querystring("Avd") & "'")

Response.Write "<table>"

i = 0

Do until rs.EOF

Response.Write "<tr>"
Response.Write "<td>" & "Namn" & i & rs("Namn") & "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td>" & "Tid" & i & rs("iSum") & "</td>"
Response.Write "</tr>"
rs.MoveNext

i=i+1
Loop

Response.Write "</table>"
Conn.CLOSE
SET Conn = NOTHING

Webbrowsern:

Namn0Daniel
Namn1Joackim
Namn2Mickael
Namn3Stefan
Tid0400
Tid1500
Tid2100
Tid3200
Ant: 4

Private Sub PlockTid()

start = 1

start = InStr(start, WebBrowser2.Document.Body.InnerText, "Ant" & ":") + 4
Slut = InStr(start, WebBrowser2.Document.Body.InnerText, vbCrLf)
X = Mid$(WebBrowser2.Document.Body.InnerText, start, Slut - start)

X = X - 1

For i = 0 To X

start = 1
start = InStr(start, WebBrowser2.Document.Body.InnerText, "Namn" & i) + 5
Slut = InStr(start, WebBrowser2.Document.Body.InnerText, vbCrLf)
K = Mid$(WebBrowser2.Document.Body.InnerText, start, Slut - start)

Me.DGridTekniker.Rows(i).Cells(0).Value = (K)

start = 1
start = InStr(start, WebBrowser2.Document.Body.InnerText, "Tid" & i) + 4
Slut = InStr(start, WebBrowser2.Document.Body.InnerText, vbCrLf)
Y = Mid$(WebBrowser2.Document.Body.InnerText, start, Slut - start)

Me.DGridTekniker.Rows(i).Cells(1).Value = (Y)

Next i

Hoppas du/ni förstår vad jag vill göra.

Tobbe.

Tack för tipset med Group By fick till de!

Set rs = Conn.Execute("SELECT DISTINCT Namn, Sum(BokTime)As isum FROM Tider WHERE [Datum] = '" & Request.Querystring("Datum") & "' And [Avd]= '" & Request.Querystring("Avd") & "' GROUP BY Namn")

Bra att du fick till det. Det finns många lösningar på samma sak. Om det fungerar och inte går för långsamt behöver du inte ändra. Det är mer om du skall optimera något som man kan använda sig av lite andra saker att tänka på.

Lycka till!
//Pelle - Pellesoft