ciao a tutti..come chiedevo prima in un altro thread ho un problemino con una pagina che modifica i dati in un db. soprattutto nel caso di un campo data/ora.
il mio db ha 4 campi: ID, nome, cognome e data_nascita.
la pagina modifica è cosi composta:
la prima pagina raccoglie i dati dal db, li mette in una colonna e alla fine c'è un link MODIFICA che passa alla seconda pagina il valore dell'id..in modo da modificare solo i dati di quel record
la seconda pagina mette i dati prelevati nella pagina precedente in delle text area cosi posso modificarle e passa i dati modificati alla terza pagina dove avviene il salvataggio dei dati nel db e, quindi la modifica.
tutto funziona. il problema è che se io cancello i valori presenti nel campo data/ora mi da errore mentre, se li modifico, va tutto ok...
xò a me servirebbe di dare la possibilità all'utente di rendere quel campo vuoto
mi potete aiutare??
secondo me il problema è dovuto agli apici che uso..come dovrei metterli nel caso il tipo della colonna è data/ora? su questo ho un grosso dubbio...
vi posto il codice della seconda e terza pagina..
MODIFICA2:
<%
dim intCodice
intCodice = request("ID")
if intCodice<>"" then
%>
<html>
<head>
<title> Modifica </title>
</head>
<body>
<%
dim strCode
strCode="innovatel"
dim intVolta
intVolta="0"
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/prove/database.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM nomi WHERE ID = "&intCodice
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
%>
<form method="post" action="modifica3.asp?ID=<%=rs("ID")%>">
<table width="80%" border="1" align="center" bgcolor="#bee3ef">
<tr><td>nome</td>
<td><input type="text" name="nome" value="<%=rs("nome")%>" /></td></tr>
<tr><td>cognome</td>
<td><input type="text" NAME="cognome" value="<%=rs("cognome")%>" /></td></tr>
<tr><td>data nascita</td> <td><input type="text" NAME="data" value="<%=rs("data_nascita")%>" /></td></tr>
<tr><td height="45"><center><input type="submit" value="Modifica" /></center></td><td></td></tr>
</table>
</form>
<%
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
</body>
</html>
<%
else
response.redirect "modifica1.asp"
end if
%>
MODIFICA3:
<%
dim intCodice
intCodice = request("ID")
if intCodice<>"" then
dim strCode
strCode="innovatel"
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/prove/database.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM nomi WHERE ID = "&intCodice
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
rs("nome")=request.form("nome")
rs("cognome")=request.form("cognome")
rs("data_nascita")=request.form("data")
rs.update
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
<HTML>
<HEAD>
<TITLE> Aggiornamento Dati </TITLE>
</HEAD>
<BODY>
<TABLE width="100%" height="100%" valign="middle">
<TR>
<TD><center>
<table width="80%" border="1" align="center" bgcolor="#bee3ef">
<TR>
<TD height="67"><CENTER>Aggiornamento eseguito
correttamente</CENTER></TD> </TR>
<TR>
<TD height="76"><CENTER><a href="modifica1.asp">Verifica Le
Modifiche</a></CENTER></TD> </TR>
</TABLE>
</center></TD>
</TR>
</TABLE>
</BODY>
</HTML>
<%
else
response.redirect "modifica1.asp"
end if
%>
Rispondi quotando
