Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: FRANKI am 21.01.04 - 08:02:38

Titel: Index loeschen
Beitrag von: FRANKI am 21.01.04 - 08:02:38

Hallo Leute,

kann ich den Volltextindex per Lotus Script loeschen??

Wenn ja, wie geht das?

Danke
FRANKI

Titel: Re:Index loeschen
Beitrag von: Axel am 21.01.04 - 08:47:27

Hi,

mir ist keine Methode bekannt um den Index mit Script zu löschen.

Evt. könnte es mit API-Funktionen gehen.


Axel

Titel: Re:Index loeschen
Beitrag von: Glombi am 21.01.04 - 08:49:22

Das geht in LS leider erst mit R6.

Und das auch (genauso wie das Erstellen des FT Index) nur für lokale DBs.

Andreas

Titel: Re:Index loeschen
Beitrag von: FRANKI am 21.01.04 - 08:57:47

so ein sch.......

Danke
FRANKI

Titel: Re:Index loeschen
Beitrag von: meichhorner am 21.01.04 - 09:22:10

Hy,

wie wär's mit der API ;)

Code

'STATUS LNPUBLIC FTDeleteIndex(HANDLE hDB);
Declare Function FTDeleteIndex Lib "nnotes.dll" (Byval hDB As Long) As Integer

'STATUS LNPUBLIC NSFDbClose( DBHANDLE hDB);
Declare Function NSFDbClose Lib "nnotes.dll" (Byval hDB As Long) As Integer

'STATUS LNPUBLIC NSFDbOpen(char far *PathName, DBHANDLE far *rethDB);
Declare Function NSFDbOpen Lib "nnotes.dll" (Byval filepath As String, DB As Long) As Integer

Dim Bufferstr As String
Dim ReturnCodel As Long
Dim hDBl As Long 

Dim session As New NotesSession

'Open the database
ReturnCodel = NSFDbOpen(session.CurrentDatabase.FilePath, hDBl)
If ReturnCodel <> 0 Then
Error 9999, "An error occurred in the main routine calling the API function NSFDbOpen." & Chr$(10) & "The return code was " & Trim$(Str$(ReturnCodel)) & "."
Exit Sub
End If

'Delete the index
ReturnCodel = FTDeleteIndex(hDBl)
If ReturnCodel <> 0 Then
Error 9999, "An error occurred in the main routine calling the API function FTDeleteIndex." & Chr$(10) & "The return code was " & Trim$(Str$(ReturnCodel)) & "."
Call NSFDbClose(hDBl)
Exit Sub
End If

'Close the database
ReturnCodel = NSFDbClose(hDBl)

Cu
Martin