Lotus Notes访问关系数据库的方法

12/3/2006来源:Lotus Notes人气:6907

 Lotus Notes 4.5是一个很好的群件工作平台,它有很好的电子邮件系统,领先的全文检索和复制功能。它还具有极强的安全措施,可以可靠地保证信息安全性。

  但它在解决事务处理问题上功能较弱,这时就需要传统的关系型数据库管理系统来协助解决。如何把现有的关系型数据库信息转移到Notes数据库中,以利用Notes 的许多良好性能共享数据,就是本文要讨论的问题。

  本文以FoxPRo数据库为例,介绍Lotus Notes访问异种数据库的一种实现方法。

  Lotus Notes访问异种数据库的途径Lotus Notes使用ODBC 标准存取异种数据库信息。通过Notes里内嵌的公式或Sc ript语言,可在Notes文档中引入非Notes数据库信息,把现成的数据转换成Notes数据库。Notes提供以下方法来存取外部数据:

  1.在Notes公式里利用@Db函数Notes提供@DbColumn、@DbLookup及@DbCommand三个函数,这三个函数的第一个参数用“ODBC",就可访问异种数据库信息。但它有一个缺陷:只能按列存取信息,而不能按记录存取信息。

  2.。利用Lotus Script数据对象LSX兼容模块使用Lotus Script语言来编写存取外部数据的函数,Notes的ODBCConnection、ODBCQuery及ODBCResultSet三个类为Notes提供了用ODBC标准存取异种数据库的属性和操作。

  实例:

  1.定义数据源在存取外部数据之前,必须定义一个数据源,以便让ODBC驱动程序管理器知道怎样获取数据。一个数据源把一个特定的ODBC驱动程序和要存取的数据联系在一起,并包括要存取的数据,它与服务器或目录、后台DBMS 以及网络平台相联系,这些信息都记录在一个注册文件中(在Winows95中是ODBC.INI),可采用Windows的管理工具注册数据源。在Windows95中操作步骤如下:

  打开Windows控制面板,按ODBC图标,击Add按钮;选择需要的驱动程序,击OK按钮;输入数据源名称、描述信息以及所需要的其它信息;有些驱动程序还需要其他一些信息,输入这些必需的信息,并击OK按钮;击Close按钮关闭ODBC配置。

  2.Lotus Notes访问Foxpro的一种实现方法

  实现Notes访问Foxpro数据库的基本编程思想是:对Foxpro 的一个数据库,按其结构相应地在Notes数据库里建立一个同样结构的表单,以便把Foxpro字段的信息经转换后存入No tes表单相应字段中;建立一个代理,用Script语言编写转换程序;再创建一个视图运行这个代理,以实现异种数据库信息向Notes数据库转换。<

  现有一个Foxpro数据库BMZBK.DBF,其结构如下:

  字段名类型宽度说明code Character 7指标编码name Character 40指标名称fullname Character 60指标全称unit Character 12计量单位

  3.把这个库的所有信息转换到Notes库中的实现步骤如下:

  1.在Notes中新建一个数据库,取名为Convert.nsf,在这个数据库里创建一个表单,取名为codelib,其内容如下:

  域名类型说明code文本可编辑指标编码name文本可编辑指标名称fullname文本可编辑指标全称unit文本可编辑计量单位0 在Convert.nsf库中建立一个代理,取名为vfpagent,定义如下:

  运行此代理的时间设定为:人工选择“操作”菜单执行;指定代理操作的文档设定为:视图中所有文档。

  2.此代理要执行的操作,用Script编写两个事件:

  (1)Option事件作如下编程:

Option Public

Uselsx"*LSXODBC" 存取ODBC类库的全局对象

(2)Initialize事件作如下编程:

Sub Initialize

Dim session As New Notessession

Dim db As Notesdatabase

Dim doc As notesdocument

Set db=session.currentdatabase

Set doc=New notesdocument(db)

doc.form="codelib"

Dim conn As New ODBCConnection

Dim qry As ODBCQuery

Dim result As ODBCResultSet

Call conn.Disconnect()

Set qry=New ODBCQuery

Set result=New ODBCResultSet

VFR是ODBC里注册好的数据源

If conn.ConnectTo("VFP")Then

Set qry.Connection=conn

qry.SQL="SELECT*from BMZBK" 发送查询请求

Set result.Query=qry

Call result.Execute()

columns=result.Columns

取出结果集,并存入Notes相应的字段中

Do Until result.IsEndOfData

doc.code=Trim$(result.getvalue(1))

doc.name=Trim$(result.getvalue(2))

doc.fullname=Trim$(result.getvalue(3))

doc.unit=Trim$(result.getvalue(4))

Call doc.save(True,True)

Set db=session.currentdatabase

Set doc=New notesdocument(db)

doc.form="codelib"

Call result.nextrow()

Loop

Call conn.Disconnect()与数据源断开连接

Else

Messagebox("Could not connect to server")

End If

End Sub

  3.在Convert.nsf库中建立一个视图,取名为DemoView,在此视图里创建一个操作,标题为“转换”,运行方式为简单操作:运行“vfpagent"代理。这样在打开Conver

  t.nsf数据库时,点击DemoView视图,就会在屏幕上方出现“转换”操作按钮,点击这个按钮,就可把Foxpro一个数据库BMZBK.DBF的所有信息转换成Notes数据库了。