IBM i (OS/400)数据查询与更新示例

本示例展示了在IBM i (OS/400)平台上进行数据查询与更新的简单方法。通过使用SQL语句实现数据操作，以及如何通过RPG编程语言进行与数据库的交互。

// RPGLE程序示例：查询员工表并更新工资
dcl-s EmployeeName char(50);
dcl-s NewSalary packed(9:2);

// 查询员工名字
exec sql SELECT EMPNAME INTO :EmployeeName
          FROM EMPLOYEE
          WHERE EMPID = 101;

// 打印查询结果
if %found;
  dsply ('员工名字：' + EmployeeName);
else;
  dsply ('未找到员工！');
endif;

// 更新工资
NewSalary = 50000;
exec sql UPDATE EMPLOYEE
          SET SALARY = :NewSalary
          WHERE EMPID = 101;

// 打印更新后的工资
dsply ('更新后的工资：' + %char(NewSalary));

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