DOMINO 访问 SQL 数据库 (转载)

转载：http://liuxf1949.blog.163.com/blog/static/28022582201292784238813/

B/S(测试OK)

http://yiyihuazi.blog.163.com/blog/static/15187405201142381143974/?suggestedreading&wumii 

在代理的初始化里面加入下面代码。用http://serverip/data/bbbb.nsf/用代理名?openagent 
 On Error Goto processError
 
 
 
       '-------------------------设置数据库连接信息开始------------------------
 
 ServerNameAdmin   =   "192.168.1.198"   '服务器名称或IP  
 
 DBNameAdmin   =  "pubs"        '数据库名称 
 
 UserNameAdmin   =   "sa"      '登录名
 
 strPwdAdmin   =  "sa"   '密 码
 
       '文章出自《钟辉强—探究系列之DOMINO》
 
    '使用DOMINO 6.5
 
'使用MS SQL 2000
 
       '-------------------------得到数据库连接开始------------------------
 
 Set conn = CreateObject("ADODB.Connection")                
 
 ConnAdmin="DRIVER={SQL Server};SERVER="+Trim(ServerNameAdmin)+";UID="+Trim(UserNameAdmin)+";PWD="+Trim(strPwdAdmin)+";DATABASE="+Trim(DBNameAdmin)+";"
 
 conn.open(ConnAdmin) 
 
 Set rs=CreateObject("adodb.recordSet")
 
       '-------------------------得到数据库连接结束------------------------
 
'有RS就好办了，接下来ZHONGHUIQIANG在写一个插入数据库操作
 
       '-------------------------开始操作------------------------ 
 
 'rs.open "select * from OutBox" 'conn
 
 conn.execute "insert into oatable values('我爱','我老婆')"      
 
       '-------------------------结束操作------------------------
 
    '-------------------------查询开始操作------------------------
 
 Do While Not rs.eof 
  
  Msgbox rs("Msg").value
  
  rs.movenext 
  
 Loop
 
 rs.close                 
 
       '-------------------------查询结束操作------------------------
 
 
 Set rs=Nothing              '清放连接
 
 
 
processError:  Messagebox "Error line: " & Erl() & ";message: " & Error()       
 
'      Exit Sub

 

C/S 架构（OK）

 

 首先创建ODBC数据源名称为 pubs

一．新增一个表单，创建一个文本类型的域（还不知道怎么创建Button域）

二．在Globals  对象 的Options 写入Uselsx "*lsxodbc"

三．Declareations  对象写入

Dim session As NotesSession

Dim db As NotesDataBase

Dim doc As NotesDocument

Dim qry As ODBCQuery

Dim result As ODBCResultSet

Dim con As ODBCConnection

四.在刚刚创建那个文本域中的onfocus事件写入

Sub Onfocus(Source As Field)

Dim   ws   As   New   notesuiworkspace

Dim   uidoc   As   notesuidocument

Dim   doc   As   notesdocument

Dim   con   As   New   ODBCConnection

Dim   qry   As   New   ODBCQuery

Dim   result   As   New   ODBCResultSet

Set   qry.Connection   =   con

Set   result.Query   =   qry

Set   uidoc=ws.currentdocument

Set   doc=uidoc.document

If   con.connectto( "pubs", "sa", "sa")   Then

'If   con.connectto( "pubs")   Then

       

       

       

        qry.sql= "insert into oatable values('我爱','我老婆')"

       

        Call result.Execute()

        Messagebox "保存完毕 "

       

        con.disconnect

       

End   If

Messagebox "提示 "

Call   uidoc.close()

End Sub

 

 

 

 

 参考资料

（一）“If   con.connectto( "test ", "username ", "password ")   Then ”这代码的数据源用户名和密码里面有空格导致调试N久，不过是我主要参考的代码。

