Estrarre dati da db e modifica

grottafelix

Utente Attivo
5 Mar 2003
2.416
2
38
42
Parco chiuso -
www.girsms.com
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 :-(
 

jan267

Utente Attivo
6 Mar 2003
1.955
2
38
32
Milano
twitter.com
Response.Write "<a href=""edit.asp?id=" & objRS("ID") & """>"
Response.Write objRS("Telefono") & " " & objRS("Cell")& "</a><br>"
 

grottafelix

Utente Attivo
5 Mar 2003
2.416
2
38
42
Parco chiuso -
www.girsms.com
grazie jaco.

allora SEMBRA funzionare tutto bene..infatti mi dice pure database aggiornato quando faccio delle modifiche ai record....
ma poi...quando apro il browser le modifiche non rislutano.
Il bello è che non risultano nenache nel db.
ma allora che fa qeusto script?? mi prende in giro???:( :(

help me
 

jan267

Utente Attivo
6 Mar 2003
1.955
2
38
32
Milano
twitter.com
felix ma tu per modificare i tuoi dati usi questo:
<%
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
%>

?? Se si ti consiglio di usare "UPDATE"... lo hanno inventato apposta :p
 

jan267

Utente Attivo
6 Mar 2003
1.955
2
38
32
Milano
twitter.com
Codice:
"UPDATE Tabella
SET Telefono = '" & Request("Telefono") & "',
       Fax   = '" & Request("Faz") & "',
       Cell  = '" & Request("Cell") & "'
WHERE id = " & ModID
Questa e` la Query Sql
 

jan267

Utente Attivo
6 Mar 2003
1.955
2
38
32
Milano
twitter.com
Vedi perche` io non ti voglio dare il code? Perche` senno` farai sempre sta diavolo di domanda e non riuscirai mai ad aver piu` conoscienze!
Comunque:
Codice:
<%
Set strConn = Server.CreateObject("ADODB.Connection")
    strConn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(myDB)
Set strRs = Server.CreateObject("ADODB.Recordset")
    strSql = "UPDATE Tabella
              SET Telefono = '" & Request("Telefono") & "',
                  Fax   = '" & Request("Faz") & "',
                  Cell  = '" & Request("Cell") & "'
              WHERE id = " & ModID
    strRs.Open strSql, strConn
    strRs.Close
Set strRs = Nothing
    strConn.Close
Set strConn = Nothing	
%>
Bye :byebye:
 

grottafelix

Utente Attivo
5 Mar 2003
2.416
2
38
42
Parco chiuso -
www.girsms.com
si ma continuo a non capire...sarò di coccio..ma continuo a non capire.

ma devo eliminare il file salva_dati.asp?
o questo codice lo devo aggiungere a quello?

devo fare cosi:

<%
Dim ModID
ModID = Request.Form("id")

MyDB="database.mdb"
<%
Set strConn = Server.CreateObject("ADODB.Connection")
strConn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(myDB)
Set strRs = Server.CreateObject("ADODB.Recordset")
strSql = "UPDATE Tabella
SET Telefono = '" & Request("Telefono") & "',
Fax = '" & Request("Fax") & "',
Cell = '" & Request("Cell") & "'
WHERE id = " & ModID
strRs.Open strSql, strConn
strRs.Close
Set strRs = Nothing
strConn.Close
Set strConn = Nothing
%>

<html><head>
<title>Salvataggio dei dati</title>
</head>

<p align=center>
Il database è stato aggiornato.
</p>

</body>
</html>


????:(
 

grottafelix

Utente Attivo
5 Mar 2003
2.416
2
38
42
Parco chiuso -
www.girsms.com
mi da questo errore:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/salva_dati1.asp, line 7

la linea 7 è quella della connessione al db!
che succede??:(
 

grottafelix

Utente Attivo
5 Mar 2003
2.416
2
38
42
Parco chiuso -
www.girsms.com
<%
Dim ModID
ModID = Request.Form("id")

MyDB="database.mdb"
Set strConn = Server.CreateObject("ADODB.Connection")
strConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(myDB)
Set strRs = Server.CreateObject("ADODB.Recordset")
strSql = "UPDATE Tabella SET Tel = '" & Request("Tel") & "', Cell = '" & Request("Cell") & "', Fax = '" & Request("Fax") & "' WHERE id = " & ModID
strRs.Open strSql, strConn
strRs.Close
Set strRs = Nothing
strConn.Close
Set strConn = Nothing
%>

<html><head>
<title>Salvataggio dei dati</title>
</head>

<p align=center>
Il database è stato aggiornato.
</p>

</body>
</html>


dove sabglio???
 
Ultima modifica:
Discussioni simili
Autore Titolo Forum Risposte Data
C Estrarre dati stringa Sql Database 1
M Estrarre dati da una select HTML PHP 3
S [PHP] Estrarre dati da tabella e fare la media ad intervalli di tempo PHP 10
S [PHP] Estrarre dati tabella in diversi array PHP 2
D [WordPress] come fare per estrarre dati da un db MySQL tramite una form e visualizzare il risultato WordPress 0
trattorino [PHP] estrarre dati singoli PHP 1
Z Estrarre dati da un DB Mysql PHP 4
S [PHP] Estrarre dati colonna in una stringa PHP 6
S [PHP] estrarre dati sito web protetto con username e password PHP 13
Gigi87 estrarre i dati da un forum o social network Presentati al Forum 1
L [PHP] Estrarre dati da sito web Offerte e Richieste di Lavoro e/o Collaborazione 4
A [PHP] metodo di una classe per estrarre i dati con ciclo while PHP 1
filippino [Javascript] Estrarre dati da database MySQL Javascript 1
P Estrarre dati da un databas mysql PHP 3
filippino Script PHP per estrarre dati estrazioni da sito "10 e lotto" PHP 0
Z [VB.NET] Leggere pagina HTML ed estrarre dati da tabella .NET Framework 1
M Php+MySql: Estrarre dati da tabella e consentire all'utente di modificare un valore 'in linea' PHP 6
B Estrarre più dati da una tabella PHP 2
E Estrarre dati da una pagina generata con Javascript Javascript 6
M problema con ciclo foreach per estrarre dati da un database PHP 22
C estrarre dati da sito javascript Javascript 1
P Estrarre dati da DB AIUTO :S [Ho veramente bisogno] PHP 7
R Estrarre dati da tabella mysql [era:Sto benedetto php] PHP 22
S Estrarre dati da diverse tabelle mysql PHP 6
F estrarre dati da una cartella PHP 9
F Estrarre dati da tabella javascript HTML e CSS 0
neo996sps Estrarre i dati e presentarli con un layout particolare PHP 0
O [help] estrarre e visualizzare dati da mysql con php a oggetti PHP 6
F Aiuto! Estrarre Dati da Database .mdb e visualizzarli in lightbox PHP 1
I Estrarre dati da un file php PHP 3
P Creare un menu a discesa dove poter fare una selezione ed estrarre i dati da db MySql PHP 3
T [MySql] impossibile estrarre dati da campi TEXT MySQL 0
L Estrarre dati da tabella mysql PHP 16
G estrarre i dati da variabile GET PHP 6
P estrarre dati xml excel con php XML 1
Monital estrarre dati da una tabella e riscriverli su di un altra PHP 5
E Estrarre dati dal DB e inviare mail PHP 10
B Estrarre dati da database e ordinarli in tabella... PHP 20
G Help me! Estrarre dati da un db access con flash Flash 0
W Estrarre e ricaricare dati con Ajax Ajax 0
S Estrarre i dati EXIF da una foto PHP 3
tanaka estrarre dati con colori diversi PHP 10
M estrarre dati da database MySql, con ASP Classic ASP 1
P Non riesco ad estrarre dati da doppia tabella PHP 2
F Estrarre dati da database Classic ASP 3
N Estrarre dati che danno una certa somma da Excel, Access o SQL Server Windows e Software 0
grottafelix Estrarre dati da db Classic ASP 13
M Estrarre valore con SELECT COUNT PHP 0
D Estrarre database con link esterno Database 10
S Raggruppare ed estrarre data più recente MySQL 3

Discussioni simili