Lotus Notes 访问异种数据库

Lotus Notes 4.0 是一个很好的群件工作平台，它有很好的电子邮件系统，领先的全文检索和复制功能。它还具有极强的安全措施，可以可靠地保证信息安全性。但它在解决联机事务处理问题上功能较弱，这时就需要传统的关系型数据库管理系统来协助解决。如何把现有的关系型数据库信息转移到Notes数据库中，以利用Notes的许多良好性能共享数据，就是本文要讨论的问题。本文以Foxpro 数据库为例，介绍Lotus Notes 访问异种数据库的一种实现方法。

Lotus Notes 访问异种数据库的途径
    Lotus Notes 使用ODBC 标准存取异种数据库信息。通过Notes 里内嵌的公式或Script 语言，可在Notes 文档中引入非Notes 数据库信息，把现成的数据转换成Notes 数据库。

Notes 提供以下方法来存取外部数据：
在Notes 公式里利用@Db 函数
    Notes 提供@DbColumn 、@DbLookup 及@DbCommand 三个函数，这三个函数的第一个参数用“ODBC”，就可访问异种数据库信息。但它有一个缺陷：只能按列存取信息，而不能按记录存取信息。
利用Lotus Script 数据对象LSX 兼容模块使用Lotus Script 语言来编写存取外部数据的函数，Notes 的ODBCConnection 、ODBCQuery 及ODBCResultSet 三个类为Notes 提供了用ODBC 标准存取异种数据库的属性和操作。
    在存取外部数据之前，必须定义一个数据源，以便让ODBC 驱动程序管理器知道怎样获取数据。一个数据源把一个特定的ODBC 驱动程序和要存取的数据联系在一起，并包括要存取的数据，它与服务器或目录、后台DBMS 以及网络平台相联系，这些信息都记录在一个注册文件中( 在Winows95 中是ODBC.INI) ，可采用Windows 的管理工具注册数据源。

在Windows95 中操作步骤如下：

打开Windows 控制面板，按ODBC 图标，击Add 按钮；

选择需要的驱动程序，击OK 按钮；

输入数据源名称、描述信息以及所需要的其它信息；

有些驱动程序还需要其他一些信息，输入这些必需的信息，并击OK 按钮；

击Close 按钮。

Lotus Notes 访问Foxpro 的一种实现方法
    实现Notes 访问Foxpro 数据库的基本编程思想是：对Fox
pro 的一个数据库，按其结构相应地在Notes 数据库里建立一个同样结构的表单，以便把Foxpro 字段的信息经转换后存入Notes 表单相应字段中；建立一个代理，用Script 语言编写转换程序；再创建一个视图运行这个代理，以实现异种数据库信息向Notes 数据库转换。
    现有一个Foxpro 数据库BMZBK.DBF ，其结构如下：
字段名   类型      宽 度     说明
code     Character  7      指标编码
name     Character  40     指标名称
fullname Character  60     指标全称
unit     Character  12     计量单位

把这个库的所有信息转换到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＊fromBMZBK" ‘发送查询请求
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”代理。这样在打开Convert.nsf 数据库时，点击DemoView 视图，就会在屏幕上方出现“转换”操作按钮，点击这个按钮，就可把Foxpro 一个数据库BMZBK.DBF 的所有信息转换成Notes 数据库了。