Rexx-update-operation

提供:Dev Guides
2020年6月23日 (火) 01:03時点におけるMaintenance script (トーク | 投稿記録)による版 (Imported from text file)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
移動先:案内検索

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)