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数据库了。
