IBM i (OS/400)如何使用RPG程序连接Oracle数据库？

本文介绍了如何在IBM i（OS/400）操作系统中使用RPG程序连接到Oracle数据库。通过使用扩展外部描述符（EXTDESC）指令来定义外部数据结构，以便与Oracle数据库进行交互。同时，指导如何使用JDBC驱动程序在RPG程序中连接到Oracle数据库并执行SQL语句。

     d ExtSQL        e extdesc('SQL')
     D OracleDSN     S            25
     D ErrMsg        s            80
     D SQLStmt       s           256
     D SQLHandle     s             4B
     D cnn           s             O   CLASS(*JAVA:'java.sql.Connection')
     D url           s           256   inz('jdbc:oracle:thin:(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=xxx.xxx.xxx.xxx)
                                           (PORT=1521))(CONNECT_DATA=(SERVICE_NAME=dbname)))')
     D usrname       s            50   inz('username')
     D passwd        s            50   inz('password')

      /free
        cnn = *NULL;
        ErrMsg = '';
        sqlob = 'SELECT COLUMN1, COLUMN2 FROM TABLE1';
        ExtSQL = sqlob;

        EXEC SQL
          ALLOCATE DESCRIPTOR :SQLHandle ;
        END-EXEC;

        SQLDescPtr = :SQLHandle;
        EXEC SQL
          SET DESCRIPTOR :SQLDescPtr VALUE 3
                         :OracleDSN
                         :usrname
                         :passwd;
        END-EXEC;

        EXEC SQL
             PREPARE S1 FROM :sqlob;
        END-EXEC;

        EXEC SQL
             DECLARE C1 CURSOR FOR S1;
        END-EXEC;

        EXEC SQL
             OPEN C1  USING DESCRIPTOR :SQLHandle;
        END-EXEC;

        EXEC SQL
             FETCH C1 INTO :column1, :column2;
        END-EXEC;

        DO WHILE(SQLCOD = 0);
            // Do something with column1 and column2
            EXEC SQL
                  FETCH C1 INTO :column1, :column2;
            END-EXEC;
        ENDDO;

        EXEC SQL
           FREE DESCRIPTOR :SQLHandle;
        END-EXEC;

     /end-free

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com