Aggiornare dati di db access tramite form

**marocco82** · 24-04-2010, 19:08

Salve a tutti,
per esigenza mi sto avvicinando a questo linguaggio di programmazione a me sconosciuto ed ho seguito attentamente le lezioni di questo splendido sito e forum che mi hanno illuminato parecchie volte ma, seguendo la lezione "Aggiornamento dati nel database" ho riscontrato un problema e non riesco a venirne a capo.
Ho seguito alla lettera la lezione dove spiega appunto come aggiornare i dati del db tramite il form precedentemente compilato ma, una volta cliccato su "modifica" e modificando la voce interessata, non viene effettuata nessuna modifica e tutto rimane invariato.
Potreste dare un'occhiatina al mio codice?
Grazie a tutti

lista_clienti.asp

Codice PHP:


<html>

  <head>

<script language="Javascript1.2">

<!--

function elimina()

{

return confirm("<%=str_users_nome%>, vuoi eliminare il cliente indicato ?");

}

-->

</script>      

  </head>

<% Server.Execute("header.asp") %>    



  <body bgcolor="#FFFFFF" text="#000000" font face="tahoma" font size="7">

<center>

<h2>GESTIONE CAMPAGNA</h2>

<h4>ELENCO CONTATTI INSERITI</h4>



[url="export.asp"]ESPORTA LA LISTA CLIENTI[/url]</p>

<TABLE border="0" width="600">

<TR bgcolor="000000">

<TD><center><font color="#FFFFFF">Id</font></center></TD>

<TD><center><font color="#FFFFFF">Data inserimento</font></center></TD>

<TD><center><font color="#FFFFFF">Campagna</font></center></TD>

<TD><center><font color="#FFFFFF">Nome</font></center></TD>

<TD><center><font color="#FFFFFF">Cognome</font></center></TD>

<TD><center><font color="#FFFFFF">Telefono</font></center></TD>

<TD><center><font color="#FFFFFF">Cellulare</font></center></TD>

<TD><center><font color="#FFFFFF">Altro recapito</font></center></TD>

<TD><center><font color="#FFFFFF">E-mail</font></center></TD>

<TD><center><font color="#FFFFFF">Situazione familiare</font></center></TD>

<TD><center><font color="#FFFFFF">Componenti famiglia</font></center></TD>

<TD><center><font color="#FFFFFF">Qualificato</font></center></TD>

<TD><center><font color="#FFFFFF">Esito</font></center></TD>

<TD><center><font color="#FFFFFF">Note</font></center></TD>

<TD><center><font color="#FFFFFF">Operatore</font></center></TD>

<TD><center><font color="#FFFFFF"></font></center></TD>

<TD><center><font color="#FFFFFF"></font></center></TD>

</TR>

<%

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("nomedb.mdb")

strConn=strConn & ";pwd=" & strCode

Conn.Open strConn

sql = "SELECT * FROM nometabella"

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sql, conn ,3,3



do while not(rs.eof)

if intVolta="1" then

intVolta="0"

intTesto="#00FF99"

intSfondo="#D5D5D5"

else

intVolta="1"

intTesto="#FFFF99"

intSfondo="#909090"

end if

%>

<TR bgcolor="<%=intSfondo%>">

<TD><%=rs(0)%></TD>

<TD><%=rs("data_inserimento")%></TD>

<TD><%=rs("campagna")%></TD>

<TD><%=rs("nome")%></TD>

<TD><%=rs("cognome")%></TD>

<TD><%=rs("telefono")%></TD>

<TD><%=rs("cellulare")%></TD>

<TD><%=rs("altro_recapito")%></TD>

<TD><%=rs("email")%></TD>

<TD><%=rs("stato")%></TD>

<TD><%=rs("componenti_famiglia")%></TD>

<TD><%=rs("qualificato")%></TD>

<TD><%=rs("esito")%></TD>

<TD><%=rs("note")%></TD>

<TD><%=rs("operatore")%></TD>

<TD>[url="cancella_cliente.asp?Id=<%=rs(0)%>"]Cancella[/url]</TD>

<TD>[url="modifica_cliente.asp?Id=<%=rs(0)%>"]Modifica[/url]</TD> </TR>



<%

rs.movenext

loop

rs.Close

set rs = Nothing

conn.Close

set conn = Nothing

%>

</TABLE>



</center>



  </body>

</html>

modifica_cliente.asp

Codice PHP:


<html>

<head>

<title>Modifica dati cliente</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("nomedb.mdb")

  strConn=strConn & ";pwd=" & strCode

  Conn.Open strConn



  sql = "SELECT * FROM nometabella WHERE Id="&intCodice

  Set rs = Server.CreateObject("ADODB.Recordset")

  rs.Open sql, conn ,3,3

%>



<table width="780">

<form name="campagnamcvi" method="post" action="elabora_modifica.asp">

<input type="hidden" name="operatore" value="<%=str_users_nome%><%=str_users_cognome%>">

<input type="hidden" name="data_inserimento" value="<%=Date()%><%=Time()%>">



  <tr>

    <td align="left"><font face="tahoma">[size="1"]
 

              [b]Campagna:[/b]