下面是我操作sql   server时的代码，我测试通过，而且这个系统正在使用，贴给你看看，希望对你有帮助。 
Sub   Click(Source   As   Button) 
Dim   ws   As   New   notesuiworkspace 
Dim   uidoc   As   notesuidocument 
Dim   doc   As   notesdocument 
Dim   con   As   New   ODBCConnection 
Dim   qry   As   New   ODBCQuery 
Dim   result   As   New   ODBCResultSet 
Set   qry.Connection   =   con 
Set   result.Query   =   qry 
Set   uidoc=ws.currentdocument 
Set   doc=uidoc.document 
If   (doc.gh(0)= " ")   Or   (doc.xm(0)= " ")   Then 
Messagebox "工号与姓名是必填内容! " 
Exit   Sub 
End   If 
If   con.connectto( "test ", "username ", "password ")   Then 
'检察是修改还是录入 
If   doc.option(0)= "修改 "   Then 
qry.sql= "delete   fan   where   工号= ' "&doc.gh(0)& " ' " 
result.execute 
qry.sql= "insert   into   fan   values   ( ' "&doc.gh(0)& " ', ' "&doc.bmh(0)& " ', ' "&doc.xm(0)& " ', ' "&doc.gwgz(0)& " ', ' "&doc.jlgz(0)& " ', ' "&doc.zhbt(0)& " ', ' "&doc.qtbt(0)& " ', ' "&doc.bf(0)& " ', ' "&doc.yfgz(0)& " ', ' "&doc.gjj(0)& " ', ' "&doc.ylbx(0)& " ', ' "&doc.sybx(0)& " ', ' "&doc.ff(0)& " ', ' "&doc.grsds(0)& " ', ' "&doc.qt(0)& " ', ' "&doc.xl(0)& " ', ' "&doc.sfgz(0)& " ', ' "&doc.yf(0)& " ', ' "&doc.zhmc(0)& " ') " 
result.execute 
Messagebox "修改完毕! " 
Exit   Sub 
End   If 
'检察是否有重复 
qry.sql= "select   count(*)   as   aa   from   fan   where   工号= ' "&doc.gh(0)& " ' " 
result.execute 
If   Cint(result.getvalue( "aa "))> 0   Then 
Messagebox "这个工号有人使用,请重新写! " 
Exit   Sub 
End   If 
qry.sql= "insert   into   fan   values   ( ' "&doc.gh(0)& " ', ' "&doc.bmh(0)& " ', ' "&doc.xm(0)& " ', ' "&doc.gwgz(0)& " ', ' "&doc.jlgz(0)& " ', ' "&doc.zhbt(0)& " ', ' "&doc.qtbt(0)& " ', ' "&doc.bf(0)& " ', ' "&doc.yfgz(0)& " ', ' "&doc.gjj(0)& " ', ' "&doc.ylbx(0)& " ', ' "&doc.sybx(0)& " ', ' "&doc.ff(0)& " ', ' "&doc.grsds(0)& " ', ' "&doc.qt(0)& " ', ' "&doc.xl(0)& " ', ' "&doc.sfgz(0)& " ', ' "&doc.yf(0)& " ', ' "&doc.zhmc(0)& " ') " 
result.execute 
con.disconnect 
End   If 
Messagebox "保存完毕 " 
Call   uidoc.close() 
End   Sub

 

参考资料（二）http://blog.csdn.net/withwangzhen/article/details/5932597

—- Lotus Domino 是当今办公自动化系统的主流开发平台之一，目前大部分企业和机构都在使用Lotus Domino 开发自己的无纸办公系统。在开发过程中，我积累了一些小技巧，现在公布出来，希望能给相关人士提供一些帮助。

 

 一． Lotus Domino 与关系数据库的互操作

—- 在项目开发过程中，遇到的第一个棘手的问题是：如何把原先的关系型数据库中的内容全部导入 Domino 中？因为企业现在的所有数据都集中在一个关系型数据库中，因此希望Notes库能与旧的关系库互操作，而不必在数据库转换上浪费更多人力。
—- 此外，由于Lotus Notes是非结构化的数据库，而关系数据库属于结构化数据库，因此要实现两者的互操作或数据导入/导出势必需要一个专门的转换程序，而这个程序一般来说都属于附加品，要么由Lotus提供，要么由数据库厂商提供，如Lotus Notes与Oracle数据库之间的转换就有专门的程序（Pump）。一般在购买Lotus产品的时候Lotus公司不会提供此类产品，如果需要可以单独购买。而对于企业来说，如果企业数据存放在不止一个关系库中，那么就需要购买若干个此类产品，而且还不一定能买的到，因此能否通过Lotus Script编写一个通用的数据库转换程序就成为本次开发的难点之一。
—- 解决这个问题用到了Lotus Domino R5 中提供的三个Lotus Notes 对象类：ODBCConnection（ODBC 连接）、ODBCQuery（ODBC 查询）以及ODBCResultSet（ODBC结果集）。应用这三个类并辅以Lotus Script语言就能实现与关系数据库的互操作问题。

—- 具体解决方法如下：

—- 第一步 在控制面板——>32位ODBC数据源中建立用户数据源Test；

