利用ODBC实现Domino和关系数据库互操作.docVIP

利用ODBC实现Domino和关系数据库的互操作-数据库专栏,SQL Server 利用odbc实现domino和关系数据库的互操作　　lotus domino是当今办公自动化系统的主流研发平台之一，domino自带一个非关系型数据库??文件型数据库，而目前大部分企业的信息都储存在诸如sql server等关系型数据库中，因此，在研发办公自动化系统过程中势必要涉及domino和关系数据库的数据交换问题。　　一、lotus domino和关系数据库的互操作　　在lotus domino r5中提供了三个lotus notes扩展类：odbcconnection（odbc连接）、odbcquery（odbc查询）及odbcresultset（odbc结果集）。应用这三个类并辅以lotus script语言就能实现和关系数据库的互操作问题。　　具体解决方法如下：　　第1步：在控制面板→32位odbc数据源中建立用户数据源test；　　第2步：在domino r5中新建一个数据库try，并建立一个空白表单con-nection，此表单没有所有内容，然后在表单上创建一个“操作”，起名为“read”；　　第3步：在“read”操作的编程窗口中选择编程语言为lotus script；　　第4步：在编程窗口的对象窗口中点击“option”事件，并写入如下脚本：　　uselsx ?lsxodbc // 使用lotus script 扩展odbc类　　第5步：选中“declare”事件，在其中写入：　　dim session as notessession　　dim db as notesdatabase　　dim doc as notesdocument　　dim qry as odbcquery　　dim result as odbcresultset　　dim con as odbcconnection　　第6步：选中“click”事件，在其中写入：　　sub click(source as button)　　′ set new value　　set session=new notessession　　set con=new odbcconnection　　set qry=new odbcquery　　set result=new odbcresultset　　′ get current database　　set db=session.currentdatabase　　set doc=new notesdocument(db)　　doc.form=connection　　call con.disconnect()　　if con.connectto(test) then　　 set qry.connection=con　　 qry.sql=select ? from table1　　 set result.query=qry　　 call result.execute()　　 columns=result.columns　　 do　　 call result.nextrow()　　 for i=1 to result.numcolumns　　 field=result.fieldname(i)　　 value=result.getvalue(field)　　 if isdate(value) then　　 if value=datevalue(0:00:00) then　　 value= 　　 else　　 value=format(value,mm-dd-yyyy)　　 end if　　 end if　　 set item=doc.appenditemvalue(field,val-ue)　　 next　　 call doc.save(true,true)　　 set db=session.currentdatabase　　 set doc=new notesdocument(db)　　 doc.form=test　　 loop until result.isendofdata　　 call con.disconnect()　　 else　　 messagebox(could not connect to server)　　end if　　end sub　　　　最后，保存表单并运行，用鼠标点击read操作后，关系数据库中的内容就被取到notes的文件型数据库中了。　　二、程式存在的问题及