allora devo realizzare un applicazione che mi permetta di fare queste cose:
Visualizzare i record di un database
quindi di estrarli
modificarli quando mi pare
e
inserire nuovi record
Sto facendo cosi:
ho creato due file.
il primo "prende" i record:
code:--------------------------------------------------------------------------------
<%
Dim ModID
ModID = Request("id")
if ModID = "" then
ModID = 1
end if
MyDB="database.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
dsnpath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(myDB)
conn.open dsnpath
querysql="select * from Tabella where id =" & ModID
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open querysql, conn, 3, 3
if rs.eof then
response.write "errore! ID non trovato!"
response.end
end if
%>
<html><head>
<title>Modifica i dati</title>
</head>
<form method="POST" action="salva.asp">
<input type="hidden" name="id" value="<%=ModID%>">
<table>
<tr>
<td>Telefono:</td><td><input type="text" name="nome" size="20" value="<%=Rs("Telefono>"></td>
</tr><tr>
<td>Fax:</td><td><input type="text" name="cognome" size="20" value="<%=rs("Fax")%>"></td>
</tr><tr>
<td>Cell:</td><td><input type="text" name="telefono" size="20" value="<%=rs("Cell")%>"></td>
</tr>
</table>
<input type="submit" value="MODIFICA DATI!">
</form>
<%
rs.close
set rs = Nothing
conn.close
Set conn = Nothing
%>
</body>
</html>
--------------------------------------------------------------------------------
e il secondo file "salva":
code:--------------------------------------------------------------------------------
<%
Dim ModID
ModID = Request.Form("id")
MyDB="database.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
dsnpath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(myDB)
conn.open dsnpath
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs.ActiveConnection = conn
rs.Open "select * from Tabella where id =" & ModID, ,1,3
rs("Telefono") = Request("Telefono")
rs("Fax") = Request("Faz")
rs("Cell") = Request("Cell")
rs.Update
rs.Close
Set rs = Nothing
conn.close
Set conn = Nothing
%>
<html><head>
<title>Salvataggio dei dati</title>
</head>
<p align=center>
Il database è stato aggiornato.
</p>
</body>
</html>
--------------------------------------------------------------------------------
questi sono i due file con cui andrò a estrarre i dati e a modificarli.
con questa pagina stampa a video tutti i record:
<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
Server.MapPath("database.mdb")
Dim objRS
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open "Tabella", objConn
%>
<%
Do While Not objRS.EOF
Response.Write objRS("Telefono") & " " & objRS("Cell")& "<br>"
objRS.MoveNext
Loop
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
fin qui tutto bene.
solo che i risultati stampati a video dovrebbere contenere un bottone o cmq dovrebbero essere dei link con l'ID del record che mi interessa.
cosicche clicco su un record stampato e mi accede alla pagina "prendi" dove posso modificarlo.
mi sono bloccato qui :-(
Visualizzare i record di un database
quindi di estrarli
modificarli quando mi pare
e
inserire nuovi record
Sto facendo cosi:
ho creato due file.
il primo "prende" i record:
code:--------------------------------------------------------------------------------
<%
Dim ModID
ModID = Request("id")
if ModID = "" then
ModID = 1
end if
MyDB="database.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
dsnpath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(myDB)
conn.open dsnpath
querysql="select * from Tabella where id =" & ModID
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open querysql, conn, 3, 3
if rs.eof then
response.write "errore! ID non trovato!"
response.end
end if
%>
<html><head>
<title>Modifica i dati</title>
</head>
<form method="POST" action="salva.asp">
<input type="hidden" name="id" value="<%=ModID%>">
<table>
<tr>
<td>Telefono:</td><td><input type="text" name="nome" size="20" value="<%=Rs("Telefono>"></td>
</tr><tr>
<td>Fax:</td><td><input type="text" name="cognome" size="20" value="<%=rs("Fax")%>"></td>
</tr><tr>
<td>Cell:</td><td><input type="text" name="telefono" size="20" value="<%=rs("Cell")%>"></td>
</tr>
</table>
<input type="submit" value="MODIFICA DATI!">
</form>
<%
rs.close
set rs = Nothing
conn.close
Set conn = Nothing
%>
</body>
</html>
--------------------------------------------------------------------------------
e il secondo file "salva":
code:--------------------------------------------------------------------------------
<%
Dim ModID
ModID = Request.Form("id")
MyDB="database.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
dsnpath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(myDB)
conn.open dsnpath
Set rs = Server.CreateObject("ADODB.Recordset")
Set rs.ActiveConnection = conn
rs.Open "select * from Tabella where id =" & ModID, ,1,3
rs("Telefono") = Request("Telefono")
rs("Fax") = Request("Faz")
rs("Cell") = Request("Cell")
rs.Update
rs.Close
Set rs = Nothing
conn.close
Set conn = Nothing
%>
<html><head>
<title>Salvataggio dei dati</title>
</head>
<p align=center>
Il database è stato aggiornato.
</p>
</body>
</html>
--------------------------------------------------------------------------------
questi sono i due file con cui andrò a estrarre i dati e a modificarli.
con questa pagina stampa a video tutti i record:
<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
Server.MapPath("database.mdb")
Dim objRS
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open "Tabella", objConn
%>
<%
Do While Not objRS.EOF
Response.Write objRS("Telefono") & " " & objRS("Cell")& "<br>"
objRS.MoveNext
Loop
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
fin qui tutto bene.
solo che i risultati stampati a video dovrebbere contenere un bottone o cmq dovrebbero essere dei link con l'ID del record che mi interessa.
cosicche clicco su un record stampato e mi accede alla pagina "prendi" dove posso modificarlo.
mi sono bloccato qui :-(