在Lotus Notes平台访问关系型数据库，方法主要有以下4种：

1)LS:DO(ODBC)：异种平台互访数据库的数据源；
2)DECS：Lotus DECS服务；
3)LC  LSX：利用LOTUS CONNECTOR的API访问外部数据库；
4)LEI(LOTUS ENTERPRISE INTERGRATOR)：LOTUS的一个工具软件，用来在不同的数据平台上交换数据。 

本文将对对利用LS:DO(ODBC)技术实现Notes访问DB2/400数据库进行介绍。 

本文将以近期公司实施的海关ＥＤＩ加贸企业联网监管系统的Notes端开发片段进行阐述。

1、 Notes端创建对应AS/400端需要访问数据的PF文件（ZICTLP）的DDS结构的表单，其中域栏表示Notes端的字段，FIELD ID栏是DDS定义的字段：

2、表单创建完毕，接着创建对应的View，添加『更新参数表』按钮：

☆『更新参数表』按钮后台对应的LotusScript语言如下：

Sub Click(Source As Button)    Dim ws As New NotesUIWorkspace  Dim session As New NotesSession  Dim db As NotesDatabase  Dim doc As NotesDocument  Dim FullFileName As String    Set db = session.CurrentDatabase    Dim view As NotesView  Dim collection As NotesViewEntryCollection  Dim entry As NotesViewEntry    Set view = db.GetView("ＥＤＩ参数表")  Set collection = view.AllEntries  Set entry = collection.GetFirstEntry()  While Not(entry Is Nothing)   Set doc = entry.Document   doc.Remove(True)   Set entry = collection.GetNextEntry(entry)  Wend    Call ws.ViewRefresh         'Create Connection object  Set Con = New ODBCConnection        'Connect to data source 'R21AFLB1'  Dim ds As String, user As String, pw As String  ds   = "R21AFLB1"  user = "RINKS211"  pw   = "RINKS211"  retcode% = Con.ConnectTo( ds, user, pw )        'Exit if Connection failed  If ( retcode% = False ) Then   Msgbox "不能正常连接数据源：" + ds   error% = conn.GetError   extendedMessage$ = conn.GetExtendedErrorMessage(error%)   Msgbox extendedMessage$   Exit Sub  End If        'Create Query object  Set Qry = New ODBCQuery             'Assign  Connection to Query  Set Qry.Connection = Con         'Assign SQL Query    Qry.SQL = " Select * from ZICTLP where CTLTAG='I' "        'Create ResultSet Object  Set Res = New ODBCResultSet        'Assign Query to ResultSet  Set Res.Query = Qry        'Execute Query      retcode% = Res.Execute        'Exit if Execute failed  If ( retcode% = False ) Then   Msgbox "不能执行查询：" + Qry.SQL   error% = data.GetError   extendedMessage$ = data.GetExtendedErrorMessage(error%)   Msgbox extendedMessage$   Exit Sub  End If        'If No ResultSet then Exit sub  If Not Res.IsResultSetAvailable() Then   Msgbox "没有找到记录！"   Exit Sub  End If      Do     Res.NextRow      Set doc = db.CreateDocument   doc.Form = "ZICTLP"      'Transfer data from zictlp     doc.XCTLITM       = Res.GetValue("CTLITM")   doc.XCTLNO        = Res.GetValue("CTLNO")   doc.XCTLHS        = Res.GetValue("CTLHS")   doc.XCTLHSB      = Res.GetValue("CTLHSB")   doc.XCTLCML      = Res.GetValue("CTLCML")   doc.XCTLEML      = Res.GetValue("CTLEML")   doc.XCTLCUR      = Res.GetValue("CTLCUR")   doc.XCTLTAG      = Res.GetValue("CTLTAG")   doc.XCTLDAT      = Res.GetValue("CTLDAT")   doc.XCTLFT1      = Res.GetValue("CTLFT1")         Call doc.Save(False,False)     Loop Until Res.IsEndOfData    Call ws.ViewRefresh    con.Disconnect   End Sub

3、Notes客户端配置R21AFLB1为数据源名称的ODBC。

控制面板—管理工具—数据源(ODBC)—系统DSN，添加“Client Access ODBC Driver (32-bit)”驱动程序。
在“常规”栏中添加“数据源名：R21AFLB1”。
在“服务器”栏中指定“SQL缺省库：R21AFLB1”，出于数据安全，“连接类型”指定为“只读(只允许Select语句)”。
为避免出现转换数据时的不必要麻烦，建议在“转换”栏把“将二进制数据(CCSID 65535)转换为文本”选项选上。

4、需要实现数据从DB2/400—>Notes时，只需要执行『更新参数表』按钮即可。