|
RAGGRUPPARE I DATI: NUOVA VERSIONE DEL SONDAGGIO
AZZERA.ASP
Quando si desidera far ripartire un sondaggio può
essere comodo poter azzerare i dati presenti nel database:
dato che per ogni voto si aggiunge un nuovo record,
azzerare i voti precedenti significa cancellare tutti
i record del database.
Pertanto creiamo la connessione con il database
|
<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver
(*.mdb)};dbq=" & server.mappath("database/sondaggio.mdb")
|
A
questo punto creiamo la query che dovrà essere
|
Dim
mysql
mysql="delete from sondaggio where vota like
'%'"
|
ovvero
"elimina dalla tabella sondaggio tutti i record
il cui campo vota corrisponde a %" dove il
simbolo % corriponde ad un qualsiasi valore.
In pratica chiediamo di cancellare i record il cui campo
vota contiene un valore qualsiasi (quindi tutti...).
Quindi prepariamo il recordset, eseguiamo la selezione
e chiudiamo il database.
|
Dim
rs
set rs=Server.CreateObject("adodb.recordset")
rs.open mySQL, Conn, 3, 3
set rs=nothing
conn.close
set rs=nothing
|
Una
volta cancellati tutti i record presenti nel database
visualizziamo un messaggio di conferma.
|
response.write
"database azzerato"
%>
|
In
questo modo quando si desidera azzerare un sondaggio
cancellando i voti precedentemente espressi è
sufficiente richiamare la pagina azzera.asp
|
