Moderator: Moderatoren
oh Mann! Das EXIT habe ich ja völlig übersehen!Manfred hat geschrieben:Nachdem die Indexdatei erzeugt wurde, verläßt das PRG die Begin Seq und kommt zum RETURN und beendet sich.
Oh jaa.Manfred hat geschrieben:Es ist spät und ........
Hm, das mit dem Shared hatte/habe ich auch in Verdacht, aber es verwundert mich, dass nicht sofort eine Meldung kam/kommt. Ich hatte es anfänglich, weil unter Clipper ein Shared Indexaufbau möglich ist. Unter Xbase++ aber angeblich nicht. Diese Fehlermeldung kam aber nur als ich auf Xbase++ umgestiegen bin und ich habe sie bei diesem Programm vermißt.Martin Altmann hat geschrieben:Olaf,
bist Du Dir sicher? Meiner Meinung nach ist das AutoOpen eines gleichnamigen Indexes nur bei CDX-Dateien implementiert, oder?
Code: Alles auswählen
PROCEDURE main()
LOCAL bSaveError := ErrorBlock()
LOCAL oError
LOCAL lNewArea := lShared := .T., lReadOnly := .F.
LOCAL cDBE, cAlias, cText
LOCAL n := 2
DO WHILE .T.
ErrorBlock( {|e| BREAK(e)})
BEGIN SEQUENCE
IF n = 1
cDBE := "DBFNTX"
DbeSetDefault(cDBE)
ELSE
cDBE := "DBFCDX"
DbeSetDefault(cDBE)
ENDIF
DBUSEAREA(lNewArea,cDBE,"test",cAlias,lShared,lReadOnly)
IF cDBE == "DBFNTX"
INDEX ON UPPER(v_titel) TO testntx
ELSE
INDEX ON UPPER(v_titel) TAG titel TO testcdx
ENDIF
RECOVER USING oError
ErrorBlock( bSaveError)
IF fehlerbehandlung(oError)
BREAK
ENDIF
LOOP
END SEQUENCE
ErrorBlock( bSaveError)
EXIT
ENDDO .T.
RETURN
********************************************************************************
FUNCTION fehlerbehandlung(oError)
LOCAL lSuccess := .T.
IF oError:osCode = 32
cTExt := "Ungültige Shareoption"
ENDIF
IF ! oError:canRetry
lSuccess := .F.
ENDIF
RETURN(lSuccess)
Das ist richtig. Gleichwohl geht aus der xBase-Doku hervor, dass eine Datenbank exclusive geöffnet werden muss, um eine Index-Datei zu erzeugen.Martin Altmann hat geschrieben:Hallo Olaf,
er "öffnete" ja keine Indexdatei, sondern erzeugte sie jedesmal neu! Und das geht natürlich nicht, wenn die Datei in Benutzung ist!
Ich hatte es aus den Alaska-Newsgroups.Manfred hat geschrieben:Allerdings wird der Index für CDX jedesmal größer. Auch hier die Frage: Wo steht, dass der vorher gelöscht werden muß?
Die CDX-Datei wird in Deinem Beispiel wohl auch nicht geöffnet. Zumindest sehe ich kein "AutoOpen".Manfred hat geschrieben:Nönö,
da muß ich ein Veto einlegen, ich erzeuge die Datei nicht jedesmal neu. Es passiert nur beim 1.Durchlauf, danach wird nicht gelöscht, sondern einfach nur der Befehl Index on aufgerufen.
Die NTX Datei wird wohl jedesmal vom System her gelöscht, aber die CDX Datei wird wohl nicht gelöscht, sondern immer größer.
, wo hätte ich das lesen können, dass es bei CDX so ist. Für mich war die Bezeichnung CDX bekannt und was es bringen würde, aber alles andere.... naja egal, jetzt weiß ich es. 
. Ist aber immer schon der Fall gewesen.Code: Alles auswählen
PROCEDURE main()
LOCAL bSaveError := ErrorBlock()
LOCAL bIndexKey := NIL
LOCAL oError
LOCAL lNewArea := .T., lShared := .F., lReadOnly := .F.
LOCAL lUnique := .F.
LOCAL lAdditive := .F.
LOCAL cDBE := "DBFNTX", cAlias := "Test"
LOCAL cIndexFile := "text", cTagName := "Titel"
LOCAL cIndexKey := "UPPER(test->v_titel)"
DO WHILE .T.
ErrorBlock( {|e| BREAK(e)})
BEGIN SEQUENCE
DBUSEAREA(lNewArea,cDBE,"test",cAlias,lShared,lReadOnly)
OrdCreate(cIndexFile,cTagName,cIndexKey,bIndexKey,lUnique,lAdditive)
RECOVER USING oError
ErrorBlock( bSaveError)
IF fehlerbehandlung(oError)
BREAK
ENDIF
LOOP
END SEQUENCE
ErrorBlock( bSaveError)
EXIT
ENDDO .T.
RETURN
********************************************************************************
FUNCTION fehlerbehandlung(oError)
LOCAL lSuccess := .T.
IF ! oError:canRetry
lSuccess := .F.
ENDIF
RETURN(lSuccess)