<select name="campagna" value="<%=rs("campagna")%>">

                      <option value="campagna1">campagna1</option>

                      <option value="campagna2">campagna2</option>

                      

                   </select>

      [/size]</font></td>

  </tr>

  <tr>

    <td align="left"><font face="tahoma">[size="1"]
 

              [b]Nome:[/b]
<input type="text" name="nome" value="<%=rs("nome")%>" size="30">[/size]</font></td>

    <td align="left"><font face="tahoma">[size="1"]
 

              [b]Cognome:[/b]
<input type="text" name="cognome" value="<%=rs("cognome")%>" size="30">[/size]</font></td>

  </tr>  

   <tr>

    <td align="left"><font face="tahoma">[size="1"]
 

              [b]Telefono:[/b]
<input type="text" name="telefono" value="<%=rs("telefono")%>" size="30">[/size]</font></td>

    <td align="left"><font face="tahoma">[size="1"]
 

              [b]Cellulare:[/b]
<input type="text" name="cellulare" value="<%=rs("cellulare")%>" size="30">[/size]</font></td>

   </tr>

   <tr>

    <td align="left"><font face="tahoma">[size="1"]
 

              [b]Altro recapito:[/b]
<input type="text" name="altro_recapito" value="<%=rs("altro_recapito")%>" size="30">[/size]</font></td>

    <td align="left"><font face="tahoma">[size="1"]
 

              [b]E-mail:[/b]
<input type="text" name="email" value="<%=rs("email")%>" size="30">[/size]</font></td>         

   </tr>

   <tr>

    <td align="left"><font face="tahoma">[size="1"]
 

              [b]Situazione familiare:[/b]
<select name="stato" value="<%=rs("stato")%>">

                      <option value="sposato">Sposato</option>

                      <option value="convivente stabile">Convivente stabile</option>

                      <option value="single">Single</option>

                   </select>

      [/size]</font></td>

    <td align="left"><font face="tahoma">[size="1"]
 

              [b]Componenti famiglia:[/b]
<input type="text" name="componenti_famiglia" value="<%=rs("componenti_famiglia")%>">[/size]</font></td>

    </td>

  </tr>

  <tr>

    <td align="left"><font face="tahoma">[size="1"]
 

              [b]Qualificato:[/b]
<select name="qualificato" value="<%=rs("qualificato")%>">

                      <option value="si">Si</option>

                      <option value="no">No</option>

                      <option value="da verificare">Da verificare</option>

                   </select>

      [/size]</font></td>

    </td>

    <td align="left"><font face="tahoma">[size="1"]
 

              [b]Esito:[/b]
<select name="esito" value="<%=rs("esito")%>">

                      <option value="booking">Booking</option>

                      <option value="non qualificato">Non qualificato</option>

                      <option value="non interessato">Non interessato</option>

                      <option value="appuntamento">Appuntamento</option>

                   </select>

      [/size]</font></td>

  </tr>

  <tr> 

              <td align="left"><font face="tahoma">[size="1"]
 

              [b]Note:[/b]
 

              <textarea name="note" value="<%=rs("note")%>" rows="5" cols="38"> 

 

              </textarea> [/size]</font></td> 

 </tr>

 <tr>

   

   <td>

<input type="submit" name="invio" value="Invio Dati"> </p></td>

</form>

</table>



<%

  rs.Close

  set rs = Nothing

  conn.Close

  set conn = Nothing

%>



</body>

</html>



<%

else

  response.redirect "lista_clienti.asp"

end if

%>

elabora_modifica.asp

Codice PHP:


<%

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("nomedb.mdb")

strConn=strConn & ";pwd=" & strCode

Conn.Open strConn

sql = "SELECT * FROM nometabella WHERE Id="&intCodice

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sql, conn ,3,3

rs("campagna") =request.form("campagna")

rs("nome")=request.form("nome")

rs("cognome")=request.form("cognome")

rs("telefono")=request.form("telefono")

rs("cellulare")=request.form("cellulare")

rs("altro_recapito")=request.form("altro_recapito")

rs("email")=request.form("email")

rs("stato")=request.form("stato")

rs("componenti_famiglia")=request.form("componenti_famiglia")

rs("qualificato")=request.form("qualificato")

rs("esito")=request.form("esito")

rs("note")=request.form("note")

rs("operatore")=request.form("operatore")

rs("data_inserimento")=request.formrs("data_inserimento")

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>

<TR>

<TD><CENTER>Aggiornamento eseguito 

correttamente</CENTER></TD> </TR>

<TR>

<TD><CENTER><a href="lista_clienti.asp">Verifica Le 

Modifiche</a></CENTER></TD> </TR>

</TABLE>

</center></TD>

</TR>

</TABLE>

</body>

</html>

<%

else

response.redirect "lista_clienti.asp"

end if

%>

Discussione: Aggiornare dati di db access tramite form

Strumenti discussione

Ricerca discussione

Visualizza

Hybrid View

Aggiornare dati di db access tramite form

Permessi di invio