Campi vuoti o nulli

[Enrique_Rojas]

Ciao, ancora io.

Devo verificare, prima di eseguire una query insert into, che un campo della tabella di access sia debitamente compilato e nel caso sia vuoto o nullo, nella query va scritto valore NULL; questo controllo riguarda più campi contemporaneamente e volevo sapere se potevo con un solo comando controllare simultaneamente tutti i campi.

Questo è il code con il controllo campo x campo singolo:

 if IsNull(rec("A")) or IsEmpty(rec("A")) or Len(rec("A"))="" then 
 A = "NULL"
else
 A = rec("A")
end if

if IsNull(rec("B")) or IsEmpty(rec("B")) or Len(rec("B"))="" then 
 B = "NULL"
else
 B = rec("B")
end if

if IsNull(rec("C")) or IsEmpty(rec("C")) or Len(rec("C"))="" then 
 C = "NULL"
else
 C = rec("C")
end if

SQL = "INSERT INTO tblx (A, B, C) VALUES (& REC("A") &"#, "& REC("B") &", '"& REC("C") &"')"
MyConn.execute(SQL)

Gracias!!!

[teorema55]

Enrique, ho provato a testare qualche soluzione, purtroppo al momento il dovere mi chiama........al lavoro, e devo lasciare in sospeso.

Direi comunque che, per la struttura stessa del controllo, questo si presti ad essere eseguito sia con un ciclo

for i=0 to 2

...controllo...

next

sia con un ciclo del tipo

for each campo in rec.fields

...controllo...

next

debitamente costruiti.

Okkio perchè la sintassi

Len(rec("A"))=""

non è corretta, devi fare

Len(rec("A"))=0

A più tardi...

[optime]

puoi fare una funzione del tipo

A=ControlloVuoto(rec("A"))

sai gia' cosa mettere dentro ControlloVuoto...

[Enrique_Rojas]

Originariamente inviato da optime
puoi fare una funzione del tipo

A=ControlloVuoto(rec("A"))

sai gia' cosa mettere dentro ControlloVuoto...

Grazie, scusa ma non ho capito cosa vuoi suggerirmi...
se devo scrivere una funzione dovrei elencare tutti i campi da controllare?

[Enrique_Rojas]

Originariamente inviato da teorema55
Enrique, ho provato a testare qualche soluzione, purtroppo al momento il dovere mi chiama........al lavoro, e devo lasciare in sospeso.

Direi comunque che, per la struttura stessa del controllo, questo si presti ad essere eseguito sia con un ciclo

for i=0 to 2

...controllo...

next

sia con un ciclo del tipo

for each campo in rec.fields

...controllo...

next

debitamente costruiti.

Okkio perchè la sintassi

Len(rec("A"))=""

non è corretta, devi fare

Len(rec("A"))=0

A più tardi...

Grazie teorema55... aspetterò...

[optime]

mmmmm, bisogna proprio dirti tutto....

Function ControllaVuoto(sSTr)
   If IsNull(sSTr) or IsEmpty(sSTr) or Len(sSTr)=0 then 
      ControllaVuoto = "NULL"
   Else
      ControllaVuoto = sSTr
   End If
End Function

poi puoi fare

A = ControllaVuoto(rec("A"))
B = ControllaVuoto(rec("B"))
C = ControllaVuoto(rec("C"))

SQL = "INSERT INTO tblx (A, B, C) VALUES (" & A & "#, " & B & ", '" & C & "')"
MyConn.execute(SQL)

oppure

SQL = "INSERT INTO tblx (A, B, C) VALUES (" & ControllaVuoto(rec("A"))
 & "#, " & ControllaVuoto(rec("B")) & ", '" & ControllaVuoto(rec("C"))
 & "')"
MyConn.execute(SQL)

[teorema55]

Uhm....sì, sono d'accordo sulla funzioncina, mi sembra...

un' OPTIME idea!

:maLOL:

[optime]

Originariamente inviato da teorema55
Uhm....sì, sono d'accordo sulla funzioncina, mi sembra...

un' OPTIME idea!

:maLOL:

[Enrique_Rojas]

Optime! funziona alla grande!!! :maLOL:

[Teo80]

Riprendo questa discussione che ho ritrovato effettuando una ricerca:
ma se utilizzo la funzione indicata da Optime e ho un campo di testo, dovrebbe scrivere nel campo il valore NULL o sbaglio?
Siccome sono abituato a Oracle e dovendo utilizzare adesso anche un DB access ci sto sbattendo un po' la testa, sembra meno flessibile.