点击这里给我发消息 点击这里给我发消息

VB操作LotusNotes数据库

添加时间:2014-8-23
    相关阅读: 设计 软件 开发 技术 数据库 程序 SQL

今天,异构数据环境已经是一个普遍存在的问题,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下均工作正常。

咨询热线:020-85648757 85648755 85648616 0755-27912581 客服:020-85648756 0755-27912581 业务传真:020-32579052
广州市网景网络科技有限公司 Copyright◎2003-2008 Veelink.com. All Rights Reserved.
广州商务地址:广东省广州市黄埔大道中203号(海景园区)海景花园C栋501室
= 深圳商务地址:深圳市宝源路华丰宝源大厦606
研发中心:广东广州市天河软件园海景园区 粤ICP备05103322号 工商注册