Sostituire dati in DB

**Bioboi** · 14-04-2010, 18:31

Ciao a tutti,

vi prego aiutatemi a capire...

Sto cercando di creare un tabellone che contenga delle informazioni che io di volta in volta aggiorno tramite pagina con form.

Hocreato la pagina form e, subito dopo, la pagina asp che prende i risultati dal form. Tuttavia, non riesco a far funzionare il tutto... Cioè vorrei almeno che i dati che inserisco nel form vadano a sostituirsi a quelli già presenti nel DB.

Purtroppo ottengo il seguente errore:

codice:

ADODB.Recordset error '800a0cb3' 

Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype. 

/risultatiplayoff.asp, line 22

Perché???

:master:

**Roby_72** · 14-04-2010, 19:23

Vediamo la query di UPDATE.

Roby

**Bioboi** · 14-04-2010, 21:37

codice:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>

<body><%
a=request.form("textfield7")
b=request.form("textfield")
c=request.form("textfield2")
d=request.form("textfield3")
e=request.form("textfield4")
f=request.form("textfield5")
g=request.form("textfield6")
'apro la connessione
set OBJdbConnection=Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("\mdb-database\datarisultati.mdb")
Set rs=server.CreateObject("ADODB.Recordset")
rs.Open "risultatirealtime",OBJdbConnection
rs.AddNew
rs("gara")=a
rs("squadra1")=b
rs("squadra2")=c
rs("textfield1")=d
rs("textfield2")=e
rs("textfield3")=f
rs("textfield4")=g
rs.update
rs.Close
OBJdbConnection.Close
%> 
</body>
</html>

**Roby_72** · 14-04-2010, 21:44

Usa una query standard di UPDATE.

sql = "UPDATE risultatirealtime SET nomecampo1 = valore1, ecc... WHERE.... "

Roby

**Bioboi** · 15-04-2010, 00:12

Non ho capito come inserirla...

E la clausola Where come la indico nel mio caso?

**Bioboi** · 15-04-2010, 12:14

C'è qualcuno che mi risponde???

**optime** · 15-04-2010, 12:18

fatte 'na cuRtura

http://msdn.microsoft.com/en-us/library/aa140011(office.10).aspx

per me un ottimo punto di partenza

**Roby_72** · 15-04-2010, 12:40

Se vuoi sostituire qualcosa con qualcos'altro devi avere un elemento identificativo cui appoggiarti per fare la sostituzione...
In questo caso si tratta di una UPDATE diversamente si tratta di un nuovo inserimento ovvero una INSERT.

Roby

**Bioboi** · 15-04-2010, 14:25

Ottengo il seguente errore:

codice:

Microsoft OLE DB Provider for ODBC Drivers error '80040e10' 

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 7. 

/risultatiplayoff.asp, line 27

Come mai?

Ecco il codice della pagina che elabora i risultati del form:

codice:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>

<body><%

Dim rs, SQL
a=request.form("textfield7")
b=request.form("textfield")
c=request.form("textfield2")
d=request.form("textfield3")
e=request.form("textfield4")
f=request.form("textfield5")
g=request.form("textfield6")
'apro la connessione
set OBJdbConnection=Server.CreateObject("ADODB.Connection")
set MIORECORD=Server.CreateObject("ADODB.RECORDSET")
OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("\mdb-database\datarisultati.mdb")


SQL = "UPDATE risultatirealtime SET gara=a,squadra1=b,squadra2=c,textfield3=d,textfield4=e,textfield5=f,textfield6=g"

set miorecord=OBJdbConnection.execute(SQL)
%> 
Vedi i dati inseriti
</body>
</html>

la riga dell'errore è quella di

set miorecord=OBJdbConnection.execute(SQL)

**optime** · 15-04-2010, 17:32

SQL = "UPDATE risultatirealtime SET gara=a,squadra1=b,squadra2=c,textfield3=d,textfiel d4=e,textfield5=f,textfield6=g"

viva la fantasia

SQL = "UPDATE risultatirealtime SET gara=" & a &", ...

tra apici se alfanumerico

Discussione: Sostituire dati in DB

Strumenti discussione

Ricerca discussione

Visualizza

Sostituire dati in DB

Permessi di invio