VB操作LotusNotes数据库

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

　　办公自动化软件中常用的数据库系统LotusNotes，属于非关系数据库管理系统。

　　具有以下特点:

　　1.基于文档组织模式;

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

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

　　4.使用视图定位数据;

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

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

　　在Notes中使用COM和OLE

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

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

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

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

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

　　窗口界面

　　PrivateSubForm_Load()

　　DimSessionAsNewDomino.NotesSession

　　DimPublicNotesDbAsNewDomino

　　.NotesDatabase

　　DimViewAsNotesView

　　DimCAsNOTESVIEWCOLUMN

　　DimMycountAsInteger

　　Session.Initialize

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

　　IfPublicNotesDbIsNothingThen

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

　　EndIf

　　SetView=PublicNotesDb.GetView(“HavingAutoCode”)

　　WithgrdDataGrid

　　.Clear

　　j=0

　　.Rows=2

　　.FixedCols=1

　　.FixedRows=1

　　.Col=1

　　.FixedRows=.Row

　　.Row=0

　　.Cols=2

　　j=1

　　ForEachCInView.Columns

　　.AddItem(C.Title)

　　x.Caption=C.Title

　　.Col=j

　　.Cols=.Col 2

　　.Item(j).Visible=False

　　.Text=C.Title

　　IfC.IsHidden=TrueThen

　　.ColWidth(j)=0

　　EndIf

　　j=j 1

　　Next

　　.Cols=j 3

　　.Col=j

　　.Text=“处理情况”

　　.Col=j 1

　　.Text=“处理原因”

　　.Col=j 2

　　.Text=“处理责任人”

　　.ColWidth(2)=1800

　　.ColWidth(3)=1800

　　DimDocAsObjectNOTESDOCUMENT

　　SetDoc=View.GetFirstDocument

　　.Row=1

　　j=1

　　DimStrAsString

　　DoUntilDocIsNothing

　　.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)

　　SetDoc=View.GetNextDocument(Doc)

　　IfNotDocIsNothingThen

　　Ifj>=.RowsThen

　　.Rows=j 1

　　EndIf

　　.Row=j;j=j 1

　　EndIf

　　Loop

　　.MergeCells=flexMergeRestrictColumns

　　'MergeCells=2

　　.MergeCol(0)=True

　　.MergeCol(1)=True

　　.MergeCol(2)=True

　　.MergeCol(3)=True

　　.Redraw=True

　　EndWith

　　EndSub

　　上面的代码中，调用initialize方法产生一个NotesSession对象，它的方法有点类似VBA中调用word的方法，如果采用IsOpen可以判断是否已经打开对话框，函数GetDatabase()打开Notes数据库，其中取得一个数据的函数用法有点特别:

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

　　使用两个连续的括号似乎VisualBasic不允许，其实Domino中允许多值域，所以函数GetItemValue()返回的实质上是一个数组，第一个元素从0开始。

　　按键盘F5开始运行，就可以看到输出结果。

　　VB操作DominoCOM的优缺点

　　VB操作DominoCOM具有以下优点:

　　VB应用程序不需要调用LotusNotes客户端就可以访问Notes的函数;

　　程序员可以在设计时使用早期绑定，其速度比晚绑定快，最主要的是可以利用VB6的智能语法提示功能;

　　COM的运行速度比LotusScript快;

　　可以独立于LotusNotes客户端进行应用程序分发。

　　遗憾的是Domino的COM与VBA等相比，还有一些明显缺点:

　　目前Lotus只支持后台的Domino对象，即session，对于UIWorkSpace并不支持(如果支持，就意味Lotus客户端可以被用户或第三方程序取代);

　　由于COM只被Windows所支持，目前Unix还不能使用本文所论述的方法;

　　由于安全原因，Louts目前不支持DCOM技术;

　　Lotus提供的COM并不支持“ref”内存指针，标准COM提供三种内存指针：“ref”、“unique”和“ptr”，其中“ref”开销最小。

　　结论

　　采用COM作为VB与Domino的桥梁，既可以发挥Domino的强大的文档处理能力，又可以发挥VB友好的可视化功能。文中例子是笔者实际工作中使用过的，该设计采用R5.05和VB6开发工具，在Win98、NT和Win2000下均工作正常。