problema con comando sql update [code]

[bbgol]

questo codice dovrebbe fare la modifica di un record ricercato non ricordo cosa scrivere nella riga sql

<%
dim Conn2, strConn2

strConn2 = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("/mdb-database/calcio.mdb")
Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open StrConn2

SQL2 = "SELECT * FROM squadre"

Set rs2 = Server.CreateObject("ADODB.Recordset")
Rs2.Open SQL2, Conn2, 1, 3


if request.Form("golcasa")>request.Form("golfuori") then
Do Until rs2.Eof = True
if request.Form("casa")=rs2("squadre") then
rs2("punti")=rs2("punti")+3
end if
rs2.movenext
Loop
end if

if request.Form("golcasa")<request.Form("golfuori") then
Do Until rs2.Eof = True
if request.Form("fuori")=rs2("squadre") then
rs2("punti")=rs2("punti")+3
end if
rs2.movenext
Loop
end if

Response.write "<H2>inserimento effettuato con successo</H2>"

rs2.Close
set rs2 = Nothing
conn2.Close
set conn2 = Nothing

%>

[byluciani]

questo codice dovrebbe fare la modifica di un record ricercato non ricordo cosa scrivere nella riga sql

:master:
spigati meglio, perchè non capisco la domanda

forse hai dimenticato un rs2.update?

[bbgol]

il mio dubbio è sul comando

SQL2 = "SELECT * FROM squadre"

Set rs2 = Server.CreateObject("ADODB.Recordset")
Rs2.Open SQL2, Conn2, 1, 3

e poi penso ci voglia rs2.update

[byluciani]

ti consiglio questo codice

<%
Dim Conn2, strConn2
 
strConn2 = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("/mdb-database/calcio.mdb")
Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open StrConn2
 
SQL = "UPDATE squadre SET punti = punti"
 
If request.Form("golcasa") > request.Form("golfuori") Then
  'vittoria casa
  SQL = SQL & " + 3 WHERE squadre = '" & request.Form("casa") & "'"
ElseIf request.Form("golcasa") < request.Form("golfuori") Then
  'vittoria fuori
  SQL = SQL & " + 3 WHERE squadre = '" & request.Form("fuori") & "'"
Else
  'pareggio
  SQL = SQL & " + 1 WHERE squadre = '" & request.Form("casa") & "' OR squadre = '" & request.Form("fuori") & "'"
End If
 
Conn2.Execute SQL
Conn2.Close
Set conn2 = Nothing
%>

così con una sola pagina aggiorni pareggi, vittorie fuori e vittorie casa

[bbgol]

grazie lo provo e ti fo sapere

[bbgol]

funzionaaaaaaaaaaaaaaaa

grazieeeeeeee

[byluciani]

Originariamente inviato da bbgol
funzionaaaaaaaaaaaaaaaa

sono esterrrrrefatto