摘要: 对服务器有些数据库需要建立复本,新建拷贝,修改权限(ACL),或是修改数据库标识符(ID)需要找到这些数据库。这个方法是导出指定服务器上所有数据库的路径,数据库名,标识符等信息,导出后对Excel表格进行筛选,即可对筛选出的数据库进行后续操作。Sub InitializeConst SourceSever = "xxx.xxx.xxx.xxx" '源服务器Const ExcelSavePath = "C:\ResetReplicaID.xls"Dim s As New NotesSession Dim dbdir As New NotesDbDi 阅读全文
posted @ 2013-12-25 11:28 殄恪 阅读(356) 评论(0) 推荐(0) 编辑
摘要: OA开发中经常要搭建测试环境,测试环境的数据库与原数据库不能有ID冲突现象,以防混淆。以下是一个批量修改数据库标识符的方法,其中,取得这些需要更改的数据库,需要导出源服务器上的数据库路径和名称,方法详见我的博文:LotusScript_导出数据库路径和名称Sub InitializeConst SourceServer = "xxx.xxx.xxx.xxx" 'NSF源服务器Const TargetServer = "xxx.xxx.xxx.xxx" 'NTF中转服务器Const TargetServer2 = "xxx.xxx 阅读全文
posted @ 2013-12-25 11:19 殄恪 阅读(499) 评论(0) 推荐(0) 编辑
摘要: 1. 视图(View)查询...Set view = db.GetView("ViewName")Set doc = view.GetFirstDocumentWhile Not doc Is Nothing ...Set doc = view.GetNextDocument(doc)Wend2. NotesDocumentCollection 查询1、文档处理...Dim dc As NotesDocumentCollectionSet dc=db.UnprocessedDocumentsFor i=1 To dc.Count Set doc=dc.GetNthDocum 阅读全文
posted @ 2013-12-25 11:03 殄恪 阅读(445) 评论(0) 推荐(0) 编辑