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

原创于 2004-10-27 10:23:00 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#database #delete #integer #function #string #api

博客展示了使用API函数进行数据库操作的代码。通过NSFDbOpen打开数据库，FTDeleteIndex删除索引，NSFDbClose关闭数据库。若调用API函数返回错误码，会输出错误信息并退出操作，涉及字符串、整数等数据类型。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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