使用IBM i (OS/400)在RPGLE中连接到DB2数据库

本示例展示了如何使用IBM i (OS/400)上的RPGLE编程语言连接到DB2数据库，并执行基本的数据库查询和更新操作。

H DFTACTGRP(*NO) ACTGRP('MYPGM') BNDDIR('QC2LE')

     /COPY QC2LE,QC2UTILS

     D DbConn          S               *   inz(*NULL)
     D retCode         S              10i 0

     D myTable         DS                  qualified
     D  myField1                    10
     D  myField2                     5i 0
     D  myField3                    20

     C     *ENTRY        PLIST
     C                   PARM                    retCode

     C                   EVAL      DbConn = qjoOpenDb()
     C                   IF        DbConn <> *NULL

     C     // Execute a SELECT statement and read the results
     C                   EVAL      retCode = qjoExecuteImmediate(DbConn :
     C                                                        'SELECT FIELD1, FIELD2, FIELD3 FROM MYLIB.MYTABLE')
     C                   IF        retCode >= 0
     C                   DOW       qjoFetchNext(DbConn)
     C                   EVAL      myTable.myField1 = trim(qjoGetString(DbConn : 1))
     C                   EVAL      myTable.myField2 = %dec(qjoGetDouble(DbConn : 2)) 
     C                   EVAL      myTable.myField3 = trim(qjoGetString(DbConn : 3))
     C                   ENDDO

     C     // Execute an INSERT statement
     C                   EVAL      retCode = qjoPrepareStatement(DbConn :
     C                                                         'INSERT INTO MYLIB.MYTABLE (FIELD1, FIELD2, FIELD3) VALUES (?, ?, ?)')          
     C                   IF        retCode >= 0
     C                   EVAL      retCode = qjoSetString(DbConn : 1 : 'ABC')
     C                   EVAL      retCode = qjoSetDouble(DbConn : 2 : %dec('12345'))
     C                   EVAL      retCode = qjoSetString(DbConn : 3 : 'TEST')
     C                   EVAL      retCode = qjoExecute(DbConn)
     C                   ENDIF

     C                   EVAL      qjoCloseDb(DbConn)

     C                   ENDIF

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