Rexx-update-operation

提供:Dev Guides
移動先:案内検索

Rexx-更新操作

データベースでのUPDATE操作は、データベースですでに利用可能な1つ以上のレコードを更新することを意味します。 次の手順は、SEXが「M」であるすべてのレコードを更新します。

次の例では、すべての男性のAGEを1年増やします。

/*Main program*/
Call RxFuncAdd 'SQLLoadFuncs', 'rexxsql', 'SQLLoadFuncs'
Call SQLLoadFuncs

if SQLConnect(c1,'testuser','test123','testdb') == 0 then say 'Connect Succedded'
if SQLCommand(u1,"use testdb") == 0 then say 'Changed database to testdb'
   sqlstr = "UPDATE EMPLOYEE SET AGE = AGE + 1 WHERE SEX = 'M'"

say SQLCommand(c2,sqlstr)