使用RPG程序连接IBM i（OS/400）数据库

该示例代码展示如何使用RPG程序连接IBM i（OS/400）数据库并进行数据操作，包括创建表、插入数据和查询数据。

H ACTGRP(*CALLER) BNDDIR('QC2LE')
     D $DB C BLANKS(10)
     D $MSG C CONST('*EXT')

     /FREE
     //Connect to the database
     exec sql connect to ibm i user :$DB using :$DB;

     //Create a table
     exec sql create table EMPLOYEE (
         ID int not null primary key,
         NAME char(30) not null,
         AGE int not null
     );

     //Insert data into the table
     exec sql insert into EMPLOYEE (ID, NAME, AGE)
     values (1, 'John Smith', 35);

     //Query data from the table
     exec sql declare C1 cursor for select * from EMPLOYEE;
     exec sql open C1;
     dow sqlstate = '00000';
         exec sql fetch C1 into :ID, :NAME, :AGE;
         //Print the data
         if sqlstate = '00000';
             dsply 'ID=' + %char(ID) + ' NAME=' + %trim(NAME) + ' AGE=' + %char(AGE);
         endif;
     enddo;
     exec sql close C1;

     //Disconnect from the database
     exec sql disconnect ibm i;

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