SUM hvordan

Noget i stil med dette alt efter hvad din tabel og kolonner hedder:

SQL = "SELECT sum(kol1) as summen FROM tabelX WHERE kol2='A' AND kol3=542"

Set rs = ConectionObject.Execute(SQL)

Response.write "summen er : " & rs("summen")

jamen jeg har allerede en SQL sætning... skal jeg så bare sige:
SQL = SQL & "SELECT sum(kol1) as summen FROM tabelX WHERE kol2='A' AND kol3=542"

og hvordan med rs ?

Som jeg viste, du skal havde et connection object til din database her hedder det ConectionObject og så kalde Execute.

Set rs = ConectionObject.Execute(SQL)


Du udskriver summen sådan her, når man lavet et alias som er as så kan man udskrive det som var det en kolonnne:

Response.write "summen er : " & rs("summen")

ang SQL så kommer det an på hvad du hender med din SQL nu...

Microsoft VBScript runtime (0x800A01A8)
Object required: 'ConnectionObject'

Undskyld, du sætter 15 point af og du ved ikke hvordan man laver en connection til en db??

'ConnectionObject' er et eksemple i du skal lave en connection til din database typisk kalder man den variable for conn, se mere her:
http://www.html.dk/tutorials/asp/lektion18.asp
http://www.connectionstrings.com

Du skal lave et par linjer som disse:
Set ConectionObject = Server.CreateObejct("ADODB.Connection")
ConectionObject.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\wwwroot\db.mdb"

Jeg stopper her, skal i seng nu.

sry my bad men får hele tiden fejl ved det her:
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("System.mdb")
Set rs = Conn.Execute(SQL)

den siger at mit object er lukket når jeg prøver at sætte rs

problemet er SQÆ sætningen, jeg kan ikke helt forstå hvordan jeg kan have både sum og requeste andet i samme SQL sætning

de her to skulle gerne blive til en:
SQL = "Select * From Threads Where (Threadok = true) Order by Threaddato Desc"
SQL = "SELECT sum(Comid) as summen FROM Threads WHERE Comid='" & rs("Id") & "'"

Ja, det er klart, det er lukket, når du ikke har åbnet det :)

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("System.mdb")
Conn.Open DSN

SQL = "........................."

Set rs = Conn.Execute(SQL)

Operation is not allowed when the object is open. nu må jeg hverken gøre ditten eller datten!

Hvad forsøger du?

intet andet end at jeg har ændret til de linie du gav mig, se hele scriptet ?

need some help folks, her kommer det:

<%
strNeed="2"
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
    intPage = 1
End If



Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("System.mdb")
Conn.Open DSN

if strNeed = "2" then
SQL = "Select * From Threads Where (Threadok = true) Order by Threaddato Desc"
elseif strNeed = "1" then
SQL = "SELECT sum(Comid) as summen FROM Threads WHERE Comid='" & rs("Id") & "'"
end if
Set rs = Conn.Execute(SQL)
rs.Open strSQL, DSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 20
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
Do

  if (session("level")) => 7 Then
  Response.Write "<a href='slet.asp?id=" & rs("Id") & "&slet=thread&system=forum'>Slet</a>"
  end if
  if (session("level")) => 8 Then
  Response.Write " IP: " & rs("Threadip") & "<br>"
  end if
 



 
  Response.Write "<a href='sethread.asp?id=" & rs("Id") & "'><b>" & rs("Threademne") & "</a></b> Antal indlæg: "
  strNeed = "1"
  Response.Write rs("summen") & "<br>"
  strNeed = "2"

  intRecCount = intRecCount - 1
  rs.MoveNext
Loop While Not rs.EOF And intRecCount > 0
End If
rs.Close
Set rs = Nothing

Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=sefor.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write "&nbsp;&nbsp;&nbsp;"
If Clng(intPage) > 1 Then
    Response.Write "<a href=sefor.asp?page=" & intPage - 1 & ">&lt;</a>"
Else
    Response.Write "&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=sefor.asp?page=" & intPage + 1 & ">&gt;</a> "
Else
    Response.Write "&gt;"
End If
%>

Ret:

rs.Open strSQL, DSN, 1

- til:

rs.Open strSQL, Conn, 1

Du roder rundt i det. Fjern følgende!

Set rs = Conn.Execute(SQL)
rs.Open strSQL, DSN, 1

- og erstat det med:

Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open strSQL, Conn, 1

ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

Hvilken linie?

der hvor rs bliver sat

undskyld der hvor rs.Open

n33d solutions

Det har ikk noget med Id at gøre..? Det sku vel aldrig være sat som en integer i databasen.. ?

/Anders

nope

så må jeg vel lukke igen :P