VB操作Lotus Notes数据库

概述

今天，异构数据环境已经是一个普遍存在的问题，Windows常用开放数据库互连标准ODBC进行数据交换与操作，后来微软又推出了ADO技术，例如用VB操作Oracle、Sybase和SQL Server等，其应用也越来越普遍。

办公自动化软件中常用的数据库系统Lotus Notes，属于非关系数据库管理系统，具有以下特点:

1. 基于文档组织模式;

2. 使用非结构化的数据元素;

3. 通过定时复制刷新数据;

4. 使用视图定位数据;

5. 通过全文检索访问数据。

因为ADO或ODBC的方法是针对Oracle等关系数据库管理系统的，主要是通过SQL语言访问数据，Notes尽管也提供了Notes ODBC，但它并不支持全文检索，因此要在VB中实现对Lotus Notes数据库的存取，必须通过别的方法。

在Notes中使用COM和OLE

OLE是Windows的一个特征，OLE通过把应用程序的功能作为对象暴露给其他应用程序，这些对象拥有属性(数据)和方法(函数)，应用程序通过OLE中的对象去执行相应的任务。Domino既可以作为一个OLE提供给外部程序调用，也可以通过OLE去控制其他OLE对象。尽管OLE也有许多优点，但Domino的OLE服务不支持早期绑定，这意味着在VB等应用程序中对OLE编程进行类型检查、快速启动时，Domino OLE将强迫应用程序启动Notes的客户端，从而对系统产生巨大压力。此外，应用程序不能同时启动多个NotesSession，主要出于安全角度，Domino的OLE不允许应用程序直接输入用户名和密码，因此整个应用程序要么频繁地启动和关闭Domino OLE来打开NotesSession，要么大量使用全局变量，对程序设计极为不利。

在R5.03以后，Lotus提供了一个后台的COM类NotesSession。NotesSession是一个功能强大的对象模型，它提供了其他Notes对象的接口，即只有通过它才能访问Notes中的数据库对象NotesDatabase、NotesView等对象。

由于COM与OLE的兼容性，因此，用VB等程序操作Domino就变得相当容易，在VB中引用的方法非常简单，新建一个工程，在菜单“工程”下选择“引用”，则会出现下列对话框：


图1 新建工程时加入对Domino库的引用

同时在Form上放一个FlexGrid控件，产生一个如图2所示的窗体。 在窗体事件Load 中键入下列代码：


图2 窗口界面

Private Sub Form_Load()

Dim Session As New Domino.NotesSession

Dim PublicNotesDb As New Domino

.NotesDatabase

Dim View As NotesView

Dim C As NOTESVIEWCOLUMN

Dim Mycount As Integer

Session.Initialize

Set PublicNotesDb = session.GetDatabase(“教科文处/教科文”, “档案管理.nsf”)

If PublicNotesDb Is Nothing Then

MsgBox (“不能打开Notes库，请查看系统设置！”)

End If

Set View = PublicNotesDb.GetView(“Having AutoCode”)

With grdDataGrid

.Clear

j = 0

.Rows = 2

.FixedCols = 1

.FixedRows = 1

.Col = 1

.FixedRows = .Row

.Row = 0

.Cols = 2

j = 1

For Each C In View.Columns

.AddItem (C.Title)

x.Caption = C.Title

.Col = j

.Cols = .Col + 2

.Item(j).Visible = False

.Text = C.Title

If C.IsHidden = True Then

.ColWidth(j) = 0

End If

j = j + 1

Next

.Cols = j + 3

.Col = j

.Text = “处理情况”

.Col = j + 1

.Text = “处理原因”

.Col = j + 2

.Text = “处理责任人”

.ColWidth(2) = 1800

.ColWidth(3) = 1800

Dim Doc As Object NOTESDOCUMENT

Set Doc = View.GetFirstDocument

.Row = 1

j = 1

Dim Str As String

Do Until Doc Is Nothing

.Col = 1

.Text= Doc.GetItemValue(“登记号”)(0)

.Col = 2

Str = Doc.GetItemValue(“组卷号”)(0)

.Text = Str

.Col = 3

.Text= Doc.GetItemValue(“文件字号”)(0)

.Col = 4

.Text= Doc.GetItemValue(“文件名”)(0)

Set Doc=View.GetNextDocument(Doc)

I