salve, ho un database su questo percorso"mdb-database/nome.mdb" che contiene un campo nome una data e poi quello che vorrei aggiungere io cognome
questo è come ho modificato il tutto "sto cercando d'aggiungere il cognome"
1procModificaNome.asp
codice:
<% numeroRecord=request("id") sql = "SELECT * FROM nome WHERE Id="&numeroRecord sql = "SELECT * FROM cognome WHERE Id="&numeroRecord %> <% rs("nome")=request.form("nome") rs("cognome")=request.form("cognome") rs("data")=date rs.update rs.Close set rs = Nothing objConn.Close set conn = Nothing %> Eseguito
Edita
cancellaNome.asp
codice:
<% sql = "SELECT * FROM nome" %> <% do while not(rs.eof) response.write rs("nome") response.write rs("cognome") %> ">Cancella
<% rs.movenext loop rs.Close set rs = Nothing objConn.Close set conn = Nothing %>
Edita
formNome.asp
codice:
<html> <head> </head> <body> <form method="POST" action="procFormNome.asp"> Nome:
<input type="text" name="nome" size="20">
<input type="hidden" name="data" value="<%=date%>"> <input type="submit" value="Invia">
cognome:
<input type="text" name="cognome" size="20">
<input type="submit" value="Invia"> </form> </body> </html>
modificaNome.asp
codice:
<% sql = "SELECT * FROM nome" sql = "SELECT * FROM cognome" %> <% do while not rs.eof response.write rs("nome") response.write rs("cognome") %> ">Modifica
<% rs.movenext loop rs.Close set rs = Nothing objConn.Close set conn = Nothing %>
Edita
procCancellaNome.asp
codice:
<% numeroRecord=request("id") sql = "SELECT * FROM nome where id=" & numeroRecord sql = "SELECT * FROM cognome where id=" & numeroRecord %> <% rs.delete rs.Close set rs = Nothing objConn.Close set conn = Nothing %> Eseguito
Edita
procFormNome.asp
codice:
1 <% nome = request.form("nome") cognome = request.form("cognome") data = request.form("data") if nome="" then response.write "Devi inserire un dato" & "
" response.write "" & "Torna a Form" & "" response.end end if sql = "SELECT * FROM nome" sql = "SELECT * FROM cognome" %> <% rs.addnew rs("nome") = nome rs("cognome") = cognome rs("data") = data rs.update rs.Close set rs = Nothing objConn.Close set conn = Nothing %> Eseguito
Edita
procModificaNome.asp
codice:
<% numeroRecord=request("id") sql = "SELECT * FROM nome WHERE Id="&numeroRecord sql = "SELECT * FROM cognome WHERE Id="&numeroRecord %> <form method=post action="1procModificaNome.asp?id=<%=rs("ID")%>"> Nome:
<input type="text" name="nome" value="<%=rs("nome")%>" size="20">
<input type="submit" value="Modifica">
cognome:
<input type="text" name="nome0" value="<%=rs("cognome")%>" size="20">
<input type="submit" value="Modifica"> </form> <% rs.Close set rs = Nothing objConn.Close set conn = Nothing %>
stringaConnessione.asp
codice:
<% ' Definisci la connessione Set objConn = Server.CreateObject("ADODB.Connection") ' Definisci stringa di connessione strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("mdb-database/nome.mdb") ' Apri la connessione objConn.Open strConn %>
stringaRecordset.asp
codice:
<% Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, objConn ,3,3 %>
visnome.asp
codice:
<% sql = "SELECT * FROM nome" sql = "SELECT * FROM cognome" %> <% do while not rs.eof response.write rs("nome") & "
" response.write rs("cognome") & "
" response.write rs("data") & "
" rs.movenext loop rs.Close set rs = Nothing objConn.Close set conn = Nothing %>
Edita
questo è l'errore
Microsoft JET Database Engine error '80040e37'
The Microsoft Jet database engine cannot find the input table or query 'cognome'. Make sure it exists and that its name is spelled correctly.
/stringaRecordset.asp, line 3
Permessi di invio
Rispondi quotando