—- 第二步 在Domino R5中新建一个数据库Try，并建立一个空白表单Connection，此表单没有任何内容，然后在表单上创建一个“操作”，起名为“Read”；

—- 第三步 在“Read”操作的编程窗口中选择编程语言为Lotus Script；

—- 第四步 在编程窗口的对象窗口中点击“Option”事件，并写入如下脚本：

—- Uselsx “*lsxodbc” // 使用Lotus Script 扩展对象中的ODBC类

—- 第五步 选中“Declare”事件，在其中写入：
[Copy to clipboard]CODE:
Dim session As NotesSession
Dim db As NotesDataBase
Dim doc As NotesDocument
Dim qry As ODBCQuery
Dim result As ODBCResultSet
Dim con As ODBCConnection

 

定义程序中使用到的各种对象。

 

第六步 选中“Click”事件，在其中写入：
[Copy to clipboard]CODE:
Sub Click(Source As Button)
‘ Set New Value
Set session = New NotesSession
Set con = New ODBCConnection
// 新建ODBCConnection对象实例
Set qry = New ODBCQuery
// 新建ODBCQuery对象实例
Set result = New ODBCResultSet
// 新建ODBCResultSet对象实例
‘ 取得当前数据库信息
Set db = session.CurrentDataBase
Set doc = New NotesDocument(db)
// 新建文档
doc.form = “connection”
// 新建文档的表单指向connection
Call con.Disconnect()
// 保证con对象当前没有连接其他数据源
If con.ConnectTo(”test”) Then
// 如果连接成功
Set qry.connection = con
// 将建立好连接的con交给query对象
qry.SQL = “SELECT * FROM Table1″
// SQL 语句
Set result.Query = qry
// 将已经连接上数据源并写好SQL
语句的query对象赋给result对象
Call result.Execute() // 执行SQL语句
Do // 循环直到结果集为空
Call result.NextRow() // 指针指向下一条记录
For i = 1 To result.Numcolumns
// 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,value)
// 将关系库中的值写到Notes当前库的当前表单中
Next
Call doc.save(True,True)
// 当一条记录的所有字段都被写入
Notes库后保存此文档
Set db = session.CurrentDataBase
Set doc = New NotesDocument(db) // 新建文档
doc.form = “connection”
Loop Until result.IsEndOfData
Call con.Disconnect() // 断开与数据源的连接
Else
Messagebox(”Could not connect to server”)
End If
End Sub
—- 最后，保存表单并运行，用鼠标点击Read 操作后，关系数据库中的内容就被取到Notes的文档型数据库中了。
—- 下面简要说明一下上述代码：

—- 1． New。New 关键字是用来创建Notes 对象的。New 后面是要创建的Notes对象及所需的参数。使用New 关键字需要注意的一点是：在Declare 事件中声明Notes对象的时候不能使用New 关键字，否则编译时会出错；但是在Click 事件中可以按 Dim db As New NotesDatabase（“”，“***.NSF”）格式书写。

—- 2． ODBCConnection 对象是与ODBC建立连接的Notes对象，使用它的ConnectTo方法可以与ODBC用户数据源中定义的任何一个数据源建立连接，同时返回一些相关的信息，如：表的个数，表中的字段数等。

—- 3． ODBCQuery 对象是用户编写标准的SQL查询语句的对象，它的connection 属性是指向已经与ODBC数据源建立好连接的ODBCConnection 对象的；它的SQL 属性是存放用户编写的SQL 语句。

—- 4． ODBCResultSet 对象是执行SQL 查询语句之后存放查询结果的，它的Query 属性是指向包含建立起连接（ODBCConnection）的并写好SQL语句的ODBCQuery对象。

—- 5． ODBCResultSet 对象的NextRow 方法的作用是将ODBCResultSet 的记录指针指向下一条记录。因为在取到关系数据库中的记录之后，ODBCResultSet对象的指针是为空的，也就是说它并不自动指向结果集的第一条记录，NextRow方法即实现了将记录指针指向第一条记录的功能，并且在以后的循环过程中，此方法还将继续把指针逐一指向后面的记录，直到最后一条。

—- 6． 由于原先的关系数据库中的字段比较多，所以采用在程序中直接写入字段名的做法并不明智，因此，本程序使用了ODBCResultSet 对象的FieldName（fieldindex）方法来通过字段的编号获得字段名，然后再使用GetValue（fieldname）函数得到域值，最后调用Document类的AppendItemValue（fieldname，value）函数在表单中追加一个名为fieldname的域并赋值。

