Changing to FOXDBE / ADSDBE

[Wolfgang Ciriack]

Hi all,
until now i used the DBFCDX with the following settings:

Code: Select all

  DbeInfo(COMPONENT_ORDER,CDXDBE_LOCKRETRY,20000000)
  DbeInfo(COMPONENT_ORDER,CDXDBE_LOCKDELAY,10)
  DbeInfo(COMPONENT_ORDER, CDXDBE_MODE, CDXDBE_COMIX )
  DbeInfo(COMPONENT_ORDER, DBE_LOCKMODE, LOCKING_EXTENDED)
  DbeInfo(COMPONENT_ORDER, CDXDBE_LIFETIME, 0)

I now like to use the ADS, with my combination of DBF/DBT/CDX this is not possible, so i will change to FOXCDX with DBF/FPT/CDX.
Any suggestions for the DBE settings for FOXCDX ?

For the ADS i only use

Code: Select all

   DbeInfo( COMPONENT_DATA, ADSDBE_LOCK_MODE, ADSDBE_COMPATIBLE_LOCKING )
   DbeInfo( COMPONENT_DATA , ADSDBE_TBL_MODE, ADSDBE_CDX )
   DbeInfo( COMPONENT_ORDER, ADSDBE_TBL_MODE, ADSDBE_CDX )

Are there other settings to consider for the ADSDBE ?

[messaoudlazhar]

Hi,

Follow these steps :

1- You must select FOXCDX

FUNCTION APPSYS
IF ! Dbeload( "FOXDBE", .T. )
MsgBox( "FOXDBE can not be loaded !" )
ENDIF
IF ! Dbeload( "CDXDBE", .T. )
MsgBox( "CDXDBE can not be loaded !" )
ENDIF
IF ! DbeBuild( "FOXCDX","FOXDBE","CDXDBE")
MsgBox( "The engine FOXCDX can not be created !" )
ENDIF
DbeSetDefault( "FOXCDX" )
RETURN NIL

2 - Create a conversion process :
**----------------
Procedure ConvertNTXCDX
Local DBTFiles,kn,ixi,filedbf
If ! DbeSetDefault() $ "FOXDBE*FOXCDX"
RETURN
Endif
DBTFiles:=Directory("*.DBT")
If len(DBTFiles)>0
kn=len(DBTFiles)
For ixi=1 to kn
BEGIN SEQUENCE
if file(DBTFiles[ixi,1])
filedbf:=StrTran(DBTFiles[ixi,1],".DBT","")
*use (filedbf) VIA "DBFNTX"
use (filedbf) VIA "DBFCDX"
Copy to tmpDBT
use tmpDBT
Copy to (filedbf)
use
filedbf:=DBTFiles[ixi,1]
erase (filedbf)
filedbf:=StrTran(DBTFiles[ixi,1],".DBF",".CDX")
if file(filedbf)
erase (filedbf)
Endif
filedbf:=StrTran(DBTFiles[ixi,1],".CDX",".NTX")
if file(filedbf)
erase (filedbf)
Endif
Endif
END SEQUENCE
Next
Endif
RETURN

3 - Run it every time you need to convert a database
---------
Best regards

Messaoud Mohamed Lazhar

[Wolfgang Ciriack]

Thank you, but the converting code i allready have written.