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

　　但它在解决事务处理问题上功能较弱，这时就需要传统的关系型数据库管理系统来协助解决。如何把现有的关系型数据库信息转移到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)

 如果您对本文有任何疑问或者建议，请到讨论区发表您的意见: >> 论坛入口 <<

上一页12 下一页

上一篇：教你在Linux系统下运行notes客户端   下一篇：Lotus Domino/Notes与Exchange的比较

【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【我要投稿】 【论坛讨论】