—- 在把上述三个对象的属性分别设置好以后，调用ODBCResultSet 对象的Execute 方法，就可以从关系库中读取数据了。

—- 但是使用上面的代码在进行实际数据库内容转换的时候，发现Notes 通过ODBC数据源连接关系数据库时，无法识别中文字段名。如果关系数据库的字段是中文名字，那么ODBCResultSet将为空，解决的办法是将关系数据库中的所有字段都改为英文名字。经过反复测试，发现并不是所有的中文字段名Notes都不识别，是同关系库的驱动程序有关，由于本次开发连接的是Foxpro的DBF数据库，使用的是Foxpro2.6数据库驱动，因此无法通过ODBC获取中文字段名，如果连接的关系库是Microsoft SQL Server7.0则可以通过ODBC数据源识别中文字段名。

—- 在实际数据库的转换过程中同时发现的问题还有：该程序执行完一次后不能把关系型数据库中的内容全部取出来。由于需要转换的关系型数据库的结构比较复杂，共有40多个字段，且包括字符、字符串、日期、数字等多种数据类型，同时库中的记录比较多（共有3000多条记录），因此出现这个问题后，有两个猜测，一是和ODBC驱动所设置的系统缓冲有关，一是和Notes开辟的内存空间有关，然而通过试验，最终认为和Notes有关的可能性最大。这是因为首先，Notes对其所有的类都设置了缓存，这其中也包括ODBCResultSet，通过调试Lotus Script脚本并多次单步跟踪脚本的执行情况，发现每次只要执行到同一条数据库记录（例如第3328条记录）时，ODBCResultSet就认为数据集已经到头了，下面的记录就都丢了。于是使用关系数据库软件打开数据库，并将其中的字段减少若干条后，就可以一次读取出全部3000多条记录。至于需要减少多少个字段才能一次读取出全部记录跟原先的关系型数据库的结构有关，需要具体情况具体实验，没有定论。但是可以肯定的一条是Notes本身确实为每个对象类都设置了缓存；并且Notes能根据当前内存的使用情况改变缓存的大小。其次，当用户开机后不是马上运行Lotus Notes而是先运行一个其他的程序，然后再运行Notes时，上面提到的第3328条数据库记录就有所改变，可能变为第3112条记录，也可能变为第3218条记录，这个数字将变得不唯一，具体是多少不得而知，而是与所运行的应用程序有关。

 

—- 上述代码实现了通过ODBC数据源读取关系数据库中的内容写到Lotus Notes库，同样也可以使用上述方法实现在Lotus Notes 程序通过ODBC 数据源写回到关系数据库的功能，具体实现方法与上面的过程大同小异，因此只在此附上源代码：

（1） Option 事件中：
[Copy to clipboard]CODE:
Uselsx “*lsxodbc”

（2） Clicked 事件中：
[Copy to clipboard]CODE:
Sub Click(Source As Button)
Dim session As NotesSession
Dim db As NotesDataBase
Dim dc As NotesDocumentCollection
定义程序中用到的对象类
Set session = New NotesSession
Set db = session.CurrentDataBase
取到当前数据库的信息
Dim con As New ODBCConnection
Dim qry As ODBCQuery
Dim result As ODBCResultSet
定义ODBC对象类
Set qry = New ODBCQuery
Set result = New ODBCResultSet
If con.ConnectTo(”test”) Then
Set qry.Connection = con
Set result.Query = qry

qry.SQL = “SELECT * FROM table1″
Call result.Execute()
Set dc = db.AllDocuments
// 得到当前数据库中所有文档的文档集
If dc.Count = 0 Then
// 如果文档集为空，则直接退出
result.Close(DB_CLOSE)
con.Disconnect
Exit Sub
End If

For i = 1 To dc.Count // 循环，
直到所有文档都被写入关系库
Set doc = dc.GetNthDocument(i)
// 获得第i条文档
Call result.AddRow()
// 在关系库中增加一条记录
Forall j In doc.Items
Dim str_name As String
Dim value As Variant
str_name = j.name
If (str_name < > “Form”)
And (str_name < > “$UpdatedBy”) Then
// Notes为每个文档都增加了两个特殊的
NotesItem对象用于标识系统信息
value = doc.GetItemValue(str_name)
Call result.SetValue(str_name,value(0))
// 为关系库中的字段赋值
End If End Forall
result.UpdateRow // 更新关系库
Next
result.Close(DB_CLOSE)
con.Disconnect
Else
Messagebox(”Could not connect server”)
End If
End Sub
—- 二． Lotus Domino 中的日期处理
—- 在使用ODBC族对象类与关系数据库进行交互的代码里，有下面一段：
[Copy to clipboard]CODE:
If Isdate(value) Then
If value = Datevalue(”0:00:00″) Then
value = “”
Else
value = Format(value,”mm-dd-yyyy”)
End If
Set item = doc.AppendItemValue(field,value)
End if

