Salve. Ho una funzione che mi aggiorna un recordset e una che me lo aggiunge, in base ai dati forniti dall'utente in una form.
Per quanto riguarda l'inserimento di nuovi record non ci sono problemi.
Con l'aggiornamento invece proprio non ci riesco.
Questa è la funzione:
codice:
sub ModificaEvento
call ResetSession
call FormToSession
if ControllaDati then
Dim Conn, Sql, rs
Call AproConnessione(StrConn, Conn)
Sql = "UPDATE TBawards SET "
Sql = Sql &" [Winner] = '"& Replace(Session("Winner"), "'", "''") &"'"
Sql = Sql &", [Loser] = '"& Replace(Session("Loser"), "'", "''") "'"
Sql = Sql &", [Result] = '"& Replace(Session("Result"), "'", "''") &"'"
Sql = Sql &", [Score] = '"& Replace(Session("Score"), "'", "''") &"'"
Sql = Sql &", [CommentoIT] = '"& Replace(Session("CommentoIT"), "'", "''") &"'"
Sql = Sql &", [CommentoEN] = '"& Replace(Session("CommentoEN"), "'", "''") &"'"
Sql = Sql &", [Map1] = '"& Replace(Session("Map1"), "'", "''") &"'"
Sql = Sql &", [Map2] = '"& Replace(Session("Map2"), "'", "''") &"'"
Sql = Sql &", [Map3] = '"& Replace(Session("Map3"), "'", "''") &"'"
Sql = Sql &", [GameType] = '"& Replace(Session("GameType"), "'", "''") &"'"
Sql = Sql &", [Gioco] = "& Session("Gioco")
Sql = Sql &", [Data] = "& Session("Data")
Sql = Sql &" WHERE [IDmatch] = "& Request("IDmatch")
set rs = Conn.execute(Sql)
set rs = Nothing
Call ChiudoConnessione(Conn)
call ResetSession
call tornaAllaLista
end if
end sub
Però non funziona.
Mi viene restituito un errore:
Microsoft JET Database Engine error '80040e14'
Syntax error (missing operator) in query expression '[IDmatch] ='.
/gestore/modificaAward.asp, line 191
dove la linea 191 è:
set rs = Conn.execute(Sql)
Come mai non funziona?
Grazie mille, non riesco ad uscirne fuori...