Impossibile assegnare NULL a cambo DB Numerico

[LupinI]

Provo a descrivere il mio problema.

Ho due applicativi che accedono allo stesso database DB Access, il primo in VB6, il secondo in ASP

Con VB6 nessun problema, ma con ASP Non riesco ad assegnare al campo di tipo Numerico il valore Null.

Valorizzo la variabile Mailadress con il contenuto del form

Mailadress = Trim(Replace(Request.Form("Mailadress"), "'", "''"))

'Se il form non è vuoto valorizzo la variabile Bolletta_mail con 1 altrimenti valorizzo con Null

If Len(Trim(Replace(Request.Form("Mailadress"), "'", "''"))) > 0 Then
  Bolletta_mail = 1
Else
  Bolletta_mail = Null
End If

'Scrivo il campo nel DB.
sqlUpdUtente = sqlUpdUtente & "Bolletta_mail= '" & Bolletta_mail & "', "

Questo script funziona solo nel primo caso, nel secondo caso, quando il Form è vuoto, va in errore.

Di seguito la risposta del server:


Microsoft OLE DB Provider for ODBC Drivers error '80040e07' [Microsoft][Driver ODBC Microsoft Access] Tipi di dati non corrispondenti nell'espressione criterio.


Qualcuno può aiutarmi?

[Vincent.Zeno]

null devi trattarlo come numero

ma in questo caso la query si aspetta un testo
quindi non puoi mettere null, ma puoi rendere la variabile vuota

lo trovo un po' contorto... perché utilizzi null?

[br1]

If Len(Trim(Replace(Request.Form("Mailadress"), "'", "''"))) > 0 Then
  Bolletta_mail = 1
Else
  Bolletta_mail = "Null"
End If

[Vincent.Zeno]

@br1
quindi dici che ci vuole scrivere proprio "null"

[LupinI]

Come dicevo all'inizio sullo stesso database accedono sia l'app VB6 che lo script ASP.
Mi necessita assegnare al campo db il null ovvero la funzione IsNull deve darmi come risultato TRUE.
Non voglio scrivere "Null" anche perché non posso farlo dato che si tratta di un campo numerico.
Non sto qui a spiegarvi il perché ma mi serve in alcuni casi assegnare quel valore al campo.
Con VB6 ci riesco, con ASP no

[Vincent.Zeno]

prova così:

If Len(Trim(Replace(Request.Form("Mailadress"), "'", "''"))) > 0 Then
	'Bolletta_mail = 1
	varQueryBoll= " '1' "
Else
	'Bolletta_mail = Null
	varQueryBoll= " null "
End If


'Scrivo il campo nel DB.
sqlUpdUtente = sqlUpdUtente & "Bolletta_mail= "& varQueryBoll &", "

[optime]

visto che il campo è numerico, da questa istruzione

sqlUpdUtente = sqlUpdUtente & "Bolletta_mail='" & Bolletta_mail & "',"
devi togliere gli apici

[LupinI]

Col tuo suggerimento funziona perfettamente, ti ringrazio infinitamente.
Mi pare di capire che nel modo in cui gestivo lo script, il risultato dava una sintassi errata.

Grazie comunque a tutti

prova così:

If Len(Trim(Replace(Request.Form("Mailadress"), "'", "''"))) > 0 Then
    'Bolletta_mail = 1
    varQueryBoll= " '1' "
Else
    'Bolletta_mail = Null
    varQueryBoll= " null "
End If


'Scrivo il campo nel DB.
sqlUpdUtente = sqlUpdUtente & "Bolletta_mail= "& varQueryBoll &", "

[Vincent.Zeno]

mi era sfuggito che il campo del db è numerico, quindi vale anche l'altra soluzione (anche meglio) proposta da optime:

If Len(Trim(Replace(Request.Form("Mailadress"), "'", "''"))) > 0 Then
    Bolletta_mail = 1
Else
    Bolletta_mail = Null
End If


'Scrivo il campo nel DB.
sqlUpdUtente = sqlUpdUtente & "Bolletta_mail= "& Bolletta_mail &", "

[LupinI]

Per curiosità ho provato ma da errore sulla riga che scrive il database

mi era sfuggito che il campo del db è numerico, quindi vale anche l'altra soluzione (anche meglio) proposta da optime:

If Len(Trim(Replace(Request.Form("Mailadress"), "'", "''"))) > 0 Then
    Bolletta_mail = 1
Else
    Bolletta_mail = Null
End If


'Scrivo il campo nel DB.
sqlUpdUtente = sqlUpdUtente & "Bolletta_mail= "& Bolletta_mail &", "