首页  ·  知识 ·  编程语言
java用odbc-jdbc的连接不会出现溢出
不详    Java  编辑:德仔   图片来源:网络
java用odbc-jdbc的连接不会出现溢出. import lot
 java用odbc-jdbc的连接不会出现溢出.  
   
   
  import   lotus.domino.*;  
  import   java.sql.*;  
  import   java.util.Vector;  
   
  public   class   JavaAgent   extends   AgentBase   {  
   
  public   void   NotesMain()   {  
   
  try   {  
  Session   session   =   getSession();  
  AgentContext   agentContext   =   session.getAgentContext();  
   
  //   (Your   code   goes   here)    
  String   dbURL   =   "jdbc:odbc:sms";  
              String   user   =   "IOD_OA";  
              String   password   =   "IOD_OA";  
              String   databasename   =   "IOD_OA";  
              int   flag   =   0;  
              int   message_id   ;  
              String   ms_no   ;  
              String   iod_sm_body   ;  
              String   req_time   ;  
   
   
  Database   db   =   agentContext.getCurrentDatabase();  
  Document   curdoc   =   agentContext.getDocumentContext();  
  curdoc.replaceItemValue("iod_sm_body","一切一场梦!");  
  curdoc.replaceItemValue("ms_no",dbURL);  
   
  Class.forName("sun.jdbc.odbc.JdbcOdbcDriver");   //驱动申明  
  Connection   con   =   DriverManager.getConnection(dbURL,user,password);   //建立链接  
  con.setCatalog(databasename);   //确定目标数据库  
  Statement   smt   =   con.createStatement(ResultSet.TYPE_SCROLL_SENSITIVE,ResultSet.CONCUR_UPDATABLE);  
   
                    //建立描述,设定结果集支持滚动光标且敏感,不可编辑  
                    String   selCode   =   "INSERT   INTO   IOD_OA   VALUES('11','13017114010','没有内容','','78')";  
                    ResultSet   rs   =   smt.executeQuery(selCode);   //结果集  
   
              rs.close();  
              smt.close();  
              con.close();  
   
  }   catch(Exception   e)   {  
  e.printStackTrace();  
  }  
  }  
  }  
   
   
   
  ********************************************************  
   
  Uselsx   "*LSXODBC"  
   
   
  Dim   con   As     ODBCConnection  
  Dim   qry   As     ODBCQuery  
  Set   con   =   New   ODBCConnection  
  con.SilentMode   =   False  
  Print   "正在连接关系数据库..."  
  If   con.ConnectTo("ODBCSource","sa","123")   =   False   Then     //ODBC数据源名、用户名、口令  
  Print   "连接数据库失败!"  
  Exit   Sub  
  End   If  
  Print   "关系数据库连接成功!"  
   
   
  Dim   result   As   ODBCResultSet  
  Set   qry   =   New   ODBCQuery  
  Set   qry.Connection   =   con  
   
  Set   result   =   New   ODBCResultSet  
  Set   result.Query   =   qry  
  StrSQL   =   "SELECT   *   FROM   drug"        
  qry.SQL   =   StrSQL  
  If   result.Execute   =   False   Then  
  Print   "无法从数据表提取数据!"  
  Exit   Sub  
  End   If  
  con.Disconnect   
 
 
  一般有4中方法:DECS,LEI,LC   LSX,JDBC,根据你的问题,采用LCLSX编码更灵活方便些  
  写一个代理。代理使用LotusScript写,通过Lotus   Connector连接到Oracle数据库,然后将Domino文档中的Item值写入相应的Oracle表。步骤如下:  
  1、在Domino服务器(或者说你的nsf所在的机器)安装Oracle客户端,并根据Oracle数据库SID配置一个本地的service  
  2.在designer写一段代理,通过配置的本地Oracle   service连接Oracle数据库,来个循环将所有需要写的文档处理相关数据写到Oracle。可以到lotus网站上看到这些连接信息和编程方法。
本文作者:不详 来源:网络
CIO之家 www.ciozj.com 微信公众号:imciow
    >>频道首页  >>网站首页   纠错  >>投诉
版权声明:CIO之家尊重行业规范,每篇文章都注明有明确的作者和来源;CIO之家的原创文章,请转载时务必注明文章作者和来源;
延伸阅读
也许感兴趣的
我们推荐的
主题最新
看看其它的