Hi,

I would like to share an USR RDD that permits to log to a file any DBF updates. I have tested it with my xharbour repository, but it should works also with harbour. It's a proof of concept done to check some problems I have at one customer that says that he losts some records. So I want to trace all changes to see if anyone delete records.

LOGCDX inherits from DBFCDX.

An example is:

#include "dbinfo.ch"

REQUEST LOGCDX

PROCEDURE Main()
   RDDSetDefault( "LOGCDX" )
   rddInfo( RDDI_MEMOVERSION, DB_MEMOVER_CLIP, "LOGCDX" )

   hb_LogCdxLogFileName( "changes.log" )
   hb_LogCdxTag( NETNAME() + "\" + hb_USERNAME() )
   hb_LogCdxActive( .T. )

   USE test
   field->name := "Francesco"

RETURN

Any comments are welcome.
If it can be useful I can upload to SVN.

Best Regards

Francesco

Attachment: logcdx.prg
Description: application/prg

_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to