—- 这一段代码的作用是：判断从关系库中读取出来的字段是否为日期型字段，如果是，那么判断此日期型字段的值，看它是否为空，如果为空则在写入Notes库的时候做处理，保证写入的是空日期类型，如果此字段的值不为空则直接写入Notes库；如果此字段不是日期型字段，则不做任何处理。也许有人会问：为什么对于日期型字段要单独做此番处理？
—- 答案是：如果不做上述处理，那么通过ODBCResultSet类取出的日期型字段的值如果为空，则写入Notes库的时候会出现一个特殊日期：“1899年12月30日”。为什么会出现这个日期，目前尚不得而知。但是在Lotus Script中由于没有单独的Date数据类型，所以Notes的日期变量是以8个字节的浮点数的形式存在的，其整数部分表示公元某年某月某日，其小数部分表示小时分秒，从午夜开始计数。

—- 其日期类型可以表示的范围从公元100年1月1日（-657434），到9999年12月31日（2958465）这一天，然后Notes会把9999年12月31日对应的整数日期以及所有超过上述日期范围的日期都换算成1899年12月30日。Notes为什么会用这种方法处理日期型变量，以及为什么把1899年12月30日作为无法换算日期的默认值这一点目前还没有比较好的解释，但是作为一个数据库转换程序，应该保证转换前后的两个数据库中内容的一致性，因此由于Notes本身没有解决这个问题那么就只能由程序来解决。解决的思想是：如果取出来的日期型变量的值为空，那么就应该向Notes库中写入空日期，于是就有了上面的代码。

—- 在代码中，使用到了一个DateValue（string）函数，此函数的功能是将字符串参数转换成日期数据类型，如果字符串所表示的内容找不到合法的日期数据与之对应，那么此函数将保留字符串的值不变，而仅仅把其数据类型转换成日期型，即实现了强制类型转换函数的功能。而代码中的“0：00：00”字符串是个特殊字符串，在通过ODBC数据源读取关系数据库的记录时，如果关系库中的日期型字段值为空，那么取出的值就是“0：00：00”形式的日期（这也许与Microsot公司的ODBC驱动及相关程序有关，因为不只是Notes取出空日期为此值，其他软件甚至包括微软自己的MS Query组件通过ODBC读取同一关系数据库中的日期型变量时也会出现同样的问题）。使用DateValue（“0：00：00”）语句就可以判断取出的日期型变量的值是否为空，如果为空则将变量Value的值赋成空字符串，然后再写入Notes库中，则可避免出现1899年12月30日这个特殊日期。

—- 虽然Lotus Script中没有提供专门的日期数据类型，但是Lotus却提供了NotesDateTime对象类，其中包括了日期数据的相关处理，如果开发者必须要在程序中处理日期数据而又觉得Lotus Script提供的函数不够的话，可以考虑使用NotesDateTime对象。

—- 三． Notes中视图与表单的关联

—- 在开发过程中，由于一次错误意外地发现了Notes中视图与表单的关联技巧。Notes为每个表单都设置了名称与别名两个属性，这两个名字都能标识表单。在开发过程中，所开发的库有两个表单，分别命名为Form1和Form2，其各自的别名由于疏忽都设成了Document，而每个表单都有一个视图与之对应，在设计Form2的视图时，虽然指定视图中的列都与Form2中的域相关联，但是在运行的时候从视图中双击某条文档欲对其进行编辑时，切换到的表单却是Form1的，多方查找均不能解决这个问题，于是报着试试看的心理改变了表单的别名，分别为Document1和Document2，问题解决。但是又从出现Form1的视图无法切换到表单的情况，于是又将Form1的别名改回Document，两个视图均能正确切换到自己的表单上。

—- 由此发现，Notes在建立视图与表单的关联的时候，首先看表单是否具有别名，如果有，则用别名进行关联，一旦对表单的别名进行了改变就得重新设计视图，如果不想重新做视图就不能改变表单的别名。当然同时也可以应用这一技巧实现从视图中切换到不同表单的功能。如果表单没有别名，则使用名字进行关联。