下面为根据数据库模板批量创建Notes数据库的例子,供参考。
Sub Initialize
On Error Goto ErrHandle
Dim ss As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim strPlate As String
Dim dbPlate As NotesDatabase
Dim dbMain As NotesDatabase
Set db=ss.CurrentDatabase
Set doc=ss.DocumentContext
strPlate="mail6.ntf"
Set dbPlate=New NotesDatabase(db.Server,strPlate)
If Not(dbPlate.IsOpen) Then
Msgbox "模板文件" & strPlate & "不存在!"
Exit Sub
End If
Dim i As Integer
Dim strName As String
Dim strPath As String
For i=1 To 100
strName="User" & i
strPath="mail/" & strName & ".nsf"
Set dbMain=New NotesDatabase(db.Server,strPath)
If dbMain.IsOpen Then
Msgbox "数据库:" & strPath & "已经存在!"
Else
Set dbPlate=New NotesDatabase(db.Server,strPlate)
Set dbMain=dbPlate.CreateFromTemplate(db.Server,strPath,True)
dbMain.Title=strName
Msgbox "数据库" & strPath & "创建成功!"
End If
Next
Exit Sub
ErrHandle:
Msgbox "未知错误,错误行:" & Erl
End Sub
分享到:
相关推荐
Notes SQL 8.5.1用于odbc连接Lotus Notes数据库 可用于Delphi,vb等连接Lotus Notes,访问表和视图 或更新字段
可以将指定服务器的一个或多个数据库批量拷贝到Notes的Data目录下,可以指定拷贝到特定目录下,可以拷贝整个指定目录下的所有数据库。 如有问题请给我回复或给我站内信,以便及时修正程序中的Bug,同时增加功能。
重建Notes数据库 收件箱
恢复Notes数据库隐藏设计
Delphi访问NOTES数据库的方法,可以方便存取文档型数据
关于domino的连接库需要的jar包notes数据库jar包连接lotus数据库用
利用JDBC整合Notes数据库和Oracle数据库.pdf
Delphi 操作 Lotus Notes数据库 源码包括Notes SQL 8.5.1 源码可能无法编译,不能提供MS Sql数据库,但可以看一下delphi中查看 Notes的表单和视图,源码还包括XLSReadWriteII30操作XLS文件的代码 可以参考一下,我也...
LotusNotes访问关系数据库的方法
利用VB操作LotusNotes数据库发送邮件
VB操作Lotus Notes数据库 Lotus提供了一个后台的COM类NotesSession。NotesSession是一个功能强大的对象模型,它提供了其他Notes对象的接口,即只有通过它才能访问Notes中的数据库对象NotesDatabase、NotesView等对象...
Domino系统Notes数据库模板替换命令详解.docx
研究论文-从Lotus Notes数据库到关系型数据库的数据转换
一款方便批量加密Lotus Notes Database的小软件,打勾、取消打勾再点应用即可对批量DB加密、解密操作。。。
LotusNotes数据库中数据一致性问题的解决
基于SQL Server与Notes数据库的网络课件制作系统.pdf
2021最新产品需求模板系列-Lotus-Notes文档数据库.docx
Lotus-Notes文档数据库.zip程序开发文档软件开发文技术档下载Lotus-Notes文档数据库.zip程序开发文档软件开发文技术档下载Lotus-Notes文档数据库.zip程序开发文档软件开发文技术档下载Lotus-Notes文档数据库.zip程序...
Lotus-Notes文档数据库.pdf
课程LotusNotes文档数据库.pdf