如何用代码清空数据库中的数据!

[haoduoren123456789]

如何用代码清空数据库中的数据!

[davidnim]

Set doc = collection.GetFirstDocument()
While Not(doc Is Nothing)
Call doc.Remove( True )
Set doc = collection.GetNextDocument(doc)
Wend
上面代码直接，换成
Call collection.removeAll(True)

[sacrefies]

我补充问一句：楼主你还需要删除你的设计文档不？

[chenyg2000]

已经写得很好了,顶一下

[newman78]

db.AllDocuments包含答复或答复的答复文档吗？

[haoduoren123456789]

加分了大家努力呀

[tianzl]

用代理啊，首先搜索到数据库中的所有文档，然后逐一删除！
具体代码帮助中有很多相近的，找到后直接考过来稍加修改就能用！
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set collection = db.AllDocuments
Set doc = collection.GetFirstDocument()
While Not(doc Is Nothing)
Call doc.Remove( True )
Set doc = collection.GetNextDocument(doc)
Wend

代码是直接考过来的，没经过测试！你自己试试看吧

[jhlqab]

也只有这样了。