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

本示例代码演示了如何在IBM i (OS/400)操作系统下使用RPG程序连接到DB2数据库。该示例代码包括一个RPG程序文件和一个SQL预处理器程序文件。通过在RPG程序中调用SQL预处理器程序来实现连接到DB2数据库。

RPG程序文件：

     DCL-F MYFILE001 WORKSTN FMT=DISK;
     DCL-S MYQUERY CHAR(500) INZ('SELECT * FROM MYTABLE');
     DCL-S MYRESULT CHAR(100);
     EXEC SQL DECLARE C1 CURSOR FOR MYQUERY;
     EXEC SQL OPEN C1;
     DOU SQLCOD<>0;
     EXEC SQL FETCH NEXT FROM C1 INTO :MYRESULT;
     IF SQLCODE = 0;
     WRITE MYFILE001 MYRESULT;
     ENDIF;
     ENDDO;
     EXEC SQL CLOSE C1;
     *INLR = *ON;

SQL预处理器程序文件：

     #include <stdio.h>
     #include <stdlib.h>
     #include <sqlcli.h>
     #define MAXBUFLEN 1024
     int main(){
     SQLHENV henv;
     SQLHDBC hdbc;
     SQLHSTMT hstmt;
     char query[MAXBUFLEN];
     SQLRETURN retcode;
     retcode = SQLAllocHandle(SQL_HANDLE_ENV, SQL_NULL_HANDLE, &henv);
     retcode = SQLSetEnvAttr(henv, SQL_ATTR_ODBC_VERSION, (void*) SQL_OV_ODBC3, 0);
     retcode = SQLAllocHandle(SQL_HANDLE_DBC, henv, &hdbc);
     retcode = SQLConnect(hdbc, (SQLCHAR*)"MYDATABASE", SQL_NTS, (SQLCHAR*)"MYUSERNAME", SQL_NTS, (SQLCHAR*)"MYPASSWORD", SQL_NTS);
     retcode = SQLAllocHandle(SQL_HANDLE_STMT, hdbc, &hstmt);
     sprintf(query, "DROP TABLE MYTABLE");
     retcode = SQLExecDirect(hstmt, (SQLCHAR*)query, SQL_NTS);
     sprintf(query, "CREATE TABLE MYTABLE (ID INT, NAME VARCHAR(50))");
     retcode = SQLExecDirect(hstmt, (SQLCHAR*)query, SQL_NTS);
     sprintf(query, "INSERT INTO MYTABLE VALUES (1, 'John'), (2, 'Mike'), (3, 'Lucy')");
     retcode = SQLExecDirect(hstmt, (SQLCHAR*)query, SQL_NTS);
     SQLFreeHandle(SQL_HANDLE_STMT, hstmt);
     SQLDisconnect(hdbc);
     SQLFreeHandle(SQL_HANDLE_DBC, hdbc);
     SQLFreeHandle(SQL_HANDLE_ENV, henv);
     return 0;
     }

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