CSDN博客

img chenyg2000

How to delete the full-text index of a notes database

发表于2004/10/27 10:23:00  834人阅读

Declare Function NSFDbOpen Lib "nnotes.dll" (Byval PathName As String, rethDB As Long) As Integer
Declare Function NSFDbClose Lib "nnotes.dll" (Byval hDB As Long) As Integer
Declare Function FTDeleteIndex Lib "nnotes.dll" (Byval hDB As Long) As Integer

Sub Initialize
 Dim Bufferstr As String
Dim ReturnCodel As Long
Dim hDBl As Long

Dim session As New NotesSession

'Open the database
ReturnCodel = NSFDbOpen(session.CurrentDatabase.Server+“!!“+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)

End Sub
阅读全文
0 0

相关文章推荐

img
取 消
img