Syntax error in UPDATE statement

[Enrique_Rojas]

Ciao, questa è bella ve la devo raccontare...:

ho un form con 5 campi che recuperano dei valori da una tbl di un db access; passo i valori dal form ad una query di update ma la query stessa va in errore.

campo1 = 9.486,00
campo2 = 0,23
campo3 = 2,00
campo4 = 0,112
campo5 = vuoto

SQL="UPDATE tabella_access set campo1="&campo1&", campo2="&campo2&", campo3="&campo3&", campo4="&campo4&", campo5="&campo5&" WHERE ID = "&ID

Errore restituito:

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Syntax error in UPDATE statement.
/edit.asp, line 283

ho inserito i vari response.write response.end ma non succede niente... i valori alla pagina della sql arrivano perchè li stampo con response write...

[willybit]

Ciao Enrique_Rojas,

fatti stampare la stringa sql prima di eseguirla... i numeri decimali devono essere con il punto come separatore decimale e non devono esserci separatori di migliaia. Poi se il campo è vuoto va impostato a NULL (sempre che lo accetti)

[Enrique_Rojas]

Grazie Willy, adesso è ok.... ho scritto così nella pagina del form:

 FUNCTION fixComma(valore)  
fixComma=Replace(valore, ",", ".")
END FUNCTION

<%=FIXCOMMA(FormatNumber(REC("campo1"), 2))%>
.............

ma se campo1 è vuoto, mi va in errore, perchè?

[willybit]

se il campo accetta il null devi fare una cosa del tipo

FUNCTION fixComma(valore)  
if valore="" then
  fixComma="NULL"
else
  fixComma=Replace(valore, ",", ".")
end if
END FUNCTION

se non accetta NULL mettice 0

[Enrique_Rojas]

FUNCTION fixComma(valore)  
if valore="" then
  fixComma="null"
else
  fixComma=Replace(valore, ",", ".")
end if
END FUNCTION

<%=fixcomma(rec("DIEL"))%>

quando il campo DIEL è vuoto

restituisce: Error Type:
Microsoft VBScript runtime (0x800A005E)
Utilizzo non valido di Null.: 'Replace'

(ho provato anche con 0 ma non va uguale...)

[willybit]

allora prova così

FUNCTION fixComma(valore)  
if valore="" or isNull(valore) then
  fixComma="null"
else
  fixComma=Replace(valore, ",", ".")
end if
END FUNCTION

famme sape'

[Enrique_Rojas]

Originariamente inviato da willybit
allora prova così

FUNCTION fixComma(valore)  
if valore="" or isNull(valore) then
  fixComma="null"
else
  fixComma=Replace(valore, ",", ".")
end if
END FUNCTION

famme sape'

Mitico.... grazie a buon rendere !!!!!