Hallo Leute,
ich habe jetzt das Problem gefunden, wieso ich die Einstellungen nicht setzen konnte.
Es gab 2 Punkte, die nicht erfüllt waren:
1. Fehlende Header-Dateien
#include "foxdbe.ch"
#include "cdxdbe.ch"
2. Defalt-DBE muss vorher festgelegt sein:
DbeSetDefault( "FOXCDX" )
Mein Programm hat die Fehlermeldungen nicht angezeigt, bis ich es mit einem Testprogramm getestet habe.
Ich habe aber trotzt der Einstellungen einen Unterschied in der Grösse der Indexdateien gefunden.
Jetzt habe ich erstmal die Einstellungen in meinen Programmen geändert und muss abwarten, ob die Indexdateien immer noch zerstört werden.
Hier ist mein funktionierender Testcode:
Code: Alles auswählen
#include "Gra.ch"
#include "Xbp.ch"
#include "Common.ch"
#include "Appevent.ch"
#include "Font.ch"
#include "foxdbe.ch"
#include "cdxdbe.ch"
PROCEDURE DBESYS()
? DbeLoad( "FOXDBE", .t.)
? DbeLoad( "CDXDBE" ,.t.)
IF ! DbeBuild( "FOXCDX", "FOXDBE", "CDXDBE" )
ConfirmBox(,"FOXCDX does not create!","Error",XBPMB_OK,XBPMB_SYSMODAL,)
ENDIF
DbeLoad( "ODBCDBE" )
DbeSetDefault( "FOXCDX" )
? DbeInfo( COMPONENT_DATA, FOXDBE_LOCKMODE)
DbeInfo( COMPONENT_DATA, FOXDBE_LOCKMODE,FOXDBE_LOCKMODE_VISUAL)
? DbeInfo(COMPONENT_ORDER,CDXDBE_MODE)
DbeInfo(COMPONENT_ORDER,CDXDBE_MODE, CDXDBE_VFOXPRO)
? DbeInfo( COMPONENT_DATA, FOXDBE_LOCKRETRY )
DbeInfo( COMPONENT_DATA, FOXDBE_LOCKRETRY, 100000 )
? DbeInfo( COMPONENT_DATA, FOXDBE_LOCKDELAY )
DbeInfo( COMPONENT_DATA, FOXDBE_LOCKDELAY, 20 )
? dbeinfo( COMPONENT_ORDER, CDXDBE_LOCKRETRY )
DbeInfo( COMPONENT_ORDER, CDXDBE_LOCKRETRY, 100000 )
? dbeinfo( COMPONENT_ORDER, CDXDBE_LOCKDELAY )
DbeInfo( COMPONENT_ORDER, CDXDBE_LOCKDELAY, 20 )
? var2char(DbeInfo(COMPONENT_ORDER,DBE_LOCKMODE))
dbeinfo( COMPONENT_ORDER, DBE_LOCKMODE, LOCKING_EXTENDED )
RETURN
proc main()
? "drin"
? DbeInfo( COMPONENT_DATA, FOXDBE_LOCKMODE)
? DbeInfo(COMPONENT_ORDER,CDXDBE_MODE)
? DbeInfo( COMPONENT_DATA, FOXDBE_LOCKRETRY )
? DbeInfo( COMPONENT_DATA, FOXDBE_LOCKDELAY )
? dbeinfo( COMPONENT_ORDER, CDXDBE_LOCKRETRY )
? dbeinfo( COMPONENT_ORDER, CDXDBE_LOCKDELAY )
? var2char(DbeInfo(COMPONENT_ORDER,DBE_LOCKMODE))
wait
return