Søg
Avatar billede no_doubt Nybegynder
23. marts 2002 - 15:23 Der er 14 kommentarer og
1 løsning

I henvisning til "Læg Sammen"

Jeg har følgende database : http://www.eksperten.dk/spm/188844

Der er en kolonne, de hedder hits og en der hedder active

alle dem der er active bliver vist på siden, alle ikke aktive er bare i databasen

1 = active
0 = not active

Ligenu for jeg lag alle hits sammen

men jeg vil gerne have alle sammen lagt sammen og så alle dem der er active
Avatar billede medions Nybegynder
23. marts 2002 - 15:36 #1
<%
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("daba.mdb")

  Set rs = Conn.Execute("SELECT * FROM data")

  strPlus1 = rs("hits")
  strPlus2 = rs("hits")
  strActiv = rs("active")
  Response.Write(Cint(strPlus1 + strPlus2 + strActive))

%>

//>Rune
Avatar billede medions Nybegynder
23. marts 2002 - 15:41 #2
eller hvad er det du vil?

//>Rune
Avatar billede medions Nybegynder
23. marts 2002 - 16:39 #3
Prøv med denne:

<%
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("daba.mdb")
    Set rs = Conn.Execute("SELECT * FROM data")
   
    SQL = "SELECT * FROM data WHERE active = 1"
    Set rss = Conn.Execute(SQL)

        strPlus1 = rs("hits")
        strPlus2 = rs("hits")
       
        strPlus11 = rss("hits")
        strPlus22 = rss("hits")

        Response.Write("Nuværende antal stemmer: " & Cint(strPlus11 + strPlus22))
       
        Response.Write("Antal stemmer afgivet i dette system: " & Cint(strPlus1 + strPlus2)
%>

//>Rune
Avatar billede medions Nybegynder
23. marts 2002 - 16:42 #4
Sorry:
<%
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("daba.mdb")
    Set rs = Conn.Execute("SELECT * FROM data")
   
    SQL = "SELECT * FROM data WHERE active = 1"
    Set rss = Conn.Execute(SQL)

        strPlus1 = rs("hits")
        strPlus2 = rs("hits")
       
        strPlus11 = rss("hits")
        strPlus22 = rss("hits")

        Response.Write("Nuværende antal stemmer: " & Cint(strPlus11 + strPlus22))
       
        Response.Write("Antal stemmer afgivet i dette system: " & Cint(strPlus1 + strPlus2))
%>

//>Rune
Avatar billede medions Nybegynder
23. marts 2002 - 16:51 #5
sorry *G*

<%
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("daba.mdb")
    Set rs = Conn.Execute("SELECT * FROM data")
   
    SQL = "SELECT * FROM data WHERE active = 1"
    Set rss = Conn.Execute(SQL)

While Not rs.EOF
        strPlus1 = rs("hits")
        strPlus2 = rs("hits")
       
        strPlus11 = rss("hits")
        strPlus22 = rss("hits")
       
        strNuvaerende = strNuvaerende + Cint(strPlus1 + strPlus2)
        strSamlet      = strSamlet + Cint(strPlus11 + strPlus22)

rs.MoveNext
Wend
        Response.Write("Nuværende antal stemmer: " & strNuvaerende))
       
        Response.Write("Antal stemmer afgivet i dette system: " & strSamlet)
%>

//>Rune
Avatar billede medions Nybegynder
23. marts 2002 - 16:53 #6
Sørme igen


<%
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("daba.mdb")
    Set rs = Conn.Execute("SELECT * FROM data")
   
    SQL = "SELECT * FROM data WHERE active = 1"
    Set rss = Conn.Execute(SQL)

While Not rs.EOF
        strPlus1 = rs("hits")
        strPlus2 = rs("hits")
       
        strPlus11 = rss("hits")
        strPlus22 = rss("hits")
       
        strNuvaerende = strNuvaerende + Cint(strPlus1 + strPlus2)
        strSamlet      = strSamlet + Cint(strPlus11 + strPlus22)

rs.MoveNext
Wend
        Response.Write("Nuværende antal stemmer: " & strNuvaerende)
       
        Response.Write("Antal stemmer afgivet i dette system: " & strSamlet)
%>

//>Rune
Avatar billede medions Nybegynder
23. marts 2002 - 17:04 #7
hmm.. prøv lige me denne:

<%
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("data.mdb")
    Set rs = Conn.Execute("SELECT * FROM data")
   
    SQL = "SELECT * FROM data WHERE active = 1"
    Set rss = Conn.Execute(SQL)

                strPlus1 = rs("hits")
                strPlus2 = rss("hits")

        While Not rs.EOF
            strPlus1 = strPlus1 + strPlus1
            strPlus2 = strPlus2 + strPlus2
        rs.MoveNext
        Wend
        Response.Write("Nuværende antal stemmer: " & strPlus1 & "<br>")
       
        Response.Write("Antal stemmer afgivet i dette system: " & strPlus2)
%>

//>Rune
Avatar billede soes Nybegynder
23. marts 2002 - 19:46 #8
Var det ikke bedre med en sql-løsning? Jeg er ikke sikker men mener at det skal skrives sådan:
SQL = "SELECT SUM(hits) As sHits, SUM(active) As sActive FROM data"

Set Rs = Conn.Execute(SQL)

Response.write "Antal stemmer: " & Rs("sHits") & "<br>"
Response.write "Antal aktive:" & Rs("sActive")

Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing

Det var så mit bud

/Søren Søndergård
Avatar billede no_doubt Nybegynder
24. marts 2002 - 17:41 #9
Ingen af dem gør det.. det er ret wierd
Avatar billede soes Nybegynder
24. marts 2002 - 23:58 #10
Hvilken fejl kommer der?

/Søren Søndergård
Avatar billede no_doubt Nybegynder
25. marts 2002 - 12:43 #11
ingen fejl bare nogle underlige tal
Avatar billede medions Nybegynder
25. marts 2002 - 14:31 #12
<%
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("data.mdb")
    Set rs = Conn.Execute("SELECT * FROM data")
   
    SQL = "SELECT * FROM data WHERE active = 1"
    Set rss = Conn.Execute(SQL)

        While Not rs.EOF
            sum1 = sum1 + rs("hits")
            sum2 = sum2 + rss("hits")
        rs.MoveNext
        Wend
        Response.Write("Nuværende antal stemmer: " & sum1 & "<br>")
       
        Response.Write("Antal stemmer afgivet i dette system: " & sum2)
%>

Det her virker!

//>Rune
Avatar billede no_doubt Nybegynder
25. marts 2002 - 14:47 #13
nej det gør det ikke *s*
Avatar billede medions Nybegynder
25. marts 2002 - 16:22 #14
hmm... WEIRD! *G*

//>Rune
Avatar billede no_doubt Nybegynder
26. marts 2002 - 17:29 #15
lukker
Avatar billede 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.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 19:36 Kan man gøre skriften i Libre Office 26.8 - På en PC med Windows 10 mere stabil ? Af Ikke-ekspert i Office & Kontorpakker
I går 07:10 Problemer med PC Af sorensen84 i PC
28/1017:10 Installation af software til UPS Af ErikHg i Andet hardware
26/1012:28 slet gemte logind Af knuldefar1942 i Diverse
24/1020:40 Access udskrift mangler del af ramme om post. Af Uvanga i Access
White papers
Flere white papers »