ciclo update

[skylab]

qualcuno mi puo dire cosa ce di sbagliato nel mio codice:

<% 
Dim tot, id, tab
tot=request.querystring("tot")
tab=request.querystring("tab")
for i = 0 to tot
val=Request.Form("form"&i)
id=Request.Form("id"&i)

Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("../db/db.mdb")

SQL="UPDATE " & tab & " set selezione='"& val &"' WHERE id="&id
Conn.Execute(SQL)
conn.Close
Set conn=Nothing

next
%>

[Roby_72]

Che errore hai?

Roby

[skylab]

ho questo errore:

HTTP 500.100 - Errore interno del server - errore ASP
Internet Information Services

--------------------------------------------------------------------------------

Informazioni tecniche (per il personale del supporto tecnico)

Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC Microsoft Access] Errore di sintassi (operatore mancante) nell'espressione della query 'id='.
/carlo/pannel/order.asp, line 14


e come se fosse che il campo id risultasse vuoto, ma se metto un responde.write tutto funziona.....

[Roby_72]

id è vuoto...
Stampa la query senza eseguirla e ad ogni ciclo vedrai se "id" contiene qualcosa.

Roby

[skylab]

Ho già provato in questo modo....ho tolto il codice che riguardava la connessione ed ho fatto stampare il valore di "id" all'interno del ciclo, e tutto funzionava correttamente....infatti mi riportava tutti i valori assegnati all' "id"..

[Roby_72]

Ad ogni modo apri e chiudi la connessione fuori dal ciclo, non dentro.

Roby

[skylab]

Si e vero.....hai ragione...
meglio evitare esplosioni di server.... :rollo:


cmq continua a dare lo stesso problema anche cosi....

[Roby_72]

<% 
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("../db/db.mdb")

Dim tot, id, tab
tot=request.querystring("tot")
tab=request.querystring("tab")
for i = 0 to tot
val=Request.Form("form"&i)
id=Request.Form("id"&i)

SQL="UPDATE " & tab & " set selezione='"& val &"' WHERE id="&id
response.write sql &"
"
'Conn.Execute(SQL)
next
conn.Close
Set conn=Nothing
%>

vediamo cosa stampa.

Roby

[skylab]

allora.....
dalla stampa della stringa Sql, mi sono accorto che il primo valore dell' "id" era vuoto.....errore causato dal fatto che ho fatto partire il ciclo da 0 e non da 1...quindi giustamente andava a leggere un campo che non esisteva e quindi vuoto.
Adesso però mi da un altro errore:

HTTP 500.100 - Errore interno del server - errore ASP
Internet Information Services

--------------------------------------------------------------------------------

Informazioni tecniche (per il personale del supporto tecnico)

Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Driver ODBC Microsoft Access] Parametri insufficienti. Previsto 1.
/carlo/pannel/order.asp, line 16


dalla stampa sql per chi lo vuole sapere mi stampa:

UPDATE Models set selezione='8' WHERE id=3
UPDATE Models set selezione='7' WHERE id=4
UPDATE Models set selezione='6' WHERE id=5
UPDATE Models set selezione='5' WHERE id=6
UPDATE Models set selezione='4' WHERE id=8
UPDATE Models set selezione='3' WHERE id=9
UPDATE Models set selezione='2' WHERE id=10
UPDATE Models set selezione='1' WHERE id=11



altro mistero...... VVoVe:

[Roby_72]

Selezione è un campo testo o numerico?

Roby