nej..
Error Type:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: 'Connection'
/Matchresultat/resultat.asp, line 27
Största vinst i ASP?
26 svar · 610 visningar · startad av asp · sida 2 av 2
Frågan, av asp
Hej! Jag har en databas där jag sparar alla resultat för mitt fotbollslag. Kolummen för målen för mitt lag heter Gjorda och kolumen för insläppta mål heter Inslappta. Nu vill jag räkna ut största vinsten, dvs största siffran mellan Gjorda och Inslappta. Kan någon hjälpa mig?
Läs frågan i sin helhet →
Har du öppnat någon databas då?
Alltså du har: Set objRSK = Connection.Execute(strSQL)
eller?
conn istället för connection?
Här är min kod för lite statistik:
<%
Session.lcid = 1053
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("db/amica.mdb")
SQL ="SELECT sum(Gjorda) FROM Post"
Set objRS = Conn.Execute(SQL)
goalSum = objRS(0)
SQL ="SELECT sum(Inslappta) FROM Post"
Set objRS = Conn.Execute(SQL)
ungoalSum = objRS(0)
strSQL = "SELECT COUNT(*) FROM Post WHERE Id"
Set objRSM = Conn.Execute(strSQL)
strSQL = "SELECT COUNT(*) FROM Post WHERE Gjorda > Inslappta"
Set objRSV = Conn.Execute(strSQL)
strSQL = "SELECT COUNT(*) FROM Post WHERE Gjorda = Inslappta"
Set objRSO = Conn.Execute(strSQL)
strSQL = "SELECT COUNT(*) FROM Post WHERE Gjorda < Inslappta"
Set objRSF = Conn.Execute(strSQL)
strSQL = "SELECT TOP 1 Gjorda, Inslappta, (Gjorda - Inslappta) ORDER BY 3 DESC"
Set objRSK = Connection-objekt.Execute(strSQL)
%>
Hur skriver jag nu ut den största vinsten, tex 7-1.
<%
Session.lcid = 1053
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("db/amica.mdb")
SQL ="SELECT sum(Gjorda) FROM Post"
Set objRS = Conn.Execute(SQL)
goalSum = objRS(0)
SQL ="SELECT sum(Inslappta) FROM Post"
Set objRS = Conn.Execute(SQL)
ungoalSum = objRS(0)
strSQL = "SELECT COUNT(*) FROM Post WHERE Id"
Set objRSM = Conn.Execute(strSQL)
strSQL = "SELECT COUNT(*) FROM Post WHERE Gjorda > Inslappta"
Set objRSV = Conn.Execute(strSQL)
strSQL = "SELECT COUNT(*) FROM Post WHERE Gjorda = Inslappta"
Set objRSO = Conn.Execute(strSQL)
strSQL = "SELECT COUNT(*) FROM Post WHERE Gjorda < Inslappta"
Set objRSF = Conn.Execute(strSQL)
strSQL = "SELECT TOP 1 Gjorda, Inslappta, (Gjorda - Inslappta) ORDER BY 3 DESC"
Set objRSK = Conn.Execute(strSQL)
Response.Write(objRSK("Gjorda") & "-" & objRSK("Inslappta"))
Set objRSK = Nothing
%>
byt
strSQL = "SELECT TOP 1 Gjorda, Inslappta, (Gjorda - Inslappta) ORDER BY 3 DESC"
Set objRSK = Connection-objekt.Execute(strSQL)
till
strSQL = "SELECT TOP 1 Gjorda, Inslappta, (Gjorda - Inslappta) as diff ORDER BY 3 DESC"
Set objRSK = Conn(strSQL)
Och skriv sedan objRSK("Gjorda") & " - " & objRSK("inslappta")
för resultatet