sum af kolonne

Jeg kan ikke lige gennemskue om du henter data i en database eller hvad (men det vil jeg som udgangspunkt antage). I så fald ville jeg jo finde summen af alle timer ved at køre flg. SQL:

sql = "SELECT sum(hours) FROM tabellen"

ok - tak, jo jeg henter data fra en access database, jeg prøver lige om jeg kan få det til at virke og vender så tilbage med point

hvis dine timer ligger i et array kan det se således ud:

Imports System
Imports System.Collections.Generic
Imports System.Collections
Imports System.Text
Namespace eksperten_array_sum

Class Program

  Shared Sub Main(ByVal args As String())
    Dim timer As ArrayList = New ArrayList
    Dim rnd As Random = New Random
    Dim time As Double
    Dim resutat As Double = 0
    time = 10
    timer.Add(time)
    time = 15
    timer.Add(time)
    time = 5
    timer.Add(time)
    time = 7.7
    timer.Add(time)
    time = 5.6
    timer.Add(time)
    For Each d As Double In timer
      resutat += d
    Next
    Console.WriteLine(resutat.ToString)
  End Sub
End Class
End Namespace

Arh så ikke din sidste kommentar. skrev imens :)

innercitydk >> Dit svar passer vist også bedst i .NET-kategorien  :D

det driller lidt - nu sidder jeg ved en ny pc og jeg har glemt hvor det er jeg sætter IE til at vise ASP fejlen - i ved den med at i linienr. XXX er deren fejl

funktioner / internet indstillinger / avanceret fanen

der skal du finde noget med vis uskadelige HTTP fejl (eller noget i den stil). Det ligger i sektionen "Gennemse"

fandt den tak igen - den brokker sig over denne her måske lidt uden for emnet af denne tråd  objRS ("dato")=Request.Form("dato") = type mismatch. Jeg forsøger at indsætte noget i min access database, hvad er det jeg har overset?

Måske er Request.Form("dato") tom eller ikke en valid dato...?

Prøv evt. at kontrollere indholdet af Request.Form("dato") inden du indsætter det i feltet (allerbedst ville det være at du validerer alle dine felter inden du indsætter noget som helst i databasen :)). Validering af dato kan gøres med isDate, altså:

if isDate(Request.Form("dato")) then
  objRs("dato") = Request.Form("dato")
end if

cool - tak!! bare smid et svar så må jeg se om jeg kan hitte ud af resten

Velbekomme :)

Spørg endelig ind, hvis der er noget du skal bruge hjælp til...

Jamen det gør jeg så 8>) Når jeg nu har noget der ligner nedenstående, hvordan kommer jeg afsted med at lave din SQL ? Skal jeg åbne en ny forbindelse når jeg laver den ?

Set objRS=objConn.Execute("SELECT dato,start,slut,bem,timer FROM timer")
Do while Not objRS.EOF
Response.Write("Dato: "& objRS("dato")& "<br/>")
Response.Write("Start: "& objRS ("start") & "<br>")
Response.Write("Slut: "& objRS ("slut") & "<br><p>")
Response.Write("Bem:"& objRS ("bem") & "<br><p>")
Response.Write("Timer:"& objRS ("timer") & "<br><p>")
objRS.Movenext
Loop

Hvis du vil summere kolonnen timer i tabllen timer, så skal du nok udføre SQL-sætningen for sig selv, f.eks. efter du har gennemløbet indholdet i objRS i din løkke.

ok - takker igen

Ingen årsag :)

hehe - jeg gør noget galt, ovenfor dette lukker jeg databasen og åbner den så igen men den brokker sig over at "name redefined" ?? <%
Dim objConn
Set objConn = Server.CreateObject ("ADODB.Connection")
objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\empty-site.org\www\timetable\timer.mdb"
objConn.Open () 

Set objRS=objConn.Execute("SELECT sum (timer) FROM timer")
Do while Not objRS.EOF
Response.Write("Timer:"& objRS ("sum") & "<br><p>")
objRS.Movenext
Loop

objRS.Close   
Set objRS = Nothing

objConn.Close
Set objConn = Nothing
%>

Det er ikke nødvendigt at lukke og åbne forbindelsen igen, du kan bare lave forspørgslen umiddelbart efter din løkke...

Dim objConn, objRS
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\empty-site.org\www\timetable\timer.mdb"
objConn.Open

Set objRS=objConn.Execute("SELECT dato,start,slut,bem,timer FROM timer")
Do while Not objRS.EOF
  Response.Write("Dato: "& objRS("dato")& "<br/>")
  Response.Write("Start: "& objRS ("start") & "<br>")
  Response.Write("Slut: "& objRS ("slut") & "<br><p>")
  Response.Write("Bem:"& objRS ("bem") & "<br><p>")
  Response.Write("Timer:"& objRS ("timer") & "<br><p>")
  objRS.Movenext
Loop
objRS.close

set objRS = objConn.Execute("SELECT SUM(timer) AS sumTimer FROM timer")
if not objRS.eof then
  Response.Write("Timer:"& objRS("sumTimer") & "<br><p>")
end if
objRS.close

objConn.close

elegant må jeg sige - vil da have lidt flere points?

nej, det er ikke nødvendigt, ellers tak for buddet :)

Hehe softspot det kunne der være noget om. Fra nu af er det slut med at svare på spørgsmål, inden jeg har fået mindst to spande mokka :)

:D

Jeg har selv lavet det trick et par gange (og jeg drikker desværre ikke mokka, så jeg må bare leve med min fejlbarlighed :))