Ciao a Tutti,

sto scrivendo una query per modificare un record del db contenete news con le informazioni da form, mi sembra corretto, ma mi da errore:

<i>Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][Driver ODBC Microsoft Access] Errore di sintassi nell'istruzione UPDATE.
/sito/asp/cambia_news.asp, line 44 </i>

ecco la parte incriminata:

<code>
'si, è clickata quindi cambiamo i dati

id = Request.QueryString("id")

'raccogliamo I dati dall nostra form
autore = Request.Form("autore")
titolo = Request.Form("titolo")
sottotitolo = Request.Form("sottotitolo")
testo = Request.Form("testo")
vivo = Request.Form("vivo")
morto = Request.Form("morto")
url = Request.Form("url")

'costruiamo la query
strsql = "Update tbl_news"
strsql = strsql & " SET ("
strsql = strsql & "titolo = '" & titolo & "',"
strsql = strsql & "sottotitolo = '" & sottotitolo & "',"
strsql = strsql & "testo = '" & testo & "',"
strsql = strsql & "data_vivo = '" & vivo & "',"
strsql = strsql & "data_morto = '" & morto & "',"
strsql = strsql & "url = '" & url & "') "
strsql = strsql & "Where id = " & id

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn
Set objRs = Server.CreateObject("ADODB.Recordset")


set objRs = objConn.Execute(strsql)

objConn.Close
Set objConn = Nothing
</code>

Ho provato anche a riscriverla:

<code>'si, è clickata quindi cambiamo i dati

id = Request.QueryString("id")

'raccogliamo I dati dall nostra form
autore = Request.Form("autore")
titolo = Request.Form("titolo")
sottotitolo = Request.Form("sottotitolo")
testo = Request.Form("testo")
vivo = Request.Form("vivo")
morto = Request.Form("morto")
url = Request.Form("url")

'costruiamo la query
strsql = "Update tbl_news " _
& "SET autore = autore , titolo = titolo , sottotitolo = sottotitolo , testo = testo , data_vivo = vivo , data_morto = morto , url = url " _
& "Where id = " & id


Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn
Set objRs = Server.CreateObject("ADODB.Recordset")


set objRs = objConn.Execute(strsql)

objConn.Close
Set objConn = Nothing
</code>

ma niente, mi dà questa volta:

<i>
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][Driver ODBC Microsoft Access] Parametri insufficienti. Previsto 2.
/Copia_di_veneto/asp/cambia_news.asp, line 40
</i>

Un pò alla volta sto imparando a programmare ma
non saprei cos'altro fare, per voi dove possono essere questi errori che io non riesco a vedere????


Antrax

webmaster www.fiso.it/veneto

Ciao!Guarda ti risponde parametri insufficenti 2 perchè non riconosce le due date(vivo e morto).Questo perchè i Db access vogliono quando gli passi le date i pound(#) al posto degli apici(').
Quindi prova a cambiare la tua query scrivendo:

'costruiamo la query
strsql = "Update tbl_news"
strsql = strsql & " SET ("
strsql = strsql & "titolo = '" & titolo & "',"
strsql = strsql & "sottotitolo = '" & sottotitolo & "',"
strsql = strsql & "testo = '" & testo & "',"
strsql = strsql & "data_vivo = #" & vivo & "#,"
strsql = strsql & "data_morto = #" & morto & "#,"
strsql = strsql & "url = '" & url & "') "
strsql = strsql & "Where id = " & id

E poi il resto.
Così dovrebbe andare!
Fammi sapere se è andata o continua a prendere errore!
Ciao

Potrebbe essere il carattere '
Prova

'costruiamo la query
strsql = "Update tbl_news"
strsql = strsql & " SET ("
strsql = strsql & "titolo = '" & Replace (titolo,"'","''") & "',"
strsql = strsql & "sottotitolo = '" & Replace (sottotitolo,"'","''") & "',"
strsql = strsql & "testo = '" & Replace(testo,"'","''") & "',"
strsql = strsql & "data_vivo = #" & vivo & "#,"
strsql = strsql & "data_morto = #" & morto & "#,"
strsql = strsql & "url = '" & url & "') "
strsql = strsql & "Where id = " & id

devi gestire gli ' nelle stringhe di testo...
titolo= '" &replace( titolo,"'","''") & "', ... eccc...


Traspi.net
Da Torino al mondo Internet il magazine di cultura, creatività e informazione.
www.traspi.net
Mauro Tortone
webmaster@traspi.net