Ciao a tutti. Ho questo tipo di problema con una pagina asp che deve fare delle modifiche o degli inserimenti in un db Access2000.
Una tabella del DB contiene fra i vari campi un campo di tipo memo. Quando tento di eseguire l'istruzione SQL di UPDATE o di INSERT, queste vanno a buon fine se nella composizione delle stesse ho provveduto a non toccare il campo di tipo memo.... ma se nell'istruzione tento di modificare anche quel campo, mi ritorna Syntax Error.
Allego alcuni pezzi significativi del mio codice:
Function OpenDB()
Db_name = Server.MapPath("./db/CustomerCare.mdb")
Db_cmd_to = 20
Db_con_to = 20
Db_sess_to = 20
Db_dsn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Db_name & ";"
Db_user = ""
Db_pswd = ""
Set connessionePortale = Server.CreateObject("ADODB.Connection")
connessionePortale.CommandTimeout = Db_cmd_to
connessionePortale.ConnectionTimeout = Db_cmd_to
connessionePortale.Open Db_dsn, Db_user, Db_pswd
Session.Timeout = Db_sess_to
Set Session("connessionePortale") = connessionePortale
End Function
.......
OpenDB()
if (action_req = "modifica") then
sqlstr = "UPDATE Contatti SET Nome ='" & REPLACE(nome_req, CHR(39), CHR(39)&CHR(39)) & "'"
sqlstr = sqlstr & ", Cognome ='" & REPLACE(cogn_req, CHR(39), CHR(39)&CHR(39)) & "'"
sqlstr = sqlstr & ", Qualifica ='" & REPLACE(qual_req, CHR(39), CHR(39)&CHR(39)) & "'"
sqlstr = sqlstr & ", Tel = '" & REPLACE(tele_req, CHR(39), CHR(39)&CHR(39)) & "'"
'sqlstr = sqlstr & ", Note = '" & REPLACE(note_req, CHR(39), CHR(39)&CHR(39)) '------ Questa riga è commentata xè attualmente non si riescono
'------ a gestire i campi di tipo memo
sqlstr = sqlstr & " WHERE IDContatto = " & codi_req & ";"
elseif (action_req = "new") then
sqlstr = "INSERT INTO Contatti ("
sqlstr = sqlstr & " IDSoc, "
sqlstr = sqlstr & " Nome, "
sqlstr = sqlstr & " Cognome, "
sqlstr = sqlstr & " Qualifica, "
'sqlstr = sqlstr & " Note, " '------ Questa riga è commentata xè attualmente non si riescono
'------ a gestire i campi di tipo memo
sqlstr = sqlstr & " Tel "
sqlstr = sqlstr & " )VALUES ( "
sqlstr = sqlstr & "'" & REPLACE(soci_req, CHR(39), CHR(39)&CHR(39)) & "', "
sqlstr = sqlstr & "'" & REPLACE(nome_req, CHR(39), CHR(39)&CHR(39)) & "', "
sqlstr = sqlstr & "'" & REPLACE(cogn_req, CHR(39), CHR(39)&CHR(39)) & "', "
sqlstr = sqlstr & "'" & REPLACE(qual_req, CHR(39), CHR(39)&CHR(39)) & "', "
'sqlstr = sqlstr & "'" & REPLACE(note_req, CHR(39), CHR(39)&CHR(39)) & "', " '------ Questa riga è commentata xè attualmente non si riescono
'------ a gestire i campi di tipo memo
sqlstr = sqlstr & "'" & tele_req, CHR(39), CHR(39)&CHR(39)) & "') "
Set result = Conn.Execute (sqlstr) '-------- Esecuzione comando SQL --------
Sinceramente non so cosa fare....spero ci sia qualcuno in grado di darmi una mano...
grazie
