OS400上有类似windows上的odbc 连接吗？

qingzhou

关于这个话题，我以前也有提过，你可以直接访问AS/400精华区帖子。
我给你解释一下：
DECS：首先要在DOMINO服务器上启动DECS Serives，然后打开服务器上的DECS ADMIN的NOTES数据库模板，在里面你可以创建各种数据库的连接文档[如：ODBC(Access、SQL...)、Oracle、Sybase、DB2、File System、EDA]，然后按照以下步骤来实现：
例如：DOMINO访问SQL：
1）在ODBC里创建SQL连接文档；在DECS Administrator创建NOTES DB连接文档（双向都需要创建）；
2）创建NOTES应用程序；
3）激活SQL、NOTES DB连接文档（创建实时行为）；
4）在NOTES应用程序里面使用Lotus Script/Java Script语言进行编程，具体可以对访问的SQL数据库进行插入、删除、更新等操作；
5）使用NOTES刷新外部数据源SQL 。

建议：建议使用DOMINO LEI工具来实现，这个工具功能比较强大；另外还可以通过LSX：LC开发技术，以提高开发NOTES DB访问其它关系型数据库的灵活性。

qingzhou

补充一下：
在使用DECS或者LSX：LC的过程中，我们可以发现上面的整个过程归纳如下：
1）初始化连接；
2）得到指定关键字的结果集；
3）将文档中的域的值赋到外部数据源的字段中；
4）刷新外部数据源。

但是，使用LSX：LC来访问外部数据库比起DECS方式来得简单、灵活、强大！

居士

谢谢qingzhou的回答，你回答的太详细了，我已经无话可说了  ：）

chengx

在DECS里面好象没有到SQL的连接,版本问题?

qingzhou

chengx兄弟：开发这个东西是要靠自己去实践摸索才行的，不比解答一个简单的技术问题，我就帮你帮到底吧！

下面给出一个最简单的例子说明，希望能够启发你的思维，融会贯通，并依次思路应用于对SQL、ORACLE、SYBASE、DB2等其它关系型数据库之中...

1. 案例说明：
   
2. 　　我们用ACCESS数据库做一个员工信息表，然后从中读取数据到NOTES的一个表单(此案例中的表单名为fmEmployee)中建立文档，最后在视图（此案例中的视图名称为vwemployee）中显示数据信息。
   
3. 
   
4. 步骤说明：
   
5. 　　1、用ACCESS数据库建立员工信息表（当然也可以用其它关系型数据库建立），此案例中表名为employee；
   
6. 　　2、在控制面板里建立数据源DSN,此案例中DSN名称为bowei；
   
7. 　　3、在NOTES里设计代理（为简单起见，也可以先通过一个操作按钮来实现，然后移植到代理中去，具体代码见后）；
   
8. 
   
9. 代码说明：
   
10. 　　1、在代理或操作的Options事件中添加如下代码：
    
11. 　　　　Uselsx "*LSXODBC"
    
12. 　　2、在代理的Initialize事件或操作的Click事件中添加如下代码：（核心是ODBCConnection、odbcquery、odbcresultset三个对象的使用以及notesdocument对象的appenditemvalue方法的使用）。
    
13. 
    
14. 　　Sub Click(Source As Button)
    
15.         Dim con As New ODBCConnection
    
16.         Dim qry As New odbcquery
    
17.         Dim res As New odbcresultset
    
18.         Dim status As Variant
    
19.         
    
20.         Dim session As New notessession
    
21.         Dim db As notesdatabase
    
22.         Dim doc As notesdocument
    
23.         Dim view As notesview
    
24.         
    
25.         Set db=session.currentdatabase
    
26.         Set view=db.getview("vwemployee")
    
27.         
    
28. 　　　　'连接数据源
    
29.         status=con.connectto("bowei")
    
30.         Set qry.connection=con
    
31. 
    
32.         '执行查询,取得结果集
    
33.         qry.sql="select * from employee"
    
34.         Set res.query=qry
    
35.         Call res.execute
    
36.         
    
37. 　　　　'当结果集不为空时，循环将记录中各字段的值赋给表单各域
    
38.         While res.nextrow
    
39.                 Set doc=New notesdocument(db)
    
40.                 Call doc.appenditemvalue("form","fmEmployee")
    
41. 　　　　　　　　'取得结果集中指定字段的值直接赋给指定的域　
    
42.                 doc.empid=Cstr(res.getvalue("e_ID"))
    
43.                 '调用appenditemvalue方法将取得的值赋给指定的域，好像与直接赋值的方式效果一样
    
44.                 Call doc.appenditemvalue("empName",res.getvalue("e_name"))
    
45.                 Call doc.appenditemvalue("empSex",res.getvalue("e_sex"))
    
46.                 Call doc.appenditemvalue("empAge",res.getvalue("e_age"))
    
47.                 Call doc.appenditemvalue("empAddress",res.getvalue("e_address"))
    
48.                 Call doc.appenditemvalue("empPhone",res.getvalue("e_phone"))
    
49.                 Call doc.appenditemvalue("empResume",res.getvalue("e_resume"))
    
50. 　　　　　　　　'保存文档
    
51.                 Call doc.save(ture,False)
    
52.         Wend
    
53.         
    
54. 　　　　'关闭结果集
    
55.         res.close
    
56. 　　　　'断开连接
    
57.         con.disconnect
    
58. 　　　　'刷新视图
    
59.         view.refresh
    
60. 　　End Sub

复制代码

chengx

谢谢您的详尽介绍,但我的疑问是
楼上例子的ODBC是建立在Windows上的吧,(AS400的Domino不能访问别的机器上的ODBC)

kimdai

我到是知道，oracle提供透明网关软件。可以允许Oracle 无障碍访问DB2/400。对于SQL Server没听说有类似东东。呵呵，最好问问微软。

chengx

在AS400上Domino访问外windows平台SQL Server数据库,看来是没什么办法了(就算是sql server jdbc driver 也只有for windows或for UNIX),看来只能反过来在windows上编程访问400的domino.
   其他厂商对AS400的支持还不如Unix.

yj2yq

有人用过DRDA吗?400 DB2和DB2之间可以用,400 DB2和其他数据库是不是也可以用呢?应该如何设置参数?

qingzhou

[quote]原帖由 "yj2yq"]有人用过DRDA吗?400 DB2和DB2之间可以用,400 DB2和其他数据库是不是也可以用呢?应该如何设置参数?[/quote 发表：


我正在整理DRDA、两段提交控制技术，以回答以前所提的关于"C SERVER SQL2000与AS/400 DB2/400数据同步"问题的，没想到你现在刚好提出了这个问题。

请等待ing......