11 svar · 186 visningar · startad av icaaq
jag vill byta ut ett resultat i en serietabell.
tabellen ser ut som så här
Serie
----------------------
Spelade
Vinst
Forl
Oav
Gjorda(mål)
inslapp(mål)
Poang
Kan man först ta bort det gamla resultet och sen lägga in det ny i samma SQL-sats?
------------------
kolung.....det tål att tänkas på!
Jag kanske var lite luddig i min formulering....
antag följande:
match 1
wF mot IDG slutar 5-4
Senare ändras resultatet till 5-5
då måste jag ju kunna ändra IDG´s gjorda med ett och wF´s inläppta med ett
hur gör jag det på ett smidigt sätt?
------------------
kolung.....det tål att tänkas på!
Om du har något id för varje match så går det väl att lägga upp ett formulär där man kan editera värdena och sen så är det väl bara att hämta värdena och updatera alla fält för det id du har.
Eller vill du ha lite logik som att om man ändrar till 5-5 så ändras poang och andra fält automatiskt?
------------------
essentitia preter non sans multiplicandum
Jag har så här nu, en sida där jag listar alla matcher där jag kan klicka på en match för att ändra något ....typ domare, resultat och dylikt
sen kollar ja om resultatet ändrats har det det så kollar jag om ....äh jag slänger upp det så får du kolla:
[red]
Function f_checkResultat(intMatchID, intHresultat, intBresultat)
'******************************************************************************
'Denna funktion kollar om det resultat som laggts in
'i formuläret ska läggas in i databasen för första ggn
'eller om resultatet ska ändras, om så är fallet ska även tabellen
'ändras
'******************************************************************************
'## Innehållsförteckning ##
'~1 Kollar om resultaten innehåller några värden
'~2 SQL-sats som hämtar värdena i databasen
'~3 Databaskopplingen, Samt att jag lägger in databasvärdet i variblar
'~4 Kollar om det ligger några resultat i just den matchen, om inte läggs det in annars går jag vidare till ~5
'~5 Kollar om resultaten är identiska, om det inte är det går jag vidare till ~6 och ~7
'~6 Kollar vem som fick poäng i den första rapporten
'~7 Kollar vem som fick poäng i den andra rapporten
'~8 Kollar hur poängen ska omfördelas
'~9
'******************************************************************************
'## ~1 ##
If Len(intHresultat) <= 0 AND Len(intBresultat) <= 0 Then
f_checkResultat = "Du har inte lagt in några resultat"
Exit Function
End If
'******************************************************************************
'******************************************************************************
'## ~2 ##
strSQL = "SELECT LagA, LagB, Resultat1, Resultat2, Serie "&_
"FROM matchprogram WHERE Matchnr = "&intMatchID
'******************************************************************************
'******************************************************************************
'## ~3 ##
Set ObjConn = Server.CreateObject("Connection")
'kommentera bort den som ni inte ska använda
'Access
Objconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../../data/Serie0102.mdb")
'mySQL
'Objconn.ConnectionString = "driver=MySQL;UID=root;PWD=;Database=medimatch;option=16384"
ObjConn.Open
Set ObjRS = ObjConn.execute(strSQL)
If ObjRS.EOF Then
f_CheckResultat = "matchen finns inte"
Exit function
Else
d_intHresultat = Cint(ObjRS("Resultat1"))
d_intBresultat = Cint(ObjRS("Resultat2"))
strHemmalag = ObjRS("LagA")
strBortalag = ObjRS("LagB")
strSerie = ObjRS("Serie")
End If
'******************************************************************************
'******************************************************************************
'## ~4 ##
If Len(d_intHresultat) <= 0 AND Len(d_intBresultat) <= 0 Then
strINS = "UPDATE matchprogram SET Resultat1 = intHresultat, "&_
"Resultat2 = intBresultat "&_
"WHERE MatchID = "&intMatchID
ObjConn.execute(strINS),,128
ObjConn.close
Set ObjConn = Nothing
f_CheckResultat = "Du har nu lagt in ett resultat till match nr "&intMatchID&"
Exit Function
End If
'******************************************************************************
'******************************************************************************
'## ~5 ##
If d_intHresultat = intHresultat AND d_intBresultat = intBresultat Then
f_checkResultat = "Du har inte ändrat några resultat"
Exit Function
End If
'******************************************************************************
'******************************************************************************
'## ~6 ##
If d_intHresultat > d_intBresultat Then
strFirstWinner = "hemma"
End If
If d_intHresultat = d_intBresultat Then
strFirstWinner = "ingen"
End If
If d_intHresultat < d_intBresultat Then
strFirstWinner = "borta"
End If
'******************************************************************************
'******************************************************************************
'## ~7 ##
If intHresultat > intBresultat Then
strSecondWinner = "hemma"
End If
If intHresultat = intBresultat Then
strSecondWinner = "ingen"
End If
If intHresultat < intBresultat Then
strSecondWinner = "borta"
End If
'******************************************************************************
'******************************************************************************
'## ~8 ##
'## intBolean = 0 :Inga förändringar
'## 1 :hemmalaget(-3), Bortalaget(+3)
'## 2 :hemmalaget(+3), Bortalaget(-3)
'## 3 :hemmalaget(+2), Bortalaget(-4)
'## 4 :hemmalaget(-4), Bortalaget(+2)
'## 5 :hemmalaget(-2), Bortalaget(+1)
'## 6 :hemmalaget(+1), Bortalaget(-2)
If strFirstWinner = "hemma" AND strSecondWinner = "hemma" Then
intBolean = 0
End If
If strFirstWinner = "ingen" AND strSecondWinner = "ingen" Then
intBolean = 0
End If
If strFirstWinner = "borta" AND strSecondWinner = "borta" Then
intBolean = 0
End If
If strFirstWinner = "hemma" AND strSecondWinner = "borta" Then
intBolean = 1
End If
If strFirstWinner = "borta" AND strSecondWinner = "hemma" Then
intBolean = 2
End If
If strFirstWinner = "ingen" AND strSecondWinner = "hemma" Then
intBolean = 3
End If
If strFirstWinner = "ingen" AND strSecondWinner = "borta" Then
intBolean = 4
End If
If strFirstWinner = "hemma" AND strSecondWinner = "ingen" Then
intBolean = 5
End If
If strFirstWinner = "borta" AND strSecondWinner = "ingen" Then
intBolean = 6
End If
'******************************************************************************
'******************************************************************************
'## ~9 ##
'## intBolean = 0 :Inga förändringar
'## 1 :hemmalaget(-3), Bortalaget(+3)
'## 2 :hemmalaget(+3), Bortalaget(-3)
'## 3 :hemmalaget(+2), Bortalaget(-4)
'## 4 :hemmalaget(-4), Bortalaget(+2)
'## 5 :hemmalaget(-2), Bortalaget(+1)
'## 6 :hemmalaget(+1), Bortalaget(-2)
If intBolean = 1 Then
'uppdaterar hemmalagets poäng
strUPD1 = "UPDATE Serie Set Vinst = Vinst - 1, "&_
"Forl = Forl + 1, "&_
"Poang = Poang - 3 "&_
"WHERE Lag = '"&strHemmalag&"' "&_
"AND Klass = '"&strSerie&"'"
'uppdaterar bortalagets poäng
strUPD2 = "UPDATE Serie Set Vinst = Vinst + 1, "&_
"Forl = Forl - 1, "&_
"Poang = Poang + 3 "&_
"WHERE Lag = '"&strBortalag&"' "&_
"AND Klass = '"&strSerie&"'"
[/red]
så långt har jag kommit....nu är det bara målen som fattas :OO
------------------
kolung.....det tål att tänkas på!
[Redigerat av icaaq den 25 nov 2001]
eller den är ju inte klar .....men det det kanske är bäst om jag kör två SQL-satser
den första tar bort målen som rapporterades första gången och den andra lägger in dem nya....eller vad tror du ?
------------------
kolung.....det tål att tänkas på!
[red]
Function f_checkResultat(intMatchID, intHresultat, intBresultat)
'******************************************************************************
'Denna funktion kollar om det resultat som laggts in
'i formuläret ska läggas in i databasen för första ggn
'eller om resultatet ska ändras, om så är fallet ska även tabellen
'ändras
'******************************************************************************
'## Innehållsförteckning ##
'~1 Kollar om resultaten innehåller några värden
'~2 SQL-sats som hämtar värdena i databasen
'~3 Databaskopplingen, Samt att jag lägger in databasvärdet i variblar
'~4 Kollar om det ligger några resultat i just den matchen, om inte läggs det in annars går jag vidare till ~5
'~5 Kollar om resultaten är identiska, om det inte är det går jag vidare till ~6 och ~7
'~6 Kollar vem som fick poäng i den första rapporten
'~7 Kollar vem som fick poäng i den andra rapporten
'~8 Kollar hur poängen ska omfördelas
'~9
'******************************************************************************
'## ~1 ##
If Len(intHresultat) <= 0 AND Len(intBresultat) <= 0 Then
f_checkResultat = "Du har inte lagt in några resultat"
Exit Function
End If
'******************************************************************************
'******************************************************************************
'## ~2 ##
strSQL = "SELECT LagA, LagB, Resultat1, Resultat2, Serie "&_
"FROM matchprogram WHERE Matchnr = "&intMatchID
'******************************************************************************
'******************************************************************************
'## ~3 ##
Set ObjConn = Server.CreateObject("Connection")
'kommentera bort den som ni inte ska använda
'Access
Objconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../../data/Serie0102.mdb")
'mySQL
'Objconn.ConnectionString = "driver=MySQL;UID=root;PWD=;Database=medimatch;option=16384"
ObjConn.Open
Set ObjRS = ObjConn.execute(strSQL)
If ObjRS.EOF Then
f_CheckResultat = "matchen finns inte"
Exit function
Else
d_intHresultat = Cint(ObjRS("Resultat1"))
d_intBresultat = Cint(ObjRS("Resultat2"))
strHemmalag = ObjRS("LagA")
strBortalag = ObjRS("LagB")
strSerie = ObjRS("Serie")
End If
'******************************************************************************
'******************************************************************************
'## ~4 ##
If Len(d_intHresultat) <= 0 AND Len(d_intBresultat) <= 0 Then
strINS = "UPDATE matchprogram SET Resultat1 = intHresultat, "&_
"Resultat2 = intBresultat "&_
"WHERE MatchID = "&intMatchID
ObjConn.execute strINS ,,128
ObjConn.close
Set ObjConn = Nothing
f_CheckResultat = "Du har nu lagt in ett resultat till match nr "&intMatchID&"
Exit Function
End If
'******************************************************************************
'******************************************************************************
'## ~5 ##
If d_intHresultat = intHresultat AND d_intBresultat = intBresultat Then
f_checkResultat = "Du har inte ändrat några resultat"
ObjConn.close
Set ObjConn = Nothing
Exit Function
End If
'******************************************************************************
'******************************************************************************
'## ~6 ##
If d_intHresultat > d_intBresultat Then
strFirstWinner = "hemma"
End If
If d_intHresultat = d_intBresultat Then
strFirstWinner = "ingen"
End If
If d_intHresultat < d_intBresultat Then
strFirstWinner = "borta"
End If
'******************************************************************************
'******************************************************************************
'## ~7 ##
If intHresultat > intBresultat Then
strSecondWinner = "hemma"
End If
If intHresultat = intBresultat Then
strSecondWinner = "ingen"
End If
If intHresultat < intBresultat Then
strSecondWinner = "borta"
End If
'******************************************************************************
'******************************************************************************
'## ~8 ##
'## intBolean = 0 :Inga förändringar
'## 1 :hemmalaget(-3), Bortalaget(+3)
'## 2 :hemmalaget(+3), Bortalaget(-3)
'## 3 :hemmalaget(+2), Bortalaget(-1)
'## 4 :hemmalaget(-1), Bortalaget(+2)
'## 5 :hemmalaget(-2), Bortalaget(+1)
'## 6 :hemmalaget(+1), Bortalaget(-2)
If strFirstWinner = "hemma" AND strSecondWinner = "hemma" Then
intBolean = 0
End If
If strFirstWinner = "ingen" AND strSecondWinner = "ingen" Then
intBolean = 0
End If
If strFirstWinner = "borta" AND strSecondWinner = "borta" Then
intBolean = 0
End If
If strFirstWinner = "hemma" AND strSecondWinner = "borta" Then
intBolean = 1
hp = "-3" : bp = "+3" : hv = "-1" : bv = "+1" : hf = "+1" : bf = "-1"
End If
If strFirstWinner = "borta" AND strSecondWinner = "hemma" Then
intBoolean = 2
hp = "+3" : bp = "-3" : hv = "+1" : bv = "-1" : hf = "+1" : bf = "+1"
End If
If strFirstWinner = "ingen" AND strSecondWinner = "hemma" Then
intBolean = 3
hp = "+2" : bp = "-1" : hv = "+1" : bv = "+0" : hf = "+0" : bf = "+1"
End If
If strFirstWinner = "ingen" AND strSecondWinner = "borta" Then
intBolean = 4
hp = "-1" : bp = "+2" : hv = "+0" : bv = "+1" : hf = "+1" : bf = "+0"
End If
If strFirstWinner = "hemma" AND strSecondWinner = "ingen" Then
intBolean = 5
hp = "-2" : bp = "+1" : hv = "-1" : bv = "+0" : hf = "+0" : bf = "+0"
End If
If strFirstWinner = "borta" AND strSecondWinner = "ingen" Then
intBolean = 6
hp = "+1" : bp = "-2" : hv = "+0" : bv = "-1" : hf = "+0" : bf = "+0"
End If
'******************************************************************************
'******************************************************************************
'## ~9 ##
'## intBolean = 0 :Inga förändringar
'## 1 :hemmalaget(-3), Bortalaget(+3)
'## 2 :hemmalaget(+3), Bortalaget(-3)
'## 3 :hemmalaget(+2), Bortalaget(-2)
'## 4 :hemmalaget(-2), Bortalaget(+2)
'## 5 :hemmalaget(-2), Bortalaget(+1)
'## 6 :hemmalaget(+1), Bortalaget(-2)
If intBolean > 0 Then
'uppdaterar hemmalagets poäng
strUPD1 = "UPDATE Serie Set Vinst = Vinst " & hv & ", "&_
"Forl = Forl " & hf & ", "&_
"Poang = Poang & hp & _
"WHERE Lag = '"&strHemmalag&"' "&_
"AND Klass = '"&strSerie&"'"
'uppdaterar bortalagets poäng
strUPD2 = "UPDATE Serie Set Vinst = Vinst " & bv & ", "&_
"Forl = Forl " & bf & ", "&_
"Poang = Poang " & bp &_
"WHERE Lag = '"&strBortalag&"' "&_
"AND Klass = '"&strSerie&"'"
ObjConn.execute strUPD1 ,,128
ObjConn.execute strUPD2 ,,128
end if
ObjConn.close
Set ObjConn = Nothing
f_CheckResultat = "Resultatet har uppdaterats"
End Function
[/red]
Hur skulle det kunna bli att någon skulle få 4 poäng mindre?
------------------
essentitia preter non sans multiplicandum
4 poäng....jag vet inte ....tröttheten spelar in :r
------------------
kolung.....det tål att tänkas på!
strUPD1 = "UPDATE serie SET Gjorda = gjorda - "&FörstaRapportensGjordamål&" + "&AndraRapportensGjordaMål&"...
går det att göra så ?
------------------
kolung.....det tål att tänkas på!
Fasiken va bra... :e
Då ska jag hemm och testa det senare tack :)
------------------
kolung.....det tål att tänkas på!
så här blev det:
[red]
Function f_checkResultat(intMatchID, intHresultat, intBresultat)
'******************************************************************************
'Denna funktion kollar om det resultat som laggts in
'i formuläret ska läggas in i databasen för första ggn
'eller om resultatet ska ändras, om så är fallet ska även tabellen
'ändras
'******************************************************************************
'## Innehållsförteckning ##
'~1 Kollar om resultaten innehåller några värden
'~2 SQL-sats som hämtar värdena i databasen
'~3 Databaskopplingen, Samt att jag lägger in databasvärdet i variblar
'~4 Kollar om det ligger några resultat i just den matchen, om inte läggs det in annars går jag vidare till ~5
'~5 Kollar om resultaten är identiska, om det inte är det går jag vidare till ~6 och ~7
'~6 Kollar vem som fick poäng i den första rapporten
'~7 Kollar vem som fick poäng i den andra rapporten
'~8 Kollar hur poängen ska omfördelas
'~9 Uppdaterar Poängen i både serien och matchprogram
'******************************************************************************
'## ~1 ##
If Len(intHresultat) <= 0 AND Len(intBresultat) <= 0 Then
f_checkResultat = "Du har inte lagt in några resultat"
Exit Function
End If
'******************************************************************************
'******************************************************************************
'## ~2 ##
strSQL = "SELECT LagA, LagB, Resultat1, Resultat2, Serie "&_
"FROM matchprogram WHERE Matchnr = "&intMatchID
'******************************************************************************
'******************************************************************************
'## ~3 ##
Set ObjConn = Server.CreateObject("ADODB.Connection")
'kommentera bort den som ni inte ska använda
'Access
Objconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../../data/Serie0102.mdb")
'mySQL
'Objconn.ConnectionString = "driver=MySQL;UID=root;PWD=;Database=medimatch;option=16384"
ObjConn.Open
Set ObjRS = ObjConn.execute(strSQL)
If ObjRS.EOF Then
f_CheckResultat = "matchen finns inte"
Exit function
Else
If Len(ObjRS("Resultat1")) > 0 Then
d_intHresultat = Cint(ObjRS("Resultat1"))
End If
If Len(ObjRS("Resultat2")) > 0 Then
d_intBresultat = Cint(ObjRS("Resultat2"))
End If
strHemmalag = ObjRS("LagA")
strBortalag = ObjRS("LagB")
strSerie = ObjRS("Serie")
End If
'******************************************************************************
'******************************************************************************
'## ~4 ##
If Len(d_intHresultat) <= 0 AND Len(d_intBresultat) <= 0 Then
'Uppdaterar matchprogramet
strUPD1 = "UPDATE matchprogram SET Resultat1 = "&intHresultat&", "&_
"Resultat2 = "&intBresultat&" "&_
"WHERE Matchnr = "&intMatchID
'Kollar vem som vann
If Cint(intHresultat) > Cint(intBresultat) Then
hp = "+3" : hv = "+1" : hf = "+0" : ho = "+0"
bp = "+0" : bv = "+0" : bf = "+1" : bo = "+0"
End If
If Cint(intHresultat) = Cint(intBresultat) Then
hp = "+1" : hv = "+0" : hf = "+0" : ho = "+1"
bp = "+1" : bv = "+0" : bf = "+0" : bo = "+1"
End If
If Cint(intHresultat) < Cint(intBresultat) Then
hp = "+0" : hv = "+0" : hf = "+1" : ho = "+0"
bp = "+3" : bv = "+1" : bf = "+0" : bo = "+0"
End If
'Uppdaterar Serien
'Uppdaterar hemmalagets stat.
strUPD2 = "UPDATE Serie Set Vinst = Vinst " & hv & ", "&_
"Forl = Forl " & hf & ", "&_
"Poang = Poang " & hp &", "&_
"Oav = Oav " & ho &", "&_
"Gjorda = Gjorda + "& intHresultat &", "&_
"Inslapp = Inslapp + "& intBresultat &", "&_
"Spelade = Spelade + 1"&_
" WHERE Lag = '"&strHemmalag&"' "&_
" AND Klass = '"&strSerie&"'"
'Uppdaterar bortalagets stat.
strUPD3 = "UPDATE Serie Set Vinst = Vinst " & bv & ", "&_
"Forl = Forl " & bf & ", "&_
"Poang = Poang " & bp &", "&_
"Oav = Oav " & bo &", "&_
"Gjorda = Gjorda + "& intBresultat &", "&_
"Inslapp = Inslapp + "& intHresultat &", "&_
"Spelade = Spelade + 1"&_
" WHERE Lag = '"&strBortalag&"' "&_
" AND Klass = '"&strSerie&"'"
ObjConn.execute(strUPD1),,128
ObjConn.execute(strUPD2),,128
ObjConn.execute(strUPD3),,128
ObjConn.close
Set ObjConn = Nothing
f_CheckResultat = "Du har nu lagt in ett resultat till match nr "&intMatchID
Exit Function
End If
'******************************************************************************
'******************************************************************************
'## ~5 ##
If d_intHresultat = intHresultat AND d_intBresultat = intBresultat Then
f_checkResultat = "Du har inte ändrat några resultat"
Exit Function
End If
'******************************************************************************
'******************************************************************************
'## ~6 ##
If d_intHresultat > d_intBresultat Then
strFirstWinner = "hemma"
End If
If d_intHresultat = d_intBresultat Then
strFirstWinner = "ingen"
End If
If d_intHresultat < d_intBresultat Then
strFirstWinner = "borta"
End If
'******************************************************************************
'******************************************************************************
'## ~7 ##
If intHresultat > intBresultat Then
strSecondWinner = "hemma"
End If
If intHresultat = intBresultat Then
strSecondWinner = "ingen"
End If
If intHresultat < intBresultat Then
strSecondWinner = "borta"
End If
'******************************************************************************
'******************************************************************************
'## ~8 ##
'## intBolean = 0 :Inga förändringar
'## 1 :hemmalaget(-3), Bortalaget(+3)
'## 2 :hemmalaget(+3), Bortalaget(-3)
'## 3 :hemmalaget(+2), Bortalaget(-4)
'## 4 :hemmalaget(-4), Bortalaget(+2)
'## 5 :hemmalaget(-2), Bortalaget(+1)
'## 6 :hemmalaget(+1), Bortalaget(-2)
If strFirstWinner = "hemma" AND strSecondWinner = "hemma" Then
intBolean = 0
End If
If strFirstWinner = "ingen" AND strSecondWinner = "ingen" Then
intBolean = 0
End If
If strFirstWinner = "borta" AND strSecondWinner = "borta" Then
intBolean = 0
End If
If strFirstWinner = "hemma" AND strSecondWinner = "borta" Then
intBolean = 1
hp = "-3" : hv = "-1" : hf = "+1" : ho = "+0"
bp = "+3" : bv = "+1" : bf = "-1" : bo = "+0"
End If
If strFirstWinner = "borta" AND strSecondWinner = "hemma" Then
intBolean = 2
hp = "+3" : hv = "+1" : hf = "-1" : ho = "+0"
bp = "-3" : bv = "-1" : bf = "+1" : bo = "+0"
End If
If strFirstWinner = "ingen" AND strSecondWinner = "hemma" Then
intBolean = 3
hp = "+2" : hv = "+1" : hf = "+0" : ho = "-1"
bp = "-1" : bv = "+0" : bf = "+1" : bo = "-1"
End If
If strFirstWinner = "ingen" AND strSecondWinner = "borta" Then
intBolean = 4
hp = "-1" : hv = "+0" : hf = "+1" : ho = "-1"
bp = "+2" : bv = "+1" : bf = "+0" : bo = "-1"
End If
If strFirstWinner = "hemma" AND strSecondWinner = "ingen" Then
intBolean = 5
hp = "-2" : hv = "-1" : hf = "+0" : ho = "+1"
bp = "+1" : bv = "+0" : bf = "-1" : bo = "+1"
End If
If strFirstWinner = "borta" AND strSecondWinner = "ingen" Then
intBolean = 6
hp = "+1" : hv = "+0" : hf = "-1" : ho = "+1"
bp = "-2" : bv = "-1" : bf = "+0" : bo = "+1"
End If
'******************************************************************************
'******************************************************************************
'## ~9 ##
'## intBolean = 0 :Inga förändringar
'## 1 :hemmalaget(-3), Bortalaget(+3)
'## 2 :hemmalaget(+3), Bortalaget(-3)
'## 3 :hemmalaget(+2), Bortalaget(-4)
'## 4 :hemmalaget(-4), Bortalaget(+2)
'## 5 :hemmalaget(-2), Bortalaget(+1)
'## 6 :hemmalaget(+1), Bortalaget(-2)
If intBolean > 0 Then
'uppdaterar hemmalagets poäng
strUPD1 = "UPDATE Serie Set Vinst = Vinst " & hv & ", "&_
"Forl = Forl " & hf & ", "&_
"Poang = Poang " & hp &", "&_
"Oav = Oav " & ho &", "&_
"Gjorda = Gjorda - "& d_intHresultat &" + "& intHresultat &", "&_
"Inslapp = Inslapp - "& d_intBresultat &" + "& intBresultat &_
" WHERE Lag = '"&strHemmalag&"' "&_
" AND Klass = '"&strSerie&"'"
'uppdaterar bortalagets poäng
strUPD2 = "UPDATE Serie Set Vinst = Vinst " & bv & ", "&_
"Forl = Forl " & bf & ", "&_
"Poang = Poang " & bp &", "&_
"Oav = Oav " & bo &", "&_
"Gjorda = Gjorda - "& d_intBresultat &" + "& intBresultat &", "&_
"Inslapp = Inslapp - "& d_intHresultat &" + "& intHresultat &_
" WHERE Lag = '"&strBortalag&"' "&_
" AND Klass = '"&strSerie&"'"
Else
'uppdaterar hemmalagets poäng
strUPD1 = "UPDATE Serie SET Gjorda = Gjorda - "& d_intHresultat &" + "& intHresultat &", "&_
"Inslapp = Inslapp - "& d_intBresultat &" + "& intBresultat &_
" WHERE Lag = '"&strHemmalag&"' "&_
" AND Klass = '"&strSerie&"'"
'uppdaterar bortalagets poäng
strUPD2 = "UPDATE Serie SET Gjorda = Gjorda - "& d_intBresultat &" + "& intBresultat &", "&_
"Inslapp = Inslapp - "& d_intHresultat &" + "& intHresultat &_
" WHERE Lag = '"&strBortalag&"' "&_
" AND Klass = '"&strSerie&"'"
End If
'Uppdaterar Matchprogrammet
strUPD3 = "UPDATE matchprogram SET Resultat1 = "&intHresultat&", "&_
"Resultat2 = "&intBresultat&" "&_
"WHERE Matchnr = "&intMatchID
ObjConn.execute strUPD1 ,,128
ObjConn.execute strUPD2 ,,128
ObjConn.execute strUPD3 ,,128
ObjConn.close
Set ObjConn = Nothing
f_CheckResultat = "Resultatet har uppdaterats"
End Function
[/red]
------------------
kolung.....det tål att tänkas på!
[Redigerat av icaaq den 27 nov 2001]