NTK and The NTK Project
are properties of Jn Dechereux
Home | Documentation | FAQ.

Vanilla 1.1.8 is a product of Lussumo. More Information: Documentation, Community Support.

Welcome Guest!
Want to take part in these discussions? If you have an account, sign in now.
If you don't have an account, apply for one now.

NTK - Main Forum  »   Program to fix corrupted records

Bottom of Page

1 to 4 of 4

  1.  
    •  
      CommentAuthorbxed
    • CommentTimeNov 2nd 2020
     
    Hi,
    here is a program i wrote to fix corrupted records in a dbf file.
    I prefer to delete corrupted records because it can mess up the indexes.
    Regards
    Edmond
    •  
      CommentAuthorwaltspon
    • CommentTimeNov 2nd 2020 edited
     
    Hi Edmond
    Thanks for sharing. Interesting code but wasn't able to get it working here. Apparently, you didn't provide your hb_stod() function - hence the EXE cannot build. see attached.
    Rgds
    Walter
    •  
      CommentAuthorbxed
    • CommentTimeNov 3rd 2020
     
    Hi Walter,
    hb_SToD() is a harbour function
    Regards
    Edmond

    #ifdef __XHBW3264__
    FUNCTION hb_SToD( cDate )
    RETURN SToD( cDate )
    #else
    FUNCTION hb_SToD( s )
    LOCAL cDf := Set( _SET_DATEFORMAT, "YYYY/MM/DD" ), dt

    dt := CToD( Stuff( Stuff( s, 7, 0, "/" ), 5, 0, "/" ) )
    Set( _SET_DATEFORMAT, cDf )
    RETURN dt
    #endif
    •  
      CommentAuthorwaltspon
    • CommentTimeNov 4th 2020
     
    Hi Edmund
    Many thx it works far better with this additional code.
    Rgds
    Walter

1 to 4 of 4

  1.