Write NULL value

Write NULL value

Postby Armando » Wed Jun 23, 2021 3:14 pm

Hello Friends.

In a MySQL table I have a date type field that accepts null value,
when registering the record a date type value is saved in this field,
example 20210623, now how can I re-record NULL ?

BTW, I write all fields with this source code

Code: Select all  Expand view  RUN

STATIC FUNCTION Upgrade(oRsHdr)
   IF lAddD02
      oRsD02:AddNew()
      oRsD02:Fields("D02_NUMPRO"):Value   := oRsHdr:Fields("HDR_PRO"):Value
   ENDIF
   oRsD02:Fields("D02_FECVIS"):Value := oD02:FECVIS    // Fecha de la visita
   oRsD02:UpDate()
 


I tried with
Code: Select all  Expand view  RUN

   oRsD02:Fields("D02_FECVIS"):Value := NULL or NIL  // Fecha de la visita
 


But it does not work

I know that with the INSERT command it is possible but there are
more than 50 tables, one prg for each table, and each table has
more than 100 fields

Regards
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3229
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Re: Write NULL value

Postby nageswaragunupudi » Wed Jun 23, 2021 5:22 pm

Use FWH function AdoNull()
Code: Select all  Expand view  RUN
oRs:Fields( "datefield" ):Value := AdoNull()

This works.

When a NULL value is read, oRs:Fields( xx ):Value returns NIL.
But assigning NIL does not work. Assigning AdoNull() and then calling oRs:Update() works.
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10646
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: Write NULL value

Postby Armando » Wed Jun 23, 2021 5:58 pm

Mr. Rao:

Thank you very much, It Works fine.

Regards
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3229
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 34 guests