visualizzare record in form

**maximum** · 09-06-2005, 23:09

Di nulla.

**alfietto82** · 09-06-2005, 23:33

rieccomi

ora sono alle prese con la pagina che aggiorna il database con le modifiche inserite nel form, questo è il codice:

<%
if request("id")=1 then

dim conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mdb-database/aggiornamento.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM topalternative order by id", conn, 3, 3

art01=request.form("art01")
tit01=request.form("tit01")
id01=request.form("id01")
prezzo01=request.form("prezzo01")
rs.update

RS.Close
Set RS = Nothing
conn.Close
Set conn=Nothing

else
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
</body>
</html>

una volta cliccato il tanto del form e reindirizzati a questa pagina, non compare nessun errore, ma tornando alla pagina precedente (quella del form) il campo o i campi modificati sono perfettamente come all'origine, non hanno cambiato valore..

**maximum** · 10-06-2005, 07:50

Se le variabili che devi aggiornare sono numeriche, modifica il tuo script così:

codice:

art01=request.form("art01") 
tit01=request.form("tit01") 
id01=request.form("id01") 
prezzo01=request.form("prezzo01") 

sql = "UPDATE tua_tabella set art01 = " & art01 & ", tit01 = " & tit01 & ", id01 = " & id01 & ", prezzo01 = " & prezzo01 & " WHERE tuo_id = " & & rs("id")

Conn.execute(sql)		
%>

Se le variabili che devi aggiornare sono stringhe, modifica il tuo script così:

codice:

art01=request.form("art01") 
tit01=request.form("tit01") 
id01=request.form("id01") 
prezzo01=request.form("prezzo01") 

sql = "UPDATE tua_tabella set art01 = '" & art01 & "', tit01 = '" & tit01 & "', id01 = '" & id01 & "', prezzo01 = '" & prezzo01 & "' WHERE tuo_id = " & rs("id")

Conn.execute(sql)		
%>

Se sono sia stringhe che numerici mischi i due codici.

**alfietto82** · 16-06-2005, 22:03

bene, nuovi problemi in arrivo

a seguito di un rifacimento del database ho dovuto dare una ritoccatina al codice, e se per la pagina di visualizzazione e inserimento modifica record database non ho problemi:

<%
dim conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mdb-database/aggiornamento.mdb")
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Gestione Bestsellers</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>

<form action="aggiungi_best.asp?id=1" method="post" name="topalternative" id="topalternative">
<div align="center">
<table width="800" border="0">
<tr>
<td>TOP HOUSE SELLER </td>
</tr>
</table>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from tophouse WHERE idn=1", conn, 3, 3
%>
<table width="800" border="0">
<tr>
<td> 1</td>
</tr>
</table>
<table width="800" border="0">
<tr>
<td>artista</td>
<td><div align="center">
<input name="art01" type="text" id="art01" value="<%=rs("artista")%>">
</div></td>
<td>titolo</td>
<td><div align="center">
<input name="tit01" type="text" id="tit01" value="<%=rs("titolo")%>">
</div></td>
<td>id articolo </td>
<td><div align="center">
<input name="id01" type="text" id="id01" value="<%=rs("id")%>">
</div></td>
<td>prezzo</td>
<td><div align="center">
<input name="prz01" type="text" id="prz01" value="<%=rs("prezzo")%>">
</div></td>
</tr>
</table>
<%
RS.Close
Set RS = Nothing
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from tophouse WHERE idn=2", conn, 3, 3
%>
<table width="800" border="0">
<tr>
<td>2</td>
</tr>
</table>
<table width="800" border="0">
<tr>
<td>artista</td>
<td><div align="center">
<input name="art02" type="text" id="art02" value="<%=rs("artista")%>">
</div></td>
<td>titolo</td>
<td><div align="center">
<input name="tit02" type="text" id="tit02" value="<%=rs("titolo")%>">
</div></td>
<td>id articolo </td>
<td><div align="center">
<input name="id02" type="text" id="id02" value="<%=rs("id")%>">
</div></td>
<td>prezzo</td>
<td><div align="center">
<input name="prz02" type="text" id="prz02" value="<%=rs("prezzo")%>">
</div></td>
</tr>
</table>
<%
RS.Close
Set RS = Nothing
%>
<table width="800" border="0">
<tr>
<td>3</td>
</tr>
</table>

<input type="submit" name="Submit" value="Inserisci Top Seller">
</p>
</div>
</form>
<%
conn.Close
Set conn=Nothing
%>
<div align="center">
</div>
</body>
</html>

i veri casini iniziano quando devo andare alla pagina che permetterà ai dati inseriti nei vari tag del form, di modificare il database..ho creato il seguente codice:

<%
if request("id")=1 then

dim conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mdb-database/aggiornamento.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM tophouse order by idn", conn, 3, 3

artista=request.form("art01")
titolo=request.form("tit01")
id=request.form("id01")
prezzo=request.form("prz01")

artista=request.form("art02")
titolo=request.form("tit02")
id=request.form("id02")
prezzo=request.form("prz02")

sql1 = "UPDATE tophouse set artista = '" & art01 & "', titolo = '" & tit01 & "', id = " & id01 & ", prezzo = " & prz01 & " WHERE idn='1'"
Conn.execute(sql1)

sql2 = "UPDATE tophouse set artista = '" & art02 & "', titolo = '" & tit02 & "', id = " & id02 & ", prezzo = " & prz02 & " WHERE idn='2'"
Conn.execute(sql2)

RS.Close
Set RS = Nothing
conn.Close
Set conn=Nothing
Response.Write ("Goodymusic Best Sellers aggiornato, <a href=gestione_best.asp>torna indietro</a>")
else
end if
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>:: aggiornamento database in corso ::</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
</body>
</html>

ma non funziona, in quanto mi da errore di sintassi in update..inoltre a intuito credo che ci sia qualcos'altro di sbagliato ma di grosso..

**alfietto82** · 16-06-2005, 23:40

ci sono arrivato da solo:

<%
if request("id")=1 then

dim conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mdb-database/aggiornamento.mdb")

art01=request.form("art01")
tit01=request.form("tit01")
id01=request.form("id01")
prz01=request.form("prz01")

sql1 = "UPDATE tophouse set artista = '" & art01 & "', titolo = '" & tit01 & "', id = " & id01 & ", prezzo = " & prz01 & " WHERE idn = 1 "
Conn.execute(sql1)

art02=request.form("art02")
tit02=request.form("tit02")
id02=request.form("id02")
prz02=request.form("prz02")

sql2 = "UPDATE tophouse set artista = '" & art02 & "', titolo = '" & tit02 & "', id = " & id02 & ", prezzo = " & prz02 & " WHERE idn = 2 "
Conn.execute(sql2)

conn.Close
Set conn=Nothing
Response.Write ("Goodymusic Best Sellers aggiornato, <a href=gestione_best.asp>torna indietro</a>")
else
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>:: aggiornamento database in corso ::</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
</body>
</html>

che soddisfazione ragazzi

alla prossima!

Discussione: visualizzare record in form

Strumenti discussione

Ricerca discussione

Visualizza

Permessi di invio