pulsante per eliminazione record

**center** · 03-11-2007, 01:26

Salve a tutti, nonostante io non sia un programmatore (anzi di programmazione ne capisco ben poco), tramite le funzioni guidate di Dreamweaver e l'aiuto di forum e manuali sono riuscito a creare le mie belle paginette di registrazione al sito, di login e, per l'amministratore del sito, anche di visualizzazione di tutti i record presenti nel DB. Quest'ultima parte l'ho sviluppata tramite lo strumento "Tabella dinamica" di Dreamweaver, che mi visualizza per ogni riga della tabella un record. Il mio problema è questo: vorrei inserire in ogni riga della tabella un pulsante per eliminare l'intero record; leggendo qua e la mi è sembrato di capire che bisogna collegare il pulsante al record tramite il campo id, e dargli "value=elimina". Premesso che non so se ho capito bene (mi sa di no), come posso realizzare una cosa simile? E' complicato il codice da assegnare al pulsante? Il DB è Access e le pagine sono Asp.

Grazie a tutti.....

**Mems** · 03-11-2007, 11:39

Ti serve una pagina che fa la cancellazione del record in base al valore ID di quest'ultimo.
elimina.asp

codice:

<%
id = request.queryString(id)

if len(id) > 0 and isNumeric(id) then

set conn = server.createObject("ADODB.Connection")
conn.open stringaConnessione
conn.execute("DELETE * FROM tabella1 WHERE [ID] = " & id
conn.close
set conn = nothing

end if
%>

Nella pagina che invece elenca i record aggiungi un link alla pagina elimina.asp passando in queryString id=valoreIDDelRecord

**center** · 04-11-2007, 01:49

Io ti ringrazio tanto per l'aiuto. Il discorso della pagina elimina.asp mi è piuttosto chiaro. Il problema, non essendo come detto un programmatore, lo ritrovo qui:

"Nella pagina che invece elenca i record aggiungi un link alla pagina elimina.asp passando in queryString id=valoreIDDelRecord"

Potresti spiegarmi meglio? Il link devo aggiungerlo al bottone?

**Mems** · 04-11-2007, 14:22

Vediamo la pagian che elenca i record?

**center** · 04-11-2007, 17:49

<%@LANGUAGE="VBSCRIPT"%>

<%
Dim deldb
Dim deldb_numRows
Set deldb = Server.CreateObject("ADODB.Recordset")
deldb.ActiveConnection = MM_riv_STRING
deldb.Source = "SELECT user, psw, nome, cognome, indirizzo, telefono, email FROM riv ORDER BY nome, cognome, indirizzo, telefono, email, user, psw"
deldb.CursorType = 0
deldb.CursorLocation = 2
deldb.LockType = 1
deldb.Open()
deldb_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
deldb_numRows = deldb_numRows + Repeat1__numRows
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Serra Infissi s.n.c. - Cancellazione account rivenditore</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="style.css" rel="stylesheet" type="text/css">
<script type="text/JavaScript">

</script>
</head>
<body bgcolor="fffff0" topmargin="0" onLoad="MM_preloadImages('images/prodotti_roll.jpg','images/listino_roll.jpg','images/contatti_roll.jpg','images/reserved_roll.jpg','/serra/www/images/home_roll.jpg')">
<table width="800" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="fffff0">

<tr>
<td height="215" colspan="6" valign="top">[img]images/header.jpg[/img]</td>
</tr>
<tr>
<td height="60" colspan="6" valign="top">[img]images/title.jpg[/img]</td>
</tr>
<tr>
<td height="41" colspan="2" valign="top" bgcolor="952c1c"></td>
<td colspan="2" align="center" valign="middle" bgcolor="952c1c">[img]/serra/www/images/home.jpg[/img][img]images/prodotti.jpg[/img][img]images/lavori.jpg[/img][img]images/listino.jpg[/img][img]images/contatti.jpg[/img][img]images/reserved.jpg[/img]</td>
<td colspan="2" valign="top" bgcolor="952c1c"></td>
</tr>
<tr>
<td width="4" rowspan="3" valign="top" bgcolor="952c1c"></td>
<td height="19" colspan="4" valign="top"></td>
<td width="4" rowspan="3" valign="top" bgcolor="952c1c"></td>
</tr>
<tr>
<td height="130" colspan="4" align="center" valign="top" class="table">
<table border="1" cellpadding="10" cellspacing="0" class="table">
<tr>
<td class="table">Username</td>
<td class="table">Password</td>
<td class="table">Nome</td>
<td class="table">Cognome</td>
<td class="table">Indirizzo</td>
<td class="table">Telefono</td>
<td class="table">E-mail</td>
</tr>
<% While ((Repeat1__numRows <> 0) AND (NOT deldb.EOF)) %>
<tr>
<td class="table"><%=(deldb.Fields.Item("user").Value) %></td>
<td class="table"><%=(deldb.Fields.Item("psw").Value)% ></td>
<td class="table"><%=(deldb.Fields.Item("nome").Value) %></td>
<td class="table"><%=(deldb.Fields.Item("cognome").Val ue)%></td>
<td class="table"><%=(deldb.Fields.Item("indirizzo").V alue)%></td>
<td class="table"><%=(deldb.Fields.Item("telefono").Va lue)%></td>
<td class="table"><%=(deldb.Fields.Item("email").Value )%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
deldb.MoveNext()
Wend
%>
</table></td>
</tr>
<tr>
<td height="19" colspan="4" valign="top"></td>
</tr>
<tr>
<td height="170" colspan="6" valign="top">[img]images/comp.jpg[/img]</td>
</tr>
<tr>
<td height="39" colspan="6" align="center" valign="middle" bgcolor="952c1c" class="pie">Home | Prodotti | I nostri lavori | Listino prezzi | Contatti | Area riservata</td>
</tr>
<tr>
<td height="27" colspan="3" valign="middle">[img]images/logo.gif[/img]</td>
<td colspan="3" valign="middle" class="copyright"><span class="copyright">Copyright 2007 © Serra s.n.c. Tutti i diritti riservati </span></td>
</tr>
<tr>
<td height="1"></td>
<td width="72"></td>
<td width="216"></td>
<td width="431"></td>
<td width="73"></td>
<td></td>
</tr>
</table>
</body>
</html>
<%
deldb.Close()
Set deldb = Nothing
%>

Il bottone attualmente non è presente, non l'ho ancora aggiunto; vorrei inserirlo in una nuova cella della tabella dinamica. Scusa la domanda da ignorante, ma non esiste un comando da associare al bottone direttamente nella pagina di visualizzazione, senza dover per forza creare la pagina di eliminazione?

Cmq grazie mille per l'aiuto che mi stai fornendo!!!!

**Mems** · 04-11-2007, 18:15

La parte in rosso la sostituisci con il nome del tuo campo ID, ovvero quello che hai impostato come contatore nella tabella in questione.

codice:

<tr>
<td class="table">Username</td>
<td class="table">Password</td>
<td class="table">Nome</td>
<td class="table">Cognome</td>
<td class="table">Indirizzo</td>
<td class="table">Telefono</td>
<td class="table">E-mail</td>
<td>Funzioni</rd>
</tr>
<% While ((Repeat1__numRows <> 0) AND (NOT deldb.EOF)) %>
<tr>
<td class="table"><%=(deldb.Fields.Item("user").Value)%></td>
<td class="table"><%=(deldb.Fields.Item("psw").Value)%></td>
<td class="table"><%=(deldb.Fields.Item("nome").Value)%></td>
<td class="table"><%=(deldb.Fields.Item("cognome").Value)%></td>
<td class="table"><%=(deldb.Fields.Item("indirizzo").Value)%></td>
<td class="table"><%=(deldb.Fields.Item("telefono").Value)%></td>
<td class="table"><%=(deldb.Fields.Item("email").Value)%></td>
<td class="table">">Cancella</td>
</tr>
<% 
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
deldb.MoveNext()
Wend
%>

cancella.asp

codice:

<%@LANGUAGE="VBSCRIPT"%>

<html>
<head><title></title>
</head>
<body>
<%
id = request.queryString(id)

ref = request.serverVariables("HTTP_REFERER")

if len(ref) = 0 then ref = "/"

if len(id) > 0 and isNumeric(id) then

set conn = server.createObject("ADODB.Connection")
conn.open MM_riv_STRING
conn.execute("DELETE * FROM riv WHERE [ID] = " & id
conn.close
set conn = nothing
response.write "Operazione eseguita."
else
response.write "Nessun valore specificato!"
end if
%>

Torna indietro
</body>
</html>

**center** · 05-11-2007, 11:22

Ciao, grazie mille per l'aiuto innanzitutto.

Purtroppo non va, ma il perchè lo so io: ho omesso di dire che nel db ci sono 2 tabelle, cioè "admin" e "riv". Il record deve essere cancellato dalla tabella "riv".
Spero che non mi vieni a picchiare

e che non ti ho fatto fare tutto questo lavoro a vuoto. Scusa ancora.....

**Mems** · 05-11-2007, 11:38

Smanettaci un po. Vedrai che ce la fai. L'esempio è quello che ti ho mostrato.

**center** · 05-11-2007, 12:14

in pratica devo aggiungergli su quale delle due tabelle deve lavorare giusto?

Discussione: pulsante per eliminazione record

Strumenti discussione

Ricerca discussione

Visualizza

pulsante per eliminazione record

Permessi di invio