I am not able to append from a dbf file when it has a .CDX file associated with it. The only way I can do it is to delete the cdx file first, then do an "INDEX ON..." to rebuild it after I append from it. Is this a limitation of xHarbour or is it a bug?
Charles
Can you show a reduced sample of the problem?
EMG
Enrico -
You can download a sample that shows the problem from http://www.softraksystems.com/download/append.zip Run the exe file and look at the prg file. I also included the error.log which appears in the app directory after it overwrites the first one that you see when the error occurs. The one you see says "alias not found", but is overwritten by the one that says "hb_cdxIndexFree: Index file still locked."
The problem appears to be that dbCloseArea() does not release the lock on the CDX file that has been previously opened with the dbf file as EXCLUSIVE.
Thanks for your help.
Charles
Page not found. Please paste here the PRG showing the problem.
EMG
Enrico -
Now the download link works. Sorry I didn't test it before.
Charles
REQUEST DBFCDX
FUNCTION MAIN()
RDDSETDEFAULT( "DBFCDX" )
DBCREATE( "ERRTEST", { { "TEST", "C", 35, 0 } } )
USE ERRTEST
INDEX ON FIELD -> test TO ERRTEST
APPEND BLANK
REPLACE FIELD -> test WITH "Test"
DBCREATE( "ERRTEST2", { { "TEST", "C", 35, 0 } } )
USE ERRTEST2
APPEND FROM ERRTEST
RETURN NILEnrico,
It has been some time since I used "Append".
But if I remember well, the file from which you append, must be closed.
Could that solve your problem ?
Good luck.
Regards,
Michel D.
Genk (Belgium)
I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773
Yes, you are right, as COPY TO opens the destination file in exclusive mode.
EMG
Enrico -
The following code is very simple, and causses the error to occur. Rather than using dbcreate as you did, I am using the customer.dbf from the FWH samples folder. The first time you run this, un-comment the COPY TO CUST line to produce the tcust.dbf.
REQUEST DBFCDX
RDDSETDEFAULT("DBFCDX")
USE CUSTOMER NEW EXCLUSIVE
INDEX ON CUSTOMER->LAST TAG LAST
INDEX ON CUSTOMER->SALARY TAG SALARY
DBGOTOP()
*COPY TO TCUST
CUSTOMER->(DBCLOSEAREA())
USE TCUST
ZAP
APPEND FROM CUSTOMER
RETURN NIL
Regards,
Charles
INDEX ON FIELD->LAST TAG LAST
INDEX ON FIELD->SALARY TAG SALARYThat fixes it. Many thanks, Enrico. I have some code to change in some of my apps.
